瀏覽代碼

* fixed range check error

git-svn-id: trunk@6823 -
Jonas Maebe 18 年之前
父節點
當前提交
fc3d9ebbc7
共有 1 個文件被更改,包括 1 次插入1 次删除
  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}