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

[Kim F . Storm]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.366 emacs/src/fns.c:1.367
*** emacs/src/fns.c:1.366       Mon Jun 21 22:36:02 2004
--- emacs/src/fns.c     Tue Jun 22 13:57:00 2004
***************
*** 3000,3006 ****
    register Lisp_Object *args;
    register int i;
    struct gcpro gcpro1;
-   int nbytes;
    Lisp_Object ret;
    USE_SAFE_ALLOCA;
  
--- 3000,3005 ----
***************
*** 3009,3016 ****
    nargs = leni + leni - 1;
    if (nargs < 0) return build_string ("");
  
!   nbytes = nargs * sizeof (Lisp_Object);
!   SAFE_ALLOCA_LISP (args, nbytes);
  
    GCPRO1 (separator);
    mapcar1 (leni, args, function, sequence);
--- 3008,3014 ----
    nargs = leni + leni - 1;
    if (nargs < 0) return build_string ("");
  
!   SAFE_ALLOCA_LISP (args, nargs);
  
    GCPRO1 (separator);
    mapcar1 (leni, args, function, sequence);
***************
*** 3023,3029 ****
      args[i] = separator;
  
    ret = Fconcat (nargs, args);
!   SAFE_FREE (nbytes);
  
    return ret;
  }
--- 3021,3027 ----
      args[i] = separator;
  
    ret = Fconcat (nargs, args);
!   SAFE_FREE_LISP (nargs);
  
    return ret;
  }
***************
*** 3038,3057 ****
    register Lisp_Object len;
    register int leni;
    register Lisp_Object *args;
-   int nbytes;
    Lisp_Object ret;
    USE_SAFE_ALLOCA;
  
    len = Flength (sequence);
    leni = XFASTINT (len);
  
!   nbytes = leni * sizeof (Lisp_Object);
!   SAFE_ALLOCA_LISP (args, nbytes);
  
    mapcar1 (leni, args, function, sequence);
  
    ret = Flist (leni, args);
!   SAFE_FREE(nbytes);
  
    return ret;
  }
--- 3036,3053 ----
    register Lisp_Object len;
    register int leni;
    register Lisp_Object *args;
    Lisp_Object ret;
    USE_SAFE_ALLOCA;
  
    len = Flength (sequence);
    leni = XFASTINT (len);
  
!   SAFE_ALLOCA_LISP (args, leni);
  
    mapcar1 (leni, args, function, sequence);
  
    ret = Flist (leni, args);
!   SAFE_FREE_LISP (leni);
  
    return ret;
  }