[sb-simd-cvs] CVS update: sb-simd/load.lisp sb-simd/generate-sse-vops.lisp sb-simd/example-test.lisp sb-simd/.cvsignore sb-simd/sse-vop.lisp

[Risto Laakso]

Update of /project/sb-simd/cvsroot/sb-simd
In directory common-lisp.net:/tmp/cvs-serv8012

Modified Files:
	example-test.lisp .cvsignore 
Added Files:
	load.lisp generate-sse-vops.lisp 
Removed Files:
	sse-vop.lisp 
Log Message:
..

Date: Mon Aug  8 17:56:01 2005
Author: rlaakso





Index: sb-simd/example-test.lisp
diff -u sb-simd/example-test.lisp:1.1.1.1 sb-simd/example-test.lisp:1.2
--- sb-simd/example-test.lisp:1.1.1.1	Fri Aug  5 15:13:29 2005
+++ sb-simd/example-test.lisp	Mon Aug  8 17:56:01 2005
@@ -10,14 +10,32 @@
 	      (aref arr2 i) (float i)))
 
     (format t "Before: ~S~%~S~%" arr1 arr2)
+    (format t "b <- a + b, idx 0~%")
 
-    (sb-sys:%primitive sb-vm::%sse-sqrt/simple-array-single-float-1 arr2 arr1 4)
+    (sb-sys:%primitive sb-vm::%sse-add/simple-array-single-float-1 arr2 arr2 arr1 0)
 
     (format t "After: ~S~%~S~%" arr1 arr2)
 
-    (sb-sys:%primitive sb-vm::%sse-recip/simple-array-single-float-1 arr1 arr2 4)
+    (format t "a <- sqrt(b), idx 4~%")
+
+    (sb-sys:%primitive sb-vm::%sse-sqrt/simple-array-single-float-1 arr1 arr2 4)
 
     (format t "After: ~S~%~S~%" arr1 arr2)
 
     ))
 
+(defun test-2 ()
+  (let ((arr1 (make-array 16 :element-type '(unsigned-byte 8) :initial-element 0))
+	(arr2 (make-array 16 :element-type '(unsigned-byte 8) :initial-element 0)))
+    
+    (loop for i from 0 below 16 do (setf (aref arr1 i) (* (1+ i) 10)
+					 (aref arr2 i) (1+ i)))
+
+    (format t "Before: ~S~%~S~%" arr1 arr2)
+    (format t "b <- a+b, idx 4~%")
+
+    (sb-sys:%primitive sb-vm::%sse-add/simple-array-unsigned-byte-8-1 arr2 arr1 arr2 4)
+
+    (format t "After: ~S~%~S~%" arr1 arr2)
+    
+    ))


Index: sb-simd/.cvsignore
diff -u sb-simd/.cvsignore:1.2 sb-simd/.cvsignore:1.3
--- sb-simd/.cvsignore:1.2	Mon Aug  8 12:35:37 2005
+++ sb-simd/.cvsignore	Mon Aug  8 17:56:01 2005
@@ -1,3 +1,4 @@
 .emacs.desktop
 *.fasl
 sse-insts.lisp
+sse-vops.lisp