Allow forcing the unit by passing UNIT=type to Makefile.PL

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

diff --git a/Util.xs b/Util.xs
index 6342936fc2d33d63cab065319f8a85324b7c8a3a..d878813aba6d96e200d7dea679b29923683bfa06 100644 (file)
--- 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;