anchor.diff:    LazFileUtils, FIleUtil, LCLIntf;
   
   type
  -  TList = array of String;
  +  TDirsArray = array of String;
  +
  +  { TCopyDir }
  +
     TCopyDir = class
     private
       _dirSource, _dirTarget: String;
  
positive.code:     _fs: TFileSearcher;
      _log: TStringList;
  
      _files: TList;
      _directories: TList;
  
      _copied: Boolean;
      _dirsCreated: Boolean;
      _enumerated: Boolean;
  
      _copyingDone: TList;
      _copyingFailed: TList;
      _creatingDone: TList;
      _creatingFailed: TList;
  
      _preserveFileDates: Boolean;
      _preserveAttributes: Boolean;
  
negative.code: *       (affecting lines 181-182) -- SPECIAL THANKS TO onivan!
  *     - fixed a bug causing an error on Unix machines (affecting line 292) --
  *       SPECIAL THANKS TO Caladan!
  * 2020.05.31 - changes by Alexey Torgashin
  *
  *  Greetings,
  *  bastla
  