;;; the width of the column in which instruction-names are printed. A
;;; value of zero gives the effect of not aligning the arguments at
;;; all.
;;; the width of the column in which instruction-names are printed. A
;;; value of zero gives the effect of not aligning the arguments at
;;; all.
(declaim (type text-width *disassem-opcode-column-width*))
;;; the width of the column in which instruction-bytes are printed. A
(declaim (type text-width *disassem-opcode-column-width*))
;;; the width of the column in which instruction-bytes are printed. A
Inherit all arguments and properties of the given format. Any
arguments defined in the current format definition will either modify
the copy of an existing argument (keeping in the same order with
Inherit all arguments and properties of the given format. Any
arguments defined in the current format definition will either modify
the copy of an existing argument (keeping in the same order with
one, or be added to the end.
:DEFAULT-PRINTER printer-list
Use the given PRINTER-LIST as a format to print any instructions of
one, or be added to the end.
:DEFAULT-PRINTER printer-list
Use the given PRINTER-LIST as a format to print any instructions of
;; offset of next position
(next-offs 0 :type offset)
;; a sap pointing to our segment
;; offset of next position
(next-offs 0 :type offset)
;; a sap pointing to our segment
:type (member :big-endian :little-endian))
;; for user code to hang stuff off of
(properties nil :type list)
:type (member :big-endian :little-endian))
;; for user code to hang stuff off of
(properties nil :type list)
- ;; for user code to hang stuff off of, cleared each time before an
- ;; instruction is processed
+ ;; for user code to hang stuff off of, cleared each time after a
+ ;; non-prefix instruction is processed
(inst-properties nil :type list)
(filtered-values (make-array max-filtered-value-index)
:type filtered-value-vector)
(inst-properties nil :type list)
(filtered-values (make-array max-filtered-value-index)
:type filtered-value-vector)