anchor.diff:  
   function TAbTarItem.GetMagic: string;
   begin
  -  Result := FTarItem.Magic;
  +  Result := string(FTarItem.Magic);
   end;
   
   function TAbTarItem.GetNativeFileAttributes : LongInt;
  
positive.code:   end;
  end;
  
  function IntToOctal(Value : Integer): string;
  const
    OctDigits  : array[0..7] of AnsiChar = '01234567';
  begin
  
negative.code:     if TarItem.CheckSumGood or (TarItem.ItemType in [UNKNOWN_ITEM]) then
        Result := atTar
      else
        Result := atUnknown;
    finally
      TarItem.Free;
    end;
    Strm.Position := StartPos;
  end;
  
  function PadString(const S : AnsiString; Places : Integer) : AnsiString;
  {
  Pads a string (S) with one right space and as many left spaces as
  needed to fill Places
  