Diff for /gforth/fft-bench.fs between versions 1.3 and 1.4

version 1.3, 2012/10/08 23:04:11 version 1.4, 2012/10/08 23:11:23
Line 6  require fft.fs Line 6  require fft.fs
   
 : setup ( -- ) 32 1024 * points >values ;  : setup ( -- ) 32 1024 * points >values ;
   
   <<<<<<< HEAD
 : main setup fft rfft normalize ;  : main setup fft rfft normalize ;
   
 Variable pass  Variable pass
Line 14  Variable pass Line 15  Variable pass
         i values z@ fround f>s fround f>s          i values z@ fround f>s fround f>s
         I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN          I $aa and I $55 and d<> IF i . i values z@ z. cr pass off THEN
     LOOP  pass @ IF ." passed test" cr THEN ;      LOOP  pass @ IF ." passed test" cr THEN ;
   =======
   : main setup fft rfft normalize ;
   >>>>>>> refs/heads/origin

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


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