gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.67, 2010/04/18 06:18:36	version 1.69, 2010/04/18 16:39:55
Line 657 Defer xt-see-xt ( xt -- )	Line 657 Defer xt-see-xt ( xt -- )
space ;	space ;

Defer discode ( addr u -- ) \ gforth	Defer discode ( addr u -- ) \ gforth
\G hook for the disassembler: disassemble code at addr of length u	\G hook for the disassembler: disassemble u bytes of code at addr
' dump IS discode	' dump IS discode

: next-head ( addr1 -- addr2 ) \ gforth	: next-head ( addr1 -- addr2 ) \ gforth
Line 706 Defer discode ( addr u -- ) \ gforth	Line 706 Defer discode ( addr u -- ) \ gforth
then	then
over - discode	over - discode
." end-code" cr ;	." end-code" cr ;
	: seeabicode ( xt -- )
	dup s" ABI-Code" .defname
	>body dup dup next-head
	swap - discode
	." end-code" cr ;
: seevar ( xt -- )	: seevar ( xt -- )
s" Variable" .defname cr ;	s" Variable" .defname cr ;
: seeuser ( xt -- )	: seeuser ( xt -- )
Line 771 Defer discode ( addr u -- ) \ gforth	Line 776 Defer discode ( addr u -- ) \ gforth
[IFDEF] dofield:	[IFDEF] dofield:
dofield: of seefield endof	dofield: of seefield endof
[THEN]	[THEN]
	[IFDEF] doabicode:
	doabicode: of seeabicode endof
	[THEN]
over of seecode endof \ direct threaded code words	over of seecode endof \ direct threaded code words
over >body of seecode endof \ indirect threaded code words	over >body of seecode endof \ indirect threaded code words
2drop abort" unknown word type"	2drop abort" unknown word type"