diff --git a/compiler/x86/nlx.lisp b/compiler/x86/nlx.lisp index 8a716e2813b3ca9e44a0e015d54c6582c654b725..bd9266d5feb15e37df8e0c32df7085da452774af 100644 --- a/compiler/x86/nlx.lisp +++ b/compiler/x86/nlx.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/x86/nlx.lisp,v 1.12 1998/06/16 18:20:44 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.13 1999/12/04 16:06:08 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -152,7 +152,7 @@ (store-symbol-value block lisp::*current-catch-block*))) (define-vop (unlink-unwind-protect) - (:temporary (:sc unsigned-reg) block) + (:temporary (:sc unsigned-reg) block) (:policy :fast-safe) (:translate %unwind-protect-breakup) (:generator 17 diff --git a/compiler/x86/print.lisp b/compiler/x86/print.lisp index 35a9266d30569427bd3456812ecc41d74a575c03..899a5b5d566bbfc711ec027056086b9d634b14ea 100644 --- a/compiler/x86/print.lisp +++ b/compiler/x86/print.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/x86/print.lisp,v 1.3 1998/02/19 19:35:03 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/print.lisp,v 1.4 1999/12/04 16:06:08 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,8 +22,7 @@ (define-vop (print) (:args (object :scs (descriptor-reg any-reg))) (:temporary (:sc unsigned-reg :offset eax-offset :target result - :from :eval :to (:result 0)) - eax) + :from :eval :to :result) eax) (:results (result :scs (descriptor-reg))) (:save-p t) (:generator 100