24 lines
799 B
Forth
24 lines
799 B
Forth
|
\ debug.fs contains functions overwritten from the debug.fs in gforth,
|
||
|
\ to make debugging floatingpoint stuff easier.
|
||
|
|
||
|
: (_debug) ( body ip -- )
|
||
|
0 Nesting !
|
||
|
BEGIN Unnest off
|
||
|
cr ." Scanning code..." cr C-Formated on
|
||
|
swap scanword dbg-ip !
|
||
|
cr ." Nesting debugger ready!" cr
|
||
|
BEGIN .s f.s disp-step D-Key
|
||
|
WHILE C-Stop @ 0=
|
||
|
WHILE 0 get-next set-bp
|
||
|
dbg-ip @ jump
|
||
|
[ here DebugLoop ! ]
|
||
|
restore-bp
|
||
|
REPEAT
|
||
|
Nesting @ 0= IF EXIT THEN
|
||
|
-1 Nesting +! r>
|
||
|
ELSE
|
||
|
get-next >r 1 Nesting +!
|
||
|
THEN
|
||
|
dup
|
||
|
AGAIN ;
|