mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 14:41:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Fix glitch for N_Delta_Aggregate/N_Case_Expression/N_Quantified_Expression

Browse Source 
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.
This commit is contained in:
Eric Botcazou 2020-01-22 09:33:40 +01:00 committed by Pierre-Marie de Rodat
parent 354cce532c
commit 96cd894061
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/sinfo.ads
View File

@ -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)