aboutsummaryrefslogtreecommitdiffstats
path: root/src/comp.c
diff options
context:
space:
mode:
authorStefan Kangas2025-01-14 00:16:40 +0100
committerStefan Kangas2025-01-14 00:16:40 +0100
commit383de5c3f6f1ca7c8da7450d6e1716b43e9d2020 (patch)
tree0ec1c0c1bf4f29387d6361bdc6f0073378344d7d /src/comp.c
parentf0e63558bd3dfd9e57cacfba8690f9dd29774947 (diff)
downloademacs-383de5c3f6f1ca7c8da7450d6e1716b43e9d2020.tar.gz
emacs-383de5c3f6f1ca7c8da7450d6e1716b43e9d2020.zip
Prefer calln to CALLN where applicable
* src/callint.c (read_file_name): * src/comp.c (CALL0I, CALL1I, CALL2I, CALL4I, declare_imported_func): * src/data.c (Ffset, notify_variable_watchers): * src/eval.c (Ffuncall_with_delayed_message): * src/keymap.c (Fdescribe_buffer_bindings): * src/minibuf.c (Fread_buffer, Fcompleting_read): * src/pdumper.c (Fdump_emacs_portable): * src/print.c (print_vectorlike_unreadable): * src/treesit.c (treesit_traverse_match_predicate) (treesit_build_sparse_tree): Prefer calln to CALLN.
Diffstat (limited to 'src/comp.c')
-rw-r--r--src/comp.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/comp.c b/src/comp.c
index b96fae4ae95..8b56bcf0257 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -504,19 +504,19 @@ load_gccjit_if_necessary (bool mandatory)
504 504
505/* Like call0 but stringify and intern. */ 505/* Like call0 but stringify and intern. */
506#define CALL0I(fun) \ 506#define CALL0I(fun) \
507 CALLN (Ffuncall, intern_c_string (STR (fun))) 507 calln (intern_c_string (STR (fun)))
508 508
509/* Like call1 but stringify and intern. */ 509/* Like call1 but stringify and intern. */
510#define CALL1I(fun, arg) \ 510#define CALL1I(fun, arg) \
511 CALLN (Ffuncall, intern_c_string (STR (fun)), arg) 511 calln (intern_c_string (STR (fun)), arg)
512 512
513/* Like call2 but stringify and intern. */ 513/* Like call2 but stringify and intern. */
514#define CALL2I(fun, arg1, arg2) \ 514#define CALL2I(fun, arg1, arg2) \
515 CALLN (Ffuncall, intern_c_string (STR (fun)), arg1, arg2) 515 calln (intern_c_string (STR (fun)), arg1, arg2)
516 516
517/* Like call4 but stringify and intern. */ 517/* Like call4 but stringify and intern. */
518#define CALL4I(fun, arg1, arg2, arg3, arg4) \ 518#define CALL4I(fun, arg1, arg2, arg3, arg4) \
519 CALLN (Ffuncall, intern_c_string (STR (fun)), arg1, arg2, arg3, arg4) 519 calln (intern_c_string (STR (fun)), arg1, arg2, arg3, arg4)
520 520
521#define DECL_BLOCK(name, func) \ 521#define DECL_BLOCK(name, func) \
522 gcc_jit_block *(name) = \ 522 gcc_jit_block *(name) = \
@@ -1016,7 +1016,7 @@ declare_imported_func (Lisp_Object subr_sym, gcc_jit_type *ret_type,
1016 1016
1017 /* String containing the function ptr name. */ 1017 /* String containing the function ptr name. */
1018 Lisp_Object f_ptr_name = 1018 Lisp_Object f_ptr_name =
1019 CALLN (Ffuncall, intern_c_string ("comp-c-func-name"), 1019 calln (intern_c_string ("comp-c-func-name"),
1020 subr_sym, make_string ("R", 1)); 1020 subr_sym, make_string ("R", 1));
1021 1021
1022 gcc_jit_type *f_ptr_type = 1022 gcc_jit_type *f_ptr_type =