[Emacs-diffs] Changes to emacs/src/fns.c

[Kim F . Storm]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.365 emacs/src/fns.c:1.366
*** emacs/src/fns.c:1.365       Mon Jun 21 21:55:15 2004
--- emacs/src/fns.c     Mon Jun 21 22:36:02 2004
***************
*** 3010,3016 ****
    if (nargs < 0) return build_string ("");
  
    nbytes = nargs * sizeof (Lisp_Object);
!   SAFE_ALLOCA (args, Lisp_Object *, nbytes);
  
    GCPRO1 (separator);
    mapcar1 (leni, args, function, sequence);
--- 3010,3016 ----
    if (nargs < 0) return build_string ("");
  
    nbytes = nargs * sizeof (Lisp_Object);
!   SAFE_ALLOCA_LISP (args, nbytes);
  
    GCPRO1 (separator);
    mapcar1 (leni, args, function, sequence);
***************
*** 3046,3052 ****
    leni = XFASTINT (len);
  
    nbytes = leni * sizeof (Lisp_Object);
!   SAFE_ALLOCA (args, Lisp_Object *, nbytes);
  
    mapcar1 (leni, args, function, sequence);
  
--- 3046,3052 ----
    leni = XFASTINT (len);
  
    nbytes = leni * sizeof (Lisp_Object);
!   SAFE_ALLOCA_LISP (args, nbytes);
  
    mapcar1 (leni, args, function, sequence);