From 94cefdb78044e0f9996e3032de34b690de98b708 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 12:34:07 +0000
Subject: - revert to 1777 - Ocean.ini and SVN properties are not reverted

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

(limited to 'unicode/src/base/URecord.pas')

diff --git a/unicode/src/base/URecord.pas b/unicode/src/base/URecord.pas
index 2c2093a0..8f37262d 100644
--- a/unicode/src/base/URecord.pas
+++ b/unicode/src/base/URecord.pas
@@ -54,7 +54,7 @@ type
 
       function GetToneString: string; // converts a tone to its string represenatation;
 
-      procedure BoostBuffer(Buffer: PByteArray; Size: integer);
+      procedure BoostBuffer(Buffer: PByteArray; Size: cardinal);
       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: integer;
+      procedure HandleMicrophoneData(Buffer: PByteArray; Size: cardinal;
                                      InputDevice: TAudioInputDevice);
   end;
 
@@ -459,7 +459,7 @@ begin
     Result := '-';
 end;
 
-procedure TCaptureBuffer.BoostBuffer(Buffer: PByteArray; Size: integer);
+procedure TCaptureBuffer.BoostBuffer(Buffer: PByteArray; Size: cardinal);
 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: integer; InputDevice: TAudioInputDevice);
+procedure TAudioInputProcessor.HandleMicrophoneData(Buffer: PByteArray; Size: cardinal; 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,11 +611,13 @@ 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