gforth/debug.fs - diff

Return to debug.fs CVS log

Up to [gforth] / gforth

version 1.11, 1999/03/23 20:24:17	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 ;

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

: (break")	: (break")
Line 151 VARIABLE Unnest	Line 152 VARIABLE Unnest
." 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]