Skip to content
Snippets Groups Projects
Commit 924891a0 authored by ram's avatar ram
Browse files

Initialize byte "trace table" to NIL so we can push byte functions into it.

parent 8799984f
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.26 1993/08/25 17:04:53 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.27 1993/08/31 07:41:17 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -221,6 +221,8 @@ ...@@ -221,6 +221,8 @@
(* amount vm:byte-bits)) (* amount vm:byte-bits))
(setf fill-ptr (sap+ fill-ptr amount)))) (setf fill-ptr (sap+ fill-ptr amount))))
(setf (code-header-ref code-obj vm:code-trace-table-offset-slot)
nil)
(dolist (noise xeps) (dolist (noise xeps)
(let ((xep (cdr noise))) (let ((xep (cdr noise)))
(setf (byte-function-component xep) code-obj) (setf (byte-function-component xep) code-obj)
......
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