diff options
Diffstat (limited to 'gcc/ada/exp_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 28e1f65f646..b00d8ea8d89 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -583,13 +583,15 @@ package body Exp_Attr is end if; end Make_VS_If; - -- Local Declarations + -- Local variables Def : constant Node_Id := Parent (R_Type); Comps : constant Node_Id := Component_List (Type_Definition (Def)); Stmts : constant List_Id := New_List; Pspecs : constant List_Id := New_List; + -- Start of processing for Build_Record_VS_Func + begin Append_To (Pspecs, Make_Parameter_Specification (Loc, |