Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.125, 2002/03/21 17:20:38 | version 1.126, 2002/03/21 17:26:00 |
---|---|
Line 3352 Variable outfile-fd | Line 3352 Variable outfile-fd |
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 |