version 1.2, 1994/07/13 19:21:01
|
version 1.5, 1996/08/26 10:07:18
|
Line 1
|
Line 1
|
\ DEBUG.FS Debugger 12jun93jaw |
\ 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 |
decimal |
|
|
VARIABLE IP \ istruction pointer for debugger |
VARIABLE IP \ istruction pointer for debugger |
Line 206 VARIABLE Body
|
Line 224 VARIABLE Body
|
|
|
: 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 ; |
Line 262 VARIABLE Unnest
|
Line 280 VARIABLE Unnest
|
THEN |
THEN |
AGAIN ; |
AGAIN ; |
|
|
: dbg ' NestXT ?EXIT (debug) ; |
: dbg ' NestXT ?EXIT (debug) Leave-D ; |
|
|
\ : test 1 2 4 swap dup . ; |
\ : test 1 2 4 swap dup . ; |