Преглед изворни кода

* fixed llvm second_int_to_real for comp

git-svn-id: trunk@32464 -
Jonas Maebe пре 9 година
родитељ
комит
13cf405f8c
1 измењених фајлова са 1 додато и 1 уклоњено
  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;