Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Print floating constants with more precision in #pragma expand output. 

Finite numbers should now be printed with sufficient precision to produce the same value as the original constant in the relevant type.
This commit is contained in:
Stephen Heumann 2022-10-15 22:20:22 -05:00
parent 83ac0ecebf
commit 44a1ba5205
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Scanner.pas
View File

@ -865,11 +865,11 @@ case token.kind of
end;
compConst,
doubleConst: write(token.rval:1);
doubleConst: write(token.rval:24);
floatConst: write(token.rval:1,'F');
floatConst: write(token.rval:16,'F');
extendedConst: write(token.rval:1,'L');
extendedConst: write(token.rval:29,'L');
stringConst: begin
if token.prefix = prefix_u16 then begin