[gforth] / gforth / debug.fs  

gforth: gforth/debug.fs

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

version 1.6, Wed May 21 20:39:22 1997 UTC version 1.7, Sun Jun 1 20:50:38 1997 UTC
Line 282 
Line 282 
   
 : dbg   ' NestXT ?EXIT (debug) Leave-D ;  : dbg   ' NestXT ?EXIT (debug) Leave-D ;
   
 : TRACE:  : break:
         r> (debug) ;          r> ['] (debug) >body >r ;
   
 : (TRACE")  : (break")
         cr          cr
         ." BREAK AT: " type cr          ." BREAK AT: " type cr
         r> (debug) ;          r> ['] (debug) >body >r ;
   
 : TRACE"  : break"
         postpone s"          postpone s"
         postpone (TRACE") ; immediate          postpone (break") ; immediate

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help