d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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; HALT;
END; END;
p := a - UNIT; p := a - UNIT;
WITH p^ DO IF p^.BSIZE * UNIT # size THEN
IF BSIZE # ((size + (UNIT - 1)) DIV UNIT) THEN pc := a + size;
pc := a + size; pc^ := MAGICC;
pc^ := MAGICC;
END;
END; END;
END ALLOCATE; END ALLOCATE;