anchor.diff:    end;
   
   type
  +  PAbPointerList = ^TAbPointerList;
  +  TAbPointerList = array[0..MaxInt div SizeOf(Pointer) - 1] of Pointer;
  +
     TAbDfInputWindow = class
       private
         FAdvanceStart : boolean;
  
positive.code:   i : integer;
    ByteCount : integer;
    Percent   : integer;
    HashChains: PPointerList;
    HashHeads : PPointerList;
    HashInx   : integer;
    CurPos    : PAnsiChar;
  begin
  
negative.code:       FBufferEnd    : PAnsiChar;
        FBytesUsed    : longint;
        FChainLen     : integer;
        FHashChains   : PAbPointerList;
        FHashHeads    : PAbPointerList;
        FHashIndex    : integer;
        FChecksum     : longint;
        FCurrent      : PAnsiChar;
  