+2020-11-15 Akim Demaille <akim@lrde.epita.fr>
+
+ bitset: use ffsl to accelerate iterations over set bits
+ Suggested by Bruno Haible.
+ * modules/bitset: Depend upon ffsl.
+ * lib/bitset/base.h (bitset_ffs, BITSET_FOR_EACH_BIT): New.
+ * lib/bitset/array.c (abitset_list): Use BITSET_FOR_EACH_BIT.
+
2020-11-15 Akim Demaille <akim@lrde.epita.fr>
bitset: more tests
bitoff = windex * BITSET_WORD_BITS;
bitset_word word = srcp[windex] >> bitno;
- for (bitno = bitoff + bitno; word; bitno++)
+ bitno = bitoff + bitno;
+ BITSET_FOR_EACH_BIT (pos, word)
{
- if (word & 1)
+ list[count++] = bitno + pos;
+ if (count >= num)
{
- list[count++] = bitno;
- if (count >= num)
- {
- *next = bitno + 1;
- return count;
- }
+ *next = bitno + pos + 1;
+ return count;
}
- word >>= 1;
}
windex++;
}
if (!word)
continue;
+ /* Is there enough room to avoid checking in each iteration? */
if ((count + BITSET_WORD_BITS) < num)
- {
- for (bitno = bitoff; word; bitno++)
- {
- if (word & 1)
- list[count++] = bitno;
- word >>= 1;
- }
- }
+ BITSET_FOR_EACH_BIT (pos, word)
+ list[count++] = bitoff + pos;
else
- {
- for (bitno = bitoff; word; bitno++)
- {
- if (word & 1)
- {
- list[count++] = bitno;
- if (count >= num)
- {
- *next = bitno + 1;
- return count;
- }
- }
- word >>= 1;
- }
- }
+ BITSET_FOR_EACH_BIT (pos, word)
+ {
+ list[count++] = bitoff + pos;
+ if (count >= num)
+ {
+ *next = bitoff + pos + 1;
+ return count;
+ }
+ }
}
*next = bitoff;
#include <limits.h>
#include <stdbool.h>
#include <stddef.h>
+#include <string.h> /* ffsl */
#include "attribute.h"
#include "xalloc.h"
typedef unsigned long bitset_word;
#define BITSET_WORD_BITS ((unsigned) (CHAR_BIT * sizeof (bitset_word)))
+/* Iterate over each set bit of WORD.
+ Each iteration sets POS to the 0-based index of the next set bit in WORD.
+ Repeatedly resets bits in WORD in place until it's null. */
+#define BITSET_FOR_EACH_BIT(Pos, Word) \
+ for (int Pos = bitset_ffs (Word); \
+ 0 <= Pos; \
+ Word ^= 1UL << Pos, Pos = bitset_ffs (Word))
+
/* Bit index. In theory we might need a type wider than size_t, but
in practice we lose at most a factor of CHAR_BIT by going with
size_t, and that is good enough. If this type is changed to be
The bit and word index types must be unsigned. */
typedef size_t bitset_bindex;
+/* First first set bit in WORD.
+ Indexes start at 0, return -1 if WORD is null. */
+static inline
+int bitset_ffs (bitset_word word)
+{
+ return ffsl ((long) word) - 1;
+}
+
/* Word index. */
typedef size_t bitset_windex;
Depends-on:
attribute
c99
+ffsl
fopen-gnu
gettext-h
obstack