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

Call VM:SANCTIFY-FOR-EXECUTION after creating code-components.

parent a3173edc
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.18 1992/08/03 12:44:38 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.19 1992/10/09 14:16:17 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -162,6 +162,8 @@ ...@@ -162,6 +162,8 @@
(dolist (entry (ir2-component-entries 2comp)) (dolist (entry (ir2-component-entries 2comp))
(make-function-entry entry code-obj object)) (make-function-entry entry code-obj object))
(vm:sanctify-for-execution code-obj)
(let ((info (debug-info-for-component component))) (let ((info (debug-info-for-component component)))
(push info (core-object-debug-info object)) (push info (core-object-debug-info object))
(setf (code-header-ref code-obj vm:code-debug-info-slot) info)) (setf (code-header-ref code-obj vm:code-debug-info-slot) info))
......
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