diff --git a/compiler/mips/call.lisp b/compiler/mips/call.lisp index 618d0a049494f932d4d80e7bd5e2e2add9d240b1..4d28267f760ec02227e776b3911af5befc8b2021 100644 --- a/compiler/mips/call.lisp +++ b/compiler/mips/call.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/mips/call.lisp,v 1.59 1993/05/27 01:33:30 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.60 1993/05/27 01:48:05 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -805,7 +805,7 @@ default-value-8 word-shift))))) (:load-return-pc (sc-case return-pc - (descriptor-reg + (#-gengc descriptor-reg #+gengc any-reg (inst move return-pc-pass return-pc)) (control-stack (inst lw return-pc-pass cfp-tn