Skip to content
Snippets Groups Projects
Commit 00a5b134 authored by rtoy's avatar rtoy
Browse files

The TN lifetime and targeting stuff appears to be broken for

MAKE/DOUBLE-DOUBLE-FLOAT, so turn it off.  Turn it off for
MAKE-COMPLEX-DOUBLE-DOUBLE-FLOAT and COMPLEX-DOUBLE-DOUBLE-FLOAT-VALUE
too, just in case.
parent d61a8a8b
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.48 2007/03/20 18:21:39 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.49 2007/03/26 16:36:43 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -3059,10 +3059,10 @@ ...@@ -3059,10 +3059,10 @@
(define-vop (make/double-double-float) (define-vop (make/double-double-float)
(:args (hi :scs (double-reg) :target res (:args (hi :scs (double-reg)
:load-if (not (location= hi res))) :load-if (not (location= hi res)))
(lo :scs (double-reg))) (lo :scs (double-reg)))
(:results (res :scs (double-double-reg) :from (:argument 0) (:results (res :scs (double-double-reg)
:load-if (not (sc-is res double-double-stack)))) :load-if (not (sc-is res double-double-stack))))
(:arg-types double-float double-float) (:arg-types double-float double-float)
(:result-types double-double-float) (:result-types double-double-float)
...@@ -3121,11 +3121,11 @@ ...@@ -3121,11 +3121,11 @@
(define-vop (make-complex-double-double-float) (define-vop (make-complex-double-double-float)
(:translate complex) (:translate complex)
(:args (real :scs (double-double-reg) :target r (:args (real :scs (double-double-reg)
:load-if (not (location= real r))) :load-if (not (location= real r)))
(imag :scs (double-double-reg) :to :save)) (imag :scs (double-double-reg) :to :save))
(:arg-types double-double-float double-double-float) (:arg-types double-double-float double-double-float)
(:results (r :scs (complex-double-double-reg) :from (:argument 0) (:results (r :scs (complex-double-double-reg)
:load-if (not (sc-is r complex-double-double-stack)))) :load-if (not (sc-is r complex-double-double-stack))))
(:result-types complex-double-double-float) (:result-types complex-double-double-float)
(:note "inline complex double-double float creation") (:note "inline complex double-double float creation")
...@@ -3159,7 +3159,7 @@ ...@@ -3159,7 +3159,7 @@
(inst stdf r-imag nfp (+ offset (* 6 vm:word-bytes))))))))) (inst stdf r-imag nfp (+ offset (* 6 vm:word-bytes)))))))))
(define-vop (complex-double-double-float-value) (define-vop (complex-double-double-float-value)
(:args (x :scs (complex-double-double-reg) :target r (:args (x :scs (complex-double-double-reg)
:load-if (not (sc-is x complex-double-double-stack)))) :load-if (not (sc-is x complex-double-double-stack))))
(:arg-types complex-double-double-float) (:arg-types complex-double-double-float)
(:results (r :scs (double-double-reg))) (:results (r :scs (double-double-reg)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment