Explorar el Código

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

Nikolay Nikolov hace 4 años
padre
commit
f6b4a54f7d
Se han modificado 1 ficheros con 1 adiciones y 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;