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

* second_real_to_real() converted to hlcg (in so far possible, no MM support)

Browse Source 
git-svn-id: branches/jvmbackend@18373 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:53:38 +00:00
parent 00c095fa70
commit e56ad62f09
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgcnv.pas
View File

@ -71,7 +71,7 @@ interface
cpubase,systems,
procinfo,pass_2,
cgbase,
cgutils,cgobj,
cgutils,cgobj,hlcgobj,
ncgutil,
tgobj
;
@ -412,8 +412,8 @@ interface
{ on sparc a move from double -> single means from two to one register. }
{ On all other platforms it also needs rounding to avoid that }
{ single(double_regvar) = double_regvar is true in all cases }
location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,left.location.size,location.size,left.location.register,location.register);
location.register:=hlcg.getfpuregister(current_asmdata.CurrAsmList,resultdef);
hlcg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,left.location.register,location.register);
end;
LOC_MMREGISTER:
begin
@ -436,9 +436,9 @@ interface
end
else
begin
location_force_fpureg(current_asmdata.CurrAsmList,left.location,false);
hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,false);
location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,left.location.size,location.size,left.location.register,location.register);
hlcg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,left.location.register,location.register);
end;
location_freetemp(current_asmdata.CurrAsmList,left.location);
end;