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

version 1.4, 2012/10/08 23:11:23 version 1.5, 2012/10/08 23:12:50
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 15  Variable pass Line 14  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.4  
changed lines
  Added in v.1.5


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