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.ads | |
| 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.ads')
| -rw-r--r-- | gcc/ada/sinfo.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index cc27040..a7f4370 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -2028,6 +2028,7 @@ package Sinfo is -- Is_Delayed_Aspect (Flag14-Sem) -- Import_Interface_Present (Flag16-Sem) -- Aspect_Cancel (Flag11-Sem) + -- Class_Present (Flag6) (set False if not from Aspect with 'Class) -- Note: we should have a section on what pragmas are passed on to -- the back end to be processed. This section should note that pragma |