diff options
| author | Bob Duff <duff@adacore.com> | 2021-05-05 18:29:28 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-06 14:46:53 +0000 |
| commit | f5063691c19a20cd3abb1c3f686ca44bea04d889 (patch) | |
| tree | 450c486b5cad3faef23a7595839e07f65f2276fe | |
| parent | f55784f8adc6033639840c609329d7b1facb2e71 (diff) | |
| download | gcc-f5063691c19a20cd3abb1c3f686ca44bea04d889.zip gcc-f5063691c19a20cd3abb1c3f686ca44bea04d889.tar.gz gcc-f5063691c19a20cd3abb1c3f686ca44bea04d889.tar.bz2 | |
[Ada] Make parent of N_Exception_Declaration be N_Declaration
gcc/ada/
* gen_il-gen-gen_nodes.adb: Change the parent of
N_Exception_Declaration to be N_Declaration. Minor comment fix.
| -rw-r--r-- | gcc/ada/gen_il-gen-gen_nodes.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gen_il-gen-gen_nodes.adb b/gcc/ada/gen_il-gen-gen_nodes.adb index 26fc069..e6defb1 100644 --- a/gcc/ada/gen_il-gen-gen_nodes.adb +++ b/gcc/ada/gen_il-gen-gen_nodes.adb @@ -573,7 +573,7 @@ begin -- Gen_IL.Gen.Gen_Nodes Ab (N_Declaration, Node_Kind); -- Note: this includes all constructs normally thought of as declarations - -- except those which are separately grouped as later declarations. + -- except those that are separately grouped in N_Later_Decl_Item. Cc (N_Component_Declaration, N_Declaration, (Sy (Defining_Identifier, Node_Id), @@ -1342,7 +1342,7 @@ begin -- Gen_IL.Gen.Gen_Nodes (Sy (Defining_Identifier, Node_Id), Sy (Discrete_Subtype_Definition, Node_Id, Default_Empty))); - Cc (N_Exception_Declaration, Node_Kind, + Cc (N_Exception_Declaration, N_Declaration, (Sy (Defining_Identifier, Node_Id), Sm (Expression, Node_Id), Sm (More_Ids, Flag), |