From 86c0faa83ef95d20275158c2209ec203b2a52ed0 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Mon, 25 Jun 2001 16:47:31 +0000 Subject: [PATCH] Add MAYBE-NOTE-STATIC-FUNCTION to print a disassembly note about static functions. --- compiler/disassem.lisp | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index c0d4846f6..461349bc4 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.30 2001/06/04 18:41:31 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.31 2001/06/25 16:47:31 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -83,6 +83,7 @@ maybe-note-nil-indexed-symbol-slot-ref maybe-note-nil-indexed-object maybe-note-assembler-routine + maybe-note-static-function maybe-note-single-storage-ref maybe-note-associated-storage-ref handle-break-args @@ -3679,6 +3680,20 @@ symbol object that we know about.") dstate)) name)) +(defun maybe-note-static-function (nil-byte-offset dstate) + "If NIL-BYTE-OFFSET is the offset of static function, store a note + describing which one, to be printed as an end-of-line comment after + the current instruction is disassembled. Returns non-NIL iff a note + was recorded." + (declare (type offset nil-byte-offset) + (type disassem-state dstate)) + (let ((sym (ignore-errors (vm::offset-static-function nil-byte-offset)))) + (when sym + (note #'(lambda (stream) + (princ sym stream)) + dstate)) + sym)) + (defun maybe-note-single-storage-ref (offset sc-name dstate) "If there's a valid mapping from OFFSET in the storage class SC-NAME to a source variable, make a note of the source-variable name, to be printed as -- GitLab