diff options
Diffstat (limited to 'src/emacs-module.c')
| -rw-r--r-- | src/emacs-module.c | 13 |
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. */ |
| 1039 | verify (CHAR_BIT == 8); | 1038 | static_assert (CHAR_BIT == 8); |
| 1040 | verify ((sizeof (emacs_limb_t) == 4 && EMACS_LIMB_MAX == 0xFFFFFFFF) | 1039 | static_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 | ||
| 1044 | static bool | 1043 | static bool |
| 1045 | module_extract_big_integer (emacs_env *env, emacs_value arg, int *sign, | 1044 | module_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 (); |