diff --git a/compiler/ppc/float.lisp b/compiler/ppc/float.lisp index e883e559e38cec8011474c2b4b4ce1d8b339af9b..1b0a8d47ebdaba3b1c509dba2a03159b0eb2984c 100644 --- a/compiler/ppc/float.lisp +++ b/compiler/ppc/float.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/float.lisp,v 1.6 2006/06/30 18:41:24 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/float.lisp,v 1.7 2006/07/01 13:52:48 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -507,6 +507,10 @@ (let ((imag-tn (complex-double-double-reg-imag-lo-tn x))) (inst stfd imag-tn nfp (+ offset (* 6 word-bytes))))))))) +#+double-double +(define-move-vop move-complex-double-double-float-argument :move-argument + (complex-double-double-reg descriptor-reg) (complex-double-double-reg)) + #+long-float (define-move-vop move-complex-long-float-argument :move-argument (complex-long-reg descriptor-reg) (complex-long-reg)) diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp index e8fa21a7212fc1b12fbbf0311ef50d8eb9203407..a0ce9770c1320c17979420704cb7ca572328df94 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.45 2006/06/30 18:41:32 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.46 2006/07/01 13:52:48 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -717,6 +717,10 @@ (let ((imag-tn (complex-long-reg-imag-tn x))) (store-long-reg imag-tn nfp (+ offset (* 4 word-bytes))))))))) +#+long-float +(define-move-vop move-complex-long-float-argument :move-argument + (complex-long-reg descriptor-reg) (complex-long-reg)) + #+double-double (define-vop (move-complex-double-double-float-argument) (:args (x :scs (complex-double-double-reg) :target y) @@ -749,10 +753,10 @@ (store-long-reg imag-tn nfp (+ offset (* 4 word-bytes)))) (let ((imag-tn (complex-double-double-reg-imag-lo-tn x))) (store-long-reg imag-tn nfp (+ offset (* 6 word-bytes))))))))) -#+long-float -(define-move-vop move-complex-long-float-argument :move-argument - (complex-long-reg descriptor-reg) (complex-long-reg)) +#+double-double +(define-move-vop move-complex-double-double-float-argument :move-argument + (complex-double-double-reg descriptor-reg) (complex-double-double-reg)) (define-move-vop move-argument :move-argument (single-reg double-reg #+long-float long-reg #+double-double double-double-reg diff --git a/compiler/x86/float.lisp b/compiler/x86/float.lisp index e4e2515cf8f4d9b1a5186d21aef6747e842023b2..3f129c8960604135dea534b2444e043aa854b680 100644 --- a/compiler/x86/float.lisp +++ b/compiler/x86/float.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.42 2006/06/30 18:41:32 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.43 2006/07/01 13:52:48 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -653,7 +653,7 @@ (:args (x :scs (complex-double-double-reg) :to :save)) (:results (y :scs (descriptor-reg))) (:node-var node) - (:note "complex double float to pointer coercion") + (:note "complex double-double float to pointer coercion") (:generator 13 (with-fixed-allocation (y vm::complex-double-double-float-type vm::complex-double-double-float-size node) @@ -905,6 +905,10 @@ (inst fxch imag-tn)))) )) +#+double-double +(define-move-vop move-complex-double-double-float-argument :move-argument + (complex-double-double-reg descriptor-reg) (complex-double-double-reg)) + (define-move-vop move-argument :move-argument (single-reg double-reg #+long-float long-reg #+double-double double-double-reg