versions for new Pascal compiler

diff --git a/h/pc_err.h b/h/pc_err.h
index b342604..bf72386 100644 (file)
--- 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 cabc0f1..3cd9f9d 100644 (file)
--- 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]))