gforth/debugs.fs - diff

Return to debugs.fs CVS log

Up to [gforth] / gforth

version 1.21, 2009/05/11 09:50:59	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 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

: .debugline-directed ( nfile nline -- )	: .debugline-directed ( nfile nline -- )
['] .debugline debug-fid outfile-execute ;	action-of type action-of emit { oldtype oldemit }
	try
	['] (type) is type ['] (emit) is emit
	['] .debugline debug-fid outfile-execute
	0
	restore
	oldemit is emit oldtype is type
	endtry
	throw ;

:noname ( -- )	:noname ( -- )
current-sourcepos .debugline-directed ;	current-sourcepos .debugline-directed ;