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

Added some comment

Browse Source
This commit is contained in:
ceriel
1988-03-16 09:20:36 +00:00
parent f0c7016249
commit dcd076fd3e
7 changed files with 49 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -52,7 +52,7 @@ IMPLEMENTATION MODULE Storage;
Compacted: BOOLEAN; (* avoid recursive reorganization *)
FirstBlock: BucketPtr;
PROCEDURE Allocate(size: CARDINAL) : ADDRESS;
PROCEDURE MyAllocate(size: CARDINAL) : ADDRESS;
VAR nu : INTEGER;
b : INTEGER;
p, q: BucketPtr;
@@ -141,7 +141,7 @@ IMPLEMENTATION MODULE Storage;
IF brk = ILLBREAK THEN
ReOrganize();
Compacted := TRUE;
brk := Allocate(size);
brk := MyAllocate(size);
Compacted := FALSE;
RETURN brk;
END;
@@ -150,11 +150,16 @@ IMPLEMENTATION MODULE Storage;
p^.BSIZE := nu;
p^.BNEXT := USED;
RETURN ADR(p^.BSTORE);
END MyAllocate;
PROCEDURE Allocate(VAR a: ADDRESS; size: CARDINAL);
BEGIN
ALLOCATE(a, size);
END Allocate;
PROCEDURE ALLOCATE(VAR a: ADDRESS; size: CARDINAL);
BEGIN
a := Allocate(size);
a := MyAllocate(size);
IF a = NIL THEN
Message("out of core");
HALT;
@@ -164,7 +169,7 @@ IMPLEMENTATION MODULE Storage;
PROCEDURE Available(size: CARDINAL): BOOLEAN;
VAR a: ADDRESS;
BEGIN
a:= Allocate(size);
a:= MyAllocate(size);
IF a # NIL THEN
DEALLOCATE(a, size);
RETURN TRUE;
@@ -172,6 +177,11 @@ IMPLEMENTATION MODULE Storage;
RETURN FALSE;
END Available;
PROCEDURE Deallocate(VAR a: ADDRESS; size: CARDINAL);
BEGIN
DEALLOCATE(a, size);
END Deallocate;
PROCEDURE DEALLOCATE(VAR a: ADDRESS; size: CARDINAL);
VAR p: BucketPtr;
BEGIN