From 41ed943c7ccbd994847c941fe6c04dea81de544c Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 29 Nov 1997 16:11:32 +0000 Subject: [PATCH] Have make-bogus-lra allocate these code objects in the static space under CGC; fixes function end breakpoints, and function tracing should be able to get the return values. --- code/debug-int.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 0274b12f2..ebd3819ad 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.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/code/debug-int.lisp,v 1.77 1997/11/25 16:18:44 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.78 1997/11/29 16:11:32 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -4240,9 +4240,12 @@ (trap-loc (system:foreign-symbol-address "function_end_breakpoint_trap")) (length (system:sap- src-end src-start)) - (code-object (system:%primitive #-x86 c:allocate-code-object #+x86 c::allocate-dynamic-code-object - (1+ bogus-lra-constants) - length)) + (code-object + (system:%primitive + #-(and x86 gencgc) c:allocate-code-object + #+(and x86 gencgc) c::allocate-dynamic-code-object + (1+ bogus-lra-constants) + length)) (dst-start (kernel:code-instructions code-object))) (declare (type system:system-area-pointer src-start src-end dst-start trap-loc) -- GitLab