1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.c-types arrays byte-arrays combinators
4 destructors generic io kernel libc math sequences system tr
8 GENERIC: disassemble ( obj -- )
10 SYMBOL: disassembler-backend
12 HOOK: disassemble* disassembler-backend ( from to -- lines )
14 TR: tabs>spaces "\t" "\s" ;
16 M: byte-array disassemble
18 [ malloc-byte-array &free alien-address dup ]
23 M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ;
25 M: word disassemble word-xt 2array disassemble ;
28 "tools.disassembler.udis"
29 "tools.disassembler.gdb" ?