Explorar el Código

* fixed llvm second_int_to_real for comp

git-svn-id: trunk@32464 -
Jonas Maebe hace 10 años
padre
commit
13cf405f8c
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      compiler/llvm/nllvmcnv.pas

+ 1 - 1
compiler/llvm/nllvmcnv.pas

@@ -144,7 +144,7 @@ procedure tllvmtypeconvnode.second_int_to_real;
     else
       op:=la_uitofp;
     { see comment about currency in thlcgllvm.a_loadfpu_ref_reg }
-    if not is_currency(resultdef) then
+    if not(tfloatdef(resultdef).floattype in [s64comp,s64currency]) then
       llvmtodef:=resultdef
     else
       llvmtodef:=s80floattype;