Diff for /gforth/debug.fs between versions 1.12 and 1.14

version 1.12, 1999/05/20 13:31:57 version 1.14, 1999/12/03 18:28:58
Line 20 Line 20
   
 decimal  decimal
   
 VARIABLE dbg-ip     \ istruction pointer for debugger  VARIABLE dbg-ip     \ instruction pointer for debugger
   
 : scanword ( body -- )  : scanword ( body -- )
         c-init C-Output off          c-init C-Output off
Line 140  VARIABLE Unnest Line 140  VARIABLE Unnest
                 THEN                  THEN
         AGAIN ;          AGAIN ;
   
 : dbg \ gforth   : dbg ( "name" -- ) \ gforth 
     ' NestXT IF EXIT THEN (debug) Leave-D ;      ' NestXT IF EXIT THEN (debug) Leave-D ;
   
 has? compiler [IF]  has? compiler invert [IF] \ nac bugfix
 : break: \ gforth  : break: ( -- ) \ gforth
     r> ['] (debug) >body >r ;      r> ['] (debug) >body >r ;
   
 : (break")  : (break")
Line 152  has? compiler [IF] Line 152  has? compiler [IF]
     ." BREAK AT: " type cr      ." BREAK AT: " type cr
     r> ['] (debug) >body >r ;      r> ['] (debug) >body >r ;
   
 : break" \ gforth  : break" ( 'ccc"' -- ) \ gforth
     postpone s"      postpone s"
     postpone (break") ; immediate      postpone (break") ; immediate
 [THEN]  
   
   [THEN]

Removed from v.1.12  
changed lines
  Added in v.1.14


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