gforth/source.fs - diff

Return to source.fs CVS log

Up to [gforth] / gforth

version 1.15, 2004/05/14 17:09:22	version 1.17, 2004/12/31 13:23:58
Line 1	Line 1
\ source location handling	\ source location handling

\ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003,2004 Free Software Foundation, Inc.

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

Line 34	Line 34
r> loop	r> loop
drop 2drop 0 ;	drop 2drop 0 ;

: current-sourcepos ( -- )	: current-sourcepos ( -- nfile nline )
sourcefilename str>loadfilename# sourceline# ;	sourcefilename str>loadfilename# sourceline# ;

: compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline )	: compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline )