From: Alastair Bridgewater <nyef@kana.lisphacker.com>
Date: Sun, 4 Nov 2012 17:43:27 +0000 (-0500)
Subject: compiler/generic/genesis: Report FDEFN addresses for undefined functions.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f932dd50116c948d1b19358e9b2821df7a4e7380;p=sbcl.git

compiler/generic/genesis: Report FDEFN addresses for undefined functions.

  * In order to make debugging bootstrapping problems easier,
include the address of FDEFNs which have not been defined in the
cold-sbcl.map file.  This address is what shows up in ldb when
such an FDEFN is invoked.
---

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index a019dab..9cc373f 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -3086,7 +3086,9 @@ initially undefined function references:~2%")
 
       (setf undefs (sort undefs #'string< :key #'fun-name-block-name))
       (dolist (name undefs)
-        (format t "~S~%" name)))
+        (format t "~8,'0X: ~S~%"
+                (descriptor-bits (gethash name *cold-fdefn-objects*))
+                name)))
 
     (format t "~%~|~%layout names:~2%")
     (collect ((stuff))