diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-24 16:52:45 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-24 16:52:45 +0100 |
| commit | e19137bce2231c3494d161746c1485a241056ba3 (patch) | |
| tree | 45da60a5e29914e3174fcd1b61eae9258a2cbe0e /gcc/ada/aspects.ads | |
| parent | 1037b0f46276a61dc28319562c97180aaaaa9b80 (diff) | |
| download | gcc-e19137bce2231c3494d161746c1485a241056ba3.zip gcc-e19137bce2231c3494d161746c1485a241056ba3.tar.gz gcc-e19137bce2231c3494d161746c1485a241056ba3.tar.bz2 | |
[multiple changes]
2014-02-24 Thomas Quinot <quinot@adacore.com>
* par_sco.adb (Traverse_One): Refine categorization of statement
SCOs.
2014-02-24 Robert Dewar <dewar@adacore.com>
* aspects.ads, aspects.adb: Remove aspects Ada_2005 and Ada_2012,
Pure_05, Pure_12 and Preelaborate_05.
* gnat_rm.texi: Update accordingly.
* sem_prag.adb: Document one argument form of Ada_05/Ada_2005
pragmas Document one argument form of Ada_12/Ada_2012 pragmas
Recognize one argument form of these pragmas only in GNAT mode
(-gnatg).
From-SVN: r208072
Diffstat (limited to 'gcc/ada/aspects.ads')
| -rw-r--r-- | gcc/ada/aspects.ads | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/gcc/ada/aspects.ads b/gcc/ada/aspects.ads index d0b625e..a5e3bbc 100644 --- a/gcc/ada/aspects.ads +++ b/gcc/ada/aspects.ads @@ -146,10 +146,7 @@ package Aspects is Aspect_Compiler_Unit, -- GNAT Aspect_Elaborate_Body, Aspect_Preelaborate, - Aspect_Preelaborate_05, -- GNAT Aspect_Pure, - Aspect_Pure_05, -- GNAT - Aspect_Pure_12, -- GNAT Aspect_Remote_Call_Interface, Aspect_Remote_Types, Aspect_Shared_Passive, @@ -162,8 +159,6 @@ package Aspects is -- the aspect value is inherited from the parent, in which case, we do -- not allow False if we inherit a True value from the parent. - Aspect_Ada_2005, -- GNAT - Aspect_Ada_2012, -- GNAT Aspect_Async_Readers, -- GNAT Aspect_Async_Writers, -- GNAT Aspect_Asynchronous, @@ -220,8 +215,6 @@ package Aspects is Implementation_Defined_Aspect : constant array (Aspect_Id) of Boolean := (Aspect_Abstract_State => True, - Aspect_Ada_2005 => True, - Aspect_Ada_2012 => True, Aspect_Async_Readers => True, Aspect_Async_Writers => True, Aspect_Compiler_Unit => True, @@ -239,9 +232,6 @@ package Aspects is Aspect_Object_Size => True, Aspect_Persistent_BSS => True, Aspect_Predicate => True, - Aspect_Preelaborate_05 => True, - Aspect_Pure_05 => True, - Aspect_Pure_12 => True, Aspect_Pure_Function => True, Aspect_Remote_Access_Type => True, Aspect_Scalar_Storage_Order => True, @@ -282,7 +272,7 @@ package Aspects is -- aspect is enabled. If it is False, the aspect is disabled. subtype Boolean_Aspects is - Aspect_Id range Aspect_Ada_2005 .. Aspect_Id'Last; + Aspect_Id range Aspect_Async_Readers .. Aspect_Id'Last; subtype Pre_Post_Aspects is Aspect_Id range Aspect_Post .. Aspect_Precondition; @@ -377,8 +367,6 @@ package Aspects is Aspect_Names : constant array (Aspect_Id) of Name_Id := (No_Aspect => No_Name, Aspect_Abstract_State => Name_Abstract_State, - Aspect_Ada_2005 => Name_Ada_2005, - Aspect_Ada_2012 => Name_Ada_2012, Aspect_Address => Name_Address, Aspect_Alignment => Name_Alignment, Aspect_All_Calls_Remote => Name_All_Calls_Remote, @@ -443,11 +431,8 @@ package Aspects is Aspect_Predicate => Name_Predicate, Aspect_Preelaborable_Initialization => Name_Preelaborable_Initialization, Aspect_Preelaborate => Name_Preelaborate, - Aspect_Preelaborate_05 => Name_Preelaborate_05, Aspect_Priority => Name_Priority, Aspect_Pure => Name_Pure, - Aspect_Pure_05 => Name_Pure_05, - Aspect_Pure_12 => Name_Pure_12, Aspect_Pure_Function => Name_Pure_Function, Aspect_Read => Name_Read, Aspect_Refined_Depends => Name_Refined_Depends, @@ -646,11 +631,8 @@ package Aspects is Aspect_Predicate => Always_Delay, Aspect_Preelaborable_Initialization => Always_Delay, Aspect_Preelaborate => Always_Delay, - Aspect_Preelaborate_05 => Always_Delay, Aspect_Priority => Always_Delay, Aspect_Pure => Always_Delay, - Aspect_Pure_05 => Always_Delay, - Aspect_Pure_12 => Always_Delay, Aspect_Pure_Function => Always_Delay, Aspect_Read => Always_Delay, Aspect_Refined_Depends => Always_Delay, @@ -681,8 +663,6 @@ package Aspects is Aspect_Write => Always_Delay, Aspect_Abstract_State => Never_Delay, - Aspect_Ada_2005 => Never_Delay, - Aspect_Ada_2012 => Never_Delay, Aspect_Convention => Never_Delay, Aspect_Dimension => Never_Delay, Aspect_Dimension_System => Never_Delay, |