From ca6e6104799f3e074f02574404eb1537f71e31d9 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 27 Mar 2007 16:45:09 +0000
Subject: [PATCH] Get the lifetime right for the lo arg to the vop
 MAKE/DOUBLE-DOUBLE-FLOAT.

---
 compiler/sparc/float.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index 3f567217e..b8e13f228 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.50 2007/03/27 14:13:04 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.51 2007/03/27 16:45:09 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3059,10 +3059,10 @@
 
 
 (define-vop (make/double-double-float)
-  (:args (hi :scs (double-reg)
+  (:args (hi :scs (double-reg) :target res
 	     :load-if (not (location= hi res)))
-	 (lo :scs (double-reg)))
-  (:results (res :scs (double-double-reg)
+	 (lo :scs (double-reg) :to :save))
+  (:results (res :scs (double-double-reg) :from (:argument 0)
 		 :load-if (not (sc-is res double-double-stack))))
   (:arg-types double-float double-float)
   (:result-types double-double-float)
-- 
GitLab