diff options
| author | Stefan Monnier | 2024-05-28 20:49:55 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2024-05-28 20:53:33 -0400 |
| commit | 3480ca83510f1ad6026971c9031e2c65540d402a (patch) | |
| tree | 9227d714b39f0df11174cf3401f195d7089ade57 /src/alloc.c | |
| parent | fde8dc9287c0a81c6b942b5cf445f8f7aeba1207 (diff) | |
| download | emacs-3480ca83510f1ad6026971c9031e2c65540d402a.tar.gz emacs-3480ca83510f1ad6026971c9031e2c65540d402a.zip | |
Rename `SUBR_NATIVE_COMPILED` to `NATIVE_COMP_FUNCTION` (bug#71123)
Keep the name consistent with the naming used in the ELisp world.
* src/pdumper.c (dump_object_emacs_ptr, dump_do_fixup):
* src/eval.c (eval_sub, funcall_general, funcall_lambda):
* src/alloc.c (CHECK_ALLOCATED_AND_LIVE_SYMBOL, survives_gc_p):
* src/data.c (Fcl_type_of, Ffset, Fnative_comp_function_p)
(Fsubr_native_lambda_list, Finteractive_form):
* src/comp.c (check_comp_unit_relocs):
* src/bytecode.c (exec_byte_code):
* src/lisp.h (NATIVE_COMP_FUNCTIONP, NATIVE_COMP_FUNCTION_DYNP):
Rename from `SUBR_NATIVE_COMPILEDP` and `SUBR_NATIVE_COMPILED_DYNP`.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index 28e32554472..9304e4e42bb 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -7350,7 +7350,7 @@ process_mark_stack (ptrdiff_t base_sp) | |||
| 7350 | 7350 | ||
| 7351 | case PVEC_SUBR: | 7351 | case PVEC_SUBR: |
| 7352 | #ifdef HAVE_NATIVE_COMP | 7352 | #ifdef HAVE_NATIVE_COMP |
| 7353 | if (SUBR_NATIVE_COMPILEDP (obj)) | 7353 | if (NATIVE_COMP_FUNCTIONP (obj)) |
| 7354 | { | 7354 | { |
| 7355 | set_vector_marked (ptr); | 7355 | set_vector_marked (ptr); |
| 7356 | struct Lisp_Subr *subr = XSUBR (obj); | 7356 | struct Lisp_Subr *subr = XSUBR (obj); |
| @@ -7550,7 +7550,7 @@ survives_gc_p (Lisp_Object obj) | |||
| 7550 | 7550 | ||
| 7551 | case Lisp_Vectorlike: | 7551 | case Lisp_Vectorlike: |
| 7552 | survives_p = | 7552 | survives_p = |
| 7553 | (SUBRP (obj) && !SUBR_NATIVE_COMPILEDP (obj)) || | 7553 | (SUBRP (obj) && !NATIVE_COMP_FUNCTIONP (obj)) || |
| 7554 | vector_marked_p (XVECTOR (obj)); | 7554 | vector_marked_p (XVECTOR (obj)); |
| 7555 | break; | 7555 | break; |
| 7556 | 7556 | ||