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

Modified Files: sse-matrix.lisp load.lisp generate-sse-vops.lisp generate-sse-instructions.lisp Added Files: test-vector.lisp sse-vector.lisp sse-moves.lisp Log Message:

Date: Wed Aug 17 16:09:06 2005 Author: rlaakso

Index: sb-simd/sse-matrix.lisp diff -u sb-simd/sse-matrix.lisp:1.1 sb-simd/sse-matrix.lisp:1.2 --- sb-simd/sse-matrix.lisp:1.1 Tue Aug 9 11:45:36 2005 +++ sb-simd/sse-matrix.lisp Wed Aug 17 16:09:06 2005 @@ -51,14 +51,14 @@ SIMPLE-ARRAY-SINGLE-FLOAT SIMPLE-ARRAY-SINGLE-FLOAT)

- (:TEMPORARY (:SC SSE-REG) X0) - (:TEMPORARY (:SC SSE-REG) X1) - (:TEMPORARY (:SC SSE-REG) X2) - (:TEMPORARY (:SC SSE-REG) X3) - (:TEMPORARY (:SC SSE-REG) X4) - (:TEMPORARY (:SC SSE-REG) X5) - (:TEMPORARY (:SC SSE-REG) X6) - (:TEMPORARY (:SC SSE-REG) X7) + (:TEMPORARY (:SC XMM-REG) X0) + (:TEMPORARY (:SC XMM-REG) X1) + (:TEMPORARY (:SC XMM-REG) X2) + (:TEMPORARY (:SC XMM-REG) X3) + (:TEMPORARY (:SC XMM-REG) X4) + (:TEMPORARY (:SC XMM-REG) X5) + (:TEMPORARY (:SC XMM-REG) X6) + (:TEMPORARY (:SC XMM-REG) X7)

(:GENERATOR 10 (inst movss x2 (vect-ea mat2 32))

Index: sb-simd/load.lisp diff -u sb-simd/load.lisp:1.5 sb-simd/load.lisp:1.6 --- sb-simd/load.lisp:1.5 Fri Aug 12 16:09:53 2005 +++ sb-simd/load.lisp Wed Aug 17 16:09:06 2005 @@ -11,12 +11,22 @@ (load (compile-file "test-matrix.lisp")) ))

-(if t +(if nil (progn (load (compile-file "detect-simd.lisp")) (load (compile-file "expand-parse-operand-temp-count.lisp")) (load (compile-file "timing.lisp")) (load (compile-file "sse-seq.lisp")) (load (compile-file "test-seq.lisp")) + )) + +(if t + (progn + (load (compile-file "detect-simd.lisp")) + (load (compile-file "sse-moves.lisp")) + (load (compile-file "expand-parse-operand-temp-count.lisp")) + (load (compile-file "timing.lisp")) + (load (compile-file "sse-vector.lisp")) + (load (compile-file "test-vector.lisp")) ))

Index: sb-simd/generate-sse-vops.lisp diff -u sb-simd/generate-sse-vops.lisp:1.3 sb-simd/generate-sse-vops.lisp:1.4 --- sb-simd/generate-sse-vops.lisp:1.3 Mon Aug 8 19:26:08 2005 +++ sb-simd/generate-sse-vops.lisp Wed Aug 17 16:09:06 2005 @@ -132,8 +132,8 @@ ,(intern (format nil "SIMPLE-ARRAY-~A" type)) fixnum)

- (:temporary (:sc sse-reg) sse-temp1) - (:temporary (:sc sse-reg) sse-temp2) + (:temporary (:sc xmm-reg) sse-temp1) + (:temporary (:sc xmm-reg) sse-temp2)

(:generator 10

@@ -186,8 +186,8 @@ ,(intern (format nil "SIMPLE-ARRAY-~A" type2)) fixnum)

- (:temporary (:sc sse-reg) sse-temp1) - (:temporary (:sc sse-reg) sse-temp2) + (:temporary (:sc xmm-reg) sse-temp1) + (:temporary (:sc xmm-reg) sse-temp2)

(:generator 10

@@ -233,8 +233,8 @@ ,(intern (format nil "SIMPLE-ARRAY-~A" type)) fixnum)

- (:temporary (:sc sse-reg) sse-temp1) - (:temporary (:sc sse-reg) sse-temp2) + (:temporary (:sc xmm-reg) sse-temp1) + (:temporary (:sc xmm-reg) sse-temp2)

(:generator 10

@@ -283,8 +283,8 @@ (:constant keyword) )

- (:temporary (:sc sse-reg) sse-temp1) - (:temporary (:sc sse-reg) sse-temp2) + (:temporary (:sc xmm-reg) sse-temp1) + (:temporary (:sc xmm-reg) sse-temp2)

(:generator 10

Index: sb-simd/generate-sse-instructions.lisp diff -u sb-simd/generate-sse-instructions.lisp:1.6 sb-simd/generate-sse-instructions.lisp:1.7 --- sb-simd/generate-sse-instructions.lisp:1.6 Fri Aug 12 13:55:39 2005 +++ sb-simd/generate-sse-instructions.lisp Wed Aug 17 16:09:06 2005 @@ -323,7 +323,7 @@ (format stream "~S~%~%" `(define-instruction ,(intern (symbol-name inst)) (segment dst src) (:emitter - (cond ((sse-register-p dst) + (cond ((xmm-register-p dst) ,@(emit-ops ops-m2r) (emit-ea segment src (reg-tn-encoding dst))) (t ,@(emit-ops ops-r2m)