[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.125 and 1.126

version 1.125, Thu Mar 21 17:20:38 2002 UTC version 1.126, Thu Mar 21 17:26:00 2002 UTC
Line 3352 
Line 3352 
   dup @ dup IF addr-refs @ THEN    dup @ dup IF addr-refs @ THEN
   swap >r    swap >r
   over align+ tuck tcell swap - rshift swap 0    over align+ tuck tcell swap - rshift swap 0
   DO dup 1 and    ?DO dup 1 and
      IF drop rdrop snl-calc UNLOOP EXIT THEN       IF drop rdrop snl-calc UNLOOP EXIT THEN
      2/ swap 1+ swap       2/ swap 1+ swap
   LOOP    LOOP

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help