Diff for /gforth/struct.fs between versions 1.12 and 1.13

version 1.12, 1997/07/31 16:17:11 version 1.13, 1998/04/14 16:43:07
Line 35  does> ( name execution: -- ) Line 35  does> ( name execution: -- )
     drop ;      drop ;
   
 : field, ( align1 offset1 align size --  align2 offset2 )  : field, ( align1 offset1 align size --  align2 offset2 )
     rot dup , ( align1 align size offset1 )      swap rot over nalign dup , ( align1 size align offset )
     + >r nalign r> ;      rot + >r nalign r> ;
   
 : create-field ( align1 offset1 align size --  align2 offset2 )  : create-field ( align1 offset1 align size --  align2 offset2 )
     create field, ;      create field, ;

Removed from v.1.12  
changed lines
  Added in v.1.13


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