[gforth] / gforth / debug.fs  

gforth: gforth/debug.fs

Diff for /gforth/debug.fs between version 1.11 and 1.12

version 1.11, Tue Mar 23 20:24:17 1999 UTC version 1.12, Thu May 20 13:31:57 1999 UTC
Line 143 
Line 143 
 : dbg \ gforth  : dbg \ gforth
     ' NestXT IF EXIT THEN (debug) Leave-D ;      ' NestXT IF EXIT THEN (debug) Leave-D ;
   
   has? compiler [IF]
 : break: \ gforth  : break: \ gforth
     r> ['] (debug) >body >r ;      r> ['] (debug) >body >r ;
   
Line 154 
Line 155 
 : break" \ gforth  : break" \ gforth
     postpone s"      postpone s"
     postpone (break") ; immediate      postpone (break") ; immediate
   [THEN]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help