florian преди 23 години
родител
ревизия
03de4893b0
променени са 1 файла, в които са добавени 18 реда и са изтрити 0 реда
  1. 18 0
      tests/test/testsse2.pp

+ 18 - 0
tests/test/testsse2.pp

@@ -0,0 +1,18 @@
+{ %version=1.1}
+uses
+   mmx;
+
+{ only a small test to see if it works in principal }
+
+var
+   q : array[0..15] of byte;
+
+begin
+  if sse2_support then
+    asm
+       movdqa    %xmm1,%xmm2
+       movdqa    q,%xmm4
+       psubq     %xmm1,%xmm2
+       psubq     q,%xmm4
+    end;
+end.