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

adapted for 2/4 code generation, and also fixed some bugs

Browse Source
This commit is contained in:
ceriel
1988-03-18 14:23:04 +00:00
parent fd467fd63d
commit 33f80c6eef
10 changed files with 100 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -44,13 +44,13 @@ IMPLEMENTATION MODULE Storage;
CONST
UNIT = SIZE(ALIGNTYPE);
USED = BucketPtr(1);
VAR
FreeLists: ARRAY[0..NLISTS] OF BucketPtr; (* small blocks *)
Llist: BucketPtr; (* others *)
Compacted: BOOLEAN; (* avoid recursive reorganization *)
FirstBlock: BucketPtr;
USED: ADDRESS;
PROCEDURE MyAllocate(size: CARDINAL) : ADDRESS;
VAR nu : INTEGER;
@@ -187,7 +187,7 @@ IMPLEMENTATION MODULE Storage;
BEGIN
IF (a = NIL) THEN RETURN; END;
p := a - UNIT;
IF (p^.BNEXT # USED) THEN RETURN; END;
IF (p^.BNEXT # BucketPtr(USED)) THEN RETURN; END;
WITH p^ DO
IF BSIZE <= NLISTS THEN
BNEXT := FreeLists[BSIZE];
@@ -283,9 +283,10 @@ IMPLEMENTATION MODULE Storage;
END;
Llist := NIL;
brk := sbrk(0);
brk := sbrk(UNIT - INTEGER(brk MOD UNIT));
brk := sbrk(UNIT - brk MOD UNIT);
FirstBlock := sbrk(0);
Compacted := FALSE;
USED := 1;
END InitStorage;
BEGIN