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

tools.disassembler: allow aliens to be used in address pairs

release
Joe Groff 2010-04-02 00:30:27 -07:00
parent 1c5f718e80
commit 2d22a8eb49
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/tools/disassembler/disassembler.factor
View File

@ -15,6 +15,11 @@ HOOK: disassemble* disassembler-backend ( from to -- lines )
TR: tabs>spaces "\t" "\s" ; TR: tabs>spaces "\t" "\s" ;
GENERIC: (>address) ( object -- n )
M: integer (>address) ;
M: alien (>address) alien-address ;
PRIVATE> PRIVATE>
M: byte-array disassemble M: byte-array disassemble
@ -24,7 +29,7 @@ M: byte-array disassemble
2array disassemble 2array disassemble
] with-destructors ; ] with-destructors ;
M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ; M: pair disassemble first2 [ (>address) ] bi@ disassemble* [ tabs>spaces print ] each ;
M: word disassemble word-code 2array disassemble ; M: word disassemble word-code 2array disassemble ;