Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b72e0717
Commit
b72e0717
authored
Aug 17, 2010
by
Andreas Schwab
Browse files
* eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA_LISP
instead of SAFE_ALLOCA.
parent
3a7a9129
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
9 deletions
+10
-9
src/ChangeLog
src/ChangeLog
+5
-0
src/eval.c
src/eval.c
+5
-9
No files found.
src/ChangeLog
View file @
b72e0717
2010-08-17 Andreas Schwab <schwab@linux-m68k.org>
* eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA_LISP
instead of SAFE_ALLOCA.
2010-08-17 Chong Yidong <cyd@stupidchicken.com>
* eval.c (Flet, Feval, Fapply, apply_lambda): Use SAFE_ALLOCA
...
...
src/eval.c
View file @
b72e0717
...
...
@@ -1034,7 +1034,7 @@ usage: (let VARLIST BODY...) */)
/* Make space to hold the values to give the bound variables */
elt
=
Flength
(
varlist
);
SAFE_ALLOCA
(
temps
,
Lisp_Object
*
,
XFASTINT
(
elt
)
*
sizeof
(
Lisp_Objec
t
));
SAFE_ALLOCA
_LISP
(
temps
,
XFASTINT
(
el
t
));
/* Compute the values and store them in `temps' */
...
...
@@ -2303,8 +2303,7 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
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 @@ usage: (apply FUNCTION &rest ARGUMENTS) */)
{
/* 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 @@ usage: (apply FUNCTION &rest ARGUMENTS) */)
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 @@ apply_lambda (fun, args, eval_flag)
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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment