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

Changed kernel:code-debug-info to kernel:%code-debug-info.

parent 0f0bed5f
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/code/debug-int.lisp,v 1.53 1992/12/13 15:46:07 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.54 1992/12/17 09:04:41 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1004,7 +1004,7 @@ ...@@ -1004,7 +1004,7 @@
0 0
nil))) nil)))
(find-escaped-frame caller)) (find-escaped-frame caller))
(if (eq (kernel:code-debug-info code) :bogus-lra) (if (eq (kernel:%code-debug-info code) :bogus-lra)
(let ((real-lra (kernel:code-header-ref code real-lra-slot))) (let ((real-lra (kernel:code-header-ref code real-lra-slot)))
(compute-calling-frame caller real-lra up-frame)) (compute-calling-frame caller real-lra up-frame))
(let ((d-fun (case code (let ((d-fun (case code
...@@ -1061,7 +1061,7 @@ ...@@ -1061,7 +1061,7 @@
(kernel:get-lisp-obj-address code) (kernel:get-lisp-obj-address code)
code-header-len))) code-header-len)))
(return (return
(if (eq (kernel:code-debug-info code) :bogus-lra) (if (eq (kernel:%code-debug-info code) :bogus-lra)
(let ((real-lra (kernel:code-header-ref code (let ((real-lra (kernel:code-header-ref code
real-lra-slot))) real-lra-slot)))
(values (kernel:lra-code-header real-lra) (values (kernel:lra-code-header real-lra)
...@@ -1103,7 +1103,7 @@ ...@@ -1103,7 +1103,7 @@
;;; the component, for function constants, and the c::compiled-debug-function. ;;; the component, for function constants, and the c::compiled-debug-function.
;;; ;;;
(defun debug-function-from-pc (component pc) (defun debug-function-from-pc (component pc)
(let ((info (kernel:code-debug-info component))) (let ((info (kernel:%code-debug-info component)))
(cond (cond
((not info) ((not info)
(debug-signal 'no-debug-info)) (debug-signal 'no-debug-info))
...@@ -1295,7 +1295,7 @@ ...@@ -1295,7 +1295,7 @@
(eq (c::compiled-debug-function-name x) name) (eq (c::compiled-debug-function-name x) name)
(eq (c::compiled-debug-function-kind x) nil))) (eq (c::compiled-debug-function-kind x) nil)))
(get-debug-info-function-map (get-debug-info-function-map
(kernel:code-debug-info component))))) (kernel:%code-debug-info component)))))
(if res (if res
(make-compiled-debug-function res component) (make-compiled-debug-function res component)
;; This used to be the non-interpreted branch, but William wrote it ;; This used to be the non-interpreted branch, but William wrote it
...@@ -1605,7 +1605,7 @@ ...@@ -1605,7 +1605,7 @@
;;; COMPILED-DEBUG-FUNCTION-DEBUG-INFO -- Internal. ;;; COMPILED-DEBUG-FUNCTION-DEBUG-INFO -- Internal.
;;; ;;;
(defun compiled-debug-function-debug-info (debug-fun) (defun compiled-debug-function-debug-info (debug-fun)
(kernel:code-debug-info (compiled-debug-function-component debug-fun))) (kernel:%code-debug-info (compiled-debug-function-component debug-fun)))
...@@ -3431,8 +3431,7 @@ ...@@ -3431,8 +3431,7 @@
(declare (type system:system-area-pointer (declare (type system:system-area-pointer
src-start src-end dst-start trap-loc) src-start src-end dst-start trap-loc)
(type kernel:index length)) (type kernel:index length))
(setf (kernel:code-header-ref code-object vm:code-debug-info-slot) (setf (kernel:%code-debug-info code-object) :bogus-lra)
:bogus-lra)
(setf (kernel:code-header-ref code-object vm:code-trace-table-offset-slot) (setf (kernel:code-header-ref code-object vm:code-trace-table-offset-slot)
length) length)
(setf (kernel:code-header-ref code-object real-lra-slot) real-lra) (setf (kernel:code-header-ref code-object real-lra-slot) real-lra)
...@@ -3591,7 +3590,7 @@ ...@@ -3591,7 +3590,7 @@
;;; it is in the result vector. ;;; it is in the result vector.
;;; ;;;
(defun sub-generate-component-source-paths (component) (defun sub-generate-component-source-paths (component)
(let ((info (kernel:code-debug-info component))) (let ((info (kernel:%code-debug-info component)))
(unless info (debug-signal 'no-debug-info)) (unless info (debug-signal 'no-debug-info))
(let* ((function-map (get-debug-info-function-map info)) (let* ((function-map (get-debug-info-function-map info))
(result *source-paths-buffer*)) (result *source-paths-buffer*))
......
...@@ -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/code/describe.lisp,v 1.21 1992/12/13 16:04:19 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.22 1992/12/17 09:07:01 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -275,7 +275,7 @@ ...@@ -275,7 +275,7 @@
;;; Print information from the debug-info about where X was compiled from. ;;; Print information from the debug-info about where X was compiled from.
;;; ;;;
(defun print-compiled-from (x) (defun print-compiled-from (x)
(let ((info (kernel:code-debug-info (kernel:function-code-header x)))) (let ((info (kernel:%code-debug-info (kernel:function-code-header x))))
(when info (when info
(let ((sources (c::compiled-debug-info-source info))) (let ((sources (c::compiled-debug-info-source info)))
(format t "~&On ~A it was compiled from:" (format t "~&On ~A it was compiled from:"
......
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