X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=Util.xs;fp=Util.xs;h=d878813aba6d96e200d7dea679b29923683bfa06;hp=6342936fc2d33d63cab065319f8a85324b7c8a3a;hb=4bf551f40a4b4435ebfb90d32d688b1318d02dd5;hpb=dd9de87457a5c03961779add970e9d0f103d334f

diff --git a/Util.xs b/Util.xs
index 6342936..d878813 100644
--- a/Util.xs
+++ b/Util.xs
@@ -11,6 +11,10 @@
 
 #include "bitvect.h"
 
+#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;