From: ceriel <none@none>
Date: Tue, 26 Apr 1988 11:43:23 +0000 (+0000)
Subject: corrected
X-Git-Tag: release-5-5~3324
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=7943327f7dd9dfefba2a8b6d8f1182eaa0ecca4a;p=ack.git

corrected
---

diff --git a/lang/m2/libm2/Storage.mod b/lang/m2/libm2/Storage.mod
index 8fde41f8c..e359ef917 100644
--- a/lang/m2/libm2/Storage.mod
+++ b/lang/m2/libm2/Storage.mod
@@ -170,11 +170,9 @@ IMPLEMENTATION MODULE Storage;
 		HALT;
 	END;
 	p := a - UNIT;
-	WITH p^ DO
-		IF BSIZE # ((size + (UNIT - 1)) DIV UNIT) THEN
-			pc := a + size;
-			pc^ := MAGICC;
-		END;
+	IF p^.BSIZE * UNIT # size THEN
+		pc := a + size;
+		pc^ := MAGICC;
 	END;
   END ALLOCATE;