[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.42 and 1.43

version 1.42, Wed Dec 4 10:42:59 2002 UTC version 1.43, Fri Dec 13 21:20:39 2002 UTC
Line 551 
Line 551 
 : next-head ( addr1 -- addr2 ) \ gforth  : next-head ( addr1 -- addr2 ) \ gforth
     \G find the next header starting after addr1, up to here (unreliable).      \G find the next header starting after addr1, up to here (unreliable).
     here swap u+do      here swap u+do
         i head?          i head? -2 and if
         if  
             i unloop exit              i unloop exit
         then          then
     cell +loop      cell +loop

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help