From c364d3199a1b3b1a9ec0f9afe421110d46a77769 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gerd=20M=C3=B6llmann?= Date: Sat, 4 Jan 2025 19:42:50 +0100 Subject: [PATCH 1/2] Don't use SAFE_NALLOCA for Lisp_Objects * src/callproc.c (call_process, create_temp_file): Use SAFE_ALLOCA_LISP instead of SAFE_NALLCA. --- src/callproc.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/callproc.c b/src/callproc.c index 459ddbeb4f3..6f358f939de 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -423,7 +423,7 @@ call_process (ptrdiff_t nargs, Lisp_Object *args, int filefd, val = Qraw_text; else { - SAFE_NALLOCA (args2, 1, nargs + 1); + SAFE_ALLOCA_LISP (args2, nargs + 1); args2[0] = Qcall_process; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; coding_systems = Ffind_operation_coding_system (nargs + 1, args2); @@ -741,7 +741,7 @@ call_process (ptrdiff_t nargs, Lisp_Object *args, int filefd, { ptrdiff_t i; - SAFE_NALLOCA (args2, 1, nargs + 1); + SAFE_ALLOCA_LISP (args2, nargs + 1); args2[0] = Qcall_process; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; coding_systems @@ -1033,7 +1033,7 @@ create_temp_file (ptrdiff_t nargs, Lisp_Object *args, Lisp_Object coding_systems; Lisp_Object *args2; USE_SAFE_ALLOCA; - SAFE_NALLOCA (args2, 1, nargs + 1); + SAFE_ALLOCA_LISP (args2, nargs + 1); args2[0] = Qcall_process_region; memcpy (args2 + 1, args, nargs * sizeof *args); coding_systems = Ffind_operation_coding_system (nargs + 1, args2); -- 2.47.1