From: Viljar Indus <in...@adacore.com>
gcc/ada/
* sem_util.adb (Set_Referenced_Modified): Set referenced as LHS
for the prefixes of array slices.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/sem_util.adb | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 7901eb8ee38..7b575c09c30 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -27787,9 +27787,10 @@ package body Sem_Util is
Pref : Node_Id;
begin
- -- Deal with indexed or selected component where prefix is modified
+ -- Deal with indexed components, selected components, or slices where
+ -- the prefix is modified.
- if Nkind (N) in N_Indexed_Component | N_Selected_Component then
+ if Nkind (N) in N_Indexed_Component | N_Selected_Component | N_Slice then
-- Grab the original node to avoid looking at internally generated
-- objects.
--
2.45.2
