Backport r251406

2017-09-15  Martin Liska  <mliska@suse.cz>

	Backport from mainline
	2017-08-29  Martin Liska  <mliska@suse.cz>

	PR other/39851
	* gcc-interface/trans.c (Pragma_to_gnu): Set argument to NULL.

From-SVN: r252798

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7b79356b1f8561e3d9f0228970b4c0e7b39e6689..e41237114c126891db56a60699d389f7bcdbda06 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2017-09-15  Martin Liska  <mliska@suse.cz>
+
+       Backport from mainline
+       2017-08-29  Martin Liska  <mliska@suse.cz>
+
+       PR other/39851
+       * gcc-interface/trans.c (Pragma_to_gnu): Set argument to NULL.
+
 2017-09-05  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/utils.c (unchecked_convert): When the result type is a

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 592d005ad89210d8757f90699f25783296166698..8a4924c9f28d45e3bb33eb54c5c02d05ccdf284e 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -1469,7 +1469,7 @@ Pragma_to_gnu (Node_Id gnat_node)
        else
          option_index = 0;
 
-       set_default_handlers (&handlers);
+       set_default_handlers (&handlers, NULL);
        control_warning_option (option_index, (int) kind, arg, imply, location,
                                lang_mask, &handlers, &global_options,
                                &global_options_set, global_dc);