diff options
Diffstat (limited to 'gcc/ada/exp_ch13.adb')
| -rw-r--r-- | gcc/ada/exp_ch13.adb | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/gcc/ada/exp_ch13.adb b/gcc/ada/exp_ch13.adb index 1c170e210b4..0e0bbca440e 100644 --- a/gcc/ada/exp_ch13.adb +++ b/gcc/ada/exp_ch13.adb @@ -113,7 +113,7 @@ package body Exp_Ch13 is and then Present (Expression (Decl)) and then Nkind (Expression (Decl)) /= N_Null and then - not Comes_From_Source (Original_Node (Expression (Decl))) + not Comes_From_Source (Original_Node (Expression (Decl))) then if Present (Base_Init_Proc (Typ)) and then @@ -122,8 +122,8 @@ package body Exp_Ch13 is null; elsif Init_Or_Norm_Scalars - and then - (Is_Scalar_Type (Typ) or else Is_String_Type (Typ)) + and then (Is_Scalar_Type (Typ) + or else Is_String_Type (Typ)) then null; @@ -160,8 +160,7 @@ package body Exp_Ch13 is -- integer literal (this simplifies things in Gigi). if Nkind (Exp) /= N_Integer_Literal then - Rewrite - (Exp, Make_Integer_Literal (Loc, Expr_Value (Exp))); + Rewrite (Exp, Make_Integer_Literal (Loc, Expr_Value (Exp))); end if; -- A complex case arises if the alignment clause applies to an @@ -175,9 +174,10 @@ package body Exp_Ch13 is and then not Is_Entity_Name (Renamed_Object (Ent)) then declare - Loc : constant Source_Ptr := Sloc (N); - Decl : constant Node_Id := Parent (Ent); - Temp : constant Entity_Id := Make_Temporary (Loc, 'T'); + Decl : constant Node_Id := Parent (Ent); + Loc : constant Source_Ptr := Sloc (N); + Temp : constant Entity_Id := Make_Temporary (Loc, 'T'); + New_Decl : Node_Id; begin @@ -226,7 +226,7 @@ package body Exp_Ch13 is begin Assign := Make_Assignment_Statement (Loc, - Name => + Name => New_Occurrence_Of (Storage_Size_Variable (Ent), Loc), Expression => Convert_To (RTE (RE_Size_Type), Expression (N))); @@ -266,9 +266,9 @@ package body Exp_Ch13 is Insert_Action (N, Make_Object_Declaration (Loc, Defining_Identifier => V, - Object_Definition => + Object_Definition => New_Occurrence_Of (RTE (RE_Storage_Offset), Loc), - Expression => + Expression => Convert_To (RTE (RE_Storage_Offset), Expression (N)))); Set_Storage_Size_Variable (Ent, Entity_Id (V)); @@ -279,7 +279,6 @@ package body Exp_Ch13 is when others => null; - end case; end Expand_N_Attribute_Definition_Clause; |