From 07d79daa7ca0af3cd24820242a3428fb18f3403b Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 10 Mar 2008 02:10:50 +0000
Subject: removed a few unused local variables

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@949 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UAudioDecoder_FFMpeg.pas     | 14 +++++++-------
 Game/Code/Classes/UAudioInput_Portaudio.pas    |  9 +++++----
 Game/Code/Classes/UAudioPlayback_SoftMixer.pas |  6 +++---
 3 files changed, 15 insertions(+), 14 deletions(-)

diff --git a/Game/Code/Classes/UAudioDecoder_FFMpeg.pas b/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
index 1ac677ce..8903bc09 100644
--- a/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
+++ b/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
@@ -268,16 +268,16 @@ begin
 end;
 
 function TFFMpegDecodeStream.GetPosition(): real;
-var
-  bytes: integer;
+//var
+//  bytes: integer;
 begin
   // see: tutorial on synching (audio-clock)
   Result := 0;
 end;
 
 procedure TFFMpegDecodeStream.SetPosition(Time: real);
-var
-  bytes:    integer;
+//var
+//  bytes:    integer;
 begin
   Lock();
   seekPos := Trunc(Time * AV_TIME_BASE);
@@ -505,7 +505,7 @@ end;
 
 function TFFMpegDecodeStream.ReadData(Buffer : PChar; BufSize: integer): integer;
 var
-  outStream       : TFFMpegDecodeStream;
+  //outStream       : TFFMpegDecodeStream;
   len1,
   audio_size      : integer;
   len             : integer;
@@ -609,8 +609,8 @@ var
   pCodec         : PAVCodec;
   ffmpegStreamID : Integer;
   ffmpegStream   : PAVStream;
-  wanted_spec,
-  csIndex        : integer;
+//  wanted_spec,
+  //csIndex        : integer;
   stream         : TFFMpegDecodeStream;
 begin
   result := nil;
diff --git a/Game/Code/Classes/UAudioInput_Portaudio.pas b/Game/Code/Classes/UAudioInput_Portaudio.pas
index 077598a9..f055c9d6 100644
--- a/Game/Code/Classes/UAudioInput_Portaudio.pas
+++ b/Game/Code/Classes/UAudioInput_Portaudio.pas
@@ -2,6 +2,7 @@ unit UAudioInput_Portaudio;
 
 interface
 
+{$IFDEF FPC}
 {$IFDEF FPC}
   {$MODE Delphi}
 {$ENDIF}
@@ -136,10 +137,10 @@ var
   paApiInfo:   PPaHostApiInfo;
   deviceName:  string;
   deviceIndex: TPaDeviceIndex;
-  deviceInfo:  PPaDeviceInfo;
-  sourceCnt:   integer;
+  //deviceInfo:  PPaDeviceInfo;
+  //sourceCnt:   integer;
   sourceIndex: integer;
-  sourceName:  string;
+  //sourceName:  string;
   channelCnt:  integer;
   SC:          integer; // soundcard
   err:         TPaError;
@@ -354,7 +355,7 @@ end;
 destructor TAudioInput_Portaudio.Destroy;
 var
   i: integer;
-  paSoundCard: TPortaudioInputDevice;
+  //paSoundCard: TPortaudioInputDevice;
 begin
   Pa_Terminate();
   for i := 0 to High(AudioInputProcessor.Device) do
diff --git a/Game/Code/Classes/UAudioPlayback_SoftMixer.pas b/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
index 9fd9028a..7c7a09aa 100644
--- a/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
+++ b/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
@@ -342,7 +342,7 @@ end;
 
 function TGenericPlaybackStream.InitFormatConversion(): boolean;
 var
-  err: integer;
+  //err: integer;
   srcFormat: UInt16;
   dstFormat: UInt16;
   srcFormatInfo: TAudioFormatInfo;
@@ -785,8 +785,8 @@ begin
 end;
 
 function TAudioPlayback_SoftMixer.Open(const Filename: string): boolean;
-var
-  decodeStream: TAudioDecodeStream;
+//var
+//  decodeStream: TAudioDecodeStream;
 begin
   Result := false;
 
-- 
cgit v1.2.3