From: Nathan F. <nf...@us...> - 2006-04-05 12:38:13
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14533/src/compiler Modified Files: target-disassem.lisp Log Message: 0.9.11.15: Restore annotation of calls to assembly routines in disassemblies. Index: target-disassem.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/target-disassem.lisp,v retrieving revision 1.53 retrieving revision 1.54 diff -u -d -r1.53 -r1.54 --- target-disassem.lisp 7 Feb 2006 17:44:45 -0000 1.53 +++ target-disassem.lisp 5 Apr 2006 12:37:56 -0000 1.54 @@ -1957,9 +1957,9 @@ (unless (typep address 'address) (return-from maybe-note-assembler-routine nil)) (let ((name (or + (find-assembler-routine address) #!+linkage-table - (sb!sys:sap-foreign-symbol (sb!sys:int-sap address)) - (find-assembler-routine address)))) + (sb!sys:sap-foreign-symbol (sb!sys:int-sap address))))) (unless (null name) (note (lambda (stream) (if note-address-p |