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

* store/load mmx registers properly

Browse Source 
* sse registers can be stored/loaded aligned on x86-64

git-svn-id: trunk@8969 -
This commit is contained in:
florian 2007-10-28 14:08:57 +00:00
parent 82c7896d8d
commit 19b79468ad
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/x86/cgx86.pas
View File

@ -1014,7 +1014,17 @@ unit cgx86;
tmpref:=ref; tmpref:=ref;
make_simple_ref(list,tmpref); make_simple_ref(list,tmpref);
if shuffle=nil then if shuffle=nil then
list.concat(taicpu.op_ref_reg(A_MOVDQU,S_NO,tmpref,reg)) begin
if fromsize=OS_M64 then
list.concat(taicpu.op_ref_reg(A_MOVQ,S_NO,tmpref,reg))
else
{$ifdef x86_64}
{ x86-64 has always properly aligned data }
list.concat(taicpu.op_ref_reg(A_MOVDQA,S_NO,tmpref,reg));
{$else x86_64}
list.concat(taicpu.op_ref_reg(A_MOVDQU,S_NO,tmpref,reg));
{$endif x86_64}
end
else if shufflescalar(shuffle) then else if shufflescalar(shuffle) then
list.concat(taicpu.op_ref_reg(get_scalar_mm_op(fromsize,tosize),S_NO,tmpref,reg)) list.concat(taicpu.op_ref_reg(get_scalar_mm_op(fromsize,tosize),S_NO,tmpref,reg))
else else
@ -1030,7 +1040,17 @@ unit cgx86;
tmpref:=ref; tmpref:=ref;
make_simple_ref(list,tmpref); make_simple_ref(list,tmpref);
if shuffle=nil then if shuffle=nil then
list.concat(taicpu.op_reg_ref(A_MOVDQU,S_NO,reg,tmpref)) begin
if fromsize=OS_M64 then
list.concat(taicpu.op_reg_ref(A_MOVQ,S_NO,reg,tmpref))
else
{$ifdef x86_64}
{ x86-64 has always properly aligned data }
list.concat(taicpu.op_reg_ref(A_MOVDQA,S_NO,reg,tmpref))
{$else x86_64}
list.concat(taicpu.op_reg_ref(A_MOVDQU,S_NO,reg,tmpref))
{$endif x86_64}
end
else if shufflescalar(shuffle) then else if shufflescalar(shuffle) then
begin begin
if tosize<>fromsize then if tosize<>fromsize then