[gforth] / gforth / debug.fs  

gforth: gforth/debug.fs

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

version 1.4, Tue Nov 7 18:06:35 1995 UTC version 1.5, Mon Aug 26 10:07:18 1996 UTC
Line 224 
Line 224 
   
 : NestXT        ( xt -- true | body false )  : NestXT        ( xt -- true | body false )
                 DebugMode c-pass ! C-Output off                  DebugMode c-pass ! C-Output off
                 xtc C-Output on                  xt-see C-Output on
                 c-pass @ DebugMode = dup                  c-pass @ DebugMode = dup
                 IF      ." Cannot debug" cr                  IF      ." Cannot debug" cr
                 THEN ;                  THEN ;


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

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help