diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-01 12:50:07 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-01 12:50:07 +0000 |
commit | ddf1337b5fed79fd8dc0634ddcf64d5620c19e1b (patch) | |
tree | 592fedc48daee6974dff82477bfaa858be60a327 /gcc/ada/aspects.adb | |
parent | 3430bf31e88c262034c8e7798374829f770d112d (diff) | |
download | gcc-ddf1337b5fed79fd8dc0634ddcf64d5620c19e1b.tar.gz |
2011-08-01 Robert Dewar <dewar@adacore.com>
* par-endh.adb: Minor reformatting.
2011-08-01 Robert Dewar <dewar@adacore.com>
* aspects.ads, aspects.adb: Add aspects for library unit pragmas
(Pre_Post_Aspects): New subtype.
* par-ch12.adb (P_Generic): New syntax for aspects in packages
* par-ch13.adb (P_Aspect_Specifications): Add Semicolon parameter
* par-ch7.adb (P_Package): Remove Decl parameter
(P_Package): Handle new syntax for aspects (before IS)
* par-ch9.adb (P_Protected_Definition): Remove Decl parameter, handle
new aspect syntax
(P_Task_Definition): Remove Decl parameter, handle new aspect syntax
* par.adb (P_Aspect_Specifications): Add Semicolon parameter
(P_Package): Remove Decl parameter
* sem_ch13.adb (Analyze_Aspect_Specifications): Handle library unit
aspects
* sem_ch7.adb (Analyze_Package_Declaration): Analyze new format aspect
specs
* sem_util.ads, sem_util.adb (Static_Boolean): New function
* sinfo.ads: Document new syntax for aspects in packages etc.
* sprint.adb: Handle new syntax of aspects before IS in package
2011-08-01 Thomas Quinot <quinot@adacore.com>
* atree.ads: Minor reformatting.
* sem_prag.adb: Minor reformatting.
2011-08-01 Robert Dewar <dewar@adacore.com>
* exp_util.adb (Insert_Actions): Fix error in handling Actions for
case expr alternative.
2011-08-01 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb: Fix typo.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177027 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/aspects.adb')
-rwxr-xr-x | gcc/ada/aspects.adb | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/gcc/ada/aspects.adb b/gcc/ada/aspects.adb index ca87c6c2c1d..3ad24698879 100755 --- a/gcc/ada/aspects.adb +++ b/gcc/ada/aspects.adb @@ -143,14 +143,18 @@ package body Aspects is N_Object_Declaration => True, N_Package_Declaration => True, N_Package_Instantiation => True, + N_Package_Specification => True, N_Private_Extension_Declaration => True, N_Private_Type_Declaration => True, N_Procedure_Instantiation => True, + N_Protected_Body => True, N_Protected_Type_Declaration => True, N_Single_Protected_Declaration => True, N_Single_Task_Declaration => True, + N_Subprogram_Body => True, N_Subprogram_Declaration => True, N_Subtype_Declaration => True, + N_Task_Body => True, N_Task_Type_Declaration => True, others => False); @@ -165,8 +169,8 @@ package body Aspects is -- Table used for Same_Aspect, maps aspect to canonical aspect - Canonical_Aspect : constant array (Aspect_Id) of Aspect_Id := ( - No_Aspect => No_Aspect, + Canonical_Aspect : constant array (Aspect_Id) of Aspect_Id := + (No_Aspect => No_Aspect, Aspect_Ada_2005 => Aspect_Ada_2005, Aspect_Ada_2012 => Aspect_Ada_2005, Aspect_Address => Aspect_Address, @@ -181,6 +185,17 @@ package body Aspects is Aspect_Favor_Top_Level => Aspect_Favor_Top_Level, Aspect_Inline => Aspect_Inline, Aspect_Inline_Always => Aspect_Inline, + Aspect_All_Calls_Remote => Aspect_All_Calls_Remote, + Aspect_Compiler_Unit => Aspect_Compiler_Unit, + Aspect_Elaborate_Body => Aspect_Elaborate_Body, + Aspect_Preelaborate => Aspect_Preelaborate, + Aspect_Preelaborate_05 => Aspect_Preelaborate_05, + Aspect_Pure => Aspect_Pure, + Aspect_Pure_05 => Aspect_Pure_05, + Aspect_Remote_Call_Interface => Aspect_Remote_Call_Interface, + Aspect_Remote_Types => Aspect_Remote_Types, + Aspect_Shared_Passive => Aspect_Shared_Passive, + Aspect_Universal_Data => Aspect_Universal_Data, Aspect_Input => Aspect_Input, Aspect_Invariant => Aspect_Invariant, Aspect_Machine_Radix => Aspect_Machine_Radix, |