paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 11:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed llvm unaryminus for comp/currency on platforms supporting extended

Browse Source 
git-svn-id: trunk@32524 -
This commit is contained in:
Jonas Maebe 2015-11-24 20:10:48 +00:00
parent 6cf67b7ace
commit 71e27e85c9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/llvm/nllvmmat.pas
View File

@ -102,8 +102,11 @@ begin
{ comp and currency are handled as int64 at the llvm level }
s64comp,
s64currency:
{ sc80floattype instead of _size, see comment in thlcgllvm.a_loadfpu_ref_reg }
current_asmdata.CurrAsmList.concat(taillvm.op_reg_size_const_size(la_sitofp,zeroreg,s64inttype,0,sc80floattype));
begin
{ sc80floattype instead of _size, see comment in thlcgllvm.a_loadfpu_ref_reg }
_size:=sc80floattype;
current_asmdata.CurrAsmList.concat(taillvm.op_reg_size_const_size(la_sitofp,zeroreg,s64inttype,0,_size));
end;
{$ifdef cpuextended}
s80real,sc80real:
current_asmdata.CurrAsmList.concat(taillvm.op_reg_size_fpconst80_size(la_bitcast,zeroreg,_size,0.0,_size));