version 1.4, 1997/03/04 17:49:55
|
version 1.5, 1997/05/21 20:39:40
|
Line 36 end-struct sourcepos
|
Line 36 end-struct sourcepos
|
|
|
: 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 |
included-files 2@ drop over sourcepos-name# @ 2* cells + 2@ |
dup sourcepos-name# @ loadfilename#>str |
rot sourcepos-line# @ ; |
rot sourcepos-line# @ ; |
|
|
: print-sourcepos ( a-addr -- ) |
: print-sourcepos ( a-addr -- ) |