Просмотр исходного кода

* fixed llvm second_int_to_real for comp

git-svn-id: trunk@32464 -
Jonas Maebe 10 лет назад
Родитель
Сommit
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;