From 1f6d632264411399a142393da0cbc2fb478159b2 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 9 Apr 2009 23:52:22 +0000
Subject: Warnings and Notes cleanup

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1663 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/URecord.pas | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'src/base')

diff --git a/src/base/URecord.pas b/src/base/URecord.pas
index 8f37262d..2c2093a0 100644
--- a/src/base/URecord.pas
+++ b/src/base/URecord.pas
@@ -54,7 +54,7 @@ type
 
       function GetToneString: string; // converts a tone to its string represenatation;
 
-      procedure BoostBuffer(Buffer: PByteArray; Size: cardinal);
+      procedure BoostBuffer(Buffer: PByteArray; Size: integer);
       procedure ProcessNewBuffer(Buffer: PByteArray; BufferSize: integer);
 
       // we call it to analyze sound by checking Autocorrelation
@@ -135,7 +135,7 @@ type
       procedure UpdateInputDeviceConfig;
 
       // handle microphone input
-      procedure HandleMicrophoneData(Buffer: PByteArray; Size: cardinal;
+      procedure HandleMicrophoneData(Buffer: PByteArray; Size: integer;
                                      InputDevice: TAudioInputDevice);
   end;
 
@@ -459,7 +459,7 @@ begin
     Result := '-';
 end;
 
-procedure TCaptureBuffer.BoostBuffer(Buffer: PByteArray; Size: cardinal);
+procedure TCaptureBuffer.BoostBuffer(Buffer: PByteArray; Size: integer);
 var
   i:            integer;
   Value:        longint;
@@ -602,7 +602,7 @@ end;
  *   Length - number of bytes in Buffer
  *   Input - Soundcard-Input used for capture
  *}
-procedure TAudioInputProcessor.HandleMicrophoneData(Buffer: PByteArray; Size: cardinal; InputDevice: TAudioInputDevice);
+procedure TAudioInputProcessor.HandleMicrophoneData(Buffer: PByteArray; Size: integer; InputDevice: TAudioInputDevice);
 var
   MultiChannelBuffer:      PByteArray;  // buffer handled as array of bytes (offset relative to channel)
   SingleChannelBuffer:     PByteArray;  // temporary buffer for new samples per channel
@@ -611,13 +611,11 @@ var
   CaptureChannel:          TCaptureBuffer;
   AudioFormat:             TAudioFormatInfo;
   SampleSize:              integer;
-  SampleCount:             integer;
   SamplesPerChannel:       integer;
   i:                       integer;
 begin
   AudioFormat := InputDevice.AudioFormat;
   SampleSize := AudioSampleSize[AudioFormat.Format];
-  SampleCount := Size div SampleSize;
   SamplesPerChannel := Size div AudioFormat.FrameSize;
 
   SingleChannelBufferSize := SamplesPerChannel * SampleSize;
-- 
cgit v1.2.3