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

Put #+new-compiler in front of defparameters for system-space-start and

alien-allocation-end so that we don't trash them.
parent 485da99b
No related branches found
No related tags found
No related merge requests found
......@@ -290,20 +290,19 @@
;;;; Alien allocation:
(eval-when (compile)
(dolist (x '(system-space-start alien-allocation-end))
(remprop x 'lisp::%constant)))
;;; In order to improve memory locality static alien values are allocated
;;; contiguously in a pre-validated area at the beginning of system space. We
;;; keep a free pointer to the next word we can allocate.
;;;
#+new-compiler
(defparameter system-space-start (int-sap #x80000000)
"The address of the first statically allocated alien.")
#+new-compiler
(defparameter alien-allocation-end (int-sap #x8fffffff)
"The end of statically allocated aliens.")
#+new-compiler
(defvar *current-alien-free-pointer* system-space-start
"The next word in system space for static alien allocation.")
......
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