anchor.diff:    FLastModFileTime := Value;
   end;
   { -------------------------------------------------------------------------- }
  -procedure TAbArchiveItem.SetUnCompressedSize(const Value : LongInt);
  +procedure TAbArchiveItem.SetUnCompressedSize(const Value : Int64);
   begin
     FUnCompressedSize := Value;
   end;
  
positive.code: { ===== TAbArchive ========================================================== }
  type
    TAbArchive = class(TObject)
    public
      FStream         : TStream;
      FStatus         : TAbArchiveStatus;
  
negative.code:     FImageNumber    : Word;
      FInStream       : TStream;
      FIsDirty        : Boolean;
      FSpanningThreshold      : Int64;
      FItemList       : TAbArchiveList;
      FLogFile        : string;
      FLogging        : Boolean;
  