Raymond Toy pushed to branch issue-69-compile-in-gc-assert at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/code/gc.lisp
    ... ... @@ -117,7 +117,7 @@
    117 117
     "
    
    118 118
         (declare (type (and fixnum unsigned-byte) assert-level)
    
    119 119
     	     (type boolean verify-after-free-heap)
    
    120
    -	     (type (integer 0 6) verify-generation)
    
    120
    +	     (type (integer 0 6) verify-generations)
    
    121 121
     	     (type boolean verify-new-objects))
    
    122 122
         (when assert-level-p
    
    123 123
           (setf gc-assert-level assert-level))
    

  • src/lisp/gencgc.c
    ... ... @@ -4813,12 +4813,12 @@ scav_hash_vector(lispobj * where, lispobj object)
    4813 4813
         if (gc_assert_level > 0) {
    
    4814 4814
             /*
    
    4815 4815
              * Check to see that hash-table-rehash-threshold is a single
    
    4816
    -         * float in the range [0.1, 1]
    
    4816
    +         * float in the range (0, 1]
    
    4817 4817
              */
    
    4818 4818
             lispobj threshold_obj = (lispobj) hash_table->rehash_threshold;
    
    4819 4819
             struct single_float* float_slot = (struct single_float*) PTR(threshold_obj);
    
    4820 4820
             float threshold = float_slot->value;
    
    4821
    -        gc_assert(threshold >= 0.1 && threshold <= 1);
    
    4821
    +        gc_assert(threshold > 0 && threshold <= 1);
    
    4822 4822
         }
    
    4823 4823
         
    
    4824 4824
         scavenge((lispobj *) hash_table, HASH_TABLE_SIZE);