fpc/tests/webtbs/tw2998.pp
2005-02-17 17:55:06 +00:00

26 lines
414 B
ObjectPascal

{ %cpu=i386 }
{ %OPT=-OaVARMIN=8 }
{ 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;
{$maxalignment 8}
var
a,b,c :vector4;
begin
if is_sse_cpu then
asm
movups xmm0, [a]
addps xmm0,[b]
movups [c], xmm0
end;
end.