anchor.diff:    Result := FTarItem.UsrName;
   end;
   
  -function TAbTarItem.GetModTime: int64;
  +function TAbTarItem.GetModTime: Int64;
   begin
     Result := FTarItem.ModTime;
   end;
  
positive.code:       begin
          { Copy entire content of Header to String }
          PHeader := FTarHeaderList.Items[I+J];
          setstring(TempStr, PChar(PHeader), AB_TAR_RECORDSIZE);
          {Move(PHeader^, TempStr[1], AB_TAR_RECORDSIZE);}
          NameStr := NameStr + TempStr;
        end;
        if ExtraName <> 0 then
        begin
          PHeader := FTarHeaderList.Items[I+NumMHeaders+1];
          setstring(TempStr, PChar(PHeader), ExtraName-1);
          {Move(PHeader^, TempStr[1], ExtraName-1); }{ The string is null terminated }
          NameStr := NameStr + TempStr;
        end
        else { We already copied the entire name, but the string is still null terminated. }
        begin
          { Removed the last zero }
          setLength(NameStr, (Length(NameStr)-1));
        end;
        FTarItem.LinkName := NameStr;
      end { end long filename link flag }
  
negative.code:   Arr12 = array [0..11] of AnsiChar;
    Arr12B = array[0..11] of Byte;
    ArrName = array [0..AB_TAR_NAMESIZE-1] of AnsiChar;
    TAbTarHeaderFormat = (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);
  