changed behaviour of Allocate(..., 0)
This commit is contained in:
parent
9fb5d02aa9
commit
1347076988
1 changed files with 1 additions and 1 deletions
|
@ -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;
|
||||||
|
|
Loading…
Reference in a new issue