From 40d920f589cc1a0100d1f538c1491abea37deaa6 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 18 Jun 2010 14:50:17 +0000 Subject: [PATCH] 2010-06-18 Robert Dewar * exp_ch6.adb: Minor reformatting. * gnatname.adb: Add comment. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160996 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/exp_ch6.adb | 13 ++++++------- gcc/ada/gnatname.adb | 10 +++++++--- 3 files changed, 18 insertions(+), 10 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f2cf3b3..a9d01dd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2010-06-18 Robert Dewar + + * exp_ch6.adb: Minor reformatting. + * gnatname.adb: Add comment. + 2010-06-18 Vincent Celier * gnatname.adb (Scan_Args): When --and is used, make sure that the diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 34d6114..9459bc6 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -3720,13 +3720,12 @@ package body Exp_Ch6 is 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 - -- the renamed subprogram is an inherited operation, we must redo - -- the expansion because implicit conversions may be needed. - -- Similarly, if the renamed entity is inlined, expand the call - -- for further optimizations. + -- Subprogram is renaming_as_body. Calls occurring after the renaming + -- can be replaced with calls to the renamed entity directly, because + -- the subprograms are subtype conformant. If the renamed subprogram + -- is an inherited operation, we must redo the expansion because + -- implicit conversions may be needed. Similarly, if the renamed + -- entity is inlined, expand the call for further optimizations. Set_Name (N, New_Occurrence_Of (Orig_Bod, Loc)); diff --git a/gcc/ada/gnatname.adb b/gcc/ada/gnatname.adb index 8078759..00ebebe 100644 --- a/gcc/ada/gnatname.adb +++ b/gcc/ada/gnatname.adb @@ -309,9 +309,13 @@ procedure Gnatname is declare New_Arguments : Argument_Data; pragma Warnings (Off, New_Arguments); - -- Declaring this defaulted itialized object ensures that - -- the new allocated component of table Arguments is - -- correctly initialized. + -- Declaring this defaulted initialized object ensures + -- that the new allocated component of table Arguments + -- is correctly initialized. + + -- This is VERY ugly, Table should never be used with + -- data requiring default initialization. We should + -- find a way to avoid violating this rule ??? begin Arguments.Append (New_Arguments); -- 2.7.4