d0p1/ack
1
0
Fork 0
Code Issues Pull requests 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 1ae2bd256e
commit 8e013368b3
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; len: CARDINAL;
VAR str: ARRAY OF CHAR); VAR str: ARRAY OF CHAR);
BEGIN BEGIN
IF num < 0 THEN IF (num < 0) AND (num >= -MAX(INTEGER)) THEN
ConvertNum(-num, len, 10, TRUE, str); ConvertNum(-num, len, 10, TRUE, str);
ELSE ELSE
ConvertNum(num, len, 10, FALSE, str); ConvertNum(CARDINAL(num), len, 10, FALSE, str);
END; END;
END ConvertInteger; END ConvertInteger;