Quellcode durchsuchen

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

Nikolay Nikolov vor 4 Jahren
Ursprung
Commit
f6b4a54f7d
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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;