range-check fix:

  "array[0..0] of TType" changed to 
  "array[0 .. (MaxInt div SizeOf(TType))-1] of  TType"

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1347 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 8 insertions, 6 deletions

diff --git a/src/lib/fft/UFFT.pas b/src/lib/fft/UFFT.pas
index 87c981e0..6b094c98 100644
--- a/src/lib/fft/UFFT.pas
+++ b/src/lib/fft/UFFT.pas
@@ -52,7 +52,7 @@ unit UFFT;
 
 interface
 type
-  TSingleArray = array[0..0] of Single;
+  TSingleArray = array[0 .. (MaxInt div SizeOf(Single))-1] of Single;
   PSingleArray = ^TSingleArray;
 
   TFFTWindowFunc = (
@@ -142,9 +142,11 @@ implementation
 uses
   SysUtils;
 
-type TIntArray = array[0..0] of Integer;
-type TIntIntArray = array[0..0] of ^TIntArray;
-var gFFTBitTable: ^TIntIntArray;
+type TIntArray = array[0 .. (MaxInt div SizeOf(Integer))-1] of Integer;
+type PIntArray = ^TIntArray;
+type TIntIntArray = array[0 .. (MaxInt div SizeOf(PIntArray))-1] of PIntArray;
+type PIntIntArray = ^TIntIntArray;
+var gFFTBitTable: PIntIntArray;
 const MaxFastBits: Integer = 16;
 
 function IsPowerOfTwo(x: Integer): Boolean;
@@ -197,9 +199,9 @@ begin
 
   len := 2;
   for b := 1 to MaxFastBits do begin
-    GetMem(gFFTBitTable^[b - 1], len * sizeof(Single));
+    GetMem(gFFTBitTable[b - 1], len * sizeof(Single));
     for i := 0 to len-1 do
-      gFFTBitTable^[b - 1][i] := ReverseBits(i, b);
+      gFFTBitTable[b - 1][i] := ReverseBits(i, b);
       len := len shl 1;
    end;
 end;