[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.26 and 1.27

version 1.26, Tue Aug 15 20:25:08 2000 UTC version 1.27, Sat Aug 26 13:29:48 2000 UTC
Line 109 
Line 109 
   
 : place  ( addr len to -- ) \ gforth  : place  ( addr len to -- ) \ gforth
     over >r  rot over 1+  r> move c! ;      over >r  rot over 1+  r> move c! ;
 : bounds ( beg count -- end beg ) \ gforth  : bounds ( addr u -- addr+u addr ) \ gforth
       \G Given a memory block represented by starting address @i{addr}
       \G and length @i{u} in aus, produce the end address @i{addr+u} and
       \G the start address in the right order for @code{u+do} or
       \G @code{?do}.
     over + swap ;      over + swap ;
   
 \ (word)                                               22feb93py  \ (word)                                               22feb93py

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help