steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.disassembler.utils: 0x isn't a name anymore 

sorry bro
db4
Joe Groff 2011-11-23 19:48:38 -08:00
parent 72de75b881
commit 9123360547
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/disassembler/utils/utils.factor
View File

@ -2,18 +2,18 @@ USING: accessors kernel math math.parser prettyprint sequences
splitting tools.memory ; splitting tools.memory ;
IN: tools.disassembler.utils IN: tools.disassembler.utils
: 0x ( str -- str' ) "0x" prepend ; : 0x- ( str -- str' ) "0x" prepend ;
: complete-address ( n seq -- str ) : complete-address ( n seq -- str )
[ nip owner>> unparse-short ] [ entry-point>> - ] 2bi [ nip owner>> unparse-short ] [ entry-point>> - ] 2bi
[ >hex 0x " + " glue ] unless-zero ; [ >hex 0x- " + " glue ] unless-zero ;
: search-xt ( addr -- str/f ) : search-xt ( addr -- str/f )
dup lookup-return-address dup lookup-return-address
dup [ complete-address ] [ 2drop f ] if ; dup [ complete-address ] [ 2drop f ] if ;
: resolve-xt ( str -- str' ) : resolve-xt ( str -- str' )
[ 0x ] [ hex> ] bi [ 0x- ] [ hex> ] bi
[ search-xt [ " (" ")" surround append ] when* ] when* ; [ search-xt [ " (" ")" surround append ] when* ] when* ;
: resolve-call ( str -- str' ) : resolve-call ( str -- str' )