aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-03 14:00:02 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-03 14:00:02 +0000
commitddf0dc62ba1e3bd772e8155d295ddb3487d5d305 (patch)
tree801dd2d41e17fb33e0fe9ddef81214edb407df56 /Game/Code/Classes/UAudioPlayback_SoftMixer.pas
parent71115fe4d1873e61101f2ceb2c99fc3554ac4171 (diff)
downloadusdx-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 '')
-rw-r--r--Game/Code/Classes/UAudioPlayback_SoftMixer.pas12
1 files changed, 6 insertions, 6 deletions
diff --git a/Game/Code/Classes/UAudioPlayback_SoftMixer.pas b/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
index 1dc28dcd..e145587c 100644
--- a/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
+++ b/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
@@ -39,8 +39,8 @@ type
class function ConvertAudioFormatToSDL(fmt: TAudioSampleFormat): UInt16;
function InitFormatConversion(): boolean;
- procedure Lock(); inline;
- procedure Unlock(); inline;
+ procedure Lock(); {$IFDEF HasInline}inline;{$ENDIF}
+ procedure Unlock(); {$IFDEF HasInline}inline;{$ENDIF}
public
constructor Create(Engine: TAudioPlayback_SoftMixer);
destructor Destroy(); override;
@@ -75,8 +75,8 @@ type
_volume: integer;
- procedure Lock(); inline;
- procedure Unlock(); inline;
+ procedure Lock(); {$IFDEF HasInline}inline;{$ENDIF}
+ procedure Unlock(); {$IFDEF HasInline}inline;{$ENDIF}
function GetVolume(): integer;
procedure SetVolume(volume: integer);
@@ -100,7 +100,7 @@ type
function InitializeAudioPlaybackEngine(): boolean; virtual; abstract;
function StartAudioPlaybackEngine(): boolean; virtual; abstract;
procedure StopAudioPlaybackEngine(); virtual; abstract;
- procedure AudioCallback(buffer: PChar; size: integer); inline;
+ procedure AudioCallback(buffer: PChar; size: integer); {$IFDEF HasInline}inline;{$ENDIF}
public
function GetName: String; virtual; abstract;
@@ -130,7 +130,7 @@ type
// Interface for Visualizer
function GetPCMData(var data: TPCMData): Cardinal;
- function GetMixer(): TAudioMixerStream; inline;
+ function GetMixer(): TAudioMixerStream; {$IFDEF HasInline}inline;{$ENDIF}
function GetAudioFormatInfo(): TAudioFormatInfo;
// Sounds