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/UAudioInput_Portaudio.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Game/Code/Classes/UAudioInput_Portaudio.pas')

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
-- 
cgit v1.2.3