[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: ctu:find-code-constants: ignore zeros.
From:       stassats via Sbcl-commits <sbcl-commits () lists ! sourceforge ! net>
Date:       2020-02-22 15:21:53
Message-ID: 1582384914.34761.1944 () sfp-scm-5 ! v30 ! lw ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  2e0747f1072f0e4004bae5df39d8a4d44b855d8c (commit)
      from  f675bbdb9b7fdfc04fa25251bbf6ec6bc9c1f53a (commit)

- Log -----------------------------------------------------------------
commit 2e0747f1072f0e4004bae5df39d8a4d44b855d8c
Author: Stas Boukarev <stassats@gmail.com>
Date:   Sat Feb 22 18:20:44 2020 +0300

    ctu:find-code-constants: ignore zeros.
    
    On -x86oids the constants area is padded with zeros.
---
 tests/compiler-test-util.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/compiler-test-util.lisp b/tests/compiler-test-util.lisp
index 2c5c14740..13613c6e0 100644
--- a/tests/compiler-test-util.lisp
+++ b/tests/compiler-test-util.lisp
@@ -63,7 +63,8 @@
           for value = (if (= (widetag-of c) sb-vm:value-cell-widetag)
                           (value-cell-ref c)
                           c)
-          when (typep value type)
+          when (and (not (eql value 0)) ;; alignment zeros
+                    (typep value type))
           collect value)))
 
 (defun collect-consing-stats (thunk times)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL


_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]