anchor.diff:    try
       Stream.LoadFromFile(FileName);
       Builder := TPasSyntaxTreeBuilder.Create;
  +    Builder.InterfaceOnly := InterfaceOnly;
       try
         Builder.InitDefinesDefinedByCompiler;
         Result := Builder.Run(Stream);
  
positive.code:   inherited;
  end;
  
  class function TPasSyntaxTreeBuilder.Run(const FileName: string): TSyntaxNode;
  var
    Stream: TStringStream;
    Builder: TPasSyntaxTreeBuilder;
  
negative.code:     destructor Destroy; override;
  
      function Run(SourceStream: TStream): TSyntaxNode; reintroduce; overload; virtual;
      class function Run(const FileName: string;
        InterfaceOnly: Boolean = False): TSyntaxNode; reintroduce; overload; static;
    end;
  
  implementation
  