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

version 1.48, 1997/05/21 20:39:21 version 1.51, 1997/07/31 16:17:07
Line 722  Cond: DOES> restrict? Line 722  Cond: DOES> restrict?
         dup >magic @ <do:> =          dup >magic @ <do:> =
         IF  gexecute T 0 , H  EXIT THEN          IF  gexecute T 0 , H  EXIT THEN
     THEN      THEN
     compile :dodoes gexecute T here H cell - reloff ;      compile :dodoes gexecute T here H tcell - reloff ;
   
 : TCreate ( -- )  : TCreate ( -- )
   last-ghost @    last-ghost @
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
Line 1077  previous Line 1078  previous
 : lshift lshift ;  : lshift lshift ;
 : 2/ 2/ ;  : 2/ 2/ ;
 : . . ;  : . . ;
   : const ;
   
 \ mach-file count included  \ mach-file count included
   

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


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