Diff for /gforth/cross.fs between versions 1.152 and 1.154

version 1.152, 2006/02/12 23:45:53 version 1.154, 2006/02/18 14:54:03
Line 1771  Ghost state drop Line 1771  Ghost state drop
   ?DO  dup T c@ H I T c! H 1+    ?DO  dup T c@ H I T c! H 1+
   tchar +LOOP  drop ;    tchar +LOOP  drop ;
   
   : tcallot ( char size -- )
       0 ?DO  dup T c, H  tchar +LOOP  drop ;
   
 : td, ( d -- )  : td, ( d -- )
 \G Store a host value as one cell into the target  \G Store a host value as one cell into the target
   there tcell X allot TD! ;    there tcell X allot TD! ;
Line 2821  by Create Line 2824  by Create
 \ Variable tudp 0 tudp !  \ Variable tudp 0 tudp !
   
 : u,  ( n -- udp )  : u,  ( n -- udp )
   current-region >r user-region activate .regions    current-region >r user-region activate
   X here swap X , tup@ - .regions    X here swap X , tup@ -
   r> activate ;    r> activate ;
   
 : au, ( n -- udp )  : au, ( n -- udp )

Removed from v.1.152  
changed lines
  Added in v.1.154


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