versions for new Pascal compiler
This commit is contained in:
parent
53b430aed6
commit
f3249a04a1
|
@ -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
|
||||
|
|
|
@ -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]))
|
||||
|
|
Loading…
Reference in a new issue