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

Exchanged role of ALLOCATE/Allocate

Browse Source
This commit is contained in:
ceriel 1988-05-03 08:20:11 +00:00
parent e533bb9bbf
commit 8b655cb67e
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -62,7 +62,7 @@ IMPLEMENTATION MODULE Storage;
pc: POINTER TO CHAR; pc: POINTER TO CHAR;
brk : ADDRESS; brk : ADDRESS;
BEGIN BEGIN
IF size > CARDINAL(MAX(INTEGER)) THEN IF size > CARDINAL(MAX(INTEGER)-2*UNIT + 1) THEN
RETURN NIL; RETURN NIL;
END; END;
nu := (size + (UNIT-1)) DIV UNIT; nu := (size + (UNIT-1)) DIV UNIT;
@ -179,19 +179,19 @@ IMPLEMENTATION MODULE Storage;
RETURN ADR(p^.BSTORE); RETURN ADR(p^.BSTORE);
END MyAllocate; END MyAllocate;
PROCEDURE Allocate(VAR a: ADDRESS; size: CARDINAL);
BEGIN
ALLOCATE(a, size);
END Allocate;
PROCEDURE ALLOCATE(VAR a: ADDRESS; size: CARDINAL); PROCEDURE ALLOCATE(VAR a: ADDRESS; size: CARDINAL);
BEGIN
Allocate(a, size);
END ALLOCATE;
PROCEDURE Allocate(VAR a: ADDRESS; size: CARDINAL);
BEGIN BEGIN
a := MyAllocate(size); a := MyAllocate(size);
IF a = NIL THEN IF a = NIL THEN
Message("out of core"); Message("out of core");
HALT; HALT;
END; END;
END ALLOCATE; END Allocate;
PROCEDURE Available(size: CARDINAL): BOOLEAN; PROCEDURE Available(size: CARDINAL): BOOLEAN;
VAR a: ADDRESS; VAR a: ADDRESS;
@ -204,12 +204,12 @@ IMPLEMENTATION MODULE Storage;
RETURN FALSE; RETURN FALSE;
END Available; END Available;
PROCEDURE Deallocate(VAR a: ADDRESS; size: CARDINAL);
BEGIN
DEALLOCATE(a, size);
END Deallocate;
PROCEDURE DEALLOCATE(VAR a: ADDRESS; size: CARDINAL); PROCEDURE DEALLOCATE(VAR a: ADDRESS; size: CARDINAL);
BEGIN
Deallocate(a, size);
END DEALLOCATE;
PROCEDURE Deallocate(VAR a: ADDRESS; size: CARDINAL);
VAR p: BucketPtr; VAR p: BucketPtr;
pc: POINTER TO CHAR; pc: POINTER TO CHAR;
BEGIN BEGIN
@ -241,7 +241,7 @@ IMPLEMENTATION MODULE Storage;
END; END;
END; END;
a := NIL a := NIL
END DEALLOCATE; END Deallocate;
PROCEDURE ReOrganize(); PROCEDURE ReOrganize();
VAR lastblock: BucketPtr; VAR lastblock: BucketPtr;