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

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

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index d0ccfb28cdc31fac6a0c75112dd1a006fbed4423..c4fc454ab1c67027ffc5fe0625680a09fed40b18 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -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