Diff for /gforth/cross.fs between versions 1.176 and 1.177

version 1.176, 2011/10/06 20:04:35 version 1.177, 2011/11/11 18:29:09
Line 2966  Builder input-var Line 2966  Builder input-var
 Build: ( m v size -- m v' )  over T , H + ;Build  Build: ( m v size -- m v' )  over T , H + ;Build
 DO:  abort" Not in cross mode" ;DO  DO:  abort" Not in cross mode" ;DO
   
   \ Mini-OOF
   
   \ Builder method
   \ Build: ( m v -- m' v )  over T , swap cell+ swap H ;Build
   \ DO:  abort" Not in cross mode" ;DO
   
   \ Builder var
   \ Build: ( m v size -- m v+size )  over T , H + ;Build
   \ DO: ( o -- addr ) T @ H + ;DO
   
   \ Builder end-class
   \ Build: ( addr m v -- )
   \   T here >r , dup , 2 cells H ?DO T ['] noop , 1 cells H +LOOP
   \   T cell+ dup cell+ r> rot @ 2 cells /string move H ;Build
   \ by: Variable
   
   \ : defines ( xt class -- )  T ' >body @ + ! H ;
   
 \ Peephole optimization                                 05sep01jaw  \ Peephole optimization                                 05sep01jaw
   
 \ this section defines different compilation  \ this section defines different compilation

Removed from v.1.176  
changed lines
  Added in v.1.177


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