Diff for /gforth/contrib/divspeed.fs between versions 1.2 and 1.3

version 1.2, 2006/10/29 16:43:52 version 1.3, 2006/12/31 10:24:51
Line 22 Line 22
    M*/     M*/
 )  )
   
 : ms@ ( -- u | return time in ms)  utime 1 1000 m*/ d>s ;  : ms@ ( -- u | return time in ms)  cputime d+ 1 1000 m*/ d>s ;
 : ?allot ( u -- a ) here swap allot ;  : ?allot ( u -- a ) here swap allot ;
 : table ( v1 v2 ... vn n <name> -- | create a table of singles )   : table ( v1 v2 ... vn n <name> -- | create a table of singles ) 
         create dup cells ?allot over 1- cells + swap          create dup cells ?allot over 1- cells + swap

Removed from v.1.2  
changed lines
  Added in v.1.3


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