From 175f390470effba8f6c5c8bf58125a3792cf5ad0 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Tue, 21 Aug 2007 06:15:07 +0000 Subject: [PATCH] 1.0.8.45: Fix sb-sprof on non-x86oids * Patch by Pierre Mai --- NEWS | 2 ++ contrib/sb-sprof/sb-sprof.lisp | 1 + version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index cf05800..08610cb 100644 --- a/NEWS +++ b/NEWS @@ -36,6 +36,8 @@ changes in sbcl-1.0.9 relative to sbcl-1.0.8: * bug fix: EQUALP could return wrong results for structures with raw slots (slots with a :TYPE of SINGLE-FLOAT, DOUBLE-FLOAT, or a machine word). (reported by Vjacheslav Fyodorov) + * bug fix: sb-sprof sampling didn't work on non-x86oid platforms. (patch + by Pierre Mai) changes in sbcl-1.0.8 relative to sbcl-1.0.7: * enhancement: experimental macro SB-EXT:COMPARE-AND-SWAP provides diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp index d5a3678..b68c78b 100644 --- a/contrib/sb-sprof/sb-sprof.lisp +++ b/contrib/sb-sprof/sb-sprof.lisp @@ -556,6 +556,7 @@ on the depth of the call stack.") (sb-sys:without-gcing (with-alien ((scp (* os-context-t) :local scp)) (locally (declare (optimize (inhibit-warnings 2))) + (incf (samples-trace-count samples)) (record-trace-start samples) (let* ((pc-ptr (sb-vm:context-pc scp)) (fp (sb-vm::context-register scp #.sb-vm::cfp-offset)) diff --git a/version.lisp-expr b/version.lisp-expr index f92ff4b..f49acd8 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".) -"1.0.8.44" +"1.0.8.45" -- 1.7.10.4