projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.16.40:
[sbcl.git]
/
src
/
compiler
/
target-disassem.lisp
diff --git
a/src/compiler/target-disassem.lisp
b/src/compiler/target-disassem.lisp
index
01fd03b
..
1c47cab
100644
(file)
--- a/
src/compiler/target-disassem.lisp
+++ b/
src/compiler/target-disassem.lisp
@@
-483,7
+483,7
@@
(multiple-value-bind (words bytes)
(truncate alignment sb!vm:n-word-bytes)
(when (> words 0)
(multiple-value-bind (words bytes)
(truncate alignment sb!vm:n-word-bytes)
(when (> words 0)
- (print-words words stream dstate))
+ (print-inst (* words sb!vm:n-word-bytes) stream dstate))
(when (> bytes 0)
(print-inst bytes stream dstate)))
(print-bytes alignment stream dstate))
(when (> bytes 0)
(print-inst bytes stream dstate)))
(print-bytes alignment stream dstate))
@@
-1957,9
+1957,9
@@
(unless (typep address 'address)
(return-from maybe-note-assembler-routine nil))
(let ((name (or
(unless (typep address 'address)
(return-from maybe-note-assembler-routine nil))
(let ((name (or
+ (find-assembler-routine address)
#!+linkage-table
#!+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
(unless (null name)
(note (lambda (stream)
(if note-address-p