[gforth] / gforth / debug.fs  

gforth: gforth/debug.fs

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

version 1.5, Mon Aug 26 10:07:18 1996 UTC version 1.6, Wed May 21 20:39:22 1997 UTC
Line 276 
Line 276 
                 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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help