diff options
author | Philipp Stephani <phst@google.com> | 2019-04-28 17:40:41 +0200 |
---|---|---|
committer | Philipp Stephani <phst@google.com> | 2019-04-28 17:40:41 +0200 |
commit | 88c91f53dfd8d29475e2a4794da8b497b62cd53b (patch) | |
tree | 3ee8f02888060deea0768619cfce872f65740e3e /src | |
parent | 66a2c412be0dd21e3adeb766a44cc13fd80ba73c (diff) | |
download | emacs-88c91f53dfd8d29475e2a4794da8b497b62cd53b.tar.gz |
* src/emacs-module.c (funcall_module): Add a nontrivial assertion
Diffstat (limited to 'src')
-rw-r--r-- | src/emacs-module.c | 5 |
1 files changed, 5 insertions, 0 deletions
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); |