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

* fix 3 operand instructions with third operand being a constant

Browse Source 
git-svn-id: trunk@3502 -
This commit is contained in:
florian 2006-05-13 19:51:32 +00:00
parent f2ed0e871e
commit ac4bde88ac
3 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6807,6 +6807,7 @@ tests/webtbs/tw4999.pp svneol=native#text/plain
tests/webtbs/tw5001.pp svneol=native#text/plain
tests/webtbs/tw5015.pp svneol=native#text/plain
tests/webtbs/tw5023.pp svneol=native#text/plain
tests/webtbs/tw5036.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

3
compiler/x86/aasmcpu.pas
View File

@ -1066,7 +1066,8 @@ implementation
end;
top_const :
begin
if opsize=S_NO then
{ allow 3rd operand being a constant and expect no size for shuf* etc. }
if (opsize=S_NO) and (i<>2) then
message(asmr_e_invalid_opcode_and_operand);
if (opsize<>S_W) and (longint(val)>=-128) and (val<=127) then
ot:=OT_IMM8 or OT_SIGNED

11
tests/webtbs/tw5036.pp Normal file
View File

@ -0,0 +1,11 @@
{ Source provided for Free Pascal Bug Report 5036 }
{ Submitted by "" on 2006-04-21 }
{ e-mail: snk_post@mail.ru }
procedure SSE_NormalizeRadVectorXMM0; assembler;
{$ASMMODE Intel}
asm
shufps xmm1,xmm1,11010010b // xmm1[zz,xx,yy,dd] <- Error
end;
begin
end.