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