Message ID | 20220105113329.GA2712845@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Remove redundant code related to instances with formal subprograms | expand |
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -10866,7 +10866,6 @@ package body Sem_Ch12 is and then Expander_Active then New_Subp := Make_Temporary (Sloc (Actual), 'S'); - Set_Defining_Unit_Name (New_Spec, New_Subp); else New_Subp := Make_Defining_Identifier (Loc, Chars (Formal_Sub)); end if;