diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-16 23:40:11 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-16 23:40:11 +0000 |
commit | a6f41876ffe41eea4c28197a3c83685287adf928 (patch) | |
tree | 1ba36b66a5627a8353df4c82ac0163525588d8f6 | |
parent | 49bf1bbcc5b91da860550a3c8bc2da1d2023391d (diff) | |
download | fpc-a6f41876ffe41eea4c28197a3c83685287adf928.tar.gz |
* fixed the support for infinity and nan float literal values in the webassembly
llvm-mc asm writer
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49213 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/wasm32/agllvmmc.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/wasm32/agllvmmc.pas b/compiler/wasm32/agllvmmc.pas index bcc843e191..4468a56f27 100644 --- a/compiler/wasm32/agllvmmc.pas +++ b/compiler/wasm32/agllvmmc.pas @@ -210,11 +210,11 @@ implementation if (exponent=(1 shl exponent_bits)-1) then begin if fraction=0 then - result:=result+'inf' + result:=result+'infinity' else begin result:=result+'nan'; - if fraction<>((int64(1) shl fraction_bits)-1) then + if fraction<>(int64(1) shl (fraction_bits-1)) then result:=result+':0x'+HexStr(fraction,fraction_hexdigits); end; end |