Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
86c0faa8
Commit
86c0faa8
authored
Jun 25, 2001
by
toy
Browse files
Add MAYBE-NOTE-STATIC-FUNCTION to print a disassembly note about
static functions.
parent
058736ce
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/disassem.lisp
View file @
86c0faa8
...
...
@@ -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.3
0
2001/06/
04
1
8
:4
1
:31 toy Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.3
1
2001/06/
25
1
6
:4
7
: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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment