From 8b655cb67e1d60a5b11eb635f75172134d36cfe1 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 3 May 1988 08:20:11 +0000
Subject: [PATCH] Exchanged role of ALLOCATE/Allocate

---
 lang/m2/libm2/Storage.mod | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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