From: ceriel <none@none>
Date: Mon, 19 Jun 1989 09:46:29 +0000 (+0000)
Subject: versions for new Pascal compiler
X-Git-Tag: release-5-5~2385
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=f3249a04a1bc746ed79e9b87acd0983c2c87477a;p=ack.git

versions for new Pascal compiler
---

diff --git a/h/pc_err.h b/h/pc_err.h
index b34260457..bf72386c7 100644
--- a/h/pc_err.h
+++ b/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
diff --git a/h/pc_file.h b/h/pc_file.h
index cabc0f12e..3cd9f9dcd 100644
--- a/h/pc_file.h
+++ b/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]))