Skip to content
Snippets Groups Projects
Commit 93fa041f authored by ram's avatar ram
Browse files

Put in hack in DEBUG-INFO-FOR-COMPONENT to specify 0 as the

DEBUG-FUNCTION-START-PC until we actually compute this correctly.
parent 16a82022
No related branches found
No related tags found
No related merge requests found
...@@ -428,7 +428,8 @@ ...@@ -428,7 +428,8 @@
(and ef (leaf-name ef)))) (and ef (leaf-name ef))))
(t (t
(component-name component))) (component-name component)))
:kind (functional-kind fun)))) :kind (functional-kind fun)
:start-pc 0)))
(when (>= level 1) (when (>= level 1)
(setf (compiled-debug-function-variables dfun) (setf (compiled-debug-function-variables dfun)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment