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

* MIPS: avoid temp if possible also when converting unsigned 32-bit integers to real.

Browse Source 
git-svn-id: trunk@25123 -
This commit is contained in:
sergei 2013-07-17 11:19:19 +00:00
parent c3350d13f9
commit f49be98507
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/mips/ncpucnv.pas
View File

@ -118,9 +118,9 @@ end;
procedure tMIPSELtypeconvnode.second_int_to_real;
procedure loadsigned;
procedure loadsigned(restype: tfloattype);
begin
location.Register := cg.getfpuregister(current_asmdata.CurrAsmList, location.size);
location.Register := cg.getfpuregister(current_asmdata.CurrAsmList, tfloat2tcgsize[restype]);
if (left.location.loc in [LOC_REGISTER,LOC_CREGISTER]) then
{ 32-bit values can be loaded directly }
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_MTC1, left.location.register, location.register))
@ -133,7 +133,7 @@ procedure tMIPSELtypeconvnode.second_int_to_real;
end;
{ Convert value in fpu register from integer to float }
case tfloatdef(resultdef).floattype of
case restype of
s32real:
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVT_S_W, location.Register, location.Register));
s64real:
@ -152,7 +152,7 @@ var
begin
location_reset(location, LOC_FPUREGISTER, def_cgsize(resultdef));
if is_signed(left.resultdef) then
loadsigned
loadsigned(tfloatdef(resultdef).floattype)
else
begin
current_asmdata.getdatalabel(l1);
@ -162,13 +162,7 @@ begin
hlcg.a_load_loc_reg(current_asmdata.CurrAsmList, left.resultdef, u32inttype, left.location, hregister);
{ Always load into 64-bit FPU register }
hlcg.location_force_mem(current_asmdata.CurrAsmList, left.location, left.resultdef);
location.Register := cg.getfpuregister(current_asmdata.CurrAsmList, OS_F64);
cg.a_loadfpu_ref_reg(current_asmdata.CurrAsmList, OS_F32, OS_F32, left.location.reference, location.Register);
tg.ungetiftemp(current_asmdata.CurrAsmList, left.location.reference);
{ Convert value in fpu register from integer to float }
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVT_D_W, location.Register, location.Register));
loadsigned(s64real);
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList, OS_INT, OC_GTE, 0, hregister, l2);
case tfloatdef(resultdef).floattype of