TmwSimplePasPar.AttributeName missing ptStrConst

[ProHolz]

small issue in TmwSimplePasPar.AttributeName;
this will not be parsed correct:

 [test, 'GeoTest2']
  procedure GeoTest2;

Solution add :
case TokenID of
ptIn, ptOut, ptConst, ptVar, ptUnsafe , ptStringConst:
NextToken;
else

[bogdanpolak]

@ProHolz is it really correct Delphi syntax for Custom Attribute? I would expect something like that

[Test('GeoTest2')]

[ProHolz]

Wow,
after 3 Years ;-)
I think you are correct