![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to debugs.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to debugs.fs CVS log | Up to [gforth] / gforth |
| version 1.23, 2011/04/20 17:24:31 | version 1.26, 2012/12/31 15:25:18 |
|---|---|
| Line 1 | Line 1 |
| \ Simple debugging aids | \ Simple debugging aids |
| \ Copyright (C) 1995,1997,1999,2002,2003,2004,2005,2006,2007,2009 Free Software Foundation, Inc. | \ Copyright (C) 1995,1997,1999,2002,2003,2004,2005,2006,2007,2009,2011,2012 Free Software Foundation, Inc. |
| \ This file is part of Gforth. | \ This file is part of Gforth. |
| Line 49 defer .debugline ( nfile nline -- ) \ gf | Line 49 defer .debugline ( nfile nline -- ) \ gf |
| printdebugdata | printdebugdata |
| cr ; | cr ; |
| [IFUNDEF] debug-fid | |
| stderr value debug-fid ( -- fid ) | stderr value debug-fid ( -- fid ) |
| \G (value) Debugging output prints to this file | \G (value) Debugging output prints to this file |
| [THEN] | |
| ' (.debugline) IS .debugline | ' (.debugline) IS .debugline |