diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-08 14:22:26 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-08 14:22:26 +0200 |
| commit | 11f746c63bee0c3d67f8e05ca09fa1e802be8e77 (patch) | |
| tree | 9817fe1ba9b0d9e13daf4c747e8c5ddc7b71dc7a /gcc/ada/sem_attr.adb | |
| parent | 632eb367bfb68e43f806e477ad632efea00a4433 (diff) | |
| download | gcc-11f746c63bee0c3d67f8e05ca09fa1e802be8e77.zip gcc-11f746c63bee0c3d67f8e05ca09fa1e802be8e77.tar.gz gcc-11f746c63bee0c3d67f8e05ca09fa1e802be8e77.tar.bz2 | |
sem_attr.adb: Minor code reorganization (use Nkind_In) Minor reformatting
2008-08-08 Robert Dewar <dewar@adacore.com>
* sem_attr.adb: Minor code reorganization (use Nkind_In)
Minor reformatting
From-SVN: r138869
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index f32d0b7..b3077df 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -3831,8 +3831,7 @@ package body Sem_Attr is then -- Check OK prefix - if (Nkind (P) = N_Identifier - or else Nkind (P) = N_Operator_Symbol) + if Nkind_In (P, N_Identifier, N_Operator_Symbol) and then Chars (P) = Chars (PS) then null; |