paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 05:08:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Try to fix real constant problems for llvm compiler

Browse Source
This commit is contained in:
Pierre Muller 2022-06-07 12:56:57 +02:00
parent f382f2d6ed
commit 2307dc8f26
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/wasm32/agllvmmc.pas
View File

@ -225,9 +225,16 @@ implementation
begin
result:=result+'nan';
if fraction<>(int64(1) shl (fraction_bits-1)) then
result:=result+':0x'+HexStr(fraction,fraction_hexdigits);
result:=result+'(0x'+HexStr(fraction,fraction_hexdigits)+')';
end;
end
else if (exponent=0) then
begin
if (fraction=0) then
result:=result+'0x0.0p'+tostr(-exponent_bias)
else
result:=result+'0x0.'+HexStr(fraction shl (fraction_hexdigits*4-fraction_bits),fraction_hexdigits)+'p'+tostr(-exponent_bias+1)
end
else
result:=result+'0x1.'+HexStr(fraction shl (fraction_hexdigits*4-fraction_bits),fraction_hexdigits)+'p'+tostr(exponent-exponent_bias);
end;