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] |