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

* unpcklp* require aligned memory, so do not spill replace their first operand by a memory location, resolves #31332

Browse Source 
git-svn-id: trunk@35400 -
This commit is contained in:
florian 2017-02-05 20:59:54 +00:00
parent 8e123e7b37
commit 41b028ffc0
3 changed files with 45 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -15364,6 +15364,7 @@ tests/webtbs/tw31201.pp svneol=native#text/pascal
tests/webtbs/tw3124.pp svneol=native#text/plain
tests/webtbs/tw31305.pp svneol=native#text/pascal
tests/webtbs/tw3131.pp svneol=native#text/plain
tests/webtbs/tw31332.pp svneol=native#text/pascal
tests/webtbs/tw3137.pp svneol=native#text/plain
tests/webtbs/tw3143.pp svneol=native#text/plain
tests/webtbs/tw3144.pp svneol=native#text/plain

6
compiler/x86/rgx86.pas
View File

@ -274,10 +274,12 @@ implementation
A_BTC,
A_BTR,
{ shufp* would require 16 byte alignment for memory locations so we force the source
{ shufp*/unpcklp* would require 16 byte alignment for memory locations so we force the source
operand into a register }
A_SHUFPD,
A_SHUFPS :
A_SHUFPS,
A_UNPCKLPD,
A_UNPCKLPS :
replaceoper:=-1;
end;
end;

40
tests/webtbs/tw31332.pp Normal file
View File

@ -0,0 +1,40 @@
{ %CPU=i388,x86_64 }
{$OPTIMIZATION ON}
{$FPUTYPE SSE3}
uses
cpu;
var map : array [0..63,0..63,0..63] of smallint;
procedure makeMap( ) ;
var x,y,z,i : longword;
yd,zd,th : single;
begin
// add random blocks to the map
for x := 0 to 63 do begin
for y := 0 to 63 do begin
for z := 0 to 63 do begin
yd := (y - 32.5) * 0.4;
zd := (z - 32.5) * 0.4;
map[z,y,x] := random( 16 );
th := random;
if th > sqrt( sqrt( yd * yd + zd * zd ) ) - 0.8 then
map[z,y,x] := 0;
end;
end;
end;
end;
procedure init( );
begin
makeMap( );
end;
begin
if is_sse3_cpu then
init ();
end.