Return to source.fs CVS log | Up to [gforth] / gforth |
version 1.1, 1995/11/07 18:08:47 | version 1.2, 1995/11/29 20:20:37 |
---|---|
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 |