diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-07 13:21:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-07 13:21:50 +0000 |
| commit | 9e7de1e1ecbf045c18ddbdd9a76508acdf941766 (patch) | |
| tree | e9ae14857405390aa415f54f70fa0a2538b03f0c /gcc/ada/exp_ch3.adb | |
| parent | da4963cee9e6704a1cbf9ba82225defc1c850231 (diff) | |
| download | gcc-9e7de1e1ecbf045c18ddbdd9a76508acdf941766.tar.gz | |
2009-04-07 Thomas Quinot <quinot@adacore.com>
* exp_ch3.adb: Minor rewording (comments)
2009-04-07 Robert Dewar <dewar@adacore.com>
* exp_disp.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145670 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 4f9df51c11d..7de774e014a 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -2517,7 +2517,7 @@ package body Exp_Ch3 is -- Loop through visible declarations of task types and protected -- types moving any expanded code from the spec to the body of the - -- init procedure + -- init procedure. if Is_Task_Record_Type (Rec_Type) or else Is_Protected_Record_Type (Rec_Type) @@ -3082,7 +3082,7 @@ package body Exp_Ch3 is -- for public types in case Initialize_Scalars applies to a client. -- However, such a procedure is not needed in the case where either -- of restrictions No_Initialize_Scalars or No_Default_Initialization - -- apply. No_Initialize_Scalars excludes the possibility of using + -- applies. No_Initialize_Scalars excludes the possibility of using -- Initialize_Scalars in any partition, and No_Default_Initialization -- implies that no initialization should ever be done for objects of -- the type, so is incompatible with Initialize_Scalars. |