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

fixed problem with ReOrganize

Browse source
This commit is contained in:
ceriel 1988-06-09 09:16:46 +00:00
parent 1347076988
commit 3fec1232da
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -203,7 +203,7 @@ IMPLEMENTATION MODULE Storage;
BEGIN BEGIN
a:= MyAllocate(size); a:= MyAllocate(size);
IF a # NIL THEN IF a # NIL THEN
DEALLOCATE(a, size); Deallocate(a, size);
RETURN TRUE; RETURN TRUE;
END; END;
RETURN FALSE; RETURN FALSE;
@ -324,9 +324,12 @@ IMPLEMENTATION MODULE Storage;
BNEXT := Llist; BNEXT := Llist;
Llist := b; Llist := b;
END; END;
b := ADDRESS(b) + (BSIZE+1) * UNIT;
ELSE
b := ADDRESS(b) +
((BSIZE + (UNIT - 1)) DIV UNIT + 1) * UNIT;
END; END;
END; END;
b := ADDRESS(b) + (b^.BSIZE+1) * UNIT;
END; END;
END ReOrganize; END ReOrganize;