gforth/source.fs - diff

Return to source.fs CVS log

Up to [gforth] / gforth

version 1.10, 2003/01/20 19:17:59	version 1.12, 2003/01/21 10:24:44
Line 23	Line 23
\ this stuff is used by (at least) assert.fs and debugs.fs	\ this stuff is used by (at least) assert.fs and debugs.fs

: loadfilename#>str ( n -- addr u )	: loadfilename#>str ( n -- addr u )
included-files 2@ drop swap 2* cells + 2@ ;	included-files 2@ rot min 2* cells + 2@ ;

: str>loadfilename# ( addr u -- n )	: str>loadfilename# ( addr u -- n )
included-files 2@ 0 ?do ( addr u included-files )	included-files 2@ 0 ?do ( addr u included-files )
Line 32	Line 32
rdrop 2drop i unloop exit	rdrop 2drop i unloop exit
endif	endif
r> loop	r> loop
drop 2drop 3 ;	drop 2drop 0 ;

: compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline )	: compile-sourcepos ( compile-time: -- ; run-time: -- nfile nline )
\ compile the current source position as literals: nfile is the	\ compile the current source position as literals: nfile is the