paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 18:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove debug statements

Browse Source 
git-svn-id: trunk@44373 -
This commit is contained in:
michael 2020-03-27 06:28:20 +00:00
parent 1aad73217c
commit 9464fb3fc1
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-sound/src/fpwavreader.pas
View File

@ -95,10 +95,8 @@ begin
Result := Result and (fStream.Read(fmt, sizeof(fmt)) = sizeof(fmt)); Result := Result and (fStream.Read(fmt, sizeof(fmt)) = sizeof(fmt));
LEtoN(fmt); LEtoN(fmt);
Result := Result and (fmt.ChunkHeader.ID = AUDIO_CHUNK_ID_fmt); Result := Result and (fmt.ChunkHeader.ID = AUDIO_CHUNK_ID_fmt);
if Result and (fmt.Format <> 1) then begin if Result and (fmt.Format <> 1) then
writeln('WAVE file is using compression. Sorry, cannot load. Please provide uncompressed .wav');
Exit(False); Exit(False);
end;
end; end;
function Min(a, b: Integer): Integer; function Min(a, b: Integer): Integer;
@ -116,7 +114,6 @@ var
p: TByteArray absolute Buffer; p: TByteArray absolute Buffer;
i: Integer; i: Integer;
begin begin
WriteLn('[TWavReader.ReadBuf] BufferSize = ', BufferSize);
i := 0; i := 0;
while (not EoF) and (i < bufferSize) do begin while (not EoF) and (i < bufferSize) do begin
if ChunkPos >= DataChunk.Size then begin if ChunkPos >= DataChunk.Size then begin

1
packages/fcl-sound/src/fpwavwriter.pas
View File

@ -137,7 +137,6 @@ function TWavWriter.WriteBuf(var Buffer; BufferSize: Integer): Integer;
var var
sz: Integer; sz: Integer;
begin begin
WriteLn('[TWavWriter.WriteBuf] BufferSize = ', BufferSize);
Result := 0; Result := 0;
with fStream do begin with fStream do begin
sz := Write(Buffer, BufferSize); sz := Write(Buffer, BufferSize);