From: Thiemo Seufer Date: Thu, 8 Sep 2005 08:21:34 +0000 (+0000) Subject: We don't want to adjust pc-offset here, since it potentially misses X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6987ae7ad3e3ab62b45403fc0bd58ce9c73e2e92;p=sbcl.git We don't want to adjust pc-offset here, since it potentially misses a branch target. --- 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"