Fix --help=target (Ada) (PR other/39851)

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

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

From-SVN: r251406

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b0b7cf351c3003d16cdab3c402c69f317f45333f..87091b1c7f5ae1495bea1fad877211efec2600f1 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2017-08-29  Martin Liska  <mliska@suse.cz>
+
+       PR other/39851
+       * gcc-interface/trans.c (Pragma_to_gnu): Set argument to NULL.
+
 2017-08-08  Martin Liska  <mliska@suse.cz>
 
        * gcc-interface/trans.c: Include header files.

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 67044b7b5748c38565939edc665478708130768c..c0c6fb3091530a0ea2ec15f3497cab850d49a82f 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -1486,7 +1486,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);