diff options
| author | Javier Miranda <miranda@adacore.com> | 2009-07-23 09:27:18 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-23 11:27:18 +0200 |
| commit | a50790d1cad989184d0b77e20c60bf38de3c08a4 (patch) | |
| tree | 1d1960c9c88b3c37e8c4daf3cfb7506f04d68771 /gcc/ada/exp_ch3.adb | |
| parent | 7205254be85f07852b41fa0a92f6667a4ecaca8c (diff) | |
| download | gcc-a50790d1cad989184d0b77e20c60bf38de3c08a4.zip gcc-a50790d1cad989184d0b77e20c60bf38de3c08a4.tar.gz gcc-a50790d1cad989184d0b77e20c60bf38de3c08a4.tar.bz2 | |
sinfo.ads (Is_Scil_Node, [...]): Add missing documentation.
2009-07-23 Javier Miranda <miranda@adacore.com>
* sinfo.ads (Is_Scil_Node, Scil_Nkind, Scil_Related_Node,
Scil_Target_Prim, N_Has_Entity): Add missing documentation.
* exp_disp.ads (Scil_Node_Kind): Ditto.
* exp_disp.adb (Make_DT, Make_Tags): Ditto.
* exp_ch3.adb (Build_Init_Procedure): Ditto.
From-SVN: r149982
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index fe51d2f..51dccfb 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -1409,8 +1409,8 @@ package body Exp_Ch3 is if (Is_Null_Init_Proc (Proc) and then not Init_Or_Norm_Scalars) or else Is_Value_Type (Typ) - or else ((Is_Array_Type (Typ) or else Is_String_Type (Typ)) - and then Is_Value_Type (Component_Type (Typ))) + or else + (Is_Array_Type (Typ) and then Is_Value_Type (Component_Type (Typ))) then return Empty_List; end if; @@ -2323,7 +2323,8 @@ package body Exp_Ch3 is New_Reference_To (Node (First_Elmt (Access_Disp_Table (Rec_Type))), Loc))); - -- Following code needs a comment ??? + -- Generate the SCIL node associated with the initialization of + -- the tag component. if Generate_SCIL then Prepend_To (Init_Tags_List, |