Ada: Remove left-overs of front-end exception mechanism

It was removed from the compiler a few releases ago.

gcc/ada/
	* gcc-interface/Makefile.in (gnatlib-sjlj): Delete.
	(gnatlib-zcx): Do not modify Frontend_Exceptions constant.
	* libgnat/system-linux-loongarch.ads (Frontend_Exceptions): Delete.

diff --git a/gcc/ada/gcc-interface/Makefile.in b/gcc/ada/gcc-interface/Makefile.in
index 3557b46c64d1298cb912ecfffbc2d61094ec967a..8615b598623f30036f222b01a91dcd67a3f186f2 100644 (file)
--- a/gcc/ada/gcc-interface/Makefile.in
+++ b/gcc/ada/gcc-interface/Makefile.in
@@ -840,35 +840,6 @@ gnatlib-shared:
             PICFLAG_FOR_TARGET="$(PICFLAG_FOR_TARGET)" \
             $(GNATLIB_SHARED)
 
-# When building a SJLJ runtime for VxWorks, we need to ensure that the extra
-# linker options needed for ZCX are not passed to prevent the inclusion of
-# useless objects and potential troubles from the presence of extra symbols
-# and references in some configurations.  The inhibition is performed by
-# commenting the pragma instead of deleting the line, as the latter might
-# result in getting multiple blank lines, hence possible style check errors.
-gnatlib-sjlj:
-       $(MAKE) $(FLAGS_TO_PASS) \
-            EH_MECHANISM="" \
-            MULTISUBDIR="$(MULTISUBDIR)" \
-            THREAD_KIND="$(THREAD_KIND)" \
-            LN_S="$(LN_S)" \
-            ../stamp-gnatlib1-$(RTSDIR)
-       sed \
-         -e 's/Frontend_Exceptions.*/Frontend_Exceptions       : constant Boolean := True;/' \
-         -e 's/ZCX_By_Default.*/ZCX_By_Default            : constant Boolean := False;/' \
-         $(RTSDIR)/system.ads > $(RTSDIR)/s.ads
-       $(MV) $(RTSDIR)/s.ads $(RTSDIR)/system.ads
-       $(MAKE) $(FLAGS_TO_PASS) \
-            EH_MECHANISM="" \
-            GNATLIBFLAGS="$(GNATLIBFLAGS)" \
-            GNATLIBCFLAGS="$(GNATLIBCFLAGS)" \
-            GNATLIBCFLAGS_FOR_C="$(GNATLIBCFLAGS_FOR_C)" \
-            FORCE_DEBUG_ADAFLAGS="$(FORCE_DEBUG_ADAFLAGS)" \
-            MULTISUBDIR="$(MULTISUBDIR)" \
-            THREAD_KIND="$(THREAD_KIND)" \
-            LN_S="$(LN_S)" \
-            gnatlib
-
 gnatlib-zcx:
        $(MAKE) $(FLAGS_TO_PASS) \
             EH_MECHANISM="-gcc" \
@@ -877,7 +848,6 @@ gnatlib-zcx:
             LN_S="$(LN_S)" \
             ../stamp-gnatlib1-$(RTSDIR)
        sed \
-         -e 's/Frontend_Exceptions.*/Frontend_Exceptions       : constant Boolean := False;/' \
          -e 's/ZCX_By_Default.*/ZCX_By_Default            : constant Boolean := True;/' \
          $(RTSDIR)/system.ads > $(RTSDIR)/s.ads
        $(MV) $(RTSDIR)/s.ads $(RTSDIR)/system.ads

diff --git a/gcc/ada/libgnat/system-linux-loongarch.ads b/gcc/ada/libgnat/system-linux-loongarch.ads
index 77a213962550fea9dd6dfda3913f123bae7d0282..683b7a4415588e49ac01025cdf6770d9711318d7 100644 (file)
--- a/gcc/ada/libgnat/system-linux-loongarch.ads
+++ b/gcc/ada/libgnat/system-linux-loongarch.ads
@@ -139,7 +139,6 @@ private
    Always_Compatible_Rep     : constant Boolean := False;
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
-   Frontend_Exceptions       : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
 
 end System;