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

diff --git a/bitvect.h b/bitvect.h
index 0f096fd..51a7d78 100644
--- a/bitvect.h
+++ b/bitvect.h
@@ -332,6 +332,47 @@ INLINE_DECLARE(void bv_move(void *bv_, size_t ts, size_t fs, size_t l))
 #endif /* INLINE_DEFINE */
 #undef T
 
+/* ... Test if zero ........................................................ */
+
+#define T BV_UNIT
+INLINE_DECLARE(int bv_zero(const void *bv_, size_t s, size_t l))
+#ifdef INLINE_DEFINE
+{
+ size_t o;
+ T mask, *bv = (T *) bv_, *end;
+
+ bv += s / BITS(T);
+ o   = s % BITS(T);
+
+ mask = BV_MASK_HIGHER(T, BITS(T) - o);
+ if (o + l <= BITS(T)) {
+  if (o + l < BITS(T))
+   mask &= BV_MASK_LOWER(T, o + l);
+  if (*bv & mask)
+   return 0;
+ } else {
+  if (*bv & mask)
+   return 0;
+  ++bv;
+  l  -= (BITS(T) - o);
+  end = bv + l / BITS(T);
+  for (; bv < end; ++bv) {
+   if (*bv)
+    return 0;
+  }
+  o = l % BITS(T);
+  if (o) {
+   mask = BV_MASK_LOWER(T, o);
+   if (*bv & mask)
+    return 0;
+  }
+ }
+
+ return 1;
+}
+#endif /* INLINE_DEFINE */
+#undef T
+
 /* ... Compare ............................................................. */
 
 #define BV_EQ(T, B1, B2) \