complete-address ( n seq -- )

Vocabulary

tools.disassembler.private

Inputs

n	an object
seq	an object

Outputs

None

Definition

USING: accessors io kernel make math math.parser namespaces
prettyprint sequences ;

IN: tools.disassembler.private

: complete-address ( n seq -- )
    " (" % building get [ "" like write ] [ delete-all ] bi
    [ nip owner>> pprint-short ] [ entry-point>> - ] 2bi
    [ " + 0x" % >hex % ] unless-zero ")" % ;