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
......@@ -428,7 +428,8 @@
(and ef (leaf-name ef))))
(t
(component-name component)))
:kind (functional-kind fun))))
:kind (functional-kind fun)
:start-pc 0)))
(when (>= level 1)
(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