diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-25 14:54:17 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-02 16:26:28 +0000 |
| commit | e4b5ab01946554dabfc68090ae114182c96caf13 (patch) | |
| tree | 825566e0e452d75819b661cea7f023d4ddb4dc8b /gcc/ada/sem_ch6.adb | |
| parent | ec9c3bd5d2d6d91a9967bf153ebf1411e6bb10c0 (diff) | |
[Ada] Cleanup insertion of single freezing actions
gcc/ada/
* exp_util.adb (Append_Freeze_Action): Tune whitespace to make
the code look similar to Append_Freeze_Actions, which takes a
List_Id.
* sem_ch6.adb (Analyze_Return_Type): Cleanup with
Append_Freeze_Action.
* exp_ch3.adb (Build_Access_Subprogram_Wrapper_Body): Likewise.
* sem_ch3.adb (Build_Access_Subprogram_Wrapper): Likewise.
* contracts.adb (Add_Indirect_Call_Wrapper): Remove extra call
to Ensure_Freeze_Node.
(Add_Call_Helper): Likewise.
* freeze.adb (Check_Inherited_Conditions): Likewise.
(Attribute_Renaming): Likewise.
* sem_ch8.adb: Likewise.
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 9c21732e5f9..fa4de4cf76a 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -2715,13 +2715,11 @@ package body Sem_Ch6 is end if; else - Ensure_Freeze_Node (Typ); - declare IR : constant Node_Id := Make_Itype_Reference (Sloc (N)); begin Set_Itype (IR, Etype (Designator)); - Append_Freeze_Actions (Typ, New_List (IR)); + Append_Freeze_Action (Typ, IR); end; end if; |