gforth/source.fs - diff

Return to source.fs CVS log

Up to [gforth] / gforth

version 1.1, 1995/11/07 18:08:47	version 1.3, 1996/09/19 22:17:37
Line 19	Line 19
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


\ related stuff can be found in kernal.fs	\ related stuff can be found in kernel.fs

\ this stuff is used by (at least) assert.fs and debugging.fs	\ this stuff is used by (at least) assert.fs and debugging.fs

Line 32 end-struct sourcepos	Line 32 end-struct sourcepos

: sourcepos, ( -- )	: sourcepos, ( -- )
\ record the current source position HERE	\ record the current source position HERE
loadfilename# @ , loadline @ , ;	loadfilename# @ , sourceline# , ;

: get-sourcepos ( a-addr -- c-addr u n )	: get-sourcepos ( a-addr -- c-addr u n )
\ c-addr u is the filename, n is the line number	\ c-addr u is the filename, n is the line number