From 96cd8940614e0f87aca7bb6064a45710aca6212f Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 22 Jan 2020 09:33:40 +0100 Subject: [PATCH] [Ada] Fix glitch for N_Delta_Aggregate/N_Case_Expression/N_Quantified_Expression 2020-06-04 Eric Botcazou gcc/ada/ * sinfo.ads (N_Delta_Aggregate): Document Etype field. (N_Case_Expression): Likewise. (Is_Syntactic_Field) : Adjust. : Likewise. --- gcc/ada/sinfo.ads | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index bcdda8406e4..014b6d3c6c8 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) -- 2.30.2