paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-12-12 00:31:06 +00:00
parent b3c9baef95
commit addb969355
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tw2998.pp Normal file
View File

@ -0,0 +1,22 @@
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 2998 }
{ Submitted by "bartek" on 2004-03-02 }
{ e-mail: bbartek@gmx.net }
{$asmmode intel}
program SSE_test;
uses
mmx;
type
vector4 = array[0..3] of single;
var
a,b,c :vector4;
begin
if is_sse_cpu then
asm
movups xmm0, [a]
addps xmm0,[b]
movups [c], xmm0
end;
end.