changed behaviour of Allocate(..., 0)

This commit is contained in:
ceriel 1988-06-08 09:22:31 +00:00
parent 9fb5d02aa9
commit 1347076988

View file

@ -67,7 +67,7 @@ IMPLEMENTATION MODULE Storage;
END;
nu := (size + (UNIT-1)) DIV UNIT;
IF nu = 0 THEN
RETURN NIL;
nu := 1;
END;
IF nu <= NLISTS THEN
b := nu;