misc.c (gnat_init_gcc_eh): Do not override the switch -fnon-call-exceptions…

misc.c (gnat_init_gcc_eh): Do not override the switch -fnon-call-exceptions passed on the command line in...

	* gcc-interface/misc.c (gnat_init_gcc_eh): Do not override the switch
	-fnon-call-exceptions passed on the command line in -gnatp mode.

From-SVN: r266176

gcc/ada/ChangeLog

@@ -7,6 +7,11 @@
 	* exp_ch4.adb (Expand_Boolean_Operation): Use this new profile.
 	* exp_pakd.adb (Expand_Packed_Boolean_Operator): Ditto.
 
+2018-11-15  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/misc.c (gnat_init_gcc_eh): Do not override the switch
+	-fnon-call-exceptions passed on the command line in -gnatp mode.
+
 2018-11-14  Patrick Bernardi  <bernardi@adacore.com>
 
 	* libgnarl/a-intnam__linux.ads: Add SIGSYS.

gcc/ada/gcc-interface/misc.c

@@ -412,7 +412,10 @@ gnat_init_gcc_eh (void)
   flag_exceptions = 1;
   flag_delete_dead_exceptions = 1;
   if (Suppress_Checks)
-    flag_non_call_exceptions = Machine_Overflows_On_Target && GNAT_Mode;
+    {
+      if (!global_options_set.x_flag_non_call_exceptions)
+	flag_non_call_exceptions = Machine_Overflows_On_Target && GNAT_Mode;
+    }
   else
     {
       flag_non_call_exceptions = 1;