gforth/debugs.fs - diff

Return to debugs.fs CVS log

Up to [gforth] / gforth

version 1.22, 2009/12/31 15:32:35	version 1.24, 2011/12/31 15:29:25
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 Free Software Foundation, Inc.

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

Line 55 stderr value debug-fid ( -- fid )	Line 55 stderr value debug-fid ( -- fid )
' (.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 ;