From addb9693551ae59c1f60834825bb2f4aa5243093 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 12 Dec 2004 00:31:06 +0000
Subject: [PATCH] no message
---
tests/webtbs/tw2998.pp | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
create mode 100644 tests/webtbs/tw2998.pp
diff --git a/tests/webtbs/tw2998.pp b/tests/webtbs/tw2998.pp
new file mode 100644
index 0000000000..f8fb74c6f4
--- /dev/null
+++ b/tests/webtbs/tw2998.pp
@@ -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.
\ No newline at end of file