[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/native-comp-gcc-driver-options 2ce19db 1/4: * Add 'comp-native-d
From: |
Andrea Corallo |
Subject: |
scratch/native-comp-gcc-driver-options 2ce19db 1/4: * Add 'comp-native-driver-options-available-p' |
Date: |
Mon, 24 Aug 2020 04:46:57 -0400 (EDT) |
branch: scratch/native-comp-gcc-driver-options
commit 2ce19db2e3c87459d99ffc5462f89dbc55cda2bb
Author: Andreas Fuchs <asf@boinkor.net>
Commit: Andreas Fuchs <asf@boinkor.net>
* 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 6cde761..5bfbfba 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);