mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-14 16:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

exp_ch6.adb (Expand_Inlined_Call): handle the case when the renamed entity is an operator.

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

	* exp_ch6.adb (Expand_Inlined_Call): handle the case when the renamed
	entity is an operator.

From-SVN: r96667
This commit is contained in:
Ed Schonberg 2005-03-18 12:48:56 +01:00 committed by Arnaud Charlet
parent d2d3604c74
commit 2ccf2fb35e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/exp_ch6.adb
View File

@ -553,7 +553,6 @@ package body Exp_Ch6 is
Indic := New_Occurrence_Of (Etype (Formal), Loc);
end if;
if Nkind (Actual) = N_Type_Conversion then
V_Typ := Etype (Expression (Actual));
@ -2683,8 +2682,9 @@ package body Exp_Ch6 is
return;
end if;
if Nkind (Orig_Bod) = N_Defining_Identifier then
if Nkind (Orig_Bod) = N_Defining_Identifier
or else Nkind (Orig_Bod) = N_Defining_Operator_Symbol
then
-- Subprogram is a renaming_as_body. Calls appearing after the
-- renaming can be replaced with calls to the renamed entity
-- directly, because the subprograms are subtype conformant. If