anchor.diff:  {--------}
   function TAbBitBucketStream.Read(var Buffer; Count : Longint) : Longint;
   var
  -  Chunk2Size : Int64;
  -  Chunk1Size : Int64;
  +  Chunk2Size : longint;
  +  Chunk1Size : longint;
     OutBuffer  : PByte;
   begin
     OutBuffer := @Buffer;
  
positive.code: implementation
  
  uses
    SysUtils, AbExcept;
  
  {Notes: The buffer is a circular queue without a head pointer; FTail
          is where data is next going to be written and it wraps
  
negative.code:       FBufPosn : longint;
        FPosn    : Int64;
        FSize    : Int64;
        FTail    : longint;
      protected
      public
        constructor Create(aBufSize : cardinal);
  