gforth/debugs.fs - diff

Return to debugs.fs CVS log

Up to [gforth] / gforth

version 1.11, 2004/12/31 13:23:57	version 1.16, 2007/02/23 22:33:21
Line 1	Line 1
\ Simple debugging aids	\ Simple debugging aids

\ Copyright (C) 1995,1997,1999,2002,2003,2004 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,1999,2002,2003,2004,2005,2006 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 52 defer .debugline ( nfile nline -- ) \ gf	Line 52 defer .debugline ( nfile nline -- ) \ gf

' (.debugline) IS .debugline	' (.debugline) IS .debugline

	: .debugline-stderr ( nfile nline -- )
	['] .debugline stderr outfile-execute ;

:noname ( -- )	:noname ( -- )
current-sourcepos .debugline ;	current-sourcepos .debugline-stderr ;
:noname ( compilation -- ; run-time -- )	:noname ( compilation -- ; run-time -- )
compile-sourcepos POSTPONE .debugline ;	compile-sourcepos POSTPONE .debugline-stderr ;
interpret/compile: ~~ \ gforth tilde-tilde	interpret/compile: ~~ ( -- ) \ gforth tilde-tilde
\G Prints the source code location of the @code{~~} and the stack	\G Prints the source code location of the @code{~~} and the stack
\G contents with @code{.debugline}.	\G contents with @code{.debugline}.