Mercurial > emacs
comparison src/fns.c @ 56199:c0ad262446d6
(Fmapconcat, Fmapcar): Use SAFE_ALLOCA_LISP.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 21 Jun 2004 22:36:02 +0000 |
| parents | 3204d2175b6a |
| children | 2bb92448ff94 |
comparison
equal
deleted
inserted
replaced
| 56198:a803de48faef | 56199:c0ad262446d6 |
|---|---|
| 3008 leni = XINT (len); | 3008 leni = XINT (len); |
| 3009 nargs = leni + leni - 1; | 3009 nargs = leni + leni - 1; |
| 3010 if (nargs < 0) return build_string (""); | 3010 if (nargs < 0) return build_string (""); |
| 3011 | 3011 |
| 3012 nbytes = nargs * sizeof (Lisp_Object); | 3012 nbytes = nargs * sizeof (Lisp_Object); |
| 3013 SAFE_ALLOCA (args, Lisp_Object *, nbytes); | 3013 SAFE_ALLOCA_LISP (args, nbytes); |
| 3014 | 3014 |
| 3015 GCPRO1 (separator); | 3015 GCPRO1 (separator); |
| 3016 mapcar1 (leni, args, function, sequence); | 3016 mapcar1 (leni, args, function, sequence); |
| 3017 UNGCPRO; | 3017 UNGCPRO; |
| 3018 | 3018 |
| 3044 | 3044 |
| 3045 len = Flength (sequence); | 3045 len = Flength (sequence); |
| 3046 leni = XFASTINT (len); | 3046 leni = XFASTINT (len); |
| 3047 | 3047 |
| 3048 nbytes = leni * sizeof (Lisp_Object); | 3048 nbytes = leni * sizeof (Lisp_Object); |
| 3049 SAFE_ALLOCA (args, Lisp_Object *, nbytes); | 3049 SAFE_ALLOCA_LISP (args, nbytes); |
| 3050 | 3050 |
| 3051 mapcar1 (leni, args, function, sequence); | 3051 mapcar1 (leni, args, function, sequence); |
| 3052 | 3052 |
| 3053 ret = Flist (leni, args); | 3053 ret = Flist (leni, args); |
| 3054 SAFE_FREE(nbytes); | 3054 SAFE_FREE(nbytes); |