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

Bug fix: negative integers had the sign at the end

Browse Source
This commit is contained in:
ceriel 1987-05-13 16:30:06 +00:00
parent 6bcf1d5666
commit 5f55d6b5f9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,10 +8,6 @@ IMPLEMENTATION MODULE Conversions;
tmp: ARRAY [0..20] OF CHAR; tmp: ARRAY [0..20] OF CHAR;
BEGIN BEGIN
i := 0; i := 0;
IF neg THEN
tmp[0] := '-';
i := 1;
END;
REPEAT REPEAT
r := num MOD base; r := num MOD base;
num := num DIV base; num := num DIV base;
@ -22,6 +18,10 @@ IMPLEMENTATION MODULE Conversions;
END; END;
INC(i); INC(i);
UNTIL num = 0; UNTIL num = 0;
IF neg THEN
tmp[i] := '-';
INC(i)
END;
IF len > HIGH(str) + 1 THEN len := HIGH(str) + 1; END; IF len > HIGH(str) + 1 THEN len := HIGH(str) + 1; END;
IF i > HIGH(str) + 1 THEN i := HIGH(str) + 1; END; IF i > HIGH(str) + 1 THEN i := HIGH(str) + 1; END;
r := 0; r := 0;