Merge branch 'disassemble-quot' of git://github.com/phildawes/factor
commit
8da50bdce9
|
@ -1,8 +1,8 @@
|
||||||
! Copyright (C) 2008 Slava Pestov.
|
! Copyright (C) 2008 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien alien.c-types arrays byte-arrays combinators
|
USING: alien alien.data arrays byte-arrays compiler.units destructors
|
||||||
destructors generic io kernel libc math sequences system tr
|
io kernel libc math quotations sequences stack-checker system tr
|
||||||
vocabs.loader words alien.data ;
|
vocabs.loader words ;
|
||||||
IN: tools.disassembler
|
IN: tools.disassembler
|
||||||
|
|
||||||
GENERIC: disassemble ( obj -- )
|
GENERIC: disassemble ( obj -- )
|
||||||
|
@ -24,6 +24,8 @@ M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ;
|
||||||
|
|
||||||
M: word disassemble word-xt 2array disassemble ;
|
M: word disassemble word-xt 2array disassemble ;
|
||||||
|
|
||||||
|
M: quotation disassemble [ dup infer define-temp ] with-compilation-unit disassemble ;
|
||||||
|
|
||||||
cpu x86?
|
cpu x86?
|
||||||
"tools.disassembler.udis"
|
"tools.disassembler.udis"
|
||||||
"tools.disassembler.gdb" ?
|
"tools.disassembler.gdb" ?
|
||||||
|
|
Loading…
Reference in New Issue