[gforth] / gforth / struct.fs  

gforth: gforth/struct.fs

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

version 1.12, Thu Jul 31 16:17:11 1997 UTC version 1.13, Tue Apr 14 16:43:07 1998 UTC
Line 35 
Line 35 
     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, ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help