From: ceriel <none@none>
Date: Wed, 13 May 1987 16:30:06 +0000 (+0000)
Subject: Bug fix: negative integers had the sign at the end
X-Git-Tag: release-5-5~4149
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=55e82ef0dcb3df518524378e19357a33128f4239;p=ack.git

Bug fix: negative integers had the sign at the end
---

diff --git a/lang/m2/libm2/Conversion.mod b/lang/m2/libm2/Conversion.mod
index ed400f9d0..325a10b0d 100644
--- a/lang/m2/libm2/Conversion.mod
+++ b/lang/m2/libm2/Conversion.mod
@@ -8,10 +8,6 @@ IMPLEMENTATION MODULE Conversions;
 	tmp: ARRAY [0..20] OF CHAR;
     BEGIN
 	i := 0;
-	IF neg THEN
-		tmp[0] := '-';
-		i := 1;
-	END;
 	REPEAT
 		r := num MOD base;
 		num := num DIV base;
@@ -22,6 +18,10 @@ IMPLEMENTATION MODULE Conversions;
 		END;
 		INC(i);
 	UNTIL num = 0;
+	IF neg THEN
+		tmp[i] := '-';
+		INC(i)
+	END;
 	IF len > HIGH(str) + 1 THEN len := HIGH(str) + 1; END;
 	IF i > HIGH(str) + 1 THEN i := HIGH(str) + 1; END;
 	r := 0;