Diff for /gforth/compat/struct.fs between versions 1.3 and 1.5

version 1.3, 1997/06/23 15:54:02 version 1.5, 1998/04/14 16:43:21
Line 37  does> ( name execution: -- ) Line 37  does> ( name execution: -- )
     drop ;      drop ;
   
 : create-field ( align1 offset1 align size "name" --  align2 offset2 )  : create-field ( align1 offset1 align size "name" --  align2 offset2 )
     create rot dup , ( align1 align size offset1 )      create swap rot over nalign dup , ( align1 size align offset )
     + >r nalign r> ;      rot + >r nalign r> ;
   
 : field ( align1 offset1 align size "name" --  align2 offset2 )  : field ( align1 offset1 align size "name" --  align2 offset2 )
     \ name execution: addr1 -- addr2      \ name execution: addr1 -- addr2
Line 66  does> ( name execution: -- ) Line 66  does> ( name execution: -- )
 cell% 2*              2constant double%  cell% 2*              2constant double%
   
 \ memory allocation words  \ memory allocation words
   : %alignment ( align size -- align )
       drop ;
   
   : %size ( align size -- size )
       nip ;
   
 : %align ( align size -- )  : %align ( align size -- )
     drop here swap nalign here - allot ;      drop here swap nalign here - allot ;
   

Removed from v.1.3  
changed lines
  Added in v.1.5


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