From: ceriel <none@none>
Date: Tue, 23 Jun 1987 17:38:18 +0000 (+0000)
Subject: fix: ConvertInteger was wrong for MIN(INTEGER)
X-Git-Tag: release-5-5~4065
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8e013368b3329dab0be570c2f717593d122d359d;p=ack.git

fix: ConvertInteger was wrong for MIN(INTEGER)
---

diff --git a/lang/m2/libm2/Conversion.mod b/lang/m2/libm2/Conversion.mod
index 325a10b0d..a1be0410d 100644
--- a/lang/m2/libm2/Conversion.mod
+++ b/lang/m2/libm2/Conversion.mod
@@ -49,10 +49,10 @@ IMPLEMENTATION MODULE Conversions;
 			   len: CARDINAL;   
                            VAR str: ARRAY OF CHAR); 
   BEGIN 
-	IF num < 0 THEN
+	IF (num < 0) AND (num >= -MAX(INTEGER)) THEN
 		ConvertNum(-num, len, 10, TRUE, str);
 	ELSE
-		ConvertNum(num, len, 10, FALSE, str);
+		ConvertNum(CARDINAL(num), len, 10, FALSE, str);
 	END;
   END ConvertInteger;