- sb-simd-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[sb-simd-cvs] CVS update: sb-simd/push-simd-features.lisp sb-simd/expand-parse-operand-temp-count.lisp
by rlaakso＠common-lisp.net 17 Aug '05

17 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd In directory common-lisp.net:/tmp/cvs-serv1916 Modified Files: push-simd-features.lisp expand-parse-operand-temp-count.lisp Log Message: Date: Wed Aug 17 16:09:34 2005 Author: rlaakso Index: sb-simd/push-simd-features.lisp diff -u sb-simd/push-simd-features.lisp:1.1 sb-simd/push-simd-features.lisp:1.2 --- sb-simd/push-simd-features.lisp:1.1 Fri Aug 12 16:09:53 2005 +++ sb-simd/push-simd-features.lisp Wed Aug 17 16:09:34 2005 @@ -1,3 +1,29 @@ +#| +Copyright (c) 2005 Risto Laakso +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: +1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. +3. The name of the author may not be used to endorse or promote products + derived from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR +IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES +OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. +IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, +INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT +NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF +THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +|# (in-package :sb-vm) (eval-when (:load-toplevel) Index: sb-simd/expand-parse-operand-temp-count.lisp diff -u sb-simd/expand-parse-operand-temp-count.lisp:1.1 sb-simd/expand-parse-operand-temp-count.lisp:1.2 --- sb-simd/expand-parse-operand-temp-count.lisp:1.1 Fri Aug 12 16:09:53 2005 +++ sb-simd/expand-parse-operand-temp-count.lisp Wed Aug 17 16:09:34 2005 @@ -1,3 +1,29 @@ +#| +Copyright (c) 2005 Risto Laakso +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: +1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. +3. The name of the author may not be used to endorse or promote products + derived from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR +IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES +OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. +IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, +INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT +NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF +THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +|# (in-package :sb-c) (setf *parse-vop-operand-count* 1)

1 0

[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
by rlaakso＠common-lisp.net 17 Aug '05

17 Aug '05

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)

1 0

[sb-simd-cvs] CVS update: sb-simd/sbcl-src/patch_against_sbcl_0_9_3__08082005 sb-simd/sbcl-src/patch_against_sbcl_0_9_3
by rlaakso＠common-lisp.net 17 Aug '05

17 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd/sbcl-src In directory common-lisp.net:/tmp/cvs-serv1850/sbcl-src Modified Files: patch_against_sbcl_0_9_3 Added Files: patch_against_sbcl_0_9_3__08082005 Log Message: Date: Wed Aug 17 16:08:58 2005 Author: rlaakso Index: sb-simd/sbcl-src/patch_against_sbcl_0_9_3 diff -u sb-simd/sbcl-src/patch_against_sbcl_0_9_3:1.2 sb-simd/sbcl-src/patch_against_sbcl_0_9_3:1.3 --- sb-simd/sbcl-src/patch_against_sbcl_0_9_3:1.2 Mon Aug 8 15:33:25 2005 +++ sb-simd/sbcl-src/patch_against_sbcl_0_9_3 Wed Aug 17 16:08:57 2005 @@ -1,16 +1,160 @@ +diff -x 'CVS*' -Naur src-093/compiler/x86/float.lisp src/compiler/x86/float.lisp +--- src-093/compiler/x86/float.lisp 2005-08-17 16:56:53.996387102 +0300 ++++ src/compiler/x86/float.lisp 2005-08-17 15:04:50.040162831 +0300 +@@ -4308,3 +4308,122 @@ + (:note "inline dummy FP register bias") + (:ignore x) + (:generator 0)) ++ ++ ++;; XMM Moves ++ ++ ++(defun ea-for-xmm-desc (tn) ++ (make-ea :xmmword :base tn ++ :disp (- (* xmm-value-slot n-word-bytes) other-pointer-lowtag))) ++ ++(defun ea-for-xmm-stack (tn) ++ (make-ea :xmmword :base ebp-tn ++ :disp (- (* (+ (tn-offset tn) ++ 4) ++ n-word-bytes)))) ++ ++(define-move-fun (load-xmm 2) (vop x y) ++ ((xmm-stack) (xmm-reg)) ++ (inst movdqu y (ea-for-xmm-stack x))) ++ ++(define-move-fun (store-xmm 2) (vop x y) ++ ((xmm-reg) (xmm-stack)) ++ (inst movdqu (ea-for-xmm-stack y) x)) ++ ++(define-move-fun (load-xmm-single 2) (vop x y) ++ ((single-stack) (xmm-reg)) ++ (inst movss y (ea-for-sf-stack x))) ++ ++(define-move-fun (store-xmm-single 2) (vop x y) ++ ((xmm-reg) (single-stack)) ++ (inst movss (ea-for-sf-stack y) x)) ++ ++ ++(define-vop (%load-xmm-from-array/single-float) ++ (:policy :fast-safe) ++ (:args (src :scs (descriptor-reg)) ++ (index :scs (unsigned-reg))) ++ (:ARG-TYPES SIMPLE-ARRAY-SINGLE-FLOAT fixnum) ++ (:results (dest :scs (xmm-reg))) ++ (:result-types xmm) ++ (:generator 1 ++ (inst shl index 2) ++ (inst movdqu dest (make-ea :xmmword :base src :index index ++ :disp (- (* VECTOR-DATA-OFFSET N-WORD-BYTES) OTHER-POINTER-LOWTAG))))) ++ ++ ++(define-vop (%store-xmm-to-array/single-float) ++ (:policy :fast-safe) ++ (:args (dest :scs (descriptor-reg)) ++ (index :scs (unsigned-reg)) ++ (src :scs (xmm-reg))) ++ (:ARG-TYPES SIMPLE-ARRAY-SINGLE-FLOAT fixnum XMM) ++ (:generator 1 ++ (inst shl index 2) ++ (inst movdqu (make-ea :xmmword :base dest :index index ++ :disp (- (* VECTOR-DATA-OFFSET N-WORD-BYTES) OTHER-POINTER-LOWTAG)) ++ src))) ++ ++ ++(define-vop (xmm-move) ++ (:args (x :scs (xmm-reg) :target y :load-if (not (location= x y)))) ++ (:results (y :scs (xmm-reg) :load-if (not (location= x y)))) ++ (:note "xmm move") ++ (:generator 0 ++ (unless (location= x y) ++ (inst movdqa y x)))) ++ ++(define-move-vop xmm-move :move (xmm-reg) (xmm-reg)) ++ ++(define-vop (move-from-xmm) ++ (:args (x :scs (xmm-reg) :to :save)) ++ (:results (y :scs (descriptor-reg))) ++ (:node-var node) ++ (:note "xmm to pointer coercion") ++ (:generator 13 ++ (with-fixed-allocation (y ++ xmm-widetag ++ xmm-size node) ++ (inst movdqu (ea-for-xmm-desc y) x)))) ++ ++(define-move-vop move-from-xmm :move (xmm-reg) (descriptor-reg)) ++ ++(define-vop (move-to-xmm) ++ (:args (x :scs (descriptor-reg))) ++ (:results (y :scs (xmm-reg))) ++ (:note "pointer to xmm coercion") ++ (:generator 2 ++ (inst movdqu y (ea-for-xmm-desc x)))) ++ ++(define-move-vop move-to-xmm :move (descriptor-reg) (xmm-reg)) ++ ++ ++(define-vop (move-xmm-arg) ++ (:args (x :scs (xmm-reg) :target y) ++ (fp :scs (any-reg) ++ :load-if (not (sc-is y xmm-reg)))) ++ (:results (y)) ++ (:note "xmm argument move") ++ (:generator 6 ++ (sc-case y ++ (xmm-reg ++ (unless (location= x y) ++ (inst movdqa y x))) ++ ++ (xmm-stack ++ (if (= (tn-offset fp) esp-offset) ++ (let* ((offset (* (tn-offset y) n-word-bytes)) ++ (ea (make-ea :xmmword :base fp :disp offset))) ++ (inst movdqu ea x)) ++ ++ (let ((ea (make-ea :xmmword :base fp ++ :disp (- (* (+ (tn-offset y) 4) ++ n-word-bytes))))) ++ (inst movdqu ea x))))))) ++ ++(define-move-vop move-xmm-arg :move-arg (xmm-reg descriptor-reg) (xmm-reg)) ++ ++(define-move-vop move-arg :move-arg (xmm-reg) (descriptor-reg)) ++ ++ diff -x 'CVS*' -Naur src-093/compiler/x86/insts.lisp src/compiler/x86/insts.lisp --- src-093/compiler/x86/insts.lisp 2005-08-05 16:13:29.000000000 +0300 -+++ src/compiler/x86/insts.lisp 2005-08-08 16:30:23.352842152 +0300 -@@ -192,6 +192,8 @@ ++++ src/compiler/x86/insts.lisp 2005-08-16 10:39:07.027823783 +0300 +@@ -39,13 +39,16 @@ + #(ax cx dx bx sp bp si di)) + (defparameter *dword-reg-names* + #(eax ecx edx ebx esp ebp esi edi)) ++(defparameter *xmmword-reg-names* ++ #(xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7)) + + (defun print-reg-with-width (value width stream dstate) + (declare (ignore dstate)) + (princ (aref (ecase width + (:byte *byte-reg-names*) + (:word *word-reg-names*) +- (:dword *dword-reg-names*)) ++ (:dword *dword-reg-names*) ++ (:xmmword *xmmword-reg-names*)) + value) + stream) + ;; XXX plus should do some source-var notes +@@ -192,6 +195,8 @@ (:byte 8) (:word 16) (:dword 32) + (:qword 64) -+ (:dqword 128) ++ (:xmmword 128) (:float 32) (:double 64))) -@@ -671,7 +673,7 @@ +@@ -671,14 +676,14 @@ (defun reg-tn-encoding (tn) (declare (type tn tn)) @@ -19,27 +163,53 @@ (let ((offset (tn-offset tn))) (logior (ash (logand offset 1) 2) (ash offset -1)))) -@@ -718,6 +720,8 @@ + + (defstruct (ea (:constructor make-ea (size &key base index scale disp)) + (:copier nil)) +- (size nil :type (member :byte :word :dword)) ++ (size nil :type (member :byte :word :dword :xmmword)) + (base nil :type (or tn null)) + (index nil :type (or tn null)) + (scale 1 :type (member 1 2 4 8)) +@@ -718,6 +723,8 @@ (ecase (sb-name (sc-sb (tn-sc thing))) (registers (emit-mod-reg-r/m-byte segment #b11 reg (reg-tn-encoding thing))) -+ (sse-registers ++ (xmm-registers + (emit-mod-reg-r/m-byte segment #b11 reg (reg-tn-encoding thing))) (stack ;; Convert stack tns into an index off of EBP. (let ((disp (- (* (1+ (tn-offset thing)) n-word-bytes)))) -@@ -830,6 +834,10 @@ +@@ -830,6 +837,19 @@ (and (tn-p thing) (eq (sb-name (sc-sb (tn-sc thing))) 'registers))) -+(defun sse-register-p (thing) ++(defun xmm-register-p (thing) + (and (tn-p thing) -+ (eq (sb-name (sc-sb (tn-sc thing))) 'sse-registers))) ++ (eq (sb-name (sc-sb (tn-sc thing))) 'xmm-registers) ++ (member (sc-name (tn-sc thing)) *xmmword-sc-names*) ++ t)) ++ ++(defun xmm-ea-p (thing) ++ (typecase thing ++ (ea (eq (ea-size thing) :xmmword)) ++ (tn ++ (and (member (sc-name (tn-sc thing)) *xmmword-sc-names*) t)) ++ (t nil))) + (defun accumulator-p (thing) (and (register-p thing) (= (tn-offset thing) 0))) -@@ -2042,6 +2050,1339 @@ +@@ -859,6 +879,8 @@ + :float) + (#.*double-sc-names* + :double) ++ (#.*xmmword-sc-names* ++ :xmmword) + (t + (error "can't tell the size of ~S ~S" thing (sc-name (tn-sc thing)))))) + (ea +@@ -2042,6 +2064,1419 @@ (:emitter (emit-header-data segment return-pc-header-widetag))) @@ -1203,7 +1373,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 40) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 102) @@ -1215,7 +1385,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 40) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 15) @@ -1226,7 +1396,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 110) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 102) @@ -1238,7 +1408,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 111) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 102) @@ -1250,7 +1420,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 111) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 243) @@ -1262,7 +1432,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 22) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 102) @@ -1274,7 +1444,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 22) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 15) @@ -1285,7 +1455,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 18) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 102) @@ -1297,7 +1467,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 18) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 15) @@ -1308,7 +1478,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 126) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 102) @@ -1320,7 +1490,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 242) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 242) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 16) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 242) @@ -1332,7 +1502,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 16) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 243) @@ -1344,7 +1514,7 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 16) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 102) @@ -1356,13 +1526,93 @@ + (SEGMENT DST SRC) + (:EMITTER + (COND -+ ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) ++ ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 16) + (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) + (T (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 17) + (EMIT-EA SEGMENT DST (REG-TN-ENCODING SRC)))))) + ++(DEFINE-INSTRUCTION PSLLD-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 114) ++ (EMIT-EA SEGMENT DST 6) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSLLDQ-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 115) ++ (EMIT-EA SEGMENT DST 7) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSLLQ-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 115) ++ (EMIT-EA SEGMENT DST 6) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSLLW-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 113) ++ (EMIT-EA SEGMENT DST 6) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSRAD-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 114) ++ (EMIT-EA SEGMENT DST 4) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSRAW-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 113) ++ (EMIT-EA SEGMENT DST 4) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSRLD-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 114) ++ (EMIT-EA SEGMENT DST 2) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSRLDQ-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 115) ++ (EMIT-EA SEGMENT DST 3) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSRLQ-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 115) ++ (EMIT-EA SEGMENT DST 2) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ ++(DEFINE-INSTRUCTION PSRLW-IB ++ (SEGMENT DST AMOUNT) ++ (:EMITTER (EMIT-BYTE SEGMENT 102) ++ (EMIT-BYTE SEGMENT 15) ++ (EMIT-BYTE SEGMENT 113) ++ (EMIT-EA SEGMENT DST 2) ++ (EMIT-BYTE SEGMENT AMOUNT))) ++ + + +;;; CPUID @@ -1381,14 +1631,14 @@ ;;;; FIXME: This section said "added by jrd", which should end up in CREDITS. diff -x 'CVS*' -Naur src-093/compiler/x86/vm.lisp src/compiler/x86/vm.lisp --- src-093/compiler/x86/vm.lisp 2005-08-05 16:13:29.000000000 +0300 -+++ src/compiler/x86/vm.lisp 2005-08-08 16:32:19.609588299 +0300 ++++ src/compiler/x86/vm.lisp 2005-08-17 13:06:11.717026836 +0300 @@ -21,7 +21,8 @@ (defvar *byte-register-names* (make-array 8 :initial-element nil)) (defvar *word-register-names* (make-array 16 :initial-element nil)) (defvar *dword-register-names* (make-array 16 :initial-element nil)) - (defvar *float-register-names* (make-array 8 :initial-element nil))) + (defvar *float-register-names* (make-array 8 :initial-element nil)) -+ (defvar *dqword-register-names* (make-array 8 :initial-element nil))) ++ (defvar *xmmword-register-names* (make-array 8 :initial-element nil))) (macrolet ((defreg (name offset size) (let ((offset-sym (symbolicate name "-OFFSET")) @@ -1397,15 +1647,15 @@ (defregset *float-regs* fr0 fr1 fr2 fr3 fr4 fr5 fr6 fr7) + ;; sse registers -+ (defreg xmm0 0 :dqword) -+ (defreg xmm1 1 :dqword) -+ (defreg xmm2 2 :dqword) -+ (defreg xmm3 3 :dqword) -+ (defreg xmm4 4 :dqword) -+ (defreg xmm5 5 :dqword) -+ (defreg xmm6 6 :dqword) -+ (defreg xmm7 7 :dqword) -+ (defregset *sse-regs* xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7) ++ (defreg xmm0 0 :xmmword) ++ (defreg xmm1 1 :xmmword) ++ (defreg xmm2 2 :xmmword) ++ (defreg xmm3 3 :xmmword) ++ (defreg xmm4 4 :xmmword) ++ (defreg xmm5 5 :xmmword) ++ (defreg xmm6 6 :xmmword) ++ (defreg xmm7 7 :xmmword) ++ (defregset *xmm-regs* xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7) + ;; registers used to pass arguments ;; @@ -1414,33 +1664,55 @@ ;;; the new way: (define-storage-base float-registers :finite :size 8) -+(define-storage-base sse-registers :finite :size 8) ++(define-storage-base xmm-registers :finite :size 8) + (define-storage-base stack :unbounded :size 8) (define-storage-base constant :non-packed) (define-storage-base immediate-constant :non-packed) -@@ -320,6 +334,8 @@ - :save-p t - :alternate-scs (complex-long-stack)) +@@ -186,6 +200,7 @@ + (sap-stack stack) ; System area pointers. + (single-stack stack) ; single-floats + (double-stack stack :element-size 2) ; double-floats. ++ (xmm-stack stack :element-size 4) ; xmm + #!+long-float + (long-stack stack :element-size 3) ; long-floats. + (complex-single-stack stack :element-size 2) ; complex-single-floats +@@ -290,6 +305,12 @@ + :save-p t + :alternate-scs (double-stack)) -+ (sse-reg sse-registers -+ :locations #.*sse-regs*) - ;; a catch or unwind block - (catch-block stack :element-size kludge-nondeterministic-catch-block-size)) - -@@ -337,6 +353,7 @@ ++ ;; non-descriptor XMMs ++ (xmm-reg xmm-registers ++ :locations #.*xmm-regs* ++ :save-p t ++ :alternate-scs (xmm-stack)) ++ + ;; non-descriptor LONG-FLOATs + #!+long-float + (long-reg float-registers +@@ -337,6 +358,7 @@ ;;; These are used to (at least) determine operand size. (defparameter *float-sc-names* '(single-reg)) (defparameter *double-sc-names* '(double-reg double-stack)) -+(defparameter *dqword-sc-names* '(sse-reg)) ++(defparameter *xmmword-sc-names* '(xmm-reg)) ) ; EVAL-WHEN ;;;; miscellaneous TNs for the various registers -@@ -444,6 +461,7 @@ +@@ -359,7 +381,8 @@ + (def-misc-reg-tns unsigned-reg eax ebx ecx edx ebp esp edi esi) + (def-misc-reg-tns word-reg ax bx cx dx bp sp di si) + (def-misc-reg-tns byte-reg al ah bl bh cl ch dl dh) +- (def-misc-reg-tns single-reg fr0 fr1 fr2 fr3 fr4 fr5 fr6 fr7)) ++ (def-misc-reg-tns single-reg fr0 fr1 fr2 fr3 fr4 fr5 fr6 fr7) ++ (def-misc-reg-tns xmm-reg xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7)) + + ;;; TNs for registers used to pass arguments + (defparameter *register-arg-tns* +@@ -444,6 +467,7 @@ ;; FIXME: Shouldn't this be an ERROR? (format nil "<unknown reg: off=~W, sc=~A>" offset sc-name)))) (float-registers (format nil "FR~D" offset)) -+ (sse-registers (format nil "XMM~D" offset)) ++ (xmm-registers (format nil "XMM~D" offset)) (stack (format nil "S~D" offset)) (constant (format nil "Const~D" offset)) (immediate-constant "Immed")

1 0

[sb-simd-cvs] CVS update: sb-simd/sbcl-src/src-093/compiler/x86/float.lisp
by rlaakso＠common-lisp.net 17 Aug '05

17 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd/sbcl-src/src-093/compiler/x86 In directory common-lisp.net:/tmp/cvs-serv1850/sbcl-src/src-093/compiler/x86 Added Files: float.lisp Log Message: Date: Wed Aug 17 16:08:56 2005 Author: rlaakso

1 0

[sb-simd-cvs] CVS update: sb-simd/sbcl-src/src/compiler/x86/float.lisp sb-simd/sbcl-src/src/compiler/x86/vm.lisp
by rlaakso＠common-lisp.net 17 Aug '05

17 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd/sbcl-src/src/compiler/x86 In directory common-lisp.net:/tmp/cvs-serv1850/sbcl-src/src/compiler/x86 Modified Files: vm.lisp Added Files: float.lisp Log Message: Date: Wed Aug 17 16:08:55 2005 Author: rlaakso Index: sb-simd/sbcl-src/src/compiler/x86/vm.lisp diff -u sb-simd/sbcl-src/src/compiler/x86/vm.lisp:1.2 sb-simd/sbcl-src/src/compiler/x86/vm.lisp:1.3 --- sb-simd/sbcl-src/src/compiler/x86/vm.lisp:1.2 Fri Aug 12 13:55:38 2005 +++ sb-simd/sbcl-src/src/compiler/x86/vm.lisp Wed Aug 17 16:08:55 2005 @@ -200,6 +200,7 @@ (sap-stack stack) ; System area pointers. (single-stack stack) ; single-floats (double-stack stack :element-size 2) ; double-floats. + (xmm-stack stack :element-size 4) ; xmm #!+long-float (long-stack stack :element-size 3) ; long-floats. (complex-single-stack stack :element-size 2) ; complex-single-floats @@ -304,6 +305,12 @@ :save-p t :alternate-scs (double-stack)) + ;; non-descriptor XMMs + (xmm-reg xmm-registers + :locations #.*xmm-regs* + :save-p t + :alternate-scs (xmm-stack)) + ;; non-descriptor LONG-FLOATs #!+long-float (long-reg float-registers @@ -334,8 +341,6 @@ :save-p t :alternate-scs (complex-long-stack)) - (xmm-reg xmm-registers - :locations #.*xmm-regs*) ;; a catch or unwind block (catch-block stack :element-size kludge-nondeterministic-catch-block-size)) @@ -376,7 +381,8 @@ (def-misc-reg-tns unsigned-reg eax ebx ecx edx ebp esp edi esi) (def-misc-reg-tns word-reg ax bx cx dx bp sp di si) (def-misc-reg-tns byte-reg al ah bl bh cl ch dl dh) - (def-misc-reg-tns single-reg fr0 fr1 fr2 fr3 fr4 fr5 fr6 fr7)) + (def-misc-reg-tns single-reg fr0 fr1 fr2 fr3 fr4 fr5 fr6 fr7) + (def-misc-reg-tns xmm-reg xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7)) ;;; TNs for registers used to pass arguments (defparameter *register-arg-tns*

1 0

[sb-simd-cvs] CVS update: sb-simd/push-simd-features.lisp sb-simd/expand-parse-operand-temp-count.lisp sb-simd/test-seq.lisp sb-simd/sse-seq.lisp sb-simd/load.lisp
by rlaakso＠common-lisp.net 12 Aug '05

12 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd In directory common-lisp.net:/tmp/cvs-serv3312 Modified Files: test-seq.lisp sse-seq.lisp load.lisp Added Files: push-simd-features.lisp expand-parse-operand-temp-count.lisp Log Message: Date: Fri Aug 12 16:09:53 2005 Author: rlaakso Index: sb-simd/test-seq.lisp diff -u sb-simd/test-seq.lisp:1.1 sb-simd/test-seq.lisp:1.2 --- sb-simd/test-seq.lisp:1.1 Fri Aug 12 13:55:39 2005 +++ sb-simd/test-seq.lisp Fri Aug 12 16:09:53 2005 @@ -3,14 +3,7 @@ (declaim (optimize (speed 3) (safety 0) (space 0) (debug 0))) (defun sse-seq= (seq1 seq2) - (declare (type (simple-array (unsigned-byte 8) (*)) seq1 seq2)) - (multiple-value-bind (256blocks rest) (truncate (length seq1) (floor (log (/ 256 8) 2))) - (declare (ignore rest)) - (and (= (sb-sys:%primitive sb-vm::%sse-seq= seq1 seq2) 0) - (loop for equal = t - for i from (* 256blocks 32) below (length seq1) - when (/= (aref seq1 i) (aref seq2 i)) do (setq equal nil) - finally (return equal))))) + (= (sb-sys:%primitive sb-vm::%sse-seq= seq1 seq2) 0)) (defun seq= (seq1 seq2) (declare (type (simple-array (unsigned-byte 8) (*)) seq1 seq2)) @@ -22,11 +15,11 @@ finally (return equal)))) -(defun test-seq (&optional (test-count 100000)) - (let ((arr1 (make-array #.(* 256 1024) :element-type '(unsigned-byte 8) :initial-element 0)) - (arr2 (make-array #.(* 256 1024) :element-type '(unsigned-byte 8) :initial-element 0)) - (arr3 (make-array #.(* 256 1024) :element-type '(unsigned-byte 8) :initial-element 0)) - (arr4 (make-array #.(* 256 1024) :element-type '(unsigned-byte 8) :initial-element 0)) +(defun test-seq (&optional (test-count 50000)) + (let ((arr1 (make-array #.(* 255 1025) :element-type '(unsigned-byte 8) :initial-element 0)) + (arr2 (make-array #.(* 255 1025) :element-type '(unsigned-byte 8) :initial-element 0)) + (arr3 (make-array #.(* 255 1025) :element-type '(unsigned-byte 8) :initial-element 0)) + (arr4 (make-array #.(* 255 1025) :element-type '(unsigned-byte 8) :initial-element 0)) res) (loop for i from 0 below (length arr1) @@ -37,19 +30,19 @@ )) (setf (aref arr3 1200) (mod (1+ (aref arr3 1200)) 256) - (aref arr4 256000) (mod (1+ (aref arr4 256000)) 256)) + (aref arr4 (- (length arr4) 2)) (mod (1+ (aref arr4 (- (length arr4) 2))) 256)) ;; (time (dotimes (i 100000) (sse-seq= arr1 arr2))) ;; (time (dotimes (i #.(/ 100000 30)) (seq= arr1 arr2))) (format t "; seq= a1 a2~%") - (time-sample-form #'(lambda () (dotimes (i (truncate test-count 30)) (setf res (seq= arr1 arr2))))) + (time-sample-form #'(lambda () (dotimes (i (truncate test-count 15)) (setf res (seq= arr1 arr2))))) (format t "; seq= a1 a3~%") - (time-sample-form #'(lambda () (dotimes (i (truncate test-count 30)) (setf res (seq= arr1 arr3))))) + (time-sample-form #'(lambda () (dotimes (i (truncate test-count 15)) (setf res (seq= arr1 arr3))))) (format t "; seq= a2 a4~%") - (time-sample-form #'(lambda () (dotimes (i (truncate test-count 30)) (setf res (seq= arr2 arr4))))) + (time-sample-form #'(lambda () (dotimes (i (truncate test-count 15)) (setf res (seq= arr2 arr4))))) (format t "; sse-seq= a1 a2~%") Index: sb-simd/sse-seq.lisp diff -u sb-simd/sse-seq.lisp:1.1 sb-simd/sse-seq.lisp:1.2 --- sb-simd/sse-seq.lisp:1.1 Fri Aug 12 13:55:39 2005 +++ sb-simd/sse-seq.lisp Fri Aug 12 16:09:53 2005 @@ -29,15 +29,15 @@ (:TEMPORARY (:SC XMM-REG) X4) (:TEMPORARY (:SC XMM-REG) X5) -;; (:TEMPORARY (:SC unsigned-reg :offset edx-offset) edx) - + (:TEMPORARY (:SC unsigned-reg :offset eax-offset :to (:result 0)) temp1) + (:TEMPORARY (:SC unsigned-reg :offset edx-offset) temp2) (:TEMPORARY (:SC unsigned-reg :offset ebx-offset) index) (:TEMPORARY (:SC unsigned-reg :offset ecx-offset) length) (:GENERATOR 10 (let ((top (gen-label)) -;; (top2 (gen-label)) + (top2 (gen-label)) (length-ok (gen-label)) (fail (gen-label)) (the-end (gen-label)) @@ -51,8 +51,7 @@ (inst jmp :eq length-ok) ;; not same length, fail - (inst mov result -1) - (inst jmp end) + (inst jmp fail) (emit-label length-ok) @@ -66,8 +65,8 @@ (inst xor index index) ;; zero eq-regs - (inst pxor x4 x4) - (inst pxor x5 x5) +;; (inst pxor x4 x4) +;; (inst pxor x5 x5) (emit-label top) @@ -75,6 +74,9 @@ (inst movdqu x0 (vect-ea seq1 index :xmmword)) (inst movdqu x1 (vect-ea seq2 index :xmmword)) + (inst pxor x4 x4) + (inst pxor x5 x5) + ;; load second blocks (inst movdqu x2 (make-ea :xmmword :base seq1 :index index @@ -91,9 +93,18 @@ ;; add index (inst add index 32) - ;; or bits to eq-regs (if not eq, some bits will be nonzero) - (inst por x4 x0) - (inst por x5 x2) + ;; check for non-equality + (inst pcmpeqd x4 x0) + (inst pcmpeqd x5 x2) + + (inst pmovmskb temp1 x4) + (inst pmovmskb temp2 x5) + + (inst cmp temp1 #x0000FFFF) + (inst jmp :ne fail) + + (inst cmp temp2 #x0000FFFF) + (inst jmp :ne fail) ;; loop (inst dec length) @@ -102,35 +113,46 @@ ;; all 256bit blocks done - ;; or each 32bit word from x4 to x5 - (inst por x4 x5) - (inst movdqa x0 x4) - (inst psrldq-ib x4 4) ;; this is number of bytes, not bits - (inst por x0 x4) + ;; check remaining bytes + (loadw length seq1 vector-length-slot other-pointer-lowtag) + (inst shr length 2) + (inst and length (1- (/ 256 8))) + + ;; no bytes left ? + (inst test length length) + (inst jmp :z end) - (inst psrldq-ib x4 4) - (inst por x0 x4) + (inst xor temp1 temp1) + (inst xor temp2 temp2) - (inst psrldq-ib x4 4) - (inst por x0 x4) + (emit-label top2) - ;; now low 32bits of x0 will be non-zero if seq's not equal + ;; test bytes + (inst movzx temp1 (vect-ea seq1 index :byte)) + (inst movzx temp2 (vect-ea seq2 index :byte)) + (inst xor temp1 temp2) + (inst inc index) - (inst movd result x0) + ;; if not zero, fail + (inst test temp1 temp1) + (inst jmp :nz fail) + + ;; loop + (inst dec length) + (inst jmp :nz top2) ;; end (emit-label end) - (inst test result result) - (inst jmp :nz fail) - (inst mov result (fixnumize 0)) (inst jmp the-end) + ;; fail (emit-label fail) (inst mov result (fixnumize 1)) - + + ;; the-end (emit-label the-end) ))) Index: sb-simd/load.lisp diff -u sb-simd/load.lisp:1.4 sb-simd/load.lisp:1.5 --- sb-simd/load.lisp:1.4 Fri Aug 12 13:55:39 2005 +++ sb-simd/load.lisp Fri Aug 12 16:09:53 2005 @@ -14,6 +14,7 @@ (if t (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"))

1 0

[sb-simd-cvs] CVS update: sb-simd/test-seq.lisp sb-simd/sse-seq.lisp sb-simd/VOP.txt sb-simd/load.lisp sb-simd/generate-sse-instructions.lisp sb-simd/detect-simd.lisp sb-simd/TODO
by rlaakso＠common-lisp.net 12 Aug '05

12 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd In directory common-lisp.net:/tmp/cvs-serv26463 Modified Files: load.lisp generate-sse-instructions.lisp detect-simd.lisp TODO Added Files: test-seq.lisp sse-seq.lisp VOP.txt Log Message: Date: Fri Aug 12 13:55:40 2005 Author: rlaakso Index: sb-simd/load.lisp diff -u sb-simd/load.lisp:1.3 sb-simd/load.lisp:1.4 --- sb-simd/load.lisp:1.3 Tue Aug 9 19:18:15 2005 +++ sb-simd/load.lisp Fri Aug 12 13:55:39 2005 @@ -14,6 +14,8 @@ (if t (progn (load (compile-file "detect-simd.lisp")) - (load (compile-file "push-simd-features.lisp")) + (load (compile-file "timing.lisp")) + (load (compile-file "sse-seq.lisp")) + (load (compile-file "test-seq.lisp")) )) Index: sb-simd/generate-sse-instructions.lisp diff -u sb-simd/generate-sse-instructions.lisp:1.5 sb-simd/generate-sse-instructions.lisp:1.6 --- sb-simd/generate-sse-instructions.lisp:1.5 Mon Aug 8 18:23:22 2005 +++ sb-simd/generate-sse-instructions.lisp Fri Aug 12 13:55:39 2005 @@ -42,18 +42,6 @@ MOVQ2DQ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 208 -(ib-forms:) -PSLLD. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 323 -PSLLDQ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 326 -PSLLQ. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 328 -PSLLW . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 330 -PSRAD . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 333 -PSRAW . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 336 -PSRLD . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 339 -PSRLDQ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 342 -PSRLQ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 344 -PSRLW . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 347 - STMXCSR . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 410 @@ -339,7 +327,31 @@ ,@(emit-ops ops-m2r) (emit-ea segment src (reg-tn-encoding dst))) (t ,@(emit-ops ops-r2m) - (emit-ea segment dst (reg-tn-encoding src))))))))) + (emit-ea segment dst (reg-tn-encoding src)))))))) + + ;; misc + (loop for (name mode . opcodes) in + '( + (pslld-ib 6 #x66 #x0F #x72) + (pslldq-ib 7 #x66 #x0F #x73) + (psllq-ib 6 #x66 #x0F #x73) + (psllw-ib 6 #x66 #x0F #x71) + (psrad-ib 4 #x66 #x0F #x72) + (psraw-ib 4 #x66 #x0F #x71) + (psrld-ib 2 #x66 #x0F #x72) + (psrldq-ib 3 #x66 #x0F #x73) + (psrlq-ib 2 #x66 #x0F #x73) + (psrlw-ib 2 #x66 #x0F #x71) + ) + do + (format stream "~S~%~%" + `(define-instruction ,(intern (symbol-name name)) (segment dst amount) + (:emitter + ,@(emit-ops opcodes) + (emit-ea segment dst ,mode) + (emit-byte segment amount))))) + + ) (defun gen-ops-to-file (filename) (with-open-file (stream filename :direction :output :if-exists :supersede) Index: sb-simd/detect-simd.lisp diff -u sb-simd/detect-simd.lisp:1.1 sb-simd/detect-simd.lisp:1.2 --- sb-simd/detect-simd.lisp:1.1 Tue Aug 9 19:18:15 2005 +++ sb-simd/detect-simd.lisp Fri Aug 12 13:55:39 2005 @@ -57,11 +57,3 @@ (inst mov res edx))) - -(eval-when (:load-toplevel) - (let ((res (sb-sys:%primitive sb-vm::%detect-simd/x86))) -;; (format t "res is ~A~%" res) - (if (/= (logand res #b001) 0) (pushnew :sse sb-vm::*backend-subfeatures*)) - (if (/= (logand res #b010) 0) (pushnew :sse2 sb-vm::*backend-subfeatures*)) - (if (/= (logand res #b100) 0) (pushnew :sse3 sb-vm::*backend-subfeatures*)))) - \ No newline at end of file Index: sb-simd/TODO diff -u sb-simd/TODO:1.1.1.1 sb-simd/TODO:1.2 --- sb-simd/TODO:1.1.1.1 Fri Aug 5 15:13:29 2005 +++ sb-simd/TODO Fri Aug 12 13:55:39 2005 @@ -1,20 +1 @@ -operations from AMD manual: - - -sign: - -andps xmm0, #x8000 0000 8000 0000 .. - -neg: - -xorps xmm0, #x8000 0000 8000 0000 .. - -abs: - -andps xmm0, #x7FFF FFFF 7FFF FFFF .. - -clear: - -xorps xmm0, xmm0 -

1 0

[sb-simd-cvs] CVS update: sb-simd/sbcl-src/src/compiler/x86/vm.lisp sb-simd/sbcl-src/src/compiler/x86/insts.lisp
by rlaakso＠common-lisp.net 12 Aug '05

12 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd/sbcl-src/src/compiler/x86 In directory common-lisp.net:/tmp/cvs-serv26463/sbcl-src/src/compiler/x86 Modified Files: vm.lisp insts.lisp Log Message: Date: Fri Aug 12 13:55:38 2005 Author: rlaakso Index: sb-simd/sbcl-src/src/compiler/x86/vm.lisp diff -u sb-simd/sbcl-src/src/compiler/x86/vm.lisp:1.1.1.1 sb-simd/sbcl-src/src/compiler/x86/vm.lisp:1.2 --- sb-simd/sbcl-src/src/compiler/x86/vm.lisp:1.1.1.1 Fri Aug 5 15:13:29 2005 +++ sb-simd/sbcl-src/src/compiler/x86/vm.lisp Fri Aug 12 13:55:38 2005 @@ -22,7 +22,7 @@ (defvar *word-register-names* (make-array 16 :initial-element nil)) (defvar *dword-register-names* (make-array 16 :initial-element nil)) (defvar *float-register-names* (make-array 8 :initial-element nil)) - (defvar *dqword-register-names* (make-array 8 :initial-element nil))) + (defvar *xmmword-register-names* (make-array 8 :initial-element nil))) (macrolet ((defreg (name offset size) (let ((offset-sym (symbolicate name "-OFFSET")) @@ -93,15 +93,15 @@ (defregset *float-regs* fr0 fr1 fr2 fr3 fr4 fr5 fr6 fr7) ;; sse registers - (defreg xmm0 0 :dqword) - (defreg xmm1 1 :dqword) - (defreg xmm2 2 :dqword) - (defreg xmm3 3 :dqword) - (defreg xmm4 4 :dqword) - (defreg xmm5 5 :dqword) - (defreg xmm6 6 :dqword) - (defreg xmm7 7 :dqword) - (defregset *sse-regs* xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7) + (defreg xmm0 0 :xmmword) + (defreg xmm1 1 :xmmword) + (defreg xmm2 2 :xmmword) + (defreg xmm3 3 :xmmword) + (defreg xmm4 4 :xmmword) + (defreg xmm5 5 :xmmword) + (defreg xmm6 6 :xmmword) + (defreg xmm7 7 :xmmword) + (defregset *xmm-regs* xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7) ;; registers used to pass arguments ;; @@ -130,7 +130,7 @@ ;;; the new way: (define-storage-base float-registers :finite :size 8) -(define-storage-base sse-registers :finite :size 8) +(define-storage-base xmm-registers :finite :size 8) (define-storage-base stack :unbounded :size 8) (define-storage-base constant :non-packed) @@ -334,8 +334,8 @@ :save-p t :alternate-scs (complex-long-stack)) - (sse-reg sse-registers - :locations #.*sse-regs*) + (xmm-reg xmm-registers + :locations #.*xmm-regs*) ;; a catch or unwind block (catch-block stack :element-size kludge-nondeterministic-catch-block-size)) @@ -353,7 +353,7 @@ ;;; These are used to (at least) determine operand size. (defparameter *float-sc-names* '(single-reg)) (defparameter *double-sc-names* '(double-reg double-stack)) -(defparameter *dqword-sc-names* '(sse-reg)) +(defparameter *xmmword-sc-names* '(xmm-reg)) ) ; EVAL-WHEN ;;;; miscellaneous TNs for the various registers @@ -461,7 +461,7 @@ ;; FIXME: Shouldn't this be an ERROR? (format nil "<unknown reg: off=~W, sc=~A>" offset sc-name)))) (float-registers (format nil "FR~D" offset)) - (sse-registers (format nil "XMM~D" offset)) + (xmm-registers (format nil "XMM~D" offset)) (stack (format nil "S~D" offset)) (constant (format nil "Const~D" offset)) (immediate-constant "Immed") Index: sb-simd/sbcl-src/src/compiler/x86/insts.lisp diff -u sb-simd/sbcl-src/src/compiler/x86/insts.lisp:1.2 sb-simd/sbcl-src/src/compiler/x86/insts.lisp:1.3 --- sb-simd/sbcl-src/src/compiler/x86/insts.lisp:1.2 Mon Aug 8 15:33:23 2005 +++ sb-simd/sbcl-src/src/compiler/x86/insts.lisp Fri Aug 12 13:55:38 2005 @@ -39,13 +39,16 @@ #(ax cx dx bx sp bp si di)) (defparameter *dword-reg-names* #(eax ecx edx ebx esp ebp esi edi)) +(defparameter *xmmword-reg-names* + #(xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7)) (defun print-reg-with-width (value width stream dstate) (declare (ignore dstate)) (princ (aref (ecase width (:byte *byte-reg-names*) (:word *word-reg-names*) - (:dword *dword-reg-names*)) + (:dword *dword-reg-names*) + (:xmmword *xmmword-reg-names*)) value) stream) ;; XXX plus should do some source-var notes @@ -193,7 +196,7 @@ (:word 16) (:dword 32) (:qword 64) - (:dqword 128) + (:xmmword 128) (:float 32) (:double 64))) @@ -680,7 +683,7 @@ (defstruct (ea (:constructor make-ea (size &key base index scale disp)) (:copier nil)) - (size nil :type (member :byte :word :dword)) + (size nil :type (member :byte :word :dword :xmmword)) (base nil :type (or tn null)) (index nil :type (or tn null)) (scale 1 :type (member 1 2 4 8)) @@ -720,7 +723,7 @@ (ecase (sb-name (sc-sb (tn-sc thing))) (registers (emit-mod-reg-r/m-byte segment #b11 reg (reg-tn-encoding thing))) - (sse-registers + (xmm-registers (emit-mod-reg-r/m-byte segment #b11 reg (reg-tn-encoding thing))) (stack ;; Convert stack tns into an index off of EBP. @@ -834,9 +837,18 @@ (and (tn-p thing) (eq (sb-name (sc-sb (tn-sc thing))) 'registers))) -(defun sse-register-p (thing) +(defun xmm-register-p (thing) (and (tn-p thing) - (eq (sb-name (sc-sb (tn-sc thing))) 'sse-registers))) + (eq (sb-name (sc-sb (tn-sc thing))) 'xmm-registers) + (member (sc-name (tn-sc thing)) *xmmword-sc-names*) + t)) + +(defun xmm-ea-p (thing) + (typecase thing + (ea (eq (ea-size thing) :xmmword)) + (tn + (and (member (sc-name (tn-sc thing)) *xmmword-sc-names*) t)) + (t nil))) (defun accumulator-p (thing) (and (register-p thing) @@ -867,6 +879,8 @@ :float) (#.*double-sc-names* :double) + (#.*xmmword-sc-names* + :xmmword) (t (error "can't tell the size of ~S ~S" thing (sc-name (tn-sc thing)))))) (ea @@ -3210,7 +3224,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 40) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 102) @@ -3222,7 +3236,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 40) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 15) @@ -3233,7 +3247,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 110) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 102) @@ -3245,7 +3259,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 111) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 102) @@ -3257,7 +3271,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 111) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 243) @@ -3269,7 +3283,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 22) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 102) @@ -3281,7 +3295,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 22) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 15) @@ -3292,7 +3306,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 18) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 102) @@ -3304,7 +3318,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 18) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 15) @@ -3315,7 +3329,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 126) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 102) @@ -3327,7 +3341,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 242) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 242) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 16) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 242) @@ -3339,7 +3353,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 243) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 16) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 243) @@ -3351,7 +3365,7 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 102) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 16) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 102) @@ -3363,12 +3377,92 @@ (SEGMENT DST SRC) (:EMITTER (COND - ((SSE-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) + ((XMM-REGISTER-P DST) (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 16) (EMIT-EA SEGMENT SRC (REG-TN-ENCODING DST))) (T (EMIT-BYTE SEGMENT 15) (EMIT-BYTE SEGMENT 17) (EMIT-EA SEGMENT DST (REG-TN-ENCODING SRC)))))) + +(DEFINE-INSTRUCTION PSLLD-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 114) + (EMIT-EA SEGMENT DST 6) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSLLDQ-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 115) + (EMIT-EA SEGMENT DST 7) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSLLQ-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 115) + (EMIT-EA SEGMENT DST 6) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSLLW-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 113) + (EMIT-EA SEGMENT DST 6) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSRAD-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 114) + (EMIT-EA SEGMENT DST 4) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSRAW-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 113) + (EMIT-EA SEGMENT DST 4) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSRLD-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 114) + (EMIT-EA SEGMENT DST 2) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSRLDQ-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 115) + (EMIT-EA SEGMENT DST 3) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSRLQ-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 115) + (EMIT-EA SEGMENT DST 2) + (EMIT-BYTE SEGMENT AMOUNT))) + +(DEFINE-INSTRUCTION PSRLW-IB + (SEGMENT DST AMOUNT) + (:EMITTER (EMIT-BYTE SEGMENT 102) + (EMIT-BYTE SEGMENT 15) + (EMIT-BYTE SEGMENT 113) + (EMIT-EA SEGMENT DST 2) + (EMIT-BYTE SEGMENT AMOUNT)))

1 0

[sb-simd-cvs] CVS update: sb-simd/sb-simd.asd sb-simd/detect-simd.lisp sb-simd/load.lisp
by rlaakso＠common-lisp.net 09 Aug '05

09 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd In directory common-lisp.net:/tmp/cvs-serv15252 Modified Files: load.lisp Added Files: sb-simd.asd detect-simd.lisp Log Message: Date: Tue Aug 9 19:18:16 2005 Author: rlaakso Index: sb-simd/load.lisp diff -u sb-simd/load.lisp:1.2 sb-simd/load.lisp:1.3 --- sb-simd/load.lisp:1.2 Tue Aug 9 11:45:36 2005 +++ sb-simd/load.lisp Tue Aug 9 19:18:15 2005 @@ -4,11 +4,16 @@ (load (compile-file "example-test.lisp")) )) -(if t +(if nil (progn (load (compile-file "sse-matrix.lisp")) (load (compile-file "timing.lisp")) (load (compile-file "test-matrix.lisp")) )) +(if t + (progn + (load (compile-file "detect-simd.lisp")) + (load (compile-file "push-simd-features.lisp")) + ))

1 0

[sb-simd-cvs] CVS update: sb-simd/timing.lisp sb-simd/test-matrix.lisp sb-simd/sse-matrix.lisp sb-simd/load.lisp
by rlaakso＠common-lisp.net 09 Aug '05

09 Aug '05

Update of /project/sb-simd/cvsroot/sb-simd In directory common-lisp.net:/tmp/cvs-serv15516 Modified Files: load.lisp Added Files: timing.lisp test-matrix.lisp sse-matrix.lisp Log Message: .. Date: Tue Aug 9 11:45:37 2005 Author: rlaakso Index: sb-simd/load.lisp diff -u sb-simd/load.lisp:1.1 sb-simd/load.lisp:1.2 --- sb-simd/load.lisp:1.1 Mon Aug 8 17:56:01 2005 +++ sb-simd/load.lisp Tue Aug 9 11:45:36 2005 @@ -1,6 +1,14 @@ -(if t +(if nil (progn (load (compile-file "sse-vops.lisp")) (load (compile-file "example-test.lisp")) )) + +(if t + (progn + (load (compile-file "sse-matrix.lisp")) + (load (compile-file "timing.lisp")) + (load (compile-file "test-matrix.lisp")) + )) +

1 0