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; END;
nu := (size + (UNIT-1)) DIV UNIT; nu := (size + (UNIT-1)) DIV UNIT;
IF nu = 0 THEN IF nu = 0 THEN
RETURN NIL; nu := 1;
END; END;
IF nu <= NLISTS THEN IF nu <= NLISTS THEN
b := nu; b := nu;