diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-18 14:50:17 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 16:50:17 +0200 |
| commit | 8a45b58c5d0b6ca197c3d54410b5ddb116b4cbbe (patch) | |
| tree | 014c6f65e525feb64240a91141cf82e1e6221f3a /gcc | |
| parent | 9c8ff9b97dcd074b15fed2adad2c9a30080757da (diff) | |
| download | gcc-8a45b58c5d0b6ca197c3d54410b5ddb116b4cbbe.zip gcc-8a45b58c5d0b6ca197c3d54410b5ddb116b4cbbe.tar.gz gcc-8a45b58c5d0b6ca197c3d54410b5ddb116b4cbbe.tar.bz2 | |
exp_ch6.adb: Minor reformatting.
2010-06-18 Robert Dewar <dewar@adacore.com>
* exp_ch6.adb: Minor reformatting.
* gnatname.adb: Add comment.
From-SVN: r160996
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 13 | ||||
| -rw-r--r-- | 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 <dewar@adacore.com> + + * exp_ch6.adb: Minor reformatting. + * gnatname.adb: Add comment. + 2010-06-18 Vincent Celier <celier@adacore.com> * 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); |