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

no message

Browse Source
This commit is contained in:
florian 2002-11-28 23:55:58 +00:00
parent e0f1ddbc64
commit 03de4893b0
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/test/testsse2.pp Normal file
View File

@ -0,0 +1,18 @@
{ %version=1.1}
uses
mmx;
{ only a small test to see if it works in principal }
var
q : array[0..15] of byte;
begin
if sse2_support then
asm
movdqa %xmm1,%xmm2
movdqa q,%xmm4
psubq %xmm1,%xmm2
psubq q,%xmm4
end;
end.