Avoid an overflow error in emacs-module.c
* src/emacs-module.c (Fmodule_load): Allow creating a bignum to avoid overflow error
This commit is contained in:
parent
ee3be3fdfa
commit
167274d44f
1 changed files with 1 additions and 5 deletions
|
@ -747,11 +747,7 @@ DEFUN ("module-load", Fmodule_load, Smodule_load, 1, 1, 0,
|
|||
maybe_quit ();
|
||||
|
||||
if (r != 0)
|
||||
{
|
||||
if (FIXNUM_OVERFLOW_P (r))
|
||||
overflow_error ();
|
||||
xsignal2 (Qmodule_init_failed, file, make_fixnum (r));
|
||||
}
|
||||
xsignal2 (Qmodule_init_failed, file, INT_TO_INTEGER (r));
|
||||
|
||||
module_signal_or_throw (&env_priv);
|
||||
return unbind_to (count, Qt);
|
||||
|
|
Loading…
Add table
Reference in a new issue