[gforth] / gforth / string.fs  

gforth: gforth/string.fs

Diff for /gforth/string.fs between version 1.10 and 1.11

version 1.10, Thu Dec 30 21:46:14 2010 UTC version 1.11, Fri Dec 31 14:37:13 2010 UTC
Line 43 
Line 43 
   2dup dup $@len rot + swap $!len  $@ 1+ r> /string insert ;    2dup dup $@len rot + swap $!len  $@ 1+ r> /string insert ;
 : $+! ( addr1 u addr2 -- ) dup $@len $ins ;  : $+! ( addr1 u addr2 -- ) dup $@len $ins ;
 : $off ( addr -- )  dup @ dup IF  free throw off  ELSE  2drop  THEN ;  : $off ( addr -- )  dup @ dup IF  free throw off  ELSE  2drop  THEN ;
   : $init ( addr -- )  >r r@ off s" " r> $! ;
   
 \ dynamic string handling                              12dec99py  \ dynamic string handling                              12dec99py
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help