TPasSyntaxTreeBuilder.Lexer hides TmwSimplePasPar.Lexer

[gabr42]

TPasSyntaxTreeBuilder's Lexer property hides inherited TmwSimplePasPar.Lexer. Because of that, the only way to add a custom conditional define is to case TPasSyntaxTreeBuilder into TmwSimplePasPar which is, well, ugly (marked <--- HERE in the example below).

builder := TPasSyntaxTreeBuilder.Create;
try
  fileStream := TStringStream.Create;
  try
      fileStream.LoadFromFile(fileName);
      builder.IncludeHandler := TIncludeHandler.Create(Self, fileName);
      builder.InitDefinesDefinedByCompiler;
      TmwSimplePasPar(builder).Lexer.AddDefine('DEBUG');               // <--- HERE
      syntaxTree := builder.Run(strStream);
  finally FreeAndNil(fileStream); end;
finally FreeAndNil(builder); end;