diff options
| author | Andrea Corallo | 2021-03-07 20:19:20 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2021-03-07 20:19:20 +0100 |
| commit | dbdc44db15ef9daa24d92c59d4e158f3963a172f (patch) | |
| tree | cf48697f66299efc55f9eddf369b9597b31e38b6 /src/comp.c | |
| parent | 38b4ac3e6b5ac7e88003e02b30bbe2bdb82e6e6a (diff) | |
| download | emacs-dbdc44db15ef9daa24d92c59d4e158f3963a172f.tar.gz emacs-dbdc44db15ef9daa24d92c59d4e158f3963a172f.zip | |
Allow for `comp-native-driver-options' to work as a file-local variable.
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/comp.c b/src/comp.c index bea9945bbfe..b2d8b8ec987 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -516,6 +516,7 @@ typedef struct { | |||
| 516 | typedef struct { | 516 | typedef struct { |
| 517 | EMACS_INT speed; | 517 | EMACS_INT speed; |
| 518 | EMACS_INT debug; | 518 | EMACS_INT debug; |
| 519 | Lisp_Object driver_options; | ||
| 519 | gcc_jit_context *ctxt; | 520 | gcc_jit_context *ctxt; |
| 520 | gcc_jit_type *void_type; | 521 | gcc_jit_type *void_type; |
| 521 | gcc_jit_type *bool_type; | 522 | gcc_jit_type *bool_type; |
| @@ -4333,7 +4334,7 @@ DEFUN ("comp-native-driver-options-effective-p", | |||
| 4333 | static void | 4334 | static void |
| 4334 | add_driver_options (void) | 4335 | add_driver_options (void) |
| 4335 | { | 4336 | { |
| 4336 | Lisp_Object options = Fsymbol_value (Qcomp_native_driver_options); | 4337 | Lisp_Object options = comp.driver_options; |
| 4337 | 4338 | ||
| 4338 | #if defined (LIBGCCJIT_HAVE_gcc_jit_context_add_driver_option) \ | 4339 | #if defined (LIBGCCJIT_HAVE_gcc_jit_context_add_driver_option) \ |
| 4339 | || defined (WINDOWSNT) | 4340 | || defined (WINDOWSNT) |
| @@ -4400,6 +4401,7 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, | |||
| 4400 | eassert (comp.speed < INT_MAX); | 4401 | eassert (comp.speed < INT_MAX); |
| 4401 | comp.debug = XFIXNUM (CALL1I (comp-ctxt-debug, Vcomp_ctxt)); | 4402 | comp.debug = XFIXNUM (CALL1I (comp-ctxt-debug, Vcomp_ctxt)); |
| 4402 | eassert (comp.debug < INT_MAX); | 4403 | eassert (comp.debug < INT_MAX); |
| 4404 | comp.driver_options = CALL1I (comp-ctxt-driver-options, Vcomp_ctxt); | ||
| 4403 | 4405 | ||
| 4404 | if (comp.debug) | 4406 | if (comp.debug) |
| 4405 | gcc_jit_context_set_bool_option (comp.ctxt, | 4407 | gcc_jit_context_set_bool_option (comp.ctxt, |