blob: ec8a2d1b1e136a017c74e42bbda9bb03e36ec70b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{ %cpu=i386 }
{ %OPT=-OaVARMIN=16 -Cg- }
{ 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;
{$codealign varmax=16}
var
a,b,c :vector4;
begin
if is_sse_cpu then
asm
movups xmm0, [a]
addps xmm0,[b]
movups [c], xmm0
end;
end.
|
