diff options
| author | Bob Duff <duff@adacore.com> | 2022-03-25 10:23:08 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-17 08:25:48 +0000 |
| commit | f2ef7a0545d1c17dd7e0ec8eb85b286d445dcc3f (patch) | |
| tree | fafdf0f50b48b01d8c1f1c00e3619949916282a7 /gcc/ada/fe.h | |
| parent | 26b0b2ddf4ab777dda4e70c7cef4b16b0493509b (diff) | |
| download | gcc-f2ef7a0545d1c17dd7e0ec8eb85b286d445dcc3f.zip gcc-f2ef7a0545d1c17dd7e0ec8eb85b286d445dcc3f.tar.gz gcc-f2ef7a0545d1c17dd7e0ec8eb85b286d445dcc3f.tar.bz2 | |
[Ada] Cleanups related to front-end SJLJ
This patch cleans up some code that is left over from the front-end SJLJ
exception handling mechanism, which has been removed.
This is in preparation for fixing a finalization-related bug.
Most importantly:
The documentation is changed: a Handled_Sequence_Of_Statements node
CAN contain both Exception_Handlers and an At_End_Proc.
The assertion contradicting that is removed from
Expand_At_End_Handler.
The From_At_End field is removed.
gcc/ada/
* sinfo.ads: Remove From_At_End. Update comments.
* gen_il-fields.ads, gen_il-gen-gen_nodes.adb, sem_ch11.adb:
Remove From_At_End.
* exp_ch11.adb (Expand_At_End_Handler): Remove assertion.
* fe.h (Exception_Mechanism, Exception_Mechanism_Type, Has_DIC,
Has_Invariants, Is_List_Member, List_Containing): Remove
declarations that are not used in gigi.
* opt.ads (Exception_Mechanism): This is not used in gigi.
* exp_util.ads: Minor comment fix.
Diffstat (limited to 'gcc/ada/fe.h')
| -rw-r--r-- | gcc/ada/fe.h | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h index dc3a1af..33b48e6 100644 --- a/gcc/ada/fe.h +++ b/gcc/ada/fe.h @@ -207,7 +207,6 @@ extern Boolean In_Extended_Main_Code_Unit (Entity_Id); #define Enable_128bit_Types opt__enable_128bit_types #define Exception_Extra_Info opt__exception_extra_info #define Exception_Locations_Suppressed opt__exception_locations_suppressed -#define Exception_Mechanism opt__exception_mechanism #define Generate_SCO_Instance_Table opt__generate_sco_instance_table #define GNAT_Mode opt__gnat_mode #define List_Representation_Info opt__list_representation_info @@ -218,10 +217,6 @@ typedef enum { Ada_83, Ada_95, Ada_2005, Ada_2012, Ada_2022, Ada_With_Extensions } Ada_Version_Type; -typedef enum { - Back_End_ZCX, Back_End_SJLJ -} Exception_Mechanism_Type; - extern Ada_Version_Type Ada_Version; extern Boolean Assume_No_Invalid_Values; extern Boolean Back_End_Inlining; @@ -229,7 +224,6 @@ extern Boolean Debug_Generated_Code; extern Boolean Enable_128bit_Types; extern Boolean Exception_Extra_Info; extern Boolean Exception_Locations_Suppressed; -extern Exception_Mechanism_Type Exception_Mechanism; extern Boolean Generate_SCO_Instance_Table; extern Boolean GNAT_Mode; extern Int List_Representation_Info; @@ -645,12 +639,6 @@ B Is_Floating_Point_Type (E Id); #define Is_Record_Type einfo__utils__is_record_type B Is_Record_Type (E Id); -#define Has_DIC einfo__utils__has_dic -B Has_DIC (E Id); - -#define Has_Invariants einfo__utils__has_invariants -B Has_Invariants (E Id); - #define Is_Full_Access einfo__utils__is_full_access B Is_Full_Access (E Id); @@ -668,12 +656,6 @@ E Next_Stored_Discriminant (E Id); // fe.h is included before einfo.h. Entity_Kind Parameter_Mode (E Id); -#define Is_List_Member einfo__utils__is_list_member -B Is_List_Member (N Node); - -#define List_Containing einfo__utils__list_containing -S List_Containing (N Node); - // The following is needed because Convention in Sem_Util is a renaming // of Basic_Convention. |