Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.68, 2010/04/18 13:02:09 | 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 |