@@ -0,0 +1,22 @@
+{ %cpu=i386 }
+
+{ Source provided for Free Pascal Bug Report 2998 }
+{ Submitted by "bartek" on 2004-03-02 }
+{ e-mail: [email protected] }
+{$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.
florian