diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-06-24 09:07:51 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-12 12:24:14 +0000 |
| commit | 2b98bb583fbf9110e7282c1221448c15efb4bd2e (patch) | |
| tree | 3429656a59028d516efa5a1ad21a4425e313d859 /gcc/ada | |
| parent | 7e5a0317adbf1c9bc2ee5f6446bd161854c03373 (diff) | |
| download | gcc-2b98bb583fbf9110e7282c1221448c15efb4bd2e.zip gcc-2b98bb583fbf9110e7282c1221448c15efb4bd2e.tar.gz gcc-2b98bb583fbf9110e7282c1221448c15efb4bd2e.tar.bz2 | |
[Ada] Don't check for misspelling of Not_A_Restriction_Id
When looking for a misspelling of a restriction identifier we should
ignore the Not_A_Restriction_Id literal, because it doesn't represent
any restriction.
gcc/ada/
* sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
Fix range of iteration.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 3591040..982fdf8 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -10561,7 +10561,7 @@ package body Sem_Prag is -- Check for possible misspelling - for J in Restriction_Id loop + for J in All_Restrictions loop declare Rnm : constant String := Restriction_Id'Image (J); |