diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-03 14:00:02 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-03 14:00:02 +0000 |
| commit | ddf0dc62ba1e3bd772e8155d295ddb3487d5d305 (patch) | |
| tree | 801dd2d41e17fb33e0fe9ddef81214edb407df56 /Game/Code/lib/fft | |
| parent | 71115fe4d1873e61101f2ceb2c99fc3554ac4171 (diff) | |
| download | usdx-ddf0dc62ba1e3bd772e8155d295ddb3487d5d305.tar.gz usdx-ddf0dc62ba1e3bd772e8155d295ddb3487d5d305.tar.xz usdx-ddf0dc62ba1e3bd772e8155d295ddb3487d5d305.zip | |
delphi 7 compatibility (inline was introduced with delphi 2005)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@902 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/lib/fft')
| -rw-r--r-- | Game/Code/lib/fft/UFFT.pas | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Game/Code/lib/fft/UFFT.pas b/Game/Code/lib/fft/UFFT.pas index e97812f6..1c4c3e75 100644 --- a/Game/Code/lib/fft/UFFT.pas +++ b/Game/Code/lib/fft/UFFT.pas @@ -45,9 +45,11 @@ Fast Fourier Transform routines. unit UFFT; -{$ifdef fpc} - {$mode delphi}{$H+} -{$endif} +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + +{$I switches.inc} interface type @@ -55,7 +57,7 @@ type PSingleArray = ^TSingleArray; procedure PowerSpectrum(NumSamples: Integer; In_, Out_: PSingleArray); -procedure WindowFunc(NumSamples: Integer; in_: PSingleArray); inline; +procedure WindowFunc(NumSamples: Integer; in_: PSingleArray); {$IFDEF HasInline}inline;{$ENDIF} implementation @@ -124,7 +126,7 @@ begin end; end; -function FastReverseBits(i, NumBits: Integer): Integer; inline; +function FastReverseBits(i, NumBits: Integer): Integer; {$IFDEF HasInline}inline;{$ENDIF} begin if (NumBits <= MaxFastBits) then result := gFFTBitTable[NumBits - 1][i] @@ -334,7 +336,7 @@ begin FreeMem(ImagOut); end; -procedure WindowFunc(NumSamples: Integer; in_: PSingleArray); inline; +procedure WindowFunc(NumSamples: Integer; in_: PSingleArray); {$IFDEF HasInline}inline;{$ENDIF} var i: Integer; begin |