diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 10:35:16 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 10:35:16 +0200 |
| commit | 26a43556c88b96c608246b39023bc698be3b751d (patch) | |
| tree | 03a933a49c26da19f666673002ba00e9d63f427c /gcc/ada/sem_ch6.adb | |
| parent | 3f25c54d814c705750dc1535dd935b39afc7b779 (diff) | |
| download | gcc-26a43556c88b96c608246b39023bc698be3b751d.tar.gz | |
[multiple changes]
2009-04-20 Arnaud Charlet <charlet@adacore.com>
* switch-c.adb (Scan_Front_End_Switches): Disable front-end inlining
in inspector mode.
2009-04-20 Javier Miranda <miranda@adacore.com>
* sem_ch6.adb (New_Overloaded_Entity): Minor reformating.
* sem_ch6.ads (Subtype_Conformant, Type_Conformant): Add missing
documentation.
* exp_aggr.adb (Build_Record_Aggr_Code): Code cleanup.
* sem_disp.adb
(Check_Dispatching_Operation): Set attribute Is_Dispatching_Operation
in internally built overriding subprograms.
2009-04-20 Doug Rupp <rupp@adacore.com>
* s-auxdec-vms_64.ads (Integer_{8,16,32,64}_Array): New array types.
* s-auxdec.ads: Likewise
2009-04-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Find_Type_Name): Reject the completion of a private
type by an interface.
* exp_ch6.adb (Expand_Call): Inline To_Address unconditionally, to
minimze difference in expanded tree when compiled as spec of the main
unit, or as a spec in the context of another unit.
From-SVN: r146370
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index c51f8435fd4..17103e1e3b5 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -7388,9 +7388,9 @@ package body Sem_Ch6 is return; - -- Within an instance, the renaming declarations for - -- actual subprograms may become ambiguous, but they do - -- not hide each other. + -- Within an instance, the renaming declarations for actual + -- subprograms may become ambiguous, but they do not hide each + -- other. elsif Ekind (E) /= E_Entry and then not Comes_From_Source (E) @@ -7402,8 +7402,8 @@ package body Sem_Ch6 is or else Nkind (Unit_Declaration_Node (E)) /= N_Subprogram_Renaming_Declaration) then - -- A subprogram child unit is not allowed to override - -- an inherited subprogram (10.1.1(20)). + -- A subprogram child unit is not allowed to override an + -- inherited subprogram (10.1.1(20)). if Is_Child_Unit (S) then Error_Msg_N |