From: Philipp Stephani <phst@google.com>
Date: Fri, 21 Sep 2018 20:00:14 +0000 (+0200)
Subject: Avoid an overflow error in emacs-module.c
X-Git-Tag: emacs-27.0.90~4391
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=167274d44f1ccaee65a5b68e15c3ed79a53447d1;p=emacs.git

Avoid an overflow error in emacs-module.c

* src/emacs-module.c (Fmodule_load): Allow creating a bignum
to avoid overflow error
---

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,
   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);