From ba2e958087d35c7cb34c965ba61bb4821ca65bc8 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 28 Jul 2004 08:43:29 +0000 Subject: [PATCH] 0.8.13.8: Fix some backtrace problems for sparc. ... mips, alpha probably still broken. --- src/code/debug-int.lisp | 5 +++-- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 7134607..d58a2c2 100644 --- a/src/code/debug-int.lisp +++ b/src/code/debug-int.lisp @@ -1002,8 +1002,9 @@ register." ;; This conditional logic should probably go into ;; architecture specific files somehow. #!+ppc (sap-int (sb!vm::context-lr scp)) - #!-(or ppc) (- (sb!vm:context-register scp sb!vm::lra-offset) - sb!vm:other-pointer-lowtag)) + #!+sparc (+ (sb!vm:context-register scp sb!vm::lip-offset) 8) + #!-(or ppc sparc) (- (sb!vm:context-register scp sb!vm::lra-offset) + sb!vm:other-pointer-lowtag)) (code-header-len (* (get-header-data code) sb!vm:n-word-bytes))) (values (- return-machine-address diff --git a/version.lisp-expr b/version.lisp-expr index cac3b19..ce42859 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.8.13.7" +"0.8.13.8" -- 1.7.10.4