From: Philipp Stephani Date: Sun, 28 Apr 2019 15:40:41 +0000 (+0200) Subject: * src/emacs-module.c (funcall_module): Add a nontrivial assertion X-Git-Tag: emacs-27.0.90~3057 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88c91f53dfd8d29475e2a4794da8b497b62cd53b;p=emacs.git * src/emacs-module.c (funcall_module): Add a nontrivial assertion --- diff --git a/src/emacs-module.c b/src/emacs-module.c index 685bdb8bb4c..6b56146ca01 100644 --- a/src/emacs-module.c +++ b/src/emacs-module.c @@ -902,6 +902,11 @@ funcall_module (Lisp_Object function, ptrdiff_t nargs, Lisp_Object *arglist) memory_full (sizeof *args[i]); } + /* The only possibility of getting an error until here is failure to + allocate memory for the arguments, but then we already should + have signaled an error before. */ + eassert (priv.pending_non_local_exit == emacs_funcall_exit_return); + emacs_value ret = func->subr (env, nargs, args, func->data); eassert (&priv == env->private_members);