[BACK]Return to debug.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/debug.fs between versions 1.5 and 1.6

version 1.5, 1996/08/26 10:07:18 version 1.6, 1997/05/21 20:39:22
Line 276  VARIABLE Unnest Line 276  VARIABLE Unnest
                 Nesting @ 0= ?EXIT                  Nesting @ 0= ?EXIT
                 -1 Nesting +! r>                  -1 Nesting +! r>
                 ELSE                  ELSE
                 IP @ >r 1 Nesting +!                  IP @ 1 cells + >r 1 Nesting +!
                 THEN                  THEN
         AGAIN ;          AGAIN ;
   
 : dbg   ' NestXT ?EXIT (debug) Leave-D ;  : dbg   ' NestXT ?EXIT (debug) Leave-D ;
   
 \ : test 1 2 4 swap dup . ;  : TRACE:
           r> (debug) ;
   
   : (TRACE")
           cr
           ." BREAK AT: " type cr
           r> (debug) ;
   
   : TRACE"
           postpone s"
           postpone (TRACE") ; immediate
Removed from v.1.5  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>