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

Handle the specific NaN pattern of mips floating-point unit

Browse Source
This commit is contained in:
Pierre Muller 2023-06-11 15:56:54 +01:00
parent 0f5c126a45
commit ad1812f90a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/wasm32/agllvmmc.pas
View File

@ -241,7 +241,14 @@ implementation
else
begin
result:=result+'nan';
{$ifndef CPUMIPS}
if fraction<>(int64(1) shl (fraction_bits-1)) then
{$else CPUMIPS}
{ Legacy mips fpu has a different representation of 'standard' nan }
{ Signalling bit is clear to signify non-signalling }
{ Standard non-signalling NaN thus has all other bits set }
if fraction<>((int64(1) shl (fraction_bits-1))-1) then
{$endif CPUMIPS}
result:=result+'(0x'+HexStr(fraction,fraction_hexdigits)+')';
end;
end