Diff for /gforth/cross.fs between versions 1.50 and 1.51

version 1.50, 1997/07/06 15:42:22 version 1.51, 1997/07/31 16:17:07
Line 840  Build: ; Line 840  Build: ;
 by: :dofield T @ H + ;DO  by: :dofield T @ H + ;DO
 Builder (Field)  Builder (Field)
   
 Build:  >r rot r@ nalign  dup T , H  ( align1 size offset )  Build: ( align1 offset1 align size "name" --  align2 offset2 )
         + swap r> nalign ;      rot dup T , H ( align1 align size offset1 )
       + >r nalign r> ;
 by (Field)  by (Field)
 Builder Field  Builder Field
   
 : struct  T 0 1 chars H ;  : struct  T 1 chars 0 H ;
 : end-struct  T 2Constant H ;  : end-struct  T 2Constant H ;
   
 : cells: ( n -- size align )  : cell% ( -- align size )
     T cells 1 cells H ;      T 1 cells H dup ;
   
 \ ' 2Constant Alias2 end-struct  \ ' 2Constant Alias2 end-struct
 \ 0 1 T Chars H 2Constant struct  \ 0 1 T Chars H 2Constant struct

Removed from v.1.50  
changed lines
  Added in v.1.51


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>