/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.366 by kfstorm, Mon Jun 21 22:36:02 2004 UTC revision 1.367 by kfstorm, Tue Jun 22 13:57:00 2004 UTC
# Line 3000  SEQUENCE may be a list, a vector, a bool Line 3000  SEQUENCE may be a list, a vector, a bool
3000    register Lisp_Object *args;    register Lisp_Object *args;
3001    register int i;    register int i;
3002    struct gcpro gcpro1;    struct gcpro gcpro1;
   int nbytes;  
3003    Lisp_Object ret;    Lisp_Object ret;
3004    USE_SAFE_ALLOCA;    USE_SAFE_ALLOCA;
3005    
# Line 3009  SEQUENCE may be a list, a vector, a bool Line 3008  SEQUENCE may be a list, a vector, a bool
3008    nargs = leni + leni - 1;    nargs = leni + leni - 1;
3009    if (nargs < 0) return build_string ("");    if (nargs < 0) return build_string ("");
3010    
3011    nbytes = nargs * sizeof (Lisp_Object);    SAFE_ALLOCA_LISP (args, nargs);
   SAFE_ALLOCA_LISP (args, nbytes);  
3012    
3013    GCPRO1 (separator);    GCPRO1 (separator);
3014    mapcar1 (leni, args, function, sequence);    mapcar1 (leni, args, function, sequence);
# Line 3023  SEQUENCE may be a list, a vector, a bool Line 3021  SEQUENCE may be a list, a vector, a bool
3021      args[i] = separator;      args[i] = separator;
3022    
3023    ret = Fconcat (nargs, args);    ret = Fconcat (nargs, args);
3024    SAFE_FREE (nbytes);    SAFE_FREE_LISP (nargs);
3025    
3026    return ret;    return ret;
3027  }  }
# Line 3038  SEQUENCE may be a list, a vector, a bool Line 3036  SEQUENCE may be a list, a vector, a bool
3036    register Lisp_Object len;    register Lisp_Object len;
3037    register int leni;    register int leni;
3038    register Lisp_Object *args;    register Lisp_Object *args;
   int nbytes;  
3039    Lisp_Object ret;    Lisp_Object ret;
3040    USE_SAFE_ALLOCA;    USE_SAFE_ALLOCA;
3041    
3042    len = Flength (sequence);    len = Flength (sequence);
3043    leni = XFASTINT (len);    leni = XFASTINT (len);
3044    
3045    nbytes = leni * sizeof (Lisp_Object);    SAFE_ALLOCA_LISP (args, leni);
   SAFE_ALLOCA_LISP (args, nbytes);  
3046    
3047    mapcar1 (leni, args, function, sequence);    mapcar1 (leni, args, function, sequence);
3048    
3049    ret = Flist (leni, args);    ret = Flist (leni, args);
3050    SAFE_FREE(nbytes);    SAFE_FREE_LISP (leni);
3051    
3052    return ret;    return ret;
3053  }  }

Legend:
Removed from v.1.366  
changed lines
  Added in v.1.367

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26