anchor.diff:    strict private
       FLine, FCol: Integer;
     public
  -    constructor Create(Line, Col: Integer); reintroduce;
  +    constructor Create(Line, Col: Integer; Msg: string); reintroduce;
   
       property Line: Integer read FLine;
       property Col: Integer read FCol;
  
positive.code:   const Typ: TMessageEventType; const Msg: string; X, Y: Integer);
  begin
    if Typ = TMessageEventType.meError then
      raise EParserException.Create(Y, X);
  end;
  
  procedure TPasSyntaxTreeBuilder.OutParameter;
  
negative.code:     end;
    except
      on EListError do
        raise EParserException.Create(Lexer.PosXY.Y, Lexer.PosXY.X, 'Unknown Parser Fault');
    end;
  
    Assert(FStack.Count = 0);
  