paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 05:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support mmregisters in the generic unaryminus code for floats

Browse Source 
git-svn-id: trunk@31655 -
This commit is contained in:
Jonas Maebe 2015-09-12 23:33:50 +00:00
parent 2741b37f28
commit 8ff5371a6c
1 changed files with 38 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
compiler/ncgmat.pas
View File

@ -154,7 +154,14 @@ implementation
}
tg.gethltemp(current_asmdata.CurrAsmList,_size,_size.size,tt_normal,href);
{ store the floating point value in the temporary memory area }
hlcg.a_loadfpu_reg_ref(current_asmdata.CurrAsmList,_size,_size,r,href);
case getregtype(r) of
R_FPUREGISTER:
hlcg.a_loadfpu_reg_ref(current_asmdata.CurrAsmList,_size,_size,r,href);
R_MMREGISTER:
hlcg.a_loadmm_reg_ref(current_asmdata.CurrAsmList,_size,_size,r,href,mms_movescalar);
else
internalerror(2015091005);
end;
{ only single and double ieee are supported, for little endian
the signed bit is in the second dword }
href2:=href;
@ -179,7 +186,14 @@ implementation
longint($80000000),
{$endif cpu64bitalu}
href2);
hlcg.a_loadfpu_ref_reg(current_asmdata.CurrAsmList,_size,_size,href,r);
case getregtype(r) of
R_FPUREGISTER:
hlcg.a_loadfpu_ref_reg(current_asmdata.CurrAsmList,_size,_size,href,r);
R_MMREGISTER:
hlcg.a_loadmm_ref_reg(current_asmdata.CurrAsmList,_size,_size,href,r,mms_movescalar);
else
internalerror(2015091006);
end;
tg.ungetiftemp(current_asmdata.CurrAsmList,href);
end;
@ -237,23 +251,35 @@ implementation
LOC_REFERENCE,
LOC_CREFERENCE :
begin
location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
hlcg.a_loadfpu_ref_reg(current_asmdata.CurrAsmList,
left.resultdef,resultdef,
left.location.reference,location.register);
location.register:=hlcg.getregisterfordef(current_asmdata.CurrAsmList,resultdef);
case getregtype(location.register) of
R_FPUREGISTER:
hlcg.a_loadfpu_ref_reg(current_asmdata.CurrAsmList,
left.resultdef,resultdef,
left.location.reference,location.register);
R_MMREGISTER:
hlcg.a_loadmm_ref_reg(current_asmdata.CurrAsmList,
left.resultdef,resultdef,
left.location.reference,location.register,mms_movescalar);
else
internalerror(2015091004);
end;
emit_float_sign_change(location.register,left.resultdef);
end;
LOC_FPUREGISTER:
begin
location.register:=left.location.register;
emit_float_sign_change(location.register,left.resultdef);
end;
LOC_FPUREGISTER,
LOC_CFPUREGISTER:
begin
location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,location.size);
location.register:=hlcg.getfpuregister(current_asmdata.CurrAsmList,resultdef);
hlcg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,left.location.register,location.register);
emit_float_sign_change(location.register,left.resultdef);
end;
LOC_MMREGISTER,
LOC_CMMREGISTER:
begin
location.register:=hlcg.getmmregister(current_asmdata.CurrAsmList,resultdef);
hlcg.a_loadmm_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,left.location.register,location.register,mms_movescalar);
emit_float_sign_change(location.register,left.resultdef);
end
else
internalerror(200306021);
end;