Patchwork [Ada] Remove GCC_ZCX_Support in system-*.ads

login
register
mail settings
Submitter Arnaud Charlet
Date Aug. 29, 2011, 10:15 a.m.
Message ID <20110829101504.GA18571@adacore.com>
Download mbox | patch
Permalink /patch/112010/
State New
Headers show

Comments

Arnaud Charlet - Aug. 29, 2011, 10:15 a.m.
This constant was in fact useless as ZCX_By_Default implied it.

No change in behavior.

Tested on x86_64-pc-linux-gnu, committed on trunk

2011-08-29  Tristan Gingold  <gingold@adacore.com>

	* system-darwin-x86.ads, system-linux-s390x.ads, system-linux-alpha.ads,
	system-tru64.ads, system-irix-n32.ads, system-vxworks-arm.ads,
	system-linux-hppa.ads, system-linux-s390.ads,
	system-solaris-sparcv9.ads, system-mingw.ads, system-linux-ia64.ads,
	system-vms_64.ads, system-vxworks-sparcv9.ads, system-linux-ppc.ads,
	system-aix64.ads, system-lynxos-ppc.ads, system-linux-sh4.ads,
	system-solaris-x86.ads, system-linux-x86_64.ads, system-linux-x86.ads,
	system-vxworks-ppc.ads, system-hpux.ads, system-darwin-ppc.ads,
	system-solaris-sparc.ads, system-lynxos-x86.ads,
	system-vxworks-m68k.ads, system-hpux-ia64.ads, system-irix-o32.ads,
	system-solaris-x86_64.ads, system-mingw-x86_64.ads,
	system-vxworks-mips.ads, system-linux-sparc.ads, system-vms-ia64.ads,
	system-freebsd-x86.ads, system-aix.ads, system-darwin-x86_64.ads,
	system-vxworks-x86.ads: Remove GCC_ZCX_Support
	* s-taprop-posix.adb, s-taprop-irix.adb, s-taprop-vxworks.adb,
	s-taprop-tru64.adb, s-taprop-linux.adb, s-taprop-solaris.adb: Ditto.
	* opt.ads: Adjust comment.
	* targparm.ads, targparm.adb: Remove GCC_ZCX_Support_On_Target.
	* gnat1drv.adb: Do not check for GCC_ZCX_Support_On_Target.
	* system.ads: Move GCC_ZCX_Support to obsolete entries.

Patch

Index: gnat1drv.adb
===================================================================
--- gnat1drv.adb	(revision 178181)
+++ gnat1drv.adb	(working copy)
@@ -324,11 +324,7 @@ 
       --  Set and check exception mechanism
 
       if Targparm.ZCX_By_Default_On_Target then
-         if Targparm.GCC_ZCX_Support_On_Target then
-            Exception_Mechanism := Back_End_Exceptions;
-         else
-            Osint.Fail ("Zero Cost Exceptions not supported on this target");
-         end if;
+         Exception_Mechanism := Back_End_Exceptions;
       end if;
 
       --  Set proper status for overflow checks. We turn on overflow checks if
Index: opt.ads
===================================================================
--- opt.ads	(revision 178163)
+++ opt.ads	(working copy)
@@ -537,8 +537,8 @@ 
                            Front_End_Setjmp_Longjmp_Exceptions;
    --  GNAT
    --  Set to the appropriate value depending on the default as given in
-   --  system.ads (ZCX_By_Default, GCC_ZCX_Support). The C convention is there
-   --  to make this variable accessible to gigi.
+   --  system.ads (ZCX_By_Default). The C convention is there to make this
+   --  variable accessible to gigi.
 
    Exception_Tracebacks : Boolean := False;
    --  GNATBIND
Index: s-taprop-irix.adb
===================================================================
--- s-taprop-irix.adb	(revision 178155)
+++ s-taprop-irix.adb	(working copy)
@@ -164,7 +164,7 @@ 
       --  cases (e.g. shutdown of the Server_Task in System.Interrupts) we
       --  need to send the Abort signal to a task.
 
-      if ZCX_By_Default and then GCC_ZCX_Support then
+      if ZCX_By_Default then
          return;
       end if;
 
Index: s-taprop-linux.adb
===================================================================
--- s-taprop-linux.adb	(revision 178155)
+++ s-taprop-linux.adb	(working copy)
@@ -178,7 +178,7 @@ 
       --  cases (e.g. shutdown of the Server_Task in System.Interrupts) we
       --  need to send the Abort signal to a task.
 
-      if ZCX_By_Default and then GCC_ZCX_Support then
+      if ZCX_By_Default then
          return;
       end if;
 
Index: s-taprop-posix.adb
===================================================================
--- s-taprop-posix.adb	(revision 178155)
+++ s-taprop-posix.adb	(working copy)
@@ -203,7 +203,7 @@ 
       --  cases (e.g. shutdown of the Server_Task in System.Interrupts) we
       --  need to send the Abort signal to a task.
 
-      if ZCX_By_Default and then GCC_ZCX_Support then
+      if ZCX_By_Default then
          return;
       end if;
 
Index: s-taprop-solaris.adb
===================================================================
--- s-taprop-solaris.adb	(revision 178155)
+++ s-taprop-solaris.adb	(working copy)
@@ -6,7 +6,7 @@ 
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---         Copyright (C) 1992-2010, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2011, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -265,7 +265,7 @@ 
       --  cases (e.g. shutdown of the Server_Task in System.Interrupts) we
       --  need to send the Abort signal to a task.
 
-      if ZCX_By_Default and then GCC_ZCX_Support then
+      if ZCX_By_Default then
          return;
       end if;
 
Index: s-taprop-tru64.adb
===================================================================
--- s-taprop-tru64.adb	(revision 178155)
+++ s-taprop-tru64.adb	(working copy)
@@ -167,7 +167,7 @@ 
       --  cases (e.g. shutdown of the Server_Task in System.Interrupts) we
       --  need to send the Abort signal to a task.
 
-      if ZCX_By_Default and then GCC_ZCX_Support then
+      if ZCX_By_Default then
          return;
       end if;
 
Index: s-taprop-vxworks.adb
===================================================================
--- s-taprop-vxworks.adb	(revision 178155)
+++ s-taprop-vxworks.adb	(working copy)
@@ -188,7 +188,7 @@ 
       --  It is not safe to raise an exception when using ZCX and the GCC
       --  exception handling mechanism.
 
-      if ZCX_By_Default and then GCC_ZCX_Support then
+      if ZCX_By_Default then
          return;
       end if;
 
Index: system.ads
===================================================================
--- system.ads	(revision 178165)
+++ system.ads	(working copy)
@@ -162,7 +162,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
    --  Obsolete entries, to be removed eventually (bootstrap issues!)
 
@@ -171,5 +170,6 @@ 
    Long_Shifts_Inlined       : constant Boolean := True;
    Functions_Return_By_DSP   : constant Boolean := False;
    Support_64_Bit_Divides    : constant Boolean := True;
+   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-aix64.ads
===================================================================
--- system-aix64.ads	(revision 178163)
+++ system-aix64.ads	(working copy)
@@ -149,6 +149,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-aix.ads
===================================================================
--- system-aix.ads	(revision 178163)
+++ system-aix.ads	(working copy)
@@ -149,6 +149,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-darwin-ppc.ads
===================================================================
--- system-darwin-ppc.ads	(revision 178163)
+++ system-darwin-ppc.ads	(working copy)
@@ -165,6 +165,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-darwin-x86_64.ads
===================================================================
--- system-darwin-x86_64.ads	(revision 178163)
+++ system-darwin-x86_64.ads	(working copy)
@@ -165,6 +165,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-darwin-x86.ads
===================================================================
--- system-darwin-x86.ads	(revision 178163)
+++ system-darwin-x86.ads	(working copy)
@@ -165,6 +165,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-freebsd-x86.ads
===================================================================
--- system-freebsd-x86.ads	(revision 178163)
+++ system-freebsd-x86.ads	(working copy)
@@ -139,6 +139,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-hpux.ads
===================================================================
--- system-hpux.ads	(revision 178163)
+++ system-hpux.ads	(working copy)
@@ -139,7 +139,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    --------------------------
    -- Underlying Priorities --
Index: system-hpux-ia64.ads
===================================================================
--- system-hpux-ia64.ads	(revision 178163)
+++ system-hpux-ia64.ads	(working copy)
@@ -139,6 +139,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-irix-n32.ads
===================================================================
--- system-irix-n32.ads	(revision 178163)
+++ system-irix-n32.ads	(working copy)
@@ -151,7 +151,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    --  Note: Denorm is False because denormals are not supported on the
    --  R10000, and we want the code to be valid for this processor.
Index: system-irix-o32.ads
===================================================================
--- system-irix-o32.ads	(revision 178163)
+++ system-irix-o32.ads	(working copy)
@@ -139,7 +139,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    --  Note: Denorm is False because denormals are not supported on the
    --  R10000, and we want the code to be valid for this processor.
Index: system-linux-alpha.ads
===================================================================
--- system-linux-alpha.ads	(revision 178163)
+++ system-linux-alpha.ads	(working copy)
@@ -137,6 +137,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-hppa.ads
===================================================================
--- system-linux-hppa.ads	(revision 178163)
+++ system-linux-hppa.ads	(working copy)
@@ -139,6 +139,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-ia64.ads
===================================================================
--- system-linux-ia64.ads	(revision 178163)
+++ system-linux-ia64.ads	(working copy)
@@ -147,6 +147,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-ppc.ads
===================================================================
--- system-linux-ppc.ads	(revision 178163)
+++ system-linux-ppc.ads	(working copy)
@@ -147,6 +147,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-s390.ads
===================================================================
--- system-linux-s390.ads	(revision 178163)
+++ system-linux-s390.ads	(working copy)
@@ -137,6 +137,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-s390x.ads
===================================================================
--- system-linux-s390x.ads	(revision 178163)
+++ system-linux-s390x.ads	(working copy)
@@ -137,6 +137,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-sh4.ads
===================================================================
--- system-linux-sh4.ads	(revision 178163)
+++ system-linux-sh4.ads	(working copy)
@@ -147,6 +147,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-sparc.ads
===================================================================
--- system-linux-sparc.ads	(revision 178163)
+++ system-linux-sparc.ads	(working copy)
@@ -137,6 +137,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-x86_64.ads
===================================================================
--- system-linux-x86_64.ads	(revision 178163)
+++ system-linux-x86_64.ads	(working copy)
@@ -147,6 +147,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-linux-x86.ads
===================================================================
--- system-linux-x86.ads	(revision 178163)
+++ system-linux-x86.ads	(working copy)
@@ -147,6 +147,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-lynxos-ppc.ads
===================================================================
--- system-lynxos-ppc.ads	(revision 178163)
+++ system-lynxos-ppc.ads	(working copy)
@@ -153,6 +153,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-lynxos-x86.ads
===================================================================
--- system-lynxos-x86.ads	(revision 178163)
+++ system-lynxos-x86.ads	(working copy)
@@ -153,6 +153,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-mingw.ads
===================================================================
--- system-mingw.ads	(revision 178163)
+++ system-mingw.ads	(working copy)
@@ -139,7 +139,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    ---------------------------
    -- Underlying Priorities --
Index: system-mingw-x86_64.ads
===================================================================
--- system-mingw-x86_64.ads	(revision 178163)
+++ system-mingw-x86_64.ads	(working copy)
@@ -139,7 +139,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    ---------------------------
    -- Underlying Priorities --
Index: system-solaris-sparc.ads
===================================================================
--- system-solaris-sparc.ads	(revision 178163)
+++ system-solaris-sparc.ads	(working copy)
@@ -139,6 +139,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-solaris-sparcv9.ads
===================================================================
--- system-solaris-sparcv9.ads	(revision 178163)
+++ system-solaris-sparcv9.ads	(working copy)
@@ -139,6 +139,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-solaris-x86_64.ads
===================================================================
--- system-solaris-x86_64.ads	(revision 178163)
+++ system-solaris-x86_64.ads	(working copy)
@@ -139,6 +139,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-solaris-x86.ads
===================================================================
--- system-solaris-x86.ads	(revision 178163)
+++ system-solaris-x86.ads	(working copy)
@@ -139,6 +139,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-tru64.ads
===================================================================
--- system-tru64.ads	(revision 178163)
+++ system-tru64.ads	(working copy)
@@ -139,7 +139,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    --  Note: Denorm is False because denormals are only handled properly
    --  if the -mieee switch is set, and we do not require this usage.
Index: system-vms_64.ads
===================================================================
--- system-vms_64.ads	(revision 178163)
+++ system-vms_64.ads	(working copy)
@@ -157,7 +157,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    --------------------------
    -- Underlying Priorities --
Index: system-vms-ia64.ads
===================================================================
--- system-vms-ia64.ads	(revision 178163)
+++ system-vms-ia64.ads	(working copy)
@@ -157,7 +157,6 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
    ZCX_By_Default            : constant Boolean := True;
-   GCC_ZCX_Support           : constant Boolean := True;
 
    --------------------------
    -- Underlying Priorities --
Index: system-vxworks-arm.ads
===================================================================
--- system-vxworks-arm.ads	(revision 178163)
+++ system-vxworks-arm.ads	(working copy)
@@ -152,6 +152,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-vxworks-m68k.ads
===================================================================
--- system-vxworks-m68k.ads	(revision 178163)
+++ system-vxworks-m68k.ads	(working copy)
@@ -152,6 +152,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-vxworks-mips.ads
===================================================================
--- system-vxworks-mips.ads	(revision 178163)
+++ system-vxworks-mips.ads	(working copy)
@@ -152,6 +152,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-vxworks-ppc.ads
===================================================================
--- system-vxworks-ppc.ads	(revision 178163)
+++ system-vxworks-ppc.ads	(working copy)
@@ -152,6 +152,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := True;
 
 end System;
Index: system-vxworks-sparcv9.ads
===================================================================
--- system-vxworks-sparcv9.ads	(revision 178163)
+++ system-vxworks-sparcv9.ads	(working copy)
@@ -154,6 +154,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: system-vxworks-x86.ads
===================================================================
--- system-vxworks-x86.ads	(revision 178163)
+++ system-vxworks-x86.ads	(working copy)
@@ -152,6 +152,5 @@ 
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;
-   GCC_ZCX_Support           : constant Boolean := False;
 
 end System;
Index: targparm.adb
===================================================================
--- targparm.adb	(revision 178163)
+++ targparm.adb	(working copy)
@@ -66,8 +66,7 @@ 
       SSL,  --   Suppress_Standard_Library
       UAM,  --   Use_Ada_Main_Program_Name
       VMS,  --   OpenVMS
-      ZCD,  --   ZCX_By_Default
-      ZCG); --   GCC_ZCX_Support
+      ZCD); --   ZCX_By_Default
 
    Targparm_Flags : array (Targparm_Tags) of Boolean := (others => False);
    --  Flag is set True if corresponding parameter is scanned
@@ -103,7 +102,6 @@ 
    UAM_Str : aliased constant Source_Buffer := "Use_Ada_Main_Program_Name";
    VMS_Str : aliased constant Source_Buffer := "OpenVMS";
    ZCD_Str : aliased constant Source_Buffer := "ZCX_By_Default";
-   ZCG_Str : aliased constant Source_Buffer := "GCC_ZCX_Support";
 
    --  The following defines a set of pointers to the above strings,
    --  indexed by the tag values.
@@ -138,8 +136,7 @@ 
       SSL_Str'Access,
       UAM_Str'Access,
       VMS_Str'Access,
-      ZCD_Str'Access,
-      ZCG_Str'Access);
+      ZCD_Str'Access);
 
    -----------------------
    -- Local Subprograms --
@@ -588,7 +585,6 @@ 
                      when UAM => Use_Ada_Main_Program_Name_On_Target := Result;
                      when VMS => OpenVMS_On_Target                   := Result;
                      when ZCD => ZCX_By_Default_On_Target            := Result;
-                     when ZCG => GCC_ZCX_Support_On_Target           := Result;
 
                      goto Line_Loop_Continue;
                   end case;
Index: targparm.ads
===================================================================
--- targparm.ads	(revision 178163)
+++ targparm.ads	(working copy)
@@ -308,9 +308,6 @@ 
    --  front-end setjmp/longjmp approach, and this is the default. If
    --  this variable is True, then GCC ZCX is used.
 
-   GCC_ZCX_Support_On_Target  : Boolean := False;
-   --  Indicates that the target supports GCC Exceptions
-
    ------------------------------------
    -- Run-Time Library Configuration --
    ------------------------------------