diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-10-12 10:20:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 12:20:00 +0200 |
| commit | 811ef5ba910ae7449d73226143271a89d1da6936 (patch) | |
| tree | 6f7449e9ba90b9416b794aba7df5b126a7544426 /gcc/ada/sinfo.adb | |
| parent | 92cbddaa2ae10e2cb208067b0fc2871ab81a62bc (diff) | |
| download | gcc-811ef5ba910ae7449d73226143271a89d1da6936.zip gcc-811ef5ba910ae7449d73226143271a89d1da6936.tar.gz gcc-811ef5ba910ae7449d73226143271a89d1da6936.tar.bz2 | |
par-ch13.adb (P_Aspect_Specifications): Fix handling of 'Class aspects
2010-10-12 Robert Dewar <dewar@adacore.com>
* par-ch13.adb (P_Aspect_Specifications): Fix handling of 'Class aspects
* sem_ch13.adb (Analyze_Aspect_Specifications): Fix bad Sloc on aspects
* sem_prag.adb (Fix_Error): Only change pragma names for pragmas from
aspects.
(Check_Optional_Identifier): Handle case of direct arguments
(Chain_PPC): Test for abstract case, giving appropriate messages
* sinfo.ads, sinfo.adb (Class_Present): Allowed on N_Pragma node
From-SVN: r165355
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 5a14484..ead2fcb 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -412,7 +412,8 @@ package body Sinfo is (N : Node_Id) return Boolean is begin pragma Assert (False - or else NT (N).Nkind = N_Aspect_Specification); + or else NT (N).Nkind = N_Aspect_Specification + or else NT (N).Nkind = N_Pragma); return Flag6 (N); end Class_Present; @@ -3372,7 +3373,8 @@ package body Sinfo is (N : Node_Id; Val : Boolean := True) is begin pragma Assert (False - or else NT (N).Nkind = N_Aspect_Specification); + or else NT (N).Nkind = N_Aspect_Specification + or else NT (N).Nkind = N_Pragma); Set_Flag6 (N, Val); end Set_Class_Present; |