[gforth] / gforth / savesys.fs  

gforth: gforth/savesys.fs

Diff for /gforth/savesys.fs between version 1.3 and 1.4

version 1.3, Sat Sep 23 15:46:58 2000 UTC version 1.4, Sat Sep 14 08:20:20 2002 UTC
Line 45 
Line 45 
     forthstart      forthstart
     begin \ search for start of file ("#! " at a multiple of 8)      begin \ search for start of file ("#! " at a multiple of 8)
         8 -          8 -
         dup 3 s" #! " compare 0=          dup 3 s" #! " str=
     until ( imagestart )      until ( imagestart )
     here over - r@ write-file throw      here over - r@ write-file throw
     r> close-file throw ;      r> close-file throw ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help