anchor.diff:      end;
       DoArchiveProgress(100, Abort);
     end;
  -end;
  -{ -------------------------------------------------------------------------- }
  +end;          
  +{ -------------------------------------------------------------------------- }
  +
  +class function TAbArchive.GetMaxFileSize: Int64;
  +begin
  +    Result := $FFFFFFFF;  //Make same as old
  +end;
  +{ -------------------------------------------------------------------------- }
  +
   procedure TAbArchive.TestTaggedItems;
     {test all tagged items in the archive}
   var
  
positive.code:     function GetLastModFileDate : Word; virtual;
      function GetLastModFileTime : Word; virtual;
      function GetStoredPath : string;
      function GetUncompressedSize : LongInt; virtual;
      procedure SetCompressedSize(const Value : LongInt); virtual;
      procedure SetCRC32(const Value : Longint); virtual;
      procedure SetExternalFileAttributes( Value : LongInt ); virtual;
      procedure SetFileName(const Value : string); virtual;
      procedure SetIsEncrypted(Value : Boolean); virtual;
      procedure SetLastModFileDate(const Value : Word); virtual;
      procedure SetLastModFileTime(const Value : Word); virtual;
      procedure SetUncompressedSize(const Value : LongInt); virtual;
  
    public {methods}
      constructor Create;
  
negative.code:     property Tagged : Boolean
        read FTagged
        write FTagged;
      property UncompressedSize : Int64
        read GetUncompressedSize
        write SetUncompressedSize;
  
  