[gforth] / gforth / source.fs  

gforth: gforth/source.fs

Diff for /gforth/source.fs between version 1.4 and 1.5

version 1.4, Tue Mar 4 17:49:55 1997 UTC version 1.5, Wed May 21 20:39:40 1997 UTC
Line 36 
Line 36 
   
 : 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 -- )

Generate output suitable for use with a patch program
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help