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