[Sbcl-commits] master: Coalesce similar vectors pointed to by static objects

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  a7c88788026cb251fb0d4492ce370a7bafa80d41 (commit)
      from  814d92f86be91604226f806a8ce02f838f8c7950 (commit)

- Log -----------------------------------------------------------------
commit a7c88788026cb251fb0d4492ce370a7bafa80d41
Author: Douglas Katzman <do...@go...>
Date:   Tue Jun 6 15:29:46 2017 -0400

    Coalesce similar vectors pointed to by static objects
---
 src/runtime/gc-common.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index 33eb9e1..b86e3d6 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
@@ -2036,6 +2036,9 @@ void coalesce_similar_vectors()
 {
     struct hopscotch_table ht;
     hopscotch_create(&ht, HOPSCOTCH_VECTOR_HASH, 0, 1<<17, 0);
+    coalesce_range((lispobj*)STATIC_SPACE_START,
+                   (lispobj*)STATIC_SPACE_END,
+                   (uword_t)&ht);
 #ifdef LISP_FEATURE_IMMOBILE_SPACE
     coalesce_range((lispobj*)IMMOBILE_SPACE_START,
                    (lispobj*)SYMBOL(IMMOBILE_FIXEDOBJ_FREE_POINTER)->value,

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


hooks/post-receive
-- 
SBCL