Adapted for new Pascal Compiler

1989-05-03 09:53:25 +00:00
parent 49ca2cbb8b
commit 89539fa451
19 changed files with 191 additions and 74 deletions
--- a/lang/pc/libpc/pcreat.c
+++ b/lang/pc/libpc/pcreat.c
@@ -34,8 +34,8 @@ pcreat(f,s) struct file *f; char *s; {
 	f->flags = WRBIT|EOFBIT|ELNBIT|TXTBIT|MAGIC;
 	f->fname = s;
 	f->size = 1;
-	f->count = 512;
-	f->buflen = 512;
+	f->count = PC_BUFLEN;
+	f->buflen = PC_BUFLEN;
 	if ((f->ufd = creat(s,0644)) < 0)
 		_trp(EREWR);
 }