[gforth] / gforth / compat / struct.fs  

gforth: gforth/compat/struct.fs

Diff for /gforth/compat/struct.fs between version 1.4 and 1.5

version 1.4, Thu Jul 31 16:17:23 1997 UTC version 1.5, Tue Apr 14 16:43:21 1998 UTC
Line 37 
Line 37 
     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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help