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

fcl-sound: no variable case in unit names please (can cause troubles on case-sensitive FS), compile w/o C-style operators enabled

Browse Source 
git-svn-id: trunk@27295 -
This commit is contained in:
Károly Balogh 2014-03-27 10:26:01 +00:00
parent 775ac591df
commit b5eca42cc0
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-sound/src/fpwavformat.pas
View File

@ -13,7 +13,7 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
unit fpWavFormat;
unit fpwavformat;
{$mode objfpc}{$H+}

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

@ -13,7 +13,7 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
unit fpWavReader;
unit fpwavreader;
{$mode objfpc}{$H+}
@ -133,8 +133,8 @@ begin
sz := Min(BufferSize, DataChunk.Size - ChunkPos);
sz := fStream.Read(p[i], sz);
EoF := sz <= 0;
ChunkPos += sz;
i += sz;
Inc(ChunkPos, sz);
Inc(i, sz);
end;
end;
Result := i;

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

@ -13,7 +13,7 @@
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
unit fpWavWriter;
unit fpwavwriter;
{$mode objfpc}{$H+}
@ -142,7 +142,7 @@ begin
with fStream do begin
sz := Write(Buffer, BufferSize);
if sz < 0 then Exit;
Result += sz;
Inc(Result, sz);
end;
end;