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