d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

corrected

Browse source
This commit is contained in:
ceriel 1988-04-26 11:43:23 +00:00
parent 76a93fcbc3
commit 7943327f7d
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lang/m2/libm2/Storage.mod
View file

@ -170,11 +170,9 @@ IMPLEMENTATION MODULE Storage;
HALT;
END;
p := a - UNIT;
WITH p^ DO
IF BSIZE # ((size + (UNIT - 1)) DIV UNIT) THEN
pc := a + size;
pc^ := MAGICC;
END;
IF p^.BSIZE * UNIT # size THEN
pc := a + size;
pc^ := MAGICC;
END;
END ALLOCATE;