Changeset 473 for CoolAudio/Systems

Timestamp:

Apr 10, 2015, 12:51:05 PM (9 years ago)

Author:

chronos

Message:

• Fixed: CoolAudio compilation warnings.

Location:

CoolAudio/Systems

Files:

• DSP/UAudioSystemDSP.pas (modified) (2 diffs)
• mplayer/UAudioSystemMPlayer.pas (modified) (2 diffs)

CoolAudio/Systems/DSP/UAudioSystemDSP.pas

@@ -8 +8 @@
 {$IFDEF AudioSystemDSP}
 uses
-  Classes, SysUtils, UAudioSystem, BaseUnix, UWavFile, StdCtrls, ExtCtrls;
+  Classes, SysUtils, UAudioSystem, BaseUnix, UWavFile, ExtCtrls;
 
 type
@@ -83 +83 @@
 procedure TAudioSystemDSP.OpenDevice;
 var
-  Stereo, Error: Longint;
+  Stereo: Longint;
 begin
   Write('Openning /dev/dsp');

CoolAudio/Systems/mplayer/UAudioSystemMPlayer.pas

@@ -189 +189 @@
 function TPlayerMPlayer.GetVolume: Real;
 begin
+  Result := 0;
 end;
 
@@ -251 +252 @@
 var
   MPOptions: String;
-  Vol: Real;
 begin
   if FPlaying then Stop;