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