1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.data arrays byte-arrays compiler.units
4 destructors io kernel libc math quotations sequences
5 sequences.private stack-checker system tr vocabs words ;
8 GENERIC: disassemble ( obj -- )
12 SYMBOL: disassembler-backend
14 HOOK: disassemble* disassembler-backend ( from to -- lines )
16 TR: tabs>spaces "\t" "\s" ;
18 GENERIC: (>address) ( object -- n )
20 M: integer (>address) ;
21 M: alien (>address) alien-address ;
25 M: byte-array disassemble
27 [ malloc-byte-array &free alien-address dup ]
33 first2-unsafe [ (>address) ] bi@ disassemble*
34 [ tabs>spaces print ] each ;
36 M: word disassemble word-code 2array disassemble ;
38 M: callable disassemble
39 [ dup infer define-temp ] with-compilation-unit disassemble ;
42 "tools.disassembler.udis"
43 "tools.disassembler.gdb" ?