From: Andreas Fuchs <asf@boinkor.net>
Date: Fri, 21 Aug 2020 01:05:37 +0000 (-0400)
Subject: * Add 'comp-native-driver-options-available-p'
X-Git-Tag: emacs-28.0.90~2727^2~475^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c17013ae766d7d3dd79122e1ee99d3f2ec4d9f04;p=emacs.git

* 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.
---

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);