mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-23 10:54:07 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

ada: Fix small oversight in removal of N_Unchecked_Expression node

Browse Source 
In addition to Resolve_Indexed_Component, Eval_Indexed_Component can also
set the Do_Range_Check flag on the expressions of an N_Indexed_Component
node through the call on Check_Non_Static_Context, so this also needs to
be blocked by the Kill_Range_Check flag.

gcc/ada/ChangeLog:

	* sem_eval.adb (Eval_Indexed_Component): Clear Do_Range_Check on
	the expressions if Kill_Range_Check is set on the node.
This commit is contained in:
Eric Botcazou 2024-11-08 15:35:27 +01:00 committed by Marc Poulhiès
parent b4fd15d8be
commit 70faad1961
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ada/sem_eval.adb
View File

@ -2629,6 +2629,9 @@ package body Sem_Eval is
Expr := First (Expressions (N));
while Present (Expr) loop
Check_Non_Static_Context (Expr);
if Kill_Range_Check (N) then
Set_Do_Range_Check (Expr, False);
end if;
Next (Expr);
end loop;