paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 18:49:13 +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

40
compiler/ncgmat.pas
View File

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