From 6987ae7ad3e3ab62b45403fc0bd58ce9c73e2e92 Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Thu, 8 Sep 2005 08:21:34 +0000 Subject: [PATCH] We don't want to adjust pc-offset here, since it potentially misses a branch target. --- src/code/debug-int.lisp | 5 ----- version.lisp-expr | 2 +- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 9d1097f..733d269 100644 --- a/src/code/debug-int.lisp +++ b/src/code/debug-int.lisp @@ -947,11 +947,6 @@ (- (get-lisp-obj-address code) sb!vm:other-pointer-lowtag) code-header-len))) - ;; Check to see whether we were executing in a branch - ;; delay slot. - #!+(or pmax sgi) ; pmax only (and broken anyway) - (when (logbitp 31 (sb!alien:slot scp '%mips::sc-cause)) - (incf pc-offset sb!vm:n-word-bytes)) (let ((code-size (* (code-header-ref code sb!vm:code-code-size-slot) sb!vm:n-word-bytes))) diff --git a/version.lisp-expr b/version.lisp-expr index 904ea3e..9e3a38c 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.4.51" +"0.9.4.52" -- 1.7.10.4