Commit 283a599c authored by ram's avatar ram
Browse files

Added dumping of START-PC and ELSEWHERE-PC in DEBUG-INFO-FOR-COMPONENT.

parent 4ad388af
...@@ -448,7 +448,8 @@ ...@@ -448,7 +448,8 @@
(let* ((2env (environment-info (lambda-environment fun))) (let* ((2env (environment-info (lambda-environment fun)))
(dfun (make-compiled-debug-function (dfun (make-compiled-debug-function
:name (cond ((leaf-name fun)) :name (cond ((leaf-name fun))
((let ((ef (functional-entry-function fun))) ((let ((ef (functional-entry-function
fun)))
(and ef (leaf-name ef)))) (and ef (leaf-name ef))))
(t (t
(component-name component))) (component-name component)))
...@@ -457,8 +458,12 @@ ...@@ -457,8 +458,12 @@
(ir2-environment-return-pc 2env)) (ir2-environment-return-pc 2env))
:old-cont (tn-sc-offset :old-cont (tn-sc-offset
(ir2-environment-old-cont 2env)) (ir2-environment-old-cont 2env))
;; Not right... :start-pc (label-location
:start-pc 0))) (ir2-environment-environment-start 2env))
:elsewhere-pc
(label-location
(ir2-environment-elsewhere-start 2env)))))
(when (>= level 1) (when (>= level 1)
(setf (compiled-debug-function-variables dfun) (setf (compiled-debug-function-variables dfun)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment