Raymond Toy pushed to branch issue-243-weak-pointer-to-static-array at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/gencgc.c
    ... ... @@ -5597,6 +5597,7 @@ scan_static_vectors(struct weak_pointer *static_vector_list)
    5597 5597
          * For each weak pointer, add it either the inuse list or the
    
    5598 5598
          * freeable list.
    
    5599 5599
          */
    
    5600
    +    inuse_static_vector_list = NULL;
    
    5600 5601
         scan_static_vectors_2(static_vector_list, &freeable_list, &inuse_static_vector_list);
    
    5601 5602
     
    
    5602 5603
         /* Free the unused unique static vectors. */
    
    ... ... @@ -8249,8 +8250,6 @@ collect_garbage(unsigned last_gen)
    8249 8250
         int gen_to_wp;
    
    8250 8251
         int i;
    
    8251 8252
     
    
    8252
    -    inuse_static_vectors_lisit = NULL;
    
    8253
    -
    
    8254 8253
         boxed_region.free_pointer = (void *) get_current_region_free();
    
    8255 8254
     
    
    8256 8255
         /* Check last_gen */