diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-05-28 20:49:55 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 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.tar.bz2 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) case PVEC_SUBR: #ifdef HAVE_NATIVE_COMP - if (SUBR_NATIVE_COMPILEDP (obj)) + if (NATIVE_COMP_FUNCTIONP (obj)) { set_vector_marked (ptr); struct Lisp_Subr *subr = XSUBR (obj); @@ -7550,7 +7550,7 @@ survives_gc_p (Lisp_Object obj) case Lisp_Vectorlike: survives_p = - (SUBRP (obj) && !SUBR_NATIVE_COMPILEDP (obj)) || + (SUBRP (obj) && !NATIVE_COMP_FUNCTIONP (obj)) || vector_marked_p (XVECTOR (obj)); break; |