[sb-simd-cvs] CVS update: sb-simd/test-vector.lisp sb-simd/sse-vector.lisp sb-simd/sse-moves.lisp sb-simd/sse-matrix.lisp sb-simd/load.lisp sb-simd/generate-sse-vops.lisp sb-simd/generate-sse-instructions.lisp

[Risto Laakso]

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)