X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=bitvect.h;h=0f096fdb7f61ec000de50f0cd8d6705485f5f116;hp=b50c1a10407323cd5de02b6cfadeb9f5578045f7;hb=211d8afaf70e69f82b7113772af03691daf96bf2;hpb=0f9ca88734df707e9f1d70a8067e6502b96820a9

diff --git a/bitvect.h b/bitvect.h
index b50c1a1..0f096fd 100644
--- a/bitvect.h
+++ b/bitvect.h
@@ -12,10 +12,10 @@
 # define BV_UNIT unsigned char
 #endif
 
-#define BV_SIZE(I) ((((I) % CHAR_BIT) != 0) + ((I) / CHAR_BIT))
-
 #define BITS(T) (CHAR_BIT * sizeof(T))
 
+#define BV_SIZE(I) (((((I) % BITS(BV_UNIT)) != 0) + ((I) / BITS(BV_UNIT))) * sizeof(BV_UNIT))
+
 /* 0 <= I <  CHAR_BIT * sizeof(T) */
 #define BV_MASK_LOWER(T, I)  (~((~((T) 0)) << (I)))
 /* 0 <  I <= CHAR_BIT * sizeof(T) */