paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:49:12 +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 but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
} }
unit fpWavFormat; unit fpwavformat;
{$mode objfpc}{$H+} {$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 but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
} }
unit fpWavReader; unit fpwavreader;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -133,8 +133,8 @@ begin
sz := Min(BufferSize, DataChunk.Size - ChunkPos); sz := Min(BufferSize, DataChunk.Size - ChunkPos);
sz := fStream.Read(p[i], sz); sz := fStream.Read(p[i], sz);
EoF := sz <= 0; EoF := sz <= 0;
ChunkPos += sz; Inc(ChunkPos, sz);
i += sz; Inc(i, sz);
end; end;
end; end;
Result := i; 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 but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
} }
unit fpWavWriter; unit fpwavwriter;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -142,7 +142,7 @@ begin
with fStream do begin with fStream do begin
sz := Write(Buffer, BufferSize); sz := Write(Buffer, BufferSize);
if sz < 0 then Exit; if sz < 0 then Exit;
Result += sz; Inc(Result, sz);
end; end;
end; end;