exp_ch2.adb (In_Assignment_Context): Recognize slice assignments to entry formals.

2005-03-17  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch2.adb (In_Assignment_Context): Recognize slice assignments to
	entry formals.

From-SVN: r96665

diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb
index e68e9a67a6e9f3a2f6d7f7091e9aea1d5c1888f9..bb855415fd743f15f1b9cacd7dc10ada948a706c 100644 (file)
--- a/gcc/ada/exp_ch2.adb
+++ b/gcc/ada/exp_ch2.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -475,7 +475,8 @@ package body Exp_Ch2 is
             return In_Assignment_Context (Parent (N));
 
          elsif (Nkind (Parent (N)) = N_Selected_Component
-                 or else Nkind (Parent (N)) = N_Indexed_Component)
+                 or else Nkind (Parent (N)) = N_Indexed_Component
+                 or else Nkind (Parent (N)) = N_Slice)
            and then In_Assignment_Context (Parent (N))
          then
             return True;