changed PascalIO.Get behaviour and used Allocate instead of ALLOCATE

This commit is contained in:
ceriel
1988-03-28 18:15:50 +00:00
parent 9dccd59665
commit 021619910e
5 changed files with 29 additions and 26 deletions

View File

@@ -44,7 +44,7 @@ IMPLEMENTATION MODULE Streams;
IF NOT Storage.Available(SIZE(IOB)) THEN
RETURN;
END;
Storage.ALLOCATE(stream,SIZE(IOB));
Storage.Allocate(stream,SIZE(IOB));
stream^.next := head;
head := stream;
END;