Aesthetic tweaks
authorD Herring <dherring@at.tentpost.dot.com>
Sat, 26 Jan 2008 02:44:07 +0000 (25 21:44 -0500)
committerD Herring <dherring@at.tentpost.dot.com>
Thu, 31 Jan 2008 21:54:20 +0000 (31 16:54 -0500)
src/compiler/x86/float.lisp
src/compiler/x86/insts.lisp
src/compiler/x86/vm.lisp
version.lisp-expr

index 202bdc1..d5ac329 100644 (file)
 
 
 (defun ea-for-xmm-desc (tn)
-  (make-ea :xmmword :base tn 
-          :disp (- (* xmm-value-slot n-word-bytes) other-pointer-lowtag)))
+  (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))))
+  (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))
 (define-vop (%load-xmm-from-array/single-float)
     (:policy :fast-safe)
     (:args (src :scs (descriptor-reg))
-          (index :scs (unsigned-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)))))
+                (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)))
+           (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)))
+                (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))))
+              (unless (location= x y)
+                (inst movdqa y x))))
 
 (define-move-vop xmm-move :move (xmm-reg) (xmm-reg))
 
   (:results (y :scs (xmm-reg)))
   (:note "pointer to xmm coercion")
   (:generator 2
-             (inst movdqu y (ea-for-xmm-desc x))))
+              (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))))
+           (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)))))))
+              (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))
 
index 287e1f0..c879f24 100644 (file)
 \f
 
 ;;;; SSE instructions
-;;;; 
+;;;;
 ;;;; Automatically generated
 
 
index 61a762c..6896d1f 100644 (file)
   (defreg xmm6 6 :xmmword)
   (defreg xmm7 7 :xmmword)
   (defregset *xmm-regs* xmm0 xmm1 xmm2 xmm3 xmm4 xmm5 xmm6 xmm7)
-  
+
   ;; registers used to pass arguments
   ;;
   ;; the number of arguments/return values passed in registers
 
   ;; non-descriptor XMMs
   (xmm-reg xmm-registers
-          :locations #.*xmm-regs*
-          :save-p t
-          :alternate-scs (xmm-stack))
+           :locations #.*xmm-regs*
+           :save-p t
+           :alternate-scs (xmm-stack))
 
   ;; non-descriptor LONG-FLOATs
   #!+long-float
index cbeccb2..1129457 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.14"
+"1.0.14-simd"