X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=Util.xs;h=d878813aba6d96e200d7dea679b29923683bfa06;hp=86a21cae21f8f92668960c29cb619330851b249a;hb=HEAD;hpb=4dc1aa8932c595136b763a34207e4e9ee683dc53

diff --git a/Util.xs b/Util.xs
index 86a21ca..d878813 100644
--- 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;