vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 12:12:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't display sign for NaN as x86 and arm generate it differently for 0.0/0.0

Browse source
This commit is contained in:
David Brown 2016-10-12 11:49:21 +01:00
parent f0a68cf6f9
commit dd6f704e68
197 changed files with 239 additions and 233 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/runtime/Out.Mod
View file

@ -117,9 +117,10 @@ VAR
dr: INTEGER; (* Number of insignificant digits that can be dropped *)
BEGIN
nn := SYSTEM.VAL(HUGEINT, x) < 0; IF nn THEN DEC(n) END;
e := SYSTEM.VAL(INTEGER, (SYSTEM.VAL(HUGEINT, x) DIV 10000000000000H) MOD 800H);
f := SYSTEM.VAL(HUGEINT, x) MOD 10000000000000H;
nn := (SYSTEM.VAL(HUGEINT, x) < 0) & ~((e = 7FFH) & (f # 0)); (* Ignore sign on Nan *)
IF nn THEN DEC(n) END;
i := LEN(s);
IF e = 7FFH THEN (* NaN / Infinity *)