Don't use SAFE_NALLOCA for Lisp_Objects

* src/callproc.c (call_process, create_temp_file): Use SAFE_ALLOCA_LISP
instead of SAFE_NALLCA.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 62e6d525499..5dccf0b5dee 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);
@@ -743,7 +743,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
@@ -1035,7 +1035,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);