diff options
| author | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-12-15 13:23:10 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-12-15 13:23:10 +0000 |
| commit | fc47ef60c5d11d0302a4f4831080fde792430781 (patch) | |
| tree | 314bd05a71b7dee5b2a1f3437beb78d1bd842c0d /gcc/ada/types.ads | |
| parent | 71d6a38638e4188974703d3d4ffeeedb1295a70c (diff) | |
| download | gcc-fc47ef60c5d11d0302a4f4831080fde792430781.zip gcc-fc47ef60c5d11d0302a4f4831080fde792430781.tar.gz gcc-fc47ef60c5d11d0302a4f4831080fde792430781.tar.bz2 | |
[multiple changes]
2017-12-15 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Analyze_Initialization_Item): Remove the specialized
processing for a null initialization item. Such an item is always
illegal.
2017-12-15 Bob Duff <duff@adacore.com>
* types.ads, types.h, libgnat/a-except.adb, exp_ch11.adb
(PE_Build_In_Place_Mismatch): New reason code for raising when the
BIPalloc formal parameter is incorrect. This can happen if a compiler
bug causes a mismatch of build-in-place between caller and callee.
* exp_ch6.adb (Expand_N_Extended_Return_Statement): Use
PE_Build_In_Place_Mismatch.
2017-12-15 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.ads, exp_ch4.adb (Expand_N_Reduction_Expression): New
procedure.
* exp_util.adb (Insert_Actions): Handle N_Reduction_Expression.
* expander.adb (Expand): Call Expand_N_Reduction_Expression
* par-ch4.adb (P_Reduction_Expression): New procedure.
(P_Iterated_Component_Assoc_Or_Reduction): New precedure, extension of
P_Iterated_Component_Association.
(OK_Reduction_Expression_Parameter): New procedure.
(P_Aggregate_Or_Paren_Expr): Improve error message for malformed delta
aggregate.
* sem.adb (Analyze): Call Analyze_Reduction_Expression and
Analyze_Reduction_Expression_Parameter
* sinfo.ads, sinfo.adb: New node kinds N_Reduction_Expression and
N_Reduction_Expression_Parameter.
* sem_ch4.ads, sem_ch4.adb (Analyze_Reduction_Expression,
Analyze_Reduction_Expression_Parameter): New procedures.
* sem_res.adb (Resolve): Handle Reduction_Expression and
Reduction_Expression_Parameter
* sem_spark.adb: Dummy entries for Reduction_Expression and
Reduction_Expression_Parameter
* sprint.adb (Sprint_Node_Actual): Print Reduction_Expression,
Reduction_Expression_Parameter
From-SVN: r255693
Diffstat (limited to 'gcc/ada/types.ads')
| -rw-r--r-- | gcc/ada/types.ads | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index 0d8eb06..b39797a 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -851,8 +851,7 @@ package Types is -- Note on ordering of references. For the tables in Ada.Exceptions units, -- usually the ordering does not matter, and we use the same ordering as - -- is used here (note the requirement in the ordering here that CE/PE/SE - -- codes be kept together, so the subtype declarations work OK). + -- is used here. type RT_Exception_Code is (CE_Access_Check_Failed, -- 00 @@ -894,9 +893,11 @@ package Types is SE_Explicit_Raise, -- 33 SE_Infinite_Recursion, -- 34 SE_Object_Too_Large, -- 35 - PE_Stream_Operation_Not_Allowed); -- 36 + PE_Stream_Operation_Not_Allowed, -- 36 + PE_Build_In_Place_Mismatch); -- 37 - Last_Reason_Code : constant := 36; + Last_Reason_Code : constant := + RT_Exception_Code'Pos (RT_Exception_Code'Last); -- Last reason code type Reason_Kind is (CE_Reason, PE_Reason, SE_Reason); @@ -937,6 +938,7 @@ package Types is PE_Unchecked_Union_Restriction => PE_Reason, PE_Non_Transportable_Actual => PE_Reason, PE_Stream_Operation_Not_Allowed => PE_Reason, + PE_Build_In_Place_Mismatch => PE_Reason, SE_Empty_Storage_Pool => SE_Reason, SE_Explicit_Raise => SE_Reason, |