diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-12-04 22:31:36 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-12-04 23:21:15 +0100 |
| commit | 39bdb3f6f54cdba80f1efbecab4bbb08428e7cc8 (patch) | |
| tree | e9bbb5e96cad61716ab68de5956eccc515f3eb9d /src | |
| parent | dcfd367d282ab37f00373a424fd193022a8f4bf6 (diff) | |
Vanilla build warning clean-up
* lisp/emacs-lisp/disass.el (native-comp-unit-file)
(subr-native-comp-unit): Declare function.
* lisp/progmodes/elisp-mode.el (native-compile): Likewise.
* lisp/emacs-lisp/package.el (comp-el-to-eln-filename): Likewise.
* lisp/startup.el (normal-top-level): Silence warning.
* src/data.c (syms_of_data): 'Ssubr_native_lambda_list' is always
defined.
* src/pdumper.c (dump_cold_native_subr): Move under ifdefs.
(dump_drain_cold_data): Add ifdefs.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 2 | ||||
| -rw-r--r-- | src/pdumper.c | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index 1435cb03779..fea39867c99 100644 --- a/src/data.c +++ b/src/data.c @@ -4055,8 +4055,8 @@ syms_of_data (void) defsubr (&Ssubr_arity); defsubr (&Ssubr_name); defsubr (&Ssubr_native_elisp_p); -#ifdef HAVE_NATIVE_COMP defsubr (&Ssubr_native_lambda_list); +#ifdef HAVE_NATIVE_COMP defsubr (&Ssubr_native_comp_unit); defsubr (&Snative_comp_unit_file); defsubr (&Snative_comp_unit_set_file); diff --git a/src/pdumper.c b/src/pdumper.c index 1a7aee6343a..b3abbd66f0c 100644 --- a/src/pdumper.c +++ b/src/pdumper.c @@ -3405,6 +3405,7 @@ dump_cold_bignum (struct dump_context *ctx, Lisp_Object object) } } +#ifdef HAVE_NATIVE_COMP static void dump_cold_native_subr (struct dump_context *ctx, Lisp_Object subr) { @@ -3425,6 +3426,7 @@ dump_cold_native_subr (struct dump_context *ctx, Lisp_Object subr) const char *c_name = XSUBR (subr)->native_c_name[0]; dump_write (ctx, c_name, 1 + strlen (c_name)); } +#endif static void dump_drain_cold_data (struct dump_context *ctx) @@ -3469,9 +3471,11 @@ dump_drain_cold_data (struct dump_context *ctx) case COLD_OP_BIGNUM: dump_cold_bignum (ctx, data); break; +#ifdef HAVE_NATIVE_COMP case COLD_OP_NATIVE_SUBR: dump_cold_native_subr (ctx, data); break; +#endif default: emacs_abort (); } |