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