From 2ccf2fb35ea3eda056496c378fc5d07d363e0407 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 18 Mar 2005 12:48:56 +0100 Subject: [PATCH] exp_ch6.adb (Expand_Inlined_Call): handle the case when the renamed entity is an operator. 2005-03-17 Ed Schonberg * exp_ch6.adb (Expand_Inlined_Call): handle the case when the renamed entity is an operator. From-SVN: r96667 --- gcc/ada/exp_ch6.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index d0ccfb28cdc..c4fc454ab1c 100644 --- 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 -- 2.30.2