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

bug fix: printed some reals wrong

Browse Source
This commit is contained in:
ceriel 1989-06-20 11:43:01 +00:00
parent 2c23bb6566
commit 9c00856e6f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lang/m2/libm2/RealConver.mod
View File

@ -139,7 +139,7 @@ IMPLEMENTATION MODULE RealConversions;
RETURN; RETURN;
END; END;
str[ind1] := 'E'; INC(ind1); str[ind1] := 'E'; INC(ind1);
IF r # 0.0D THEN DEC(pointpos); END; IF arg # 0.0D THEN DEC(pointpos); END;
IF pointpos < 0 THEN IF pointpos < 0 THEN
pointpos := -pointpos; pointpos := -pointpos;
str[ind1] := '-'; str[ind1] := '-';