Переглянути джерело

versions for new Pascal compiler

ceriel 35 роки тому
батько
коміт
f3249a04a1
2 змінених файлів з 5 додано та 3 видалено
  1. 2 0
      h/pc_err.h
  2. 3 3
      h/pc_file.h

+ 2 - 0
h/pc_err.h

@@ -13,6 +13,8 @@
 #define	EMOD	71
 #define	EBADF	72
 #define	EFREE	73
+#define EFUNASS	74
+#define EWIDTH	75
 
 #define	EWRITEF	96
 #define	EREADF	97

+ 3 - 3
h/pc_file.h

@@ -10,6 +10,8 @@
 #define	WINDOW	04000
 #define	MAGIC	0252
 
+#define	PC_BUFLEN	1024
+
 struct file {
 	char	*ptr;
 	unsigned flags;
@@ -18,7 +20,5 @@ struct file {
 	int	size;
 	int	count;
 	int	buflen;
-	char	bufadr[512];
+	char	bufadr[PC_BUFLEN];
 };
-
-#define	EXTFL(z)	((struct file *)(_hbase + _extfl[z]))