godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: ConvertInteger was wrong for MIN(INTEGER)

Browse Source
This commit is contained in:
ceriel 1987-06-23 17:38:18 +00:00
parent b95ff7a37b
commit 7932348852
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lang/m2/libm2/Conversion.mod
View File

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