Mercurial > emacs

changeset 56206:1305e0463707

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmapcar, Fmapconcat): GCPRO the args array.
author Kim F. Storm <storm@cua.dk>
date Tue, 22 Jun 2004 14:48:10 +0000
parents 307725d46543
children b5f852992d97
files src/fns.c
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Tue Jun 22 14:47:10 2004 +0000
+++ b/src/fns.c	Tue Jun 22 14:48:10 2004 +0000
@@ -3020,7 +3020,11 @@
   for (i = 1; i < nargs; i += 2)
     args[i] = separator;
 
+  GCPRO1 (*args);
+  gcpro1.nvars = nargs;
   ret = Fconcat (nargs, args);
+  UNGCPRO;
+
   SAFE_FREE_LISP (nargs);
 
   return ret;
@@ -3036,6 +3040,7 @@
   register Lisp_Object len;
   register int leni;
   register Lisp_Object *args;
+  struct gcpro gcpro1;
   Lisp_Object ret;
   USE_SAFE_ALLOCA;
 
@@ -3046,7 +3051,11 @@
 
   mapcar1 (leni, args, function, sequence);
 
+  GCPRO1 (*args);
+  gcpro1.nvars = leni;
   ret = Flist (leni, args);
+  UNGCPRO;
+
   SAFE_FREE_LISP (leni);
 
   return ret;