Diff for /gforth/cross.fs between versions 1.28 and 1.29

version 1.28, 1995/09/06 21:00:11 version 1.29, 1995/10/07 17:38:11
Line 120  H Line 120  H
 -4 Constant :dovar  -4 Constant :dovar
 -5 Constant :douser  -5 Constant :douser
 -6 Constant :dodefer  -6 Constant :dodefer
 -7 Constant :dostruc  -7 Constant :dofield
 -8 Constant :dodoes  -8 Constant :dodoes
 -9 Constant :doesjump  -9 Constant :doesjump
   
Line 483  ghost (loop)    ghost (+loop) Line 483  ghost (loop)    ghost (+loop)
 ghost (next)                                    drop  ghost (next)                                    drop
 ghost unloop    ghost ;S                        2drop  ghost unloop    ghost ;S                        2drop
 ghost lit       ghost (compile) ghost !         2drop drop  ghost lit       ghost (compile) ghost !         2drop drop
 ghost (;code)   ghost noop                      2drop  ghost (does>)   ghost noop                      2drop
 ghost (.")      ghost (S")      ghost (ABORT")  2drop drop  ghost (.")      ghost (S")      ghost (ABORT")  2drop drop
 ghost '  ghost '
   
Line 571  Cond: [  restrict? state off ;Cond Line 571  Cond: [  restrict? state off ;Cond
   
 >TARGET  >TARGET
 Cond: DOES> restrict?  Cond: DOES> restrict?
         compile (;code) dodoes, tdoes @ ?dup IF  @ T here H resolve THEN          compile (does>) dodoes, tdoes @ ?dup IF  @ T here H resolve THEN
         ;Cond          ;Cond
 : DOES> dodoes, T here H !does depth T ] H ;  : DOES> dodoes, T here H !does depth T ] H ;
   
Line 695  Build:  >r rot r@ nalign  dup T , H  ( a Line 695  Build:  >r rot r@ nalign  dup T , H  ( a
         + swap r> nalign ;          + swap r> nalign ;
 DO: T @ H + ;DO  DO: T @ H + ;DO
 Builder Field  Builder Field
 by Field :dostruc resolve  by Field :dofield resolve
   
 : struct  T 0 1 chars H ;  : struct  T 0 1 chars H ;
 : end-struct  T 2Constant H ;  : end-struct  T 2Constant H ;

Removed from v.1.28  
changed lines
  Added in v.1.29


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