From 2be576e253090f22b503cc40a0700397aa668d3f Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Tue, 4 Nov 1997 15:39:36 +0000 Subject: [PATCH] On the x86 port, place code objects in the dynamic space when *enable-dynamic-space-code* is true, otherwise they are placed in the static space. --- compiler/generic/core.lisp | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/compiler/generic/core.lisp b/compiler/generic/core.lisp index 49eae548f..d4a6d33de 100644 --- a/compiler/generic/core.lisp +++ b/compiler/generic/core.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.35 1997/08/23 16:00:06 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.36 1997/11/04 15:39:36 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -161,7 +161,15 @@ (trace-table-bits (* trace-table-len tt-bits-per-entry)) (total-length (+ length (ceiling trace-table-bits vm:byte-bits))) (box-num (- (length constants) vm:code-trace-table-offset-slot)) - (code-obj (%primitive allocate-code-object box-num total-length)) + #+x86 + (code-obj + (if (and (boundp lisp::*enable-dynamic-space-code*) + lisp::*enable-dynamic-space-code*) + (%primitive allocate-dynamic-code-object box-num total-length) + (%primitive allocate-code-object box-num total-length))) + #-x86 + (code-obj + (%primitive allocate-code-object box-num total-length)) (fill-ptr (code-instructions code-obj))) (declare (type index box-num total-length)) -- GitLab