Raymond Toy pushed to branch issue-69-compile-in-gc-assert at cmucl / cmucl
Commits:
-
51857521
by Raymond Toy at 2018-09-22T17:21:47Z
2 changed files:
Changes:
... | ... | @@ -1566,6 +1566,10 @@ |
1566 | 1566 |
"*TRUST-DYNAMIC-EXTENT-DECLARATIONS*"
|
1567 | 1567 |
|
1568 | 1568 |
"INVALID-FASL")
|
1569 |
+ ;; gencgc features
|
|
1570 |
+ #+gencgc
|
|
1571 |
+ (:export "GET-GC-ASSERTIONS"
|
|
1572 |
+ "SET-GC-ASSERTIONS")
|
|
1569 | 1573 |
|
1570 | 1574 |
;; run-program
|
1571 | 1575 |
(:export "RUN-PROGRAM" "PROCESS-ALIVE-P" "PROCESS-CLOSE"
|
... | ... | @@ -22,7 +22,9 @@ |
22 | 22 |
*bytes-consed-between-gcs* *gc-verbose* *gc-inhibit-hook*
|
23 | 23 |
*gc-notify-before* *gc-notify-after* get-bytes-consed
|
24 | 24 |
*gc-run-time* bytes-consed-between-gcs
|
25 |
- get-bytes-consed-dfixnum))
|
|
25 |
+ get-bytes-consed-dfixnum
|
|
26 |
+ get-gc-assertions
|
|
27 |
+ set-gc-assertions))
|
|
26 | 28 |
|
27 | 29 |
(in-package "LISP")
|
28 | 30 |
(export '(room))
|
... | ... | @@ -99,7 +101,7 @@ |
99 | 101 |
(verify-generations 6 verify-generations-p)
|
100 | 102 |
(verify-new-objects nil verify-new-objects-p))
|
101 | 103 |
"Set GC assertion to the specified value:
|
102 |
- :ASSERT-LEVEL-
|
|
104 |
+ :ASSERT-LEVEL
|
|
103 | 105 |
Defaults to 0, higher values indicate more assertions are enabled.
|
104 | 106 |
|
105 | 107 |
:VERIFY-AFTER-FREE-HEAP
|