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

* tmipsaddnode.second_addfloat: don't bother reusing locations, always allocate a new register for result.

Browse Source 
git-svn-id: trunk@25857 -
This commit is contained in:
sergei 2013-10-26 18:15:24 +00:00
parent dd472dbfb0
commit fbf6192aff
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/mips/ncpuadd.pas
View File

@ -220,13 +220,10 @@ begin
{ force fpureg as location, left right doesn't matter { force fpureg as location, left right doesn't matter
as both will be in a fpureg } as both will be in a fpureg }
location_force_fpureg(current_asmdata.CurrAsmList, left.location, True); location_force_fpureg(current_asmdata.CurrAsmList, left.location, True);
location_force_fpureg(current_asmdata.CurrAsmList, right.location, (left.location.loc <> LOC_CFPUREGISTER)); location_force_fpureg(current_asmdata.CurrAsmList, right.location, True);
location_reset(location, LOC_FPUREGISTER, def_cgsize(resultdef)); location_reset(location, LOC_FPUREGISTER, def_cgsize(resultdef));
if left.location.loc <> LOC_CFPUREGISTER then location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
location.Register := left.location.Register
else
location.Register := right.location.Register;
case nodetype of case nodetype of
addn: addn: