versions for new Pascal compiler

This commit is contained in:
ceriel 1989-06-19 09:46:29 +00:00
parent 53b430aed6
commit f3249a04a1
2 changed files with 5 additions and 3 deletions

View file

@ -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

View file

@ -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]))