aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPhilipp Stephani2018-09-21 22:00:14 +0200
committerPhilipp Stephani2018-09-21 22:00:14 +0200
commit167274d44f1ccaee65a5b68e15c3ed79a53447d1 (patch)
treeddefd547c452ee9d25c8ef1a83eff2226b3a07da
parentee3be3fdfa96d7d1a0740c8145a26d758c12a711 (diff)
downloademacs-167274d44f1ccaee65a5b68e15c3ed79a53447d1.tar.gz
emacs-167274d44f1ccaee65a5b68e15c3ed79a53447d1.zip
Avoid an overflow error in emacs-module.c
* src/emacs-module.c (Fmodule_load): Allow creating a bignum to avoid overflow error
-rw-r--r--src/emacs-module.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c
index 1ecba8603ff..0dcd7f0cc5a 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -747,11 +747,7 @@ DEFUN ("module-load", Fmodule_load, Smodule_load, 1, 1, 0,
747 maybe_quit (); 747 maybe_quit ();
748 748
749 if (r != 0) 749 if (r != 0)
750 { 750 xsignal2 (Qmodule_init_failed, file, INT_TO_INTEGER (r));
751 if (FIXNUM_OVERFLOW_P (r))
752 overflow_error ();
753 xsignal2 (Qmodule_init_failed, file, make_fixnum (r));
754 }
755 751
756 module_signal_or_throw (&env_priv); 752 module_signal_or_throw (&env_priv);
757 return unbind_to (count, Qt); 753 return unbind_to (count, Qt);