[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99983: * eval.c (Flet, Feval, Fa
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99983: * eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA_LISP |
Date: |
Tue, 17 Aug 2010 23:07:50 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 99983
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Tue 2010-08-17 23:07:50 +0200
message:
* eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA_LISP
instead of SAFE_ALLOCA.
modified:
src/ChangeLog
src/eval.c
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2010-08-17 16:34:28 +0000
+++ b/src/ChangeLog 2010-08-17 21:07:50 +0000
@@ -1,3 +1,8 @@
+2010-08-17 Andreas Schwab <address@hidden>
+
+ * eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA_LISP
+ instead of SAFE_ALLOCA.
+
2010-08-17 Chong Yidong <address@hidden>
* eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA
=== modified file 'src/eval.c'
--- a/src/eval.c 2010-08-17 16:34:28 +0000
+++ b/src/eval.c 2010-08-17 21:07:50 +0000
@@ -1034,7 +1034,7 @@
/* Make space to hold the values to give the bound variables */
elt = Flength (varlist);
- SAFE_ALLOCA (temps, Lisp_Object *, XFASTINT (elt) * sizeof (Lisp_Object));
+ SAFE_ALLOCA_LISP (temps, XFASTINT (elt));
/* Compute the values and store them in `temps' */
@@ -2303,8 +2303,7 @@
register int argnum = 0;
USE_SAFE_ALLOCA;
- SAFE_ALLOCA (vals, Lisp_Object *,
- XINT (numargs) * sizeof (Lisp_Object));
+ SAFE_ALLOCA_LISP (vals, XINT (numargs));
GCPRO3 (args_left, fun, fun);
gcpro3.var = vals;
@@ -2476,8 +2475,7 @@
{
/* Avoid making funcall cons up a yet another new vector of arguments
by explicitly supplying nil's for optional values */
- SAFE_ALLOCA (funcall_args, Lisp_Object *,
- (1 + XSUBR (fun)->max_args) * sizeof (Lisp_Object));
+ SAFE_ALLOCA_LISP (funcall_args, 1 + XSUBR (fun)->max_args);
for (i = numargs; i < XSUBR (fun)->max_args;)
funcall_args[++i] = Qnil;
GCPRO1 (*funcall_args);
@@ -2489,8 +2487,7 @@
function itself as well as its arguments. */
if (!funcall_args)
{
- SAFE_ALLOCA (funcall_args, Lisp_Object *,
- (1 + numargs) * sizeof (Lisp_Object));
+ SAFE_ALLOCA_LISP (funcall_args, 1 + numargs);
GCPRO1 (*funcall_args);
gcpro1.nvars = 1 + numargs;
}
@@ -3121,8 +3118,7 @@
USE_SAFE_ALLOCA;
numargs = Flength (args);
- SAFE_ALLOCA (arg_vector, Lisp_Object *,
- XINT (numargs) * sizeof (Lisp_Object));
+ SAFE_ALLOCA_LISP (arg_vector, XINT (numargs));
args_left = args;
GCPRO3 (*arg_vector, args_left, fun);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r99983: * eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA_LISP,
Andreas Schwab <=