replaced calls to NEW by calls to ALLOCATE

1987-10-15 15:41:00 +00:00
parent 5c7379738b
commit f25570dd4e
2 changed files with 4 additions and 4 deletions
--- a/lang/m2/libm2/PascalIO.mod
+++ b/lang/m2/libm2/PascalIO.mod
@@ -110,7 +110,7 @@ IMPLEMENTATION MODULE PascalIO;
 		text := text^.next;
 	END;
 	IF text = NIL THEN
-		NEW(text);
+		ALLOCATE(text,SIZE(IOBuf));
 		text^.next := head;
 		head := text;
 	END;