aboutsummaryrefslogtreecommitdiffstats
path: root/src/emacs-module.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/emacs-module.c')
-rw-r--r--src/emacs-module.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c
index 05aa0baef74..30063180d6c 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -94,7 +94,6 @@ To add a new module function, proceed as follows:
94#include "thread.h" 94#include "thread.h"
95 95
96#include <intprops.h> 96#include <intprops.h>
97#include <verify.h>
98 97
99/* Work around GCC bug 83162. */ 98/* Work around GCC bug 83162. */
100#if GNUC_PREREQ (4, 3, 0) 99#if GNUC_PREREQ (4, 3, 0)
@@ -1036,10 +1035,10 @@ import/export overhead on most platforms.
1036 1035
1037/* Verify that emacs_limb_t indeed has unique object 1036/* Verify that emacs_limb_t indeed has unique object
1038 representations. */ 1037 representations. */
1039verify (CHAR_BIT == 8); 1038static_assert (CHAR_BIT == 8);
1040verify ((sizeof (emacs_limb_t) == 4 && EMACS_LIMB_MAX == 0xFFFFFFFF) 1039static_assert ((sizeof (emacs_limb_t) == 4 && EMACS_LIMB_MAX == 0xFFFFFFFF)
1041 || (sizeof (emacs_limb_t) == 8 1040 || (sizeof (emacs_limb_t) == 8
1042 && EMACS_LIMB_MAX == 0xFFFFFFFFFFFFFFFF)); 1041 && EMACS_LIMB_MAX == 0xFFFFFFFFFFFFFFFF));
1043 1042
1044static bool 1043static bool
1045module_extract_big_integer (emacs_env *env, emacs_value arg, int *sign, 1044module_extract_big_integer (emacs_env *env, emacs_value arg, int *sign,
@@ -1077,7 +1076,7 @@ module_extract_big_integer (emacs_env *env, emacs_value arg, int *sign,
1077 suffice. */ 1076 suffice. */
1078 EMACS_UINT u; 1077 EMACS_UINT u;
1079 enum { required = (sizeof u + size - 1) / size }; 1078 enum { required = (sizeof u + size - 1) / size };
1080 verify (0 < required && +required <= module_bignum_count_max); 1079 static_assert (0 < required && +required <= module_bignum_count_max);
1081 if (magnitude == NULL) 1080 if (magnitude == NULL)
1082 { 1081 {
1083 *count = required; 1082 *count = required;
@@ -1097,7 +1096,7 @@ module_extract_big_integer (emacs_env *env, emacs_value arg, int *sign,
1097 u = (EMACS_UINT) x; 1096 u = (EMACS_UINT) x;
1098 else 1097 else
1099 u = -(EMACS_UINT) x; 1098 u = -(EMACS_UINT) x;
1100 verify (required * bits < PTRDIFF_MAX); 1099 static_assert (required * bits < PTRDIFF_MAX);
1101 for (ptrdiff_t i = 0; i < required; ++i) 1100 for (ptrdiff_t i = 0; i < required; ++i)
1102 magnitude[i] = (emacs_limb_t) (u >> (i * bits)); 1101 magnitude[i] = (emacs_limb_t) (u >> (i * bits));
1103 MODULE_INTERNAL_CLEANUP (); 1102 MODULE_INTERNAL_CLEANUP ();