aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorStefan Monnier2024-05-28 20:49:55 -0400
committerStefan Monnier2024-05-28 20:53:33 -0400
commit3480ca83510f1ad6026971c9031e2c65540d402a (patch)
tree9227d714b39f0df11174cf3401f195d7089ade57 /src/alloc.c
parentfde8dc9287c0a81c6b942b5cf445f8f7aeba1207 (diff)
downloademacs-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.c4
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