gforth/debug.fs - diff

Return to debug.fs CVS log

Up to [gforth] / gforth

version 1.13, 1999/05/20 13:56:10	version 1.14, 1999/12/03 18:28:58
Line 20	Line 20

decimal	decimal

VARIABLE dbg-ip \ istruction pointer for debugger	VARIABLE dbg-ip \ instruction pointer for debugger

: scanword ( body -- )	: scanword ( body -- )
c-init C-Output off	c-init C-Output off
Line 140 VARIABLE Unnest	Line 140 VARIABLE Unnest
THEN	THEN
AGAIN ;	AGAIN ;

: dbg \ gforth	: dbg ( "name" -- ) \ gforth
' NestXT IF EXIT THEN (debug) Leave-D ;	' NestXT IF EXIT THEN (debug) Leave-D ;

has? compiler [IF]	has? compiler invert [IF] \ nac bugfix
: break: \ gforth	: break: ( -- ) \ gforth
r> ['] (debug) >body >r ;	r> ['] (debug) >body >r ;

: (break")	: (break")
Line 152 has? compiler [IF]	Line 152 has? compiler [IF]
." BREAK AT: " type cr	." BREAK AT: " type cr
r> ['] (debug) >body >r ;	r> ['] (debug) >body >r ;

: break" \ gforth	: break" ( 'ccc"' -- ) \ gforth
postpone s"	postpone s"
postpone (break") ; immediate	postpone (break") ; immediate
[THEN]	[THEN]