diff options
| author | Philipp Stephani | 2018-09-21 22:00:14 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2018-09-21 22:00:14 +0200 |
| commit | 167274d44f1ccaee65a5b68e15c3ed79a53447d1 (patch) | |
| tree | ddefd547c452ee9d25c8ef1a83eff2226b3a07da | |
| parent | ee3be3fdfa96d7d1a0740c8145a26d758c12a711 (diff) | |
| download | emacs-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.c | 6 |
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); |