From 2edf2d2570e02e13d584df2def0e97ca436e9f10 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Thu, 6 Mar 2003 13:38:13 +0000 Subject: [PATCH] To find name of a function, we need to look both in the foreign symbol space or the assembler routine space with linkage-table builds. Otherwise, we never find the assembler routines. --- compiler/disassem.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index c7579feb9..20b07fc64 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.35 2003/02/14 17:21:54 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.36 2003/03/06 13:38:13 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3669,9 +3669,9 @@ symbol object that we know about.") (declare (type disassem-state dstate)) (unless (typep address 'address) (return-from maybe-note-assembler-routine nil)) - (let ((name (#+linkage-table lisp::find-foreign-symbol - #-linkage-table find-assembler-routine - address))) + (let ((name (or + #+linkage-table (lisp::find-foreign-symbol address) + (find-assembler-routine address)))) (unless (null name) (note #'(lambda (stream) (if NOTE-ADDRESS-P -- GitLab