Răsfoiți Sursa

* fixed the support for infinity and nan float literal values in the webassembly
llvm-mc asm writer

git-svn-id: trunk@49213 -

nickysn 4 ani în urmă
părinte
comite
4f828929a3
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  1. 2 2
      compiler/wasm32/agllvmmc.pas

+ 2 - 2
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