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
|