projects / platform / upstream / gcc.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: bc17882) | patch
[Ada] Check token to be "access", reject it if not
authorEtienne Servais <servais@adacore.com>
Wed, 16 Mar 2022 16:48:22 +0000 (17:48 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 17 May 2022 08:25:40 +0000 (08:25 +0000)
commit7cff43618e6f300915ff9061608a974728315146
tree9396b8f11c5a3532a44d883f02c131e5cdfcdf6dtree | snapshot
parentbc17882341b506a7e1052fa5be7ddbb3220cb2b1commit | diff
[Ada] Check token to be "access", reject it if not

The parser skips the token without verifying it is indeed "access".  So
any token is accepted.

gcc/ada/

* par-ch3.adb (P_Access_Type_Definition): Outputs an error if
token is not "access".
gcc/ada/par-ch3.adb diff | blob | history
Domain: System / Toolchain;