From d93c9ed29ae89dc53e4c35d3f1c4a707f520109b Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 3 Oct 1991 14:31:22 +0000
Subject: [PATCH] Added preference to move-argument VOPs.  In addition to being
 pessimal, it was confusing the lifetime checker.

---
 compiler/rt/mc68881.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/rt/mc68881.lisp b/compiler/rt/mc68881.lisp
index 5e30d33b8..e8f93fee5 100644
--- a/compiler/rt/mc68881.lisp
+++ b/compiler/rt/mc68881.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/rt/mc68881.lisp,v 1.8 1991/07/23 12:11:50 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.9 1991/10/03 14:31:22 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -173,7 +173,7 @@
     vm:double-float-value-slot))
 
 (define-vop (move-to-mc68881-argument)
-  (:args (x :scs (mc68881-single-reg mc68881-double-reg))
+  (:args (x :scs (mc68881-single-reg mc68881-double-reg) :target y)
 	 (nfp :scs (word-pointer-reg)
 	      :load-if (not (sc-is y mc68881-single-reg mc68881-double-reg))))
   (:results (y))
-- 
GitLab