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

version 1.10, 1999/02/24 11:05:16 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   ' NestXT IF EXIT THEN (debug) Leave-D ;  : dbg ( "name" -- ) \ gforth 
       ' NestXT IF EXIT THEN (debug) Leave-D ;
   
 : break:  has? compiler invert [IF] \ nac bugfix
         r> ['] (debug) >body >r ;  : break: ( -- ) \ gforth
       r> ['] (debug) >body >r ;
   
 : (break")  : (break")
         cr      cr
         ." BREAK AT: " type cr      ." BREAK AT: " type cr
         r> ['] (debug) >body >r ;      r> ['] (debug) >body >r ;
   
 : break"  : break" ( 'ccc"' -- ) \ gforth
         postpone s"      postpone s"
         postpone (break") ; immediate      postpone (break") ; immediate
   [THEN]

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


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