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