diff options
| -rw-r--r-- | src/comp.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/comp.c b/src/comp.c index 7f6bbe395b5..a553a4bc7e3 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -4122,10 +4122,12 @@ DEFUN ("comp--release-ctxt", Fcomp__release_ctxt, Scomp__release_ctxt, | |||
| 4122 | return Qt; | 4122 | return Qt; |
| 4123 | } | 4123 | } |
| 4124 | 4124 | ||
| 4125 | DEFUN ("comp-native-driver-options-available-p", Fcomp_native_driver_options_available_p, | 4125 | DEFUN ("comp-native-driver-options-effective-p", |
| 4126 | Scomp_native_driver_options_available_p, | 4126 | Fcomp_native_driver_options_effective_p, |
| 4127 | Scomp_native_driver_options_effective_p, | ||
| 4127 | 0, 0, 0, | 4128 | 0, 0, 0, |
| 4128 | doc: /* Return t if `comp-native-driver-options' can be used. */) | 4129 | doc: /* Return t if `comp-native-driver-options' is |
| 4130 | effective nil otherwise. */) | ||
| 4129 | (void) | 4131 | (void) |
| 4130 | { | 4132 | { |
| 4131 | #if defined (LIBGCCJIT_HAVE_gcc_jit_context_add_driver_option) \ | 4133 | #if defined (LIBGCCJIT_HAVE_gcc_jit_context_add_driver_option) \ |
| @@ -4147,7 +4149,7 @@ add_driver_options (void) | |||
| 4147 | #if defined (LIBGCCJIT_HAVE_gcc_jit_context_add_driver_option) \ | 4149 | #if defined (LIBGCCJIT_HAVE_gcc_jit_context_add_driver_option) \ |
| 4148 | || defined (WINDOWSNT) | 4150 | || defined (WINDOWSNT) |
| 4149 | load_gccjit_if_necessary (true); | 4151 | load_gccjit_if_necessary (true); |
| 4150 | if (!NILP (Fcomp_native_driver_options_available_p ())) | 4152 | if (!NILP (Fcomp_native_driver_options_effective_p ())) |
| 4151 | FOR_EACH_TAIL (options) | 4153 | FOR_EACH_TAIL (options) |
| 4152 | gcc_jit_context_add_driver_option (comp.ctxt, | 4154 | gcc_jit_context_add_driver_option (comp.ctxt, |
| 4153 | SSDATA (XCAR (options))); | 4155 | SSDATA (XCAR (options))); |
| @@ -5139,7 +5141,7 @@ native compiled one. */); | |||
| 5139 | "configuration, please recompile")); | 5141 | "configuration, please recompile")); |
| 5140 | 5142 | ||
| 5141 | defsubr (&Scomp_el_to_eln_filename); | 5143 | defsubr (&Scomp_el_to_eln_filename); |
| 5142 | defsubr (&Scomp_native_driver_options_available_p); | 5144 | defsubr (&Scomp_native_driver_options_effective_p); |
| 5143 | defsubr (&Scomp__init_ctxt); | 5145 | defsubr (&Scomp__init_ctxt); |
| 5144 | defsubr (&Scomp__release_ctxt); | 5146 | defsubr (&Scomp__release_ctxt); |
| 5145 | defsubr (&Scomp__compile_ctxt_to_file); | 5147 | defsubr (&Scomp__compile_ctxt_to_file); |