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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96665 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb
index e68e9a6..bb85541 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;