From: Juho Snellman <jsnell@iki.fi>
Date: Sun, 14 Oct 2007 23:40:55 +0000 (+0000)
Subject: 1.0.10.46: Inline the local functions in MAYBE-REHASH
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b2a8ffe548795d682af3712fb6dc6307577d1bab;p=sbcl.git

1.0.10.46: Inline the local functions in MAYBE-REHASH

        * Fixes small hash-table speed regression introduced in
          1.0.10.14 (and hidden by the other improvements in that
          commit).
        * 15-30% speedup over .14 on common hash operations.
---

diff --git a/src/code/target-hash-table.lisp b/src/code/target-hash-table.lisp
index 06f62d2..f35ff7a 100644
--- a/src/code/target-hash-table.lisp
+++ b/src/code/target-hash-table.lisp
@@ -481,6 +481,7 @@ multiple threads accessing the same hash-table without locking."
                 (zerop (hash-table-next-free-kv hash-table))))
          (rehash-without-growing-p ()
            (hash-table-needs-rehash-p hash-table)))
+    (declare (inline rehash-p rehash-without-growing-p))
     (cond ((rehash-p)
            ;; Use recursive spinlocks since for weak tables the
            ;; spinlock has already been acquired. GC must be inhibited
diff --git a/version.lisp-expr b/version.lisp-expr
index e7ea859..2502575 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.10.45"
+"1.0.10.46"