Update VPIT::TestHelpers to 15e8aee3

[perl/modules/Scalar-Vec-Util.git] / Util.xs

diff --git a/Util.xs b/Util.xs
index 86a21cae21f8f92668960c29cb619330851b249a..d878813aba6d96e200d7dea679b29923683bfa06 100644 (file)
--- a/Util.xs
+++ b/Util.xs
@@ -11,7 +11,11 @@
 
 #include "bitvect.h"
 
-STATIC size_t svu_validate_uv(pTHX_ SV *sv, const char *desc) {
+#ifndef SVU_SIZE
+# define SVU_SIZE (CHAR_BIT * sizeof(BV_UNIT))
+#endif
+
+static size_t svu_validate_uv(pTHX_ SV *sv, const char *desc) {
 #define svu_validate_uv(S, D) svu_validate_uv(aTHX_ (S), (D))
  IV i;
 
@@ -33,7 +37,7 @@ STATIC size_t svu_validate_uv(pTHX_ SV *sv, const char *desc) {
  return 0;
 }
 
-STATIC char *svu_prepare_sv(pTHX_ SV *sv, size_t s, size_t l) {
+static char *svu_prepare_sv(pTHX_ SV *sv, size_t s, size_t l) {
 #define svu_prepare_sv(S, I, L) svu_prepare_sv(aTHX_ (S), (I), (L))
  STRLEN  c;
  size_t  n = s + l, i, js, jz, k, z;