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