Raymond Toy pushed to branch issue-69-compile-in-gc-assert at cmucl / cmucl
Commits:
2 changed files:
Changes:
... | ... | @@ -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))
|
... | ... | @@ -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);
|