diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2022-11-19 20:43:40 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-11-22 13:34:51 +0100 |
| commit | 3b5f3138dceeac609b4c5fe33009302d13592400 (patch) | |
| tree | 85f2b59417071de8fdc809de92ea62b790f11882 | |
| parent | cd4b47a9f7db20197bbe25cb60c9a8d8ef46de71 (diff) | |
| download | gcc-3b5f3138dceeac609b4c5fe33009302d13592400.zip gcc-3b5f3138dceeac609b4c5fe33009302d13592400.tar.gz gcc-3b5f3138dceeac609b4c5fe33009302d13592400.tar.bz2 | |
ada: Fix formatting glitches in Make_Tag_Assignment
gcc/ada/
* exp_ch3.adb (Make_Tag_Assignment): Fix formatting glitches.
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 40 |
1 files changed, 21 insertions, 19 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 7b194bb..2661a3f 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -11769,37 +11769,39 @@ package body Exp_Ch3 is function Make_Tag_Assignment (N : Node_Id) return Node_Id is Loc : constant Source_Ptr := Sloc (N); - Def_If : constant Entity_Id := Defining_Identifier (N); - Expr : constant Node_Id := Expression (N); - Typ : constant Entity_Id := Etype (Def_If); - Full_Typ : constant Entity_Id := Underlying_Type (Typ); + Def_If : constant Entity_Id := Defining_Identifier (N); + Expr : constant Node_Id := Expression (N); + Typ : constant Entity_Id := Etype (Def_If); + Full_Typ : constant Entity_Id := Underlying_Type (Typ); + New_Ref : Node_Id; begin - -- This expansion activity is called during analysis. + -- This expansion activity is called during analysis if Is_Tagged_Type (Typ) - and then not Is_Class_Wide_Type (Typ) - and then not Is_CPP_Class (Typ) - and then Tagged_Type_Expansion - and then Nkind (Expr) /= N_Aggregate - and then (Nkind (Expr) /= N_Qualified_Expression - or else Nkind (Expression (Expr)) /= N_Aggregate) + and then not Is_Class_Wide_Type (Typ) + and then not Is_CPP_Class (Typ) + and then Tagged_Type_Expansion + and then Nkind (Expr) /= N_Aggregate + and then (Nkind (Expr) /= N_Qualified_Expression + or else Nkind (Expression (Expr)) /= N_Aggregate) then New_Ref := Make_Selected_Component (Loc, - Prefix => New_Occurrence_Of (Def_If, Loc), - Selector_Name => - New_Occurrence_Of (First_Tag_Component (Full_Typ), Loc)); + Prefix => New_Occurrence_Of (Def_If, Loc), + Selector_Name => + New_Occurrence_Of (First_Tag_Component (Full_Typ), Loc)); + Set_Assignment_OK (New_Ref); return Make_Assignment_Statement (Loc, - Name => New_Ref, - Expression => - Unchecked_Convert_To (RTE (RE_Tag), - New_Occurrence_Of (Node - (First_Elmt (Access_Disp_Table (Full_Typ))), Loc))); + Name => New_Ref, + Expression => + Unchecked_Convert_To (RTE (RE_Tag), + New_Occurrence_Of + (Node (First_Elmt (Access_Disp_Table (Full_Typ))), Loc))); else return Empty; end if; |