godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed behaviour of Allocate(..., 0)

Browse Source
This commit is contained in:
ceriel 1988-06-08 09:22:31 +00:00
parent 943a2dc793
commit 25ddfd7bad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lang/m2/libm2/Storage.mod
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;