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/pentry.c
+++ b/lang/pc/libpc/pentry.c
@@ -20,16 +20,16 @@

 #include	<pc_file.h>

-extern int	*_extfl;
-extern char	*_hbase;
-extern		_wrs();
-extern		_wln();
+extern struct file	**_extfl;
+extern			_wrs();
+extern			_wrz();
+extern			_wln();

 procentry(name) char *name; {
 	struct file *f;

-	f = EXTFL(2);
+	f = _extfl[1];
 	_wrs(5,"call ",f);
-	_wrs(8,name,f);
+	_wrz(name,f);
 	_wln(f);
 }