Explorar o código

* fixed output of 32-bit floating point constants in the llvm-mc asm output

Nikolay Nikolov %!s(int64=4) %!d(string=hai) anos
pai
achega
f6b4a54f7d
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/wasm32/agllvmmc.pas

+ 1 - 1
compiler/wasm32/agllvmmc.pas

@@ -153,7 +153,7 @@ implementation
               end;
           end
         else
-          result:=result+'0x1.'+HexStr(fraction,fraction_hexdigits)+'p'+tostr(exponent-exponent_bias);
+          result:=result+'0x1.'+HexStr(fraction shl (fraction_hexdigits*4-fraction_bits),fraction_hexdigits)+'p'+tostr(exponent-exponent_bias);
       end;
 
     function constsingle(s: single): ansistring;