d0p1/ack
1
0
Fork 0
Code Issues Pull requests 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 9e151cf706
commit 6d78cd6710
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] := '-';