Skip to content

R
riscv-gcc-1
Commit 2b599687 by Ed Schonberg Committed by Arnaud Charlet
Options

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
parent 7b1da1d0
Showing with 3 additions and 2 deletions
gcc/ada/exp_ch2.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -475,7 +475,8 @@ package body Exp_Ch2 is ...@@ -475,7 +475,8 @@ package body Exp_Ch2 is
return In_Assignment_Context (Parent (N)); return In_Assignment_Context (Parent (N));
elsif (Nkind (Parent (N)) = N_Selected_Component 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)) and then In_Assignment_Context (Parent (N))
then then
return True; return True;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment