From c17013ae766d7d3dd79122e1ee99d3f2ec4d9f04 Mon Sep 17 00:00:00 2001 From: Andreas Fuchs Date: Thu, 20 Aug 2020 21:05:37 -0400 Subject: [PATCH] * Add 'comp-native-driver-options-available-p' * src/comp.c (comp-native-driver-options-available-p): New function that returns t if driver options can be used. --- src/comp.c | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/src/comp.c b/src/comp.c index 6cde761f761..5bfbfbaf3c9 100644 --- a/src/comp.c +++ b/src/comp.c @@ -4122,6 +4122,23 @@ DEFUN ("comp--release-ctxt", Fcomp__release_ctxt, Scomp__release_ctxt, return Qt; } +DEFUN ("comp-native-driver-options-available-p", Fcomp_native_driver_options_available_p, + Scomp_native_driver_options_available_p, + 0, 0, 0, + doc: /* Return t if `comp-native-driver-options' can be used. */) + (void) +{ +#if defined (LIBGCCJIT_HAVE_gcc_jit_context_add_driver_option) \ + || defined (WINDOWSNT) +#pragma GCC diagnostic ignored "-Waddress" + if (gcc_jit_context_add_driver_option) + return Qt; +#pragma GCC diagnostic pop +#endif + return Qnil; +} + + static void add_driver_options (void) { @@ -5123,6 +5140,7 @@ native compiled one. */); "configuration, please recompile")); defsubr (&Scomp_el_to_eln_filename); + defsubr (&Scomp_native_driver_options_available_p); defsubr (&Scomp__init_ctxt); defsubr (&Scomp__release_ctxt); defsubr (&Scomp__compile_ctxt_to_file); -- 2.39.5