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

git-svn-id: trunk@27295 -

packages/fcl-sound/src/fpwavformat.pas

@@ -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+}
 

packages/fcl-sound/src/fpwavreader.pas

@@ -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;

packages/fcl-sound/src/fpwavwriter.pas

@@ -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;