From: ceriel <none@none>
Date: Thu, 9 Jun 1988 09:16:46 +0000 (+0000)
Subject: fixed problem with ReOrganize
X-Git-Tag: release-5-5~3217
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=3fec1232dad60d200825342db97b8ad0133fa8d4;p=ack.git

fixed problem with ReOrganize
---

diff --git a/lang/m2/libm2/Storage.mod b/lang/m2/libm2/Storage.mod
index 0fa80ef6c..49c089968 100644
--- a/lang/m2/libm2/Storage.mod
+++ b/lang/m2/libm2/Storage.mod
@@ -203,7 +203,7 @@ IMPLEMENTATION MODULE Storage;
   BEGIN
 	a:= MyAllocate(size);
 	IF a # NIL THEN
-		DEALLOCATE(a, size);
+		Deallocate(a, size);
 		RETURN TRUE;
 	END;
 	RETURN FALSE;
@@ -324,9 +324,12 @@ IMPLEMENTATION MODULE Storage;
 					BNEXT := Llist;
 					Llist := b;
 				END;
+				b := ADDRESS(b) + (BSIZE+1) * UNIT;
+			ELSE
+				b := ADDRESS(b) + 
+					((BSIZE + (UNIT - 1)) DIV UNIT + 1) * UNIT;
 			END;
 		END;
-		b := ADDRESS(b) + (b^.BSIZE+1) * UNIT;
 	END;
   END ReOrganize;