--- gforth/debug.fs 1994/07/13 19:21:01 1.2 +++ gforth/debug.fs 1995/11/07 18:06:35 1.4 @@ -1,5 +1,23 @@ \ DEBUG.FS Debugger 12jun93jaw +\ Copyright (C) 1995 Free Software Foundation, Inc. + +\ This file is part of Gforth. + +\ Gforth is free software; you can redistribute it and/or +\ modify it under the terms of the GNU General Public License +\ as published by the Free Software Foundation; either version 2 +\ of the License, or (at your option) any later version. + +\ This program is distributed in the hope that it will be useful, +\ but WITHOUT ANY WARRANTY; without even the implied warranty of +\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +\ GNU General Public License for more details. + +\ You should have received a copy of the GNU General Public License +\ along with this program; if not, write to the Free Software +\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + decimal VARIABLE IP \ istruction pointer for debugger @@ -262,6 +280,6 @@ VARIABLE Unnest THEN AGAIN ; -: dbg ' NestXT ?EXIT (debug) ; +: dbg ' NestXT ?EXIT (debug) Leave-D ; \ : test 1 2 4 swap dup . ;