diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp index 5ed09c803c6e6e407c85371d2b67ceef9b9ea0bd..6981e33cf722f8efeee7d56febd1c8c66b4e86bc 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.13 1998/01/21 05:10:19 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.14 1998/01/21 10:10:06 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -142,7 +142,7 @@ :offset (tn-offset x))) (defun complex-double-reg-imag-tn (x) (make-random-tn :kind :normal :sc (sc-or-lose 'double-reg *backend*) - :offset (1+ (tn-offset x)))) + :offset (+ (tn-offset x) 2))) (define-move-function (load-complex-single 2) (vop x y) diff --git a/compiler/sparc/vm.lisp b/compiler/sparc/vm.lisp index 8b9e47c918fe9cf0d9bbff70b0d2dded518eb3d7..bd7c965c003df0f52858fe4e3fcd22423795d960 100644 --- a/compiler/sparc/vm.lisp +++ b/compiler/sparc/vm.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/vm.lisp,v 1.8 1998/01/21 05:10:17 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/vm.lisp,v 1.9 1998/01/21 10:10:05 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -149,10 +149,11 @@ (double-stack non-descriptor-stack :element-size 2 :alignment 2) ; double floats. #+complex-float - (complex-single-stack stack :element-size 2) ; complex-single-floats + ;; complex-single-floats + (complex-single-stack non-descriptor-stack :element-size 2) #+complex-float - (complex-double-stack stack - :element-size 4 :alignment 2) ; complex-double-floats. + ;; complex-double-floats. + (complex-double-stack non-descriptor-stack :element-size 4 :alignment 2) ;; **** Things that can go in the integer registers.