diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-28 10:19:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-28 10:19:18 +0200 |
| commit | 7d9880c94ce8d5bbce64f56f4e75c1ed073a1e52 (patch) | |
| tree | 87ddbfc54b121aaa33ef712bdfdbd05e7afa9629 /gcc/ada/sem_ch13.adb | |
| parent | 55ffa75632e635c049c238db332c20de1b3116c2 (diff) | |
| download | gcc-7d9880c94ce8d5bbce64f56f4e75c1ed073a1e52.zip gcc-7d9880c94ce8d5bbce64f56f4e75c1ed073a1e52.tar.gz gcc-7d9880c94ce8d5bbce64f56f4e75c1ed073a1e52.tar.bz2 | |
[multiple changes]
2015-05-28 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb, sem_disp.ads: Minor reformatting.
2015-05-28 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Set_Debug_Info_Needed): For a private type
whose full view is itself a derived private type, set flag on
underlying full view as well, for proper gdb display.
2015-05-28 Bob Duff <duff@adacore.com>
* exp_tss.ads: Minor comment fix.
* exp_ch3.adb (Build_Array_Init_Proc, Build_Record_Init_Proc):
Inline init_procs when the type has controlled parts. Remove
obsolete comments about those init_procs -- init_procs for
such types are no longer complex. A typical init_proc just
initializes the 'Tag field, and calls the parent init_proc
(e.g. for Limited_Controlled), which calls the grandparent
(for Root_Controlled), which does nothing. This all boils down
to one instruction when inlined.
* exp_ch7.adb (Create_Finalizer): Inline the finalizer.
2015-05-28 Ed Schonberg <schonberg@adacore.com>
* sem_ch4.adb (Analyze_Selected_Component): If the type to use
is a derived type and is a generic actual, the selected component
appears within an instance body, and the check over the type
has failed, examine ancestor types for the desired component.
(Find_Component_In_Instance): If record type is a derived type,
examine all ancestors in order to locate desired component.
From-SVN: r223800
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 8e1501a..5494d33 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -6496,7 +6496,7 @@ package body Sem_Ch13 is return; end if; - -- We know we have a first subtype, now possibly go the anonymous + -- We know we have a first subtype, now possibly go to the anonymous -- base type to determine whether Rectype is a record extension. Recdef := Type_Definition (Declaration_Node (Base_Type (Rectype))); |