anchor.diff:   * the Initial Developer. All Rights Reserved.
    *
    * Contributor(s):
  + * Joel Haynie
  + * Craig Peterson <capeterson@users.sourceforge.net>
    *
    * ***** END LICENSE BLOCK ***** *)
   
  
positive.code:   Arr12 = array [0..11] of AnsiChar;
    Arr12B = array[0..11] of Byte;
    ArrName = array [0..AB_TAR_NAMESIZE-1] of AnsiChar;
    HeaderFormat = (UNKNOWN_FORMAT, V7_FORMAT, OLDGNU_FORMAT, GNU_FORMAT, USTAR_FORMAT, STAR_FORMAT, POSIX_FORMAT);
    TarItemType = (SUPPORTED_ITEM, UNSUPPORTED_ITEM, UNKNOWN_ITEM);
    HeaderType = (FILE_HEADER, META_DATA_HEADER, MD_DATA_HEADER, UNKNOWN_HEADER);
    MagicType = (GNU_OLD, NORMAL);
  
negative.code:   FTarItem.Dirty := True;
  end;
  
  procedure TAbTarItem.SetModTime(const Value: Int64);
  var
    S: AnsiString;
  begin
  