Procházet zdrojové kódy

* fixed range check error

git-svn-id: trunk@6823 -
Jonas Maebe před 18 roky
rodič
revize
fc3d9ebbc7
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      packages/extra/fftw/fftw_s.pas

+ 1 - 1
packages/extra/fftw/fftw_s.pas

@@ -32,7 +32,7 @@ type    complex_single=record
 
         fftw_plan_single=type pointer;
 
-        fftw_sign=(fftw_backward=1,fftw_forward=$ffffffff);
+        fftw_sign=(fftw_forward=-1,fftw_backward=1);
 
         fftw_flag=(fftw_measure,            {generated optimized algorithm}
                    fftw_destroy_input,      {default}