diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-01-22 09:33:40 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-04 05:11:09 -0400 |
| commit | 96cd8940614e0f87aca7bb6064a45710aca6212f (patch) | |
| tree | 92a02d54e182cd97d44cb3ed1495c7053a013605 | |
| parent | 354cce532c1923601f5eadf25557efe62870e88e (diff) | |
| download | gcc-96cd8940614e0f87aca7bb6064a45710aca6212f.zip gcc-96cd8940614e0f87aca7bb6064a45710aca6212f.tar.gz gcc-96cd8940614e0f87aca7bb6064a45710aca6212f.tar.bz2 | |
[Ada] Fix glitch for N_Delta_Aggregate/N_Case_Expression/N_Quantified_Expression
2020-06-04 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* sinfo.ads (N_Delta_Aggregate): Document Etype field.
(N_Case_Expression): Likewise.
(Is_Syntactic_Field) <N_Quantified_Expression>: Adjust.
<N_Case_Expression>: Likewise.
| -rw-r--r-- | gcc/ada/sinfo.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index bcdda84..014b6d3 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -4252,6 +4252,7 @@ package Sinfo is -- Sloc points to left parenthesis -- Expression (Node3) -- Component_Associations (List2) + -- Etype (Node5-Sem) -------------------------------------------------- -- 4.4 Expression/Relation/Term/Factor/Primary -- @@ -4657,6 +4658,7 @@ package Sinfo is -- Sloc points to CASE -- Expression (Node3) (the selecting expression) -- Alternatives (List4) (the case expression alternatives) + -- Etype (Node5-Sem) -- Do_Overflow_Check (Flag17-Sem) ---------------------------------------- @@ -12118,7 +12120,7 @@ package Sinfo is 2 => True, -- Iterator_Specification (Node2) 3 => False, -- unused 4 => True, -- Loop_Parameter_Specification (Node4) - 5 => False), -- Etype (Node5-Sem) + 5 => False), -- unused N_Allocator => (1 => False, -- Storage_Pool (Node1-Sem) @@ -12174,7 +12176,7 @@ package Sinfo is 2 => False, -- unused 3 => True, -- Expression (Node3) 4 => True, -- Alternatives (List4) - 5 => False), -- unused + 5 => False), -- Etype (Node5-Sem) N_Case_Expression_Alternative => (1 => False, -- Actions (List1-Sem) |