diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-18 11:48:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-18 11:48:56 +0000 |
| commit | b5f5f125aad8e84812b60b5201e24a8d4964ec4d (patch) | |
| tree | 6368e497cc5c4fd1ced737379118106193ac9827 /gcc/ada/exp_ch6.adb | |
| parent | 0b9d81c1cdb1f3d9278217393338eb655abbc7af (diff) | |
| download | gcc-b5f5f125aad8e84812b60b5201e24a8d4964ec4d.tar.gz | |
2005-03-17 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Expand_Inlined_Call): handle the case when the renamed
entity is an operator.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96667 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 6 |
1 files 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 |