anchor.diff:      FShowing   : TShowing;
     strict protected
       function  AttributestoStr(const attributes: TArray<TAttributeEntry>): string;
  -    procedure DumpAnalysis(log: TStrings; const unitInfo: TDLUnitInfo);
  +    procedure DumpAnalysis(log: TStrings; const unitInfo: IDLUnitInfo);
       procedure DumpSyntaxTree(log: TStrings; node: TSyntaxNode; const prefix: string);
  -    procedure DumpUses(log: TStrings; const usesList: IList<string>; const location:
  -      TDLCoordinate);
  +    procedure DumpUses(log: TStrings; const usesList: TDLUnitList;
  +      const location: TDLCoordinate);
       procedure LoadSettings;
       procedure SaveSettings;
       procedure ShowAnalysis;
  
positive.code:   end;
  end;
  
  procedure TfrmDLMain.DumpAnalysis(log: TStrings; const unitInfo: TDLUnitInfo);
  var
    isProgram: boolean;
  begin
  
negative.code:     DumpSyntaxTree(log, children[i], newPrefix);
  end;
  
  procedure TfrmDLMain.DumpUses(log: TStrings; const usesList: TDLUnitList;
    const location: TDLCoordinate);
  var
    unitName: string;
  begin
  