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 @@ ...@@ -290,20 +290,19 @@
;;;; Alien allocation: ;;;; 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 ;;; In order to improve memory locality static alien values are allocated
;;; contiguously in a pre-validated area at the beginning of system space. We ;;; contiguously in a pre-validated area at the beginning of system space. We
;;; keep a free pointer to the next word we can allocate. ;;; keep a free pointer to the next word we can allocate.
;;; ;;;
#+new-compiler
(defparameter system-space-start (int-sap #x80000000) (defparameter system-space-start (int-sap #x80000000)
"The address of the first statically allocated alien.") "The address of the first statically allocated alien.")
#+new-compiler
(defparameter alien-allocation-end (int-sap #x8fffffff) (defparameter alien-allocation-end (int-sap #x8fffffff)
"The end of statically allocated aliens.") "The end of statically allocated aliens.")
#+new-compiler
(defvar *current-alien-free-pointer* system-space-start (defvar *current-alien-free-pointer* system-space-start
"The next word in system space for static alien allocation.") "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