diff --git a/compiler/alpha/float.lisp b/compiler/alpha/float.lisp index b816c11cc20388e0206adbaaa97303fb9c92f060..5bcc3f6be363f606316d53d6785d9acdcf9d664e 100644 --- a/compiler/alpha/float.lisp +++ b/compiler/alpha/float.lisp @@ -6,7 +6,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/float.lisp,v 1.8 1998/03/04 15:00:30 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/float.lisp,v 1.9 1998/03/04 16:41:55 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -296,7 +296,7 @@ vm:other-pointer-type) x)))) (define-move-vop move-to-complex-single :move - (descriptor-reg) (complex-single-reg))))) + (descriptor-reg) (complex-single-reg)) (define-vop (move-to-complex-double) (:args (x :scs (descriptor-reg))) @@ -312,7 +312,7 @@ vm:other-pointer-type) x)))) (define-move-vop move-to-complex-double :move - (descriptor-reg) (complex-double-reg))))) + (descriptor-reg) (complex-double-reg)) ;;; ;;; Complex float move-argument vop @@ -339,7 +339,7 @@ (let ((imag-tn (complex-single-reg-imag-tn x))) (inst sts imag-tn (+ offset world-bytes) nfp))))))) (define-move-vop move-complex-single-float-argument :move-argument - (complex-single-reg descriptor-reg) (complex-single-reg))))) + (complex-single-reg descriptor-reg) (complex-single-reg)) (define-vop (move-complex-double-float-argument) (:args (x :scs (complex-double-reg) :target y) @@ -363,7 +363,7 @@ (let ((imag-tn (complex-double-reg-imag-tn x))) (inst stt imag-tn (+ offset (* 2 word-bytes)) nfp))))))) (define-move-vop move-complex-double-float-argument :move-argument - (complex-double-reg descriptor-reg) (complex-double-reg))))) + (complex-double-reg descriptor-reg) (complex-double-reg)) ) ; progn complex-float diff --git a/compiler/hppa/float.lisp b/compiler/hppa/float.lisp index 37bee9076d218f14c8e23b2ec6b767eaa9e795fe..ac6720240e2961b4467c45554fefcd9a34a260bb 100644 --- a/compiler/hppa/float.lisp +++ b/compiler/hppa/float.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/float.lisp,v 1.5 1998/03/04 15:11:37 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/float.lisp,v 1.6 1998/03/04 16:42:00 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -330,7 +330,7 @@ (str-float imag-tn (+ offset word-bytes) nfp))))))) ;;; (define-move-vop move-complex-single-float-argument :move-argument - (complex-single-reg descriptor-reg) (complex-single-reg))))) + (complex-single-reg descriptor-reg) (complex-single-reg)) (define-vop (move-complex-double-float-argument) (:args (x :scs (complex-double-reg) :target y) @@ -355,7 +355,7 @@ (str-float imag-tn (+ offset (* 2 word-bytes)) nfp))))))) ;;; (define-move-vop move-complex-double-float-argument :move-argument - (complex-double-reg descriptor-reg) (complex-double-reg))))) + (complex-double-reg descriptor-reg) (complex-double-reg)) ) ; end progn complex-float diff --git a/compiler/mips/float.lisp b/compiler/mips/float.lisp index e55edc550c3a7debdf7347ad3df8669820929293..e8482aadc127dcc64284e6c5ec8ea4fa36a2e821 100644 --- a/compiler/mips/float.lisp +++ b/compiler/mips/float.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.22 1998/03/04 15:08:48 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.23 1998/03/04 16:41:58 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -372,7 +372,7 @@ (let ((imag-tn (complex-single-reg-imag-tn x))) (inst stc1 imag-tn nfp (+ offset word-bytes)))))))) (define-move-vop move-complex-single-float-argument :move-argument - (complex-single-reg descriptor-reg) (complex-single-reg))))) + (complex-single-reg descriptor-reg) (complex-single-reg)) (define-vop (move-complex-double-float-argument) (:args (x :scs (complex-double-reg) :target y) @@ -396,7 +396,7 @@ (let ((imag-tn (complex-double-reg-imag-tn x))) (str-double imag-tn nfp (+ offset (* 2 word-bytes))))))))) (define-move-vop move-complex-double-float-argument :move-argument - (complex-double-reg descriptor-reg) (complex-double-reg))))) + (complex-double-reg descriptor-reg) (complex-double-reg)) ) ; progn complex-float diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp index 09616ae2aebba886eb6ed0ae48bd68de203e9678..dea1aa8207c59f05daac64d7a8675f99136a01d6 100644 --- a/compiler/sparc/float.lisp +++ b/compiler/sparc/float.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.17 1998/03/04 15:00:28 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.18 1998/03/04 16:41:53 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -323,7 +323,7 @@ (let ((imag-tn (complex-double-reg-imag-tn x))) (inst stf imag-tn nfp (+ offset word-bytes)))))))) (define-move-vop move-complex-single-float-argument :move-argument - (complex-single-reg descriptor-reg) (complex-single-reg))))) + (complex-single-reg descriptor-reg) (complex-single-reg)) (define-vop (move-complex-double-float-argument) (:args (x :scs (complex-double-reg) :target y) @@ -349,7 +349,7 @@ (let ((imag-tn (complex-double-reg-imag-tn x))) (inst stdf imag-tn nfp (+ offset (* 2 word-bytes))))))))) (define-move-vop move-complex-double-float-argument :move-argument - (complex-double-reg descriptor-reg) (complex-double-reg))))) + (complex-double-reg descriptor-reg) (complex-double-reg)) ) ; progn complex-float