diff options
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) | |||
| 4055 | defsubr (&Ssubr_arity); | 4055 | defsubr (&Ssubr_arity); |
| 4056 | defsubr (&Ssubr_name); | 4056 | defsubr (&Ssubr_name); |
| 4057 | defsubr (&Ssubr_native_elisp_p); | 4057 | defsubr (&Ssubr_native_elisp_p); |
| 4058 | #ifdef HAVE_NATIVE_COMP | ||
| 4059 | defsubr (&Ssubr_native_lambda_list); | 4058 | defsubr (&Ssubr_native_lambda_list); |
| 4059 | #ifdef HAVE_NATIVE_COMP | ||
| 4060 | defsubr (&Ssubr_native_comp_unit); | 4060 | defsubr (&Ssubr_native_comp_unit); |
| 4061 | defsubr (&Snative_comp_unit_file); | 4061 | defsubr (&Snative_comp_unit_file); |
| 4062 | defsubr (&Snative_comp_unit_set_file); | 4062 | 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) | |||
| 3405 | } | 3405 | } |
| 3406 | } | 3406 | } |
| 3407 | 3407 | ||
| 3408 | #ifdef HAVE_NATIVE_COMP | ||
| 3408 | static void | 3409 | static void |
| 3409 | dump_cold_native_subr (struct dump_context *ctx, Lisp_Object subr) | 3410 | dump_cold_native_subr (struct dump_context *ctx, Lisp_Object subr) |
| 3410 | { | 3411 | { |
| @@ -3425,6 +3426,7 @@ dump_cold_native_subr (struct dump_context *ctx, Lisp_Object subr) | |||
| 3425 | const char *c_name = XSUBR (subr)->native_c_name[0]; | 3426 | const char *c_name = XSUBR (subr)->native_c_name[0]; |
| 3426 | dump_write (ctx, c_name, 1 + strlen (c_name)); | 3427 | dump_write (ctx, c_name, 1 + strlen (c_name)); |
| 3427 | } | 3428 | } |
| 3429 | #endif | ||
| 3428 | 3430 | ||
| 3429 | static void | 3431 | static void |
| 3430 | dump_drain_cold_data (struct dump_context *ctx) | 3432 | dump_drain_cold_data (struct dump_context *ctx) |
| @@ -3469,9 +3471,11 @@ dump_drain_cold_data (struct dump_context *ctx) | |||
| 3469 | case COLD_OP_BIGNUM: | 3471 | case COLD_OP_BIGNUM: |
| 3470 | dump_cold_bignum (ctx, data); | 3472 | dump_cold_bignum (ctx, data); |
| 3471 | break; | 3473 | break; |
| 3474 | #ifdef HAVE_NATIVE_COMP | ||
| 3472 | case COLD_OP_NATIVE_SUBR: | 3475 | case COLD_OP_NATIVE_SUBR: |
| 3473 | dump_cold_native_subr (ctx, data); | 3476 | dump_cold_native_subr (ctx, data); |
| 3474 | break; | 3477 | break; |
| 3478 | #endif | ||
| 3475 | default: | 3479 | default: |
| 3476 | emacs_abort (); | 3480 | emacs_abort (); |
| 3477 | } | 3481 | } |