From f932dd50116c948d1b19358e9b2821df7a4e7380 Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Sun, 4 Nov 2012 12:43:27 -0500 Subject: [PATCH] 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. --- src/compiler/generic/genesis.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4