godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

versions for new Pascal compiler

Browse Source
This commit is contained in:
ceriel 1989-06-19 09:46:29 +00:00
parent ba0366975d
commit fd32d4271d
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
h/pc_err.h
View File

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

6
h/pc_file.h
View File

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