Message ID | 20130104091844.GA24883@adacore.com |
---|---|
State | New |
Headers | show |
Index: par-ch13.adb =================================================================== --- par-ch13.adb (revision 194841) +++ par-ch13.adb (working copy) @@ -105,6 +105,13 @@ if Token = Tok_Arrow then Result := True; + -- The identifier may be the name of a boolean aspect with a + -- defaulted True value. Further checks when analyzing aspect + -- specification. + + elsif Token = Tok_Comma then + Result := True; + elsif Token = Tok_Apostrophe then Scan; -- past apostrophe