From 3e40636924af1b204663c8b135512ab1bced517a Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 18 May 1992 19:54:03 +0000 Subject: [PATCH] Need a NOP in READ-CONTROL-STACK. --- compiler/mips/debug.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/compiler/mips/debug.lisp b/compiler/mips/debug.lisp index ada697c67..21b98d1c9 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) -- GitLab