diff options
Diffstat (limited to 'gcc/ada/exp_ch11.adb')
| -rw-r--r-- | gcc/ada/exp_ch11.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index a0dbcad..ee6010a7 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -1194,8 +1194,6 @@ package body Exp_Ch11 is Prefix => New_Occurrence_Of (Id, Loc), Attribute_Name => Name_Unrestricted_Access))))); - Set_Register_Exception_Call (Id, First (L)); - if not Is_Library_Level_Entity (Id) then Flag_Id := Make_Defining_Identifier (Loc, @@ -1972,6 +1970,8 @@ package body Exp_Ch11 is when CE_Tag_Check_Failed => Add_Str_To_Name_Buffer ("CE_Tag_Check"); + when PE_Abstract_Type_Component => + Add_Str_To_Name_Buffer ("PE_Abstract_Type_Component"); when PE_Access_Before_Elaboration => Add_Str_To_Name_Buffer ("PE_Access_Before_Elaboration"); when PE_Accessibility_Check_Failed => |