Skip to content
Snippets Groups Projects
Commit d9b236d0 authored by wlott's avatar wlott
Browse files

Added :constants argument to purify. It gets stuck in read-only space.

parent d48b2a13
No related branches found
No related tags found
No related merge requests found
......@@ -24,14 +24,16 @@
(in-package 'lisp)
(def-c-routine ("purify" %purify) (int)
(roots unsigned-long))
(def-c-routine ("purify" %purify) (void)
(static-roots unsigned-long)
(read-only-roots unsigned-long))
(defun purify (&key root-structures)
(defun purify (&key root-structures constants)
(write-string "[Doing purification: ")
(force-output)
(without-gcing
(%purify (di::get-lisp-obj-address root-structures)))
(%purify (di::get-lisp-obj-address root-structures)
(di::get-lisp-obj-address constants)))
(write-line "Done.]")
(force-output)
nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment