anchor.diff:      function GetLinkName: string;
       function GetUserID: Integer;
       function GetUserName: string;
  -    function GetModTime: int64;
  +    function GetModTime: Int64;
       function GetNumHeaders: Integer;
       function GetMagic: string;
   
  
positive.code:      ((Length(CurItem.FileName) >= AB_TAR_NAMESIZE) or
        (Length(CurItem.LinkName) >= AB_TAR_NAMESIZE)) then
      raise EAbTarBadOp.Create; { Unsupported Type, Cannot Extract }
    { We will allow extractions if the file name is strickly less than 100 chars }
  
    FStream.Position := CurItem.StreamPosition+CurItem.FileHeaderCount*AB_TAR_RECORDSIZE;
    if CurItem.UncompressedSize <> 0 then
  
negative.code:   AttrEx         : TAbAttrExRec;
  begin
    if FArchReadOnly then
      raise EAbTarBadOp.Create; { Archive is read only }
  
    {init new archive stream}
    NewStream := TAbVirtualMemoryStream.Create;
  