From ff21b0ceddc62767a0d6f076693a7193222475ca Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 21 Feb 1990 15:53:29 +0000 Subject: [PATCH] Fixed DEBUG-INFO-FOR-COMPONENT to specify the OLD-CONT and RETURN-PC. Though these are always standard for now, they are now always required. --- compiler/debug-dump.lisp | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index db87cd813..029810e5a 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -422,14 +422,20 @@ (let ((var-locs (make-hash-table :test #'eq))) (dolist (fun (component-lambdas component)) (clrhash var-locs) - (let ((dfun (make-compiled-debug-function - :name (cond ((leaf-name fun)) - ((let ((ef (functional-entry-function fun))) - (and ef (leaf-name ef)))) - (t - (component-name component))) - :kind (functional-kind fun) - :start-pc 0))) + (let* ((2env (environment-info (lambda-environment fun))) + (dfun (make-compiled-debug-function + :name (cond ((leaf-name fun)) + ((let ((ef (functional-entry-function fun))) + (and ef (leaf-name ef)))) + (t + (component-name component))) + :kind (functional-kind fun) + :return-pc (tn-sc-offset + (ir2-environment-return-pc 2env)) + :old-cont (tn-sc-offset + (ir2-environment-old-cont 2env)) + ;; Not right... + :start-pc 0))) (when (>= level 1) (setf (compiled-debug-function-variables dfun) -- GitLab