diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-05 11:57:50 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-10 09:34:58 -0400 |
| commit | 8ecc34842c6884a508aaf56328ee76576c348cf7 (patch) | |
| tree | fe357640ced2876f5962e00bd972ee13a158eb41 | |
| parent | c64ac479d37f32198f75eee496d32c175fc4260b (diff) | |
| download | gcc-8ecc34842c6884a508aaf56328ee76576c348cf7.zip gcc-8ecc34842c6884a508aaf56328ee76576c348cf7.tar.gz gcc-8ecc34842c6884a508aaf56328ee76576c348cf7.tar.bz2 | |
[Ada] Revert workaround for expansion of Enum_Rep in GNATprove mode
2020-06-10 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* exp_spark.adb (Expand_SPARK_N_Attribute_Reference): Remove
expansion of First and Last attributes.
| -rw-r--r-- | gcc/ada/exp_spark.adb | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/gcc/ada/exp_spark.adb b/gcc/ada/exp_spark.adb index cab48f4..0e6c745 100644 --- a/gcc/ada/exp_spark.adb +++ b/gcc/ada/exp_spark.adb @@ -52,14 +52,13 @@ package body Exp_SPARK is ----------------------- procedure Expand_SPARK_N_Attribute_Reference (N : Node_Id); - -- Replace occurrences of System'To_Address by calls to - -- System.Storage_Elements.To_Address + -- Perform attribute-reference-specific expansion procedure Expand_SPARK_N_Freeze_Type (E : Entity_Id); -- Build the DIC procedure of a type when needed, if not already done procedure Expand_SPARK_N_Loop_Statement (N : Node_Id); - -- Perform loop statement-specific expansion + -- Perform loop-statement-specific expansion procedure Expand_SPARK_N_Object_Declaration (N : Node_Id); -- Perform object-declaration-specific expansion @@ -266,12 +265,6 @@ package body Exp_SPARK is Analyze_And_Resolve (N, Standard_Boolean); end if; - -- For attributes First and Last simply reuse the standard expansion - - elsif Attr_Id = Attribute_First - or else Attr_Id = Attribute_Last - then - Exp_Attr.Expand_N_Attribute_Reference (N); end if; end Expand_SPARK_N_Attribute_Reference; |