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

version 1.2, 2006/10/29 16:43:52 version 1.4, 2007/02/08 14:07:31
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
Line 30 Line 30
   
 1 31 lshift 1- constant  DIVIDEND  1 31 lshift 1- constant  DIVIDEND
 DIVIDEND negate s>d 2constant D_DIVIDEND  DIVIDEND negate s>d 2constant D_DIVIDEND
 1000000     constant  N  10000000     constant  N
   
 \ Some helpful macros  \ Some helpful macros
 variable xt  variable xt

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


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