From 8e013368b3329dab0be570c2f717593d122d359d Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 23 Jun 1987 17:38:18 +0000
Subject: [PATCH] fix: ConvertInteger was wrong for MIN(INTEGER)

---
 lang/m2/libm2/Conversion.mod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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; 
 
-- 
2.34.1