diff --git a/compiler/mips/debug.lisp b/compiler/mips/debug.lisp index ada697c673c40705e82f7d789f2f49f95727be59..21b98d1c9773ac2c25571ea8477d99230eb0a95c 100644 --- a/compiler/mips/debug.lisp +++ b/compiler/mips/debug.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.11 1992/02/21 22:03:26 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.12 1992/05/18 19:54:03 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.11 1992/02/21 22:03:26 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.12 1992/05/18 19:54:03 ram Exp $ ;;; ;;; Compiler support for the new whizzy debugger. ;;; @@ -53,7 +53,8 @@ (inst lw result object (* (tn-value offset) vm:word-bytes))) ((any-reg) (inst addu sap object offset) - (inst lw result sap 0))))) + (inst lw result sap 0))) + (inst nop))) (define-vop (write-control-stack) (:translate %set-stack-ref)