[gforth] / gforth / string.fs  

gforth: gforth/string.fs

Diff for /gforth/string.fs between version 1.8 and 1.9

version 1.8, Mon Dec 31 19:02:24 2007 UTC version 1.9, Sat Sep 4 21:34:23 2010 UTC
Line 42 
Line 42 
 : $ins ( addr1 u addr2 off -- ) >r  : $ins ( addr1 u addr2 off -- ) >r
   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 @ free throw off ;  : $off ( addr -- )  dup @ dup IF  free throw off  ELSE  2drop  THEN ;
   
 \ dynamic string handling                              12dec99py  \ dynamic string handling                              12dec99py
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help