From: Juho Snellman <jsnell@iki.fi>
Date: Tue, 21 Aug 2007 06:15:07 +0000 (+0000)
Subject: 1.0.8.45: Fix sb-sprof on non-x86oids
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=175f390470effba8f6c5c8bf58125a3792cf5ad0;p=sbcl.git

1.0.8.45: Fix sb-sprof on non-x86oids

         * Patch by Pierre Mai
---

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"