versions for new Pascal compiler
This commit is contained in:
parent
53b430aed6
commit
f3249a04a1
2 changed files with 5 additions and 3 deletions
|
@ -13,6 +13,8 @@
|
||||||
#define EMOD 71
|
#define EMOD 71
|
||||||
#define EBADF 72
|
#define EBADF 72
|
||||||
#define EFREE 73
|
#define EFREE 73
|
||||||
|
#define EFUNASS 74
|
||||||
|
#define EWIDTH 75
|
||||||
|
|
||||||
#define EWRITEF 96
|
#define EWRITEF 96
|
||||||
#define EREADF 97
|
#define EREADF 97
|
||||||
|
|
|
@ -10,6 +10,8 @@
|
||||||
#define WINDOW 04000
|
#define WINDOW 04000
|
||||||
#define MAGIC 0252
|
#define MAGIC 0252
|
||||||
|
|
||||||
|
#define PC_BUFLEN 1024
|
||||||
|
|
||||||
struct file {
|
struct file {
|
||||||
char *ptr;
|
char *ptr;
|
||||||
unsigned flags;
|
unsigned flags;
|
||||||
|
@ -18,7 +20,5 @@ struct file {
|
||||||
int size;
|
int size;
|
||||||
int count;
|
int count;
|
||||||
int buflen;
|
int buflen;
|
||||||
char bufadr[512];
|
char bufadr[PC_BUFLEN];
|
||||||
};
|
};
|
||||||
|
|
||||||
#define EXTFL(z) ((struct file *)(_hbase + _extfl[z]))
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue