From: ceriel <none@none>
Date: Wed, 8 Jun 1988 09:22:31 +0000 (+0000)
Subject: changed behaviour of Allocate(..., 0)
X-Git-Tag: release-5-5~3218
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=134707698839511a5fa30d14faf3316caf3680b6;p=ack.git

changed behaviour of Allocate(..., 0)
---

diff --git a/lang/m2/libm2/Storage.mod b/lang/m2/libm2/Storage.mod
index 15200a07d..0fa80ef6c 100644
--- a/lang/m2/libm2/Storage.mod
+++ b/lang/m2/libm2/Storage.mod
@@ -67,7 +67,7 @@ IMPLEMENTATION MODULE Storage;
 	END;
 	nu := (size + (UNIT-1)) DIV UNIT;
 	IF nu = 0 THEN
-		RETURN NIL;
+		nu := 1;
 	END;
 	IF nu <= NLISTS THEN
 		b := nu;