diff --git a/compiler/rt/mc68881.lisp b/compiler/rt/mc68881.lisp index 5e30d33b82dfbb9203e6f4e56fb89066a1b83245..e8f93fee5b6c74c4dee03b6c1c19e9c2ac1c842a 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))