diff options
Diffstat (limited to 'gcc/ada/exp_strm.adb')
| -rw-r--r-- | gcc/ada/exp_strm.adb | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb index 83f88a28410..0a22b0117e0 100644 --- a/gcc/ada/exp_strm.adb +++ b/gcc/ada/exp_strm.adb @@ -166,10 +166,10 @@ package body Exp_Strm is Object_Definition => New_Occurrence_Of (Etype (Indx), Loc), Expression => Make_Attribute_Reference (Loc, - Prefix => + Prefix => New_Occurrence_Of (Stream_Base_Type (Etype (Indx)), Loc), Attribute_Name => Name_Input, - Expressions => New_List (Make_Identifier (Loc, Name_S))))); + Expressions => New_List (Make_Identifier (Loc, Name_S))))); Append_To (Decls, Make_Object_Declaration (Loc, @@ -179,10 +179,10 @@ package body Exp_Strm is New_Occurrence_Of (Stream_Base_Type (Etype (Indx)), Loc), Expression => Make_Attribute_Reference (Loc, - Prefix => + Prefix => New_Occurrence_Of (Stream_Base_Type (Etype (Indx)), Loc), Attribute_Name => Name_Input, - Expressions => New_List (Make_Identifier (Loc, Name_S))))); + Expressions => New_List (Make_Identifier (Loc, Name_S))))); Append_To (Ranges, Make_Range (Loc, @@ -260,9 +260,9 @@ package body Exp_Strm is Expressions => New_List ( Make_Identifier (Loc, Name_S), Make_Attribute_Reference (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Attribute_Name => Name_First, - Expressions => New_List ( + Expressions => New_List ( Make_Integer_Literal (Loc, J)))))); Append_To (Stms, @@ -273,9 +273,9 @@ package body Exp_Strm is Expressions => New_List ( Make_Identifier (Loc, Name_S), Make_Attribute_Reference (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Attribute_Name => Name_Last, - Expressions => New_List ( + Expressions => New_List ( Make_Integer_Literal (Loc, J)))))); Next_Index (Indx); @@ -369,7 +369,7 @@ package body Exp_Strm is Expressions => New_List ( Make_Identifier (Loc, Name_S), Make_Indexed_Component (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Expressions => Exl))); -- The corresponding stream attribute for the component type of the @@ -407,7 +407,7 @@ package body Exp_Strm is Discrete_Subtype_Definition => Make_Attribute_Reference (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Attribute_Name => Name_Range, Expressions => New_List ( @@ -898,7 +898,7 @@ package body Exp_Strm is Out_Formal := Make_Selected_Component (Loc, - Prefix => New_Occurrence_Of (Pnam, Loc), + Prefix => New_Occurrence_Of (Pnam, Loc), Selector_Name => Make_Identifier (Loc, Name_V)); -- Generate Reads for the discriminants of the type. The discriminants @@ -981,7 +981,7 @@ package body Exp_Strm is Append_To (Constrained_Stms, Make_Assignment_Statement (Loc, - Name => Out_Formal, + Name => Out_Formal, Expression => Make_Identifier (Loc, Name_V))); if Is_Unchecked_Union (Typ) then @@ -1032,7 +1032,7 @@ package body Exp_Strm is else D_Ref := Make_Selected_Component (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Selector_Name => New_Occurrence_Of (Disc, Loc)); end if; @@ -1040,7 +1040,7 @@ package body Exp_Strm is Make_Attribute_Reference (Loc, Prefix => New_Occurrence_Of (Etype (Disc), Loc), Attribute_Name => Name_Write, - Expressions => New_List ( + Expressions => New_List ( Make_Identifier (Loc, Name_S), D_Ref))); @@ -1251,7 +1251,7 @@ package body Exp_Strm is else Disc_Ref := Make_Selected_Component (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Selector_Name => New_Occurrence_Of (Disc, Loc)); end if; @@ -1411,7 +1411,7 @@ package body Exp_Strm is else D_Ref := Make_Selected_Component (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Selector_Name => New_Occurrence_Of (Entity (Name (VP)), Loc)); end if; @@ -1461,7 +1461,7 @@ package body Exp_Strm is Expressions => New_List ( Make_Identifier (Loc, Name_S), Make_Selected_Component (Loc, - Prefix => Make_Identifier (Loc, Name_V), + Prefix => Make_Identifier (Loc, Name_V), Selector_Name => New_Occurrence_Of (C, Loc)))); end Make_Field_Attribute; |