Ver código fonte

* fixed llvm second_int_to_real for comp

git-svn-id: trunk@32464 -
Jonas Maebe 9 anos atrás
pai
commit
13cf405f8c
1 arquivos alterados com 1 adições e 1 exclusões
  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;