Changeset 292 for CoolStreaming/UBitStream.pas

Timestamp:

Nov 8, 2011, 6:44:59 AM (13 years ago)

Author:

george

Message:

• Fixed: Filtering unused bits in reading operation of TBitStream.

File:

• CoolStreaming/UBitStream.pas (modified) (1 diff)

CoolStreaming/UBitStream.pas

@@ -262 +262 @@
         TBytes(Buffer)[I] := TBytes(Buffer)[I] or
           ((Integer(Data) and ((1 shl PosInByte) - 1)) shl (8 - PosInByte));
-      if (I = (ByteCount - 1)) and (PosInByte > 0) then
-        TBytes(Buffer)[I] := TBytes(Buffer)[I] and ((1 shl (Count mod 8)) - 1);
+      if (I = (ByteCount - 1)) then
+        TBytes(Buffer)[I] := TBytes(Buffer)[I] and ((1 shl (Count - 8 * (ByteCount - 1))) - 1);
     end;
     Inc(FPosition, Count);