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

* try to registers more cleverly during fma code generation

Browse Source 
git-svn-id: trunk@27671 -
This commit is contained in:
florian 2014-04-26 18:11:13 +00:00
parent 704f018183
commit 33602db802
2 changed files with 44 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/x86/nx86inl.pas
View File

@ -830,10 +830,29 @@ implementation
end end
else else
begin begin
hlcg.a_loadmm_reg_reg(current_asmdata.CurrAsmList,paraarray[3].resultdef,resultdef, { try to use the location which is already in a temp. mm register as destination,
paraarray[3].location.register,location.register,mms_movescalar); so the compiler might be able to re-use the register }
emit_reg_reg_reg(op[tfloatdef(resultdef).floattype,0],S_NO, if paraarray[1].location.loc=LOC_MMREGISTER then
paraarray[1].location.register,paraarray[2].location.register,location.register); begin
hlcg.a_loadmm_reg_reg(current_asmdata.CurrAsmList,paraarray[1].resultdef,resultdef,
paraarray[1].location.register,location.register,mms_movescalar);
emit_reg_reg_reg(op[tfloatdef(resultdef).floattype,3],S_NO,
paraarray[3].location.register,paraarray[2].location.register,location.register);
end
else if paraarray[2].location.loc=LOC_MMREGISTER then
begin
hlcg.a_loadmm_reg_reg(current_asmdata.CurrAsmList,paraarray[2].resultdef,resultdef,
paraarray[2].location.register,location.register,mms_movescalar);
emit_reg_reg_reg(op[tfloatdef(resultdef).floattype,3],S_NO,
paraarray[3].location.register,paraarray[1].location.register,location.register);
end
else
begin
hlcg.a_loadmm_reg_reg(current_asmdata.CurrAsmList,paraarray[3].resultdef,resultdef,
paraarray[3].location.register,location.register,mms_movescalar);
emit_reg_reg_reg(op[tfloatdef(resultdef).floattype,0],S_NO,
paraarray[1].location.register,paraarray[2].location.register,location.register);
end;
end; end;
end end
else else

21
tests/test/tfma1.pp
View File

@ -19,6 +19,16 @@ procedure testsingle;
if l0<>10.0 then if l0<>10.0 then
halt(1); halt(1);
l0:=fma(l1+1.0,l2,l3);
writeln(l0);
if l0<>13.0 then
halt(1);
l0:=fma(l1,l1+1.0,l3);
writeln(l0);
if l0<>10.0 then
halt(1);
l0:=fma(s1,l2,l3); l0:=fma(s1,l2,l3);
writeln(l0); writeln(l0);
if l0<>10.0 then if l0<>10.0 then
@ -63,6 +73,17 @@ procedure testdouble;
if l0<>10.0 then if l0<>10.0 then
halt(1); halt(1);
l0:=fma(l1+1.0,l2,l3);
writeln(l0);
if l0<>13.0 then
halt(1);
l0:=fma(l1,l1+1.0,l3);
writeln(l0);
if l0<>10.0 then
halt(1);
l0:=fma(d1,l2,l3); l0:=fma(d1,l2,l3);
writeln(l0); writeln(l0);
if l0<>10.0 then if l0<>10.0 then