paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed llvm second_int_to_real for comp

Browse Source 
git-svn-id: trunk@32464 -
This commit is contained in:
Jonas Maebe 2015-11-22 11:49:11 +00:00
parent 688b9c0a69
commit 13cf405f8c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/nllvmcnv.pas
View File

@ -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;