From 9e7de1e1ecbf045c18ddbdd9a76508acdf941766 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 7 Apr 2009 13:21:50 +0000 Subject: 2009-04-07 Thomas Quinot * exp_ch3.adb: Minor rewording (comments) 2009-04-07 Robert Dewar * exp_disp.adb: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145670 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_ch3.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/exp_ch3.adb') 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. -- cgit v1.2.1