anchor.diff:  { -------------------------------------------------------------------------- }
   procedure TAbArchive.DoConfirmProcessItem(Item : TAbArchiveItem;
     const ProcessType : TAbProcessType; var Confirm : Boolean);
  +const
  +  ProcessTypeToLogType : array[TAbProcessType] of TAbLogType =
  +    (ltAdd, ltDelete, ltExtract, ltFreshen, ltMove, ltReplace, ltFoundUnhandled);
   begin
     Confirm := True;
     if Assigned(FOnConfirmProcessItem) then
  
positive.code:   AbSpanSt,
    AbDfBase,
    AbConst;
  const
    CRLF = #13 + #10;
    ProcessTypeToLogType : array[TAbProcessType] of TAbLogType =
      (ltAdd, ltDelete, ltExtract, ltFreshen, ltMove, ltReplace, ltFoundUnhandled);
  
  
  
  
  { TAbArchiveItem implementation ============================================ }
  
negative.code: end;
  { -------------------------------------------------------------------------- }
  procedure TAbArchive.MakeLogEntry(const FN: string; LT : TAbLogType);
  const
    LogTypeRes : array[TAbLogType] of Integer =
      (AbLtAdd, AbLtDelete, AbLtExtract, AbLtFreshen, AbLtMove, AbLtReplace,
       AbLtStart, AbUnhandledEntity);
  var
    Buf : string;
  begin
    if Assigned(FLogStream) then begin
      Buf := FN + AbStrRes(LogTypeRes[LT]) + DateTimeToStr(Now) + sLineBreak;
      FLogStream.Write(Buf[1], Length(Buf) * SizeOf(Char));
    end;
  end;
  { -------------------------------------------------------------------------- }
  