mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 13:31:37 -07:00
Code Issues Projects Releases Wiki Activity

(max_specpdl_size, max_lisp_eval_depth): Use EMACS_INT.

Browse source 
(funcall_lambda, run_hook_with_args): Make static and add prototype.
(ml_apply, find_handler_clause): Add prototype.
This commit is contained in:
Stefan Monnier 2001-11-16 11:43:41 +00:00
parent 9a190096c7
commit 2901f1d1c5
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/eval.c
View file

@ -120,7 +120,7 @@ struct specbinding *specpdl_ptr;
/* Maximum size allowed for specpdl allocation */
int max_specpdl_size;
EMACS_INT max_specpdl_size;
/* Depth in Lisp evaluations and function calls. */
@ -128,7 +128,7 @@ int lisp_eval_depth;
/* Maximum allowed depth in Lisp evaluations and function calls. */
int max_lisp_eval_depth;
EMACS_INT max_lisp_eval_depth;
/* Nonzero means enter debugger before next function call */
@ -190,12 +190,9 @@ Lisp_Object Vsignaling_function;
int handling_signal;
void specbind (), record_unwind_protect ();
Lisp_Object run_hook_with_args ();
Lisp_Object funcall_lambda ();
extern Lisp_Object ml_apply (); /* Apply a mocklisp function to unevaluated argument list */
static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
/* Apply a mocklisp function to unevaluated argument list. */
extern Lisp_Object ml_apply P_ ((Lisp_Object, Lisp_Object));
void
init_eval_once ()
@ -1404,7 +1401,9 @@ internal_condition_case_2 (bfun, nargs, args, handlers, hfun)
}
static Lisp_Object find_handler_clause ();
static Lisp_Object find_handler_clause P_ ((Lisp_Object, Lisp_Object,
Lisp_Object, Lisp_Object,
Lisp_Object *));
DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0,
doc: /* Signal an error. Args are ERROR-SYMBOL and associated DATA.
@ -2224,6 +2223,8 @@ usage: (apply FUNCTION &rest ARGUMENTS) */)
/* Run hook variables in various ways. */
enum run_hooks_condition {to_completion, until_success, until_failure};
static Lisp_Object run_hook_with_args P_ ((int, Lisp_Object *,
enum run_hooks_condition));
DEFUN ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0,
doc: /* Run each hook in HOOKS. Major mode functions use this.
@ -2321,7 +2322,7 @@ usage: (run-hook-with-args-until-failure HOOK &rest ARGS) */)
The caller (or its caller, etc) must gcpro all of ARGS,
except that it isn't necessary to gcpro ARGS[0]. */
Lisp_Object
static Lisp_Object
run_hook_with_args (nargs, args, cond)
int nargs;
Lisp_Object *args;
@ -2834,7 +2835,7 @@ apply_lambda (fun, args, eval_flag)
and return the result of evaluation.
FUN must be either a lambda-expression or a compiled-code object. */
Lisp_Object
static Lisp_Object
funcall_lambda (fun, nargs, arg_vector)
Lisp_Object fun;
int nargs;