mirror of
https://git.savannah.gnu.org/git/bison.git
synced 2026-03-09 20:33:03 +00:00
613f5e1a89
* lib: Update the bitset implementation from upstream. * src/closure.c, src/lalr.c, src/output.c, src/print_graph.c, * src/state.c: Use BITSET_FOR_EACH, not BITSET_EXECUTE. * src/main.c: Adjust bitset stats calls.
326 lines
11 KiB
C
326 lines
11 KiB
C
/* Generic bitsets.
|
|
Copyright (C) 2002 Free Software Foundation, Inc.
|
|
Contributed by Michael Hayes (m.hayes@elec.canterbury.ac.nz).
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
|
|
|
#ifndef _BITSET_H
|
|
#define _BITSET_H
|
|
|
|
/* This file is the public interface to the bitset abstract data type.
|
|
Only use the functions and macros defined in this file. */
|
|
|
|
#include "bbitset.h"
|
|
#include "obstack.h"
|
|
#include <stdio.h>
|
|
|
|
/* Attributes used to select a bitset implementation. */
|
|
enum bitset_attr {BITSET_FIXED = 1, /* Bitset size fixed. */
|
|
BITSET_VARIABLE = 2, /* Bitset size variable. */
|
|
BITSET_DENSE = 4, /* Bitset dense. */
|
|
BITSET_SPARSE = 8, /* Bitset sparse. */
|
|
BITSET_FRUGAL = 16, /* Prefer most compact. */
|
|
BITSET_GREEDY = 32}; /* Prefer fastest. */
|
|
|
|
typedef unsigned int bitset_attrs;
|
|
|
|
/* The contents of the structure should be considered to be private.
|
|
While I would like to make this structure opaque, it needs to be
|
|
visible for the inline bit set/test functions. */
|
|
struct bitset_struct
|
|
{
|
|
struct bbitset_struct b;
|
|
};
|
|
|
|
|
|
/* The contents of this structure should be considered private.
|
|
It is used for iterating over set bits. */
|
|
typedef struct
|
|
{
|
|
bitset_bindex list[BITSET_LIST_SIZE];
|
|
bitset_bindex next;
|
|
int num;
|
|
int i;
|
|
} bitset_iterator;
|
|
|
|
|
|
/* Return bytes required for bitset of desired type and size. */
|
|
extern int bitset_bytes PARAMS ((enum bitset_type, bitset_bindex));
|
|
|
|
/* Initialise a bitset with desired type and size. */
|
|
extern bitset bitset_init PARAMS ((bitset, bitset_bindex, enum bitset_type));
|
|
|
|
/* Select an implementation type based on the desired bitset size
|
|
and attributes. */
|
|
extern enum bitset_type bitset_type_choose PARAMS ((bitset_bindex,
|
|
bitset_attrs));
|
|
|
|
/* Create a bitset of desired type and size. The bitset is zeroed. */
|
|
extern bitset bitset_alloc PARAMS ((bitset_bindex, enum bitset_type));
|
|
|
|
/* Free bitset. */
|
|
extern void bitset_free PARAMS ((bitset));
|
|
|
|
/* Create a bitset of desired type and size using an obstack. The
|
|
bitset is zeroed. */
|
|
extern bitset bitset_obstack_alloc PARAMS ((struct obstack *bobstack,
|
|
bitset_bindex, enum bitset_type));
|
|
|
|
/* Free bitset allocated on obstack. */
|
|
extern void bitset_obstack_free PARAMS ((bitset));
|
|
|
|
/* Create a bitset of desired size and attributes. The bitset is zeroed. */
|
|
extern bitset bitset_create PARAMS ((bitset_bindex, bitset_attrs));
|
|
|
|
/* Return size in bits of bitset SRC. */
|
|
extern int bitset_size PARAMS ((bitset));
|
|
|
|
/* Return number of bits set in bitset SRC. */
|
|
extern int bitset_count PARAMS ((bitset));
|
|
|
|
/* Return bitset type. */
|
|
extern enum bitset_type bitset_type_get PARAMS ((bitset));
|
|
|
|
#if BITSET_INLINE
|
|
static inline void bitset_set PARAMS ((bitset, bitset_bindex));
|
|
static inline void bitset_reset PARAMS ((bitset, bitset_bindex));
|
|
static inline int bitset_test PARAMS ((bitset, bitset_bindex));
|
|
|
|
/* Set bit BITNO in bitset BSET. */
|
|
static inline void bitset_set (bset, bitno)
|
|
bitset bset;
|
|
bitset_bindex bitno;
|
|
{
|
|
bitset_windex index = bitno / BITSET_WORD_BITS;
|
|
bitset_windex offset = index - bset->b.cindex;
|
|
|
|
if (offset < bset->b.csize)
|
|
bset->b.cdata[offset] |= (1 << (bitno % BITSET_WORD_BITS));
|
|
else
|
|
BITSET_SET_ (bset, bitno);
|
|
}
|
|
|
|
|
|
/* Reset bit BITNO in bitset BSET. */
|
|
static inline void bitset_reset (bset, bitno)
|
|
bitset bset;
|
|
bitset_bindex bitno;
|
|
{
|
|
bitset_windex index = bitno / BITSET_WORD_BITS;
|
|
bitset_windex offset = index - bset->b.cindex;
|
|
|
|
if (offset < bset->b.csize)
|
|
bset->b.cdata[offset] &= ~(1 << (bitno % BITSET_WORD_BITS));
|
|
else
|
|
BITSET_RESET_ (bset, bitno);
|
|
}
|
|
|
|
|
|
/* Test bit BITNO in bitset BSET. */
|
|
static inline int bitset_test (bset, bitno)
|
|
bitset bset;
|
|
bitset_bindex bitno;
|
|
{
|
|
bitset_windex index = bitno / BITSET_WORD_BITS;
|
|
bitset_windex offset = index - bset->b.cindex;
|
|
|
|
if (offset < bset->b.csize)
|
|
return (bset->b.cdata[offset] >> (bitno % BITSET_WORD_BITS)) & 1;
|
|
else
|
|
return BITSET_TEST_ (bset, bitno);
|
|
}
|
|
#endif
|
|
|
|
#if ! BITSET_INLINE
|
|
|
|
/* Set bit BITNO in bitset BSET. */
|
|
#define bitset_set(bset, bitno) \
|
|
do \
|
|
{ \
|
|
bitset_bindex _bitno = (bitno); \
|
|
bitset_windex _index = _bitno / BITSET_WORD_BITS; \
|
|
bitset_windex _offset = _index - (bset)->b.cindex; \
|
|
\
|
|
if (_offset < (bset)->b.csize) \
|
|
(bset)->b.cdata[_offset] |= (1 << (_bitno % BITSET_WORD_BITS)); \
|
|
else \
|
|
BITSET_SET_ ((bset), _bitno); \
|
|
} while (0)
|
|
|
|
|
|
/* Reset bit BITNO in bitset BSET. */
|
|
#define bitset_reset(bset, bitno) \
|
|
do \
|
|
{ \
|
|
bitset_bindex _bitno = (bitno); \
|
|
bitset_windex _index = _bitno / BITSET_WORD_BITS; \
|
|
bitset_windex _offset = _index - (bset)->b.cindex; \
|
|
\
|
|
if (_offset < (bset)->b.csize) \
|
|
(bset)->b.cdata[_offset] &= ~(1 << (_bitno % BITSET_WORD_BITS)); \
|
|
else \
|
|
BITSET_RESET_ ((bset), _bitno); \
|
|
} while (0)
|
|
|
|
|
|
/* Test bit BITNO in bitset BSET. */
|
|
#define bitset_test(bset, bitno) \
|
|
(((((bitno) / BITSET_WORD_BITS) - (bset)->b.cindex) < (bset)->b.csize) \
|
|
? ((bset)->b.cdata[(((bitno) / BITSET_WORD_BITS) - (bset)->b.cindex)] \
|
|
>> ((bitno) % BITSET_WORD_BITS)) & 1 \
|
|
: (unsigned int) BITSET_TEST_ ((bset), (bitno)))
|
|
#endif
|
|
|
|
|
|
/* Toggle bit BITNO in bitset BSET and return non-zero if now set. */
|
|
extern int bitset_toggle PARAMS ((bitset, bitset_bindex));
|
|
|
|
/* DST = 0. */
|
|
extern int bitset_zero PARAMS ((bitset));
|
|
|
|
/* DST = ~0. */
|
|
extern int bitset_ones PARAMS ((bitset));
|
|
|
|
/* Return non-zero if all bits in bitset SRC are reset. */
|
|
extern int bitset_empty_p PARAMS ((bitset));
|
|
|
|
/* Return DST == DST | SRC. */
|
|
extern int bitset_subset_p PARAMS ((bitset, bitset));
|
|
|
|
/* Return DST == SRC. */
|
|
extern int bitset_equal_p PARAMS ((bitset, bitset));
|
|
|
|
/* Return DST & SRC == 0. */
|
|
extern int bitset_disjoint_p PARAMS ((bitset, bitset));
|
|
|
|
/* DST == SRC. */
|
|
extern int bitset_copy PARAMS ((bitset, bitset));
|
|
|
|
/* DST = ~SRC. */
|
|
extern int bitset_not PARAMS ((bitset, bitset));
|
|
|
|
/* DST = SRC1 | SRC2. Return non-zero if DST != SRC1 | SRC2. */
|
|
extern int bitset_or PARAMS ((bitset, bitset, bitset));
|
|
|
|
/* DST = SRC1 & SRC2. Return non-zero if DST != SRC1 & SRC2. */
|
|
extern int bitset_and PARAMS ((bitset, bitset, bitset));
|
|
|
|
/* DST = SRC1 ^ SRC2. Return non-zero if DST != SRC1 ^ SRC2. */
|
|
extern int bitset_xor PARAMS ((bitset, bitset, bitset));
|
|
|
|
/* DST = SRC1 & ~SRC2. Return non-zero if DST != SRC1 & ~SRC2. */
|
|
extern int bitset_andn PARAMS ((bitset, bitset, bitset));
|
|
|
|
/* DST = (SRC1 | SRC2) & SRC3. Return non-zero if
|
|
DST != (SRC1 | SRC2) & SRC3. */
|
|
extern int bitset_or_and PARAMS ((bitset, bitset, bitset, bitset));
|
|
|
|
/* DST = (SRC1 & SRC2) | SRC3. Return non-zero if
|
|
DST != (SRC1 & SRC2) | SRC3. */
|
|
extern int bitset_and_or PARAMS ((bitset, bitset, bitset, bitset));
|
|
|
|
/* DST = (SRC1 & ~SRC2) | SRC3. Return non-zero if
|
|
DST != (SRC1 & ~SRC2) | SRC3. */
|
|
extern int bitset_andn_or PARAMS ((bitset, bitset, bitset, bitset));
|
|
|
|
/* Find next bit set in BSET starting from and including BITNO. */
|
|
extern int bitset_next PARAMS ((bitset, bitset_bindex));
|
|
|
|
/* Find previous bit set in BSET starting from and including BITNO. */
|
|
extern int bitset_prev PARAMS ((bitset, bitset_bindex));
|
|
|
|
/* Return non-zero if BITNO in SRC is the only set bit. */
|
|
extern int bitset_only_set_p PARAMS ((bitset, bitset_bindex));
|
|
|
|
/* Find list of up to NUM bits set in BSET starting from and including
|
|
*NEXT. Return with actual number of bits found and with *NEXT
|
|
indicating where search stopped. */
|
|
#define bitset_list(BSET, LIST, NUM, NEXT) \
|
|
BITSET_LIST_ (BSET, LIST, NUM, NEXT)
|
|
|
|
/* Find reverse list of up to NUM bits set in BSET starting from and
|
|
including NEXT. Return with actual number of bits found and with
|
|
*NEXT indicating where search stopped. */
|
|
#define bitset_reverse_list(BSET, LIST, NUM, NEXT) \
|
|
BITSET_REVERSE_LIST_ (BSET, LIST, NUM, NEXT)
|
|
|
|
/* Find first set bit. */
|
|
extern int bitset_first PARAMS ((bitset));
|
|
|
|
/* Find last set bit. */
|
|
extern int bitset_last PARAMS ((bitset));
|
|
|
|
/* Dump bitset. */
|
|
extern void bitset_dump PARAMS ((FILE *, bitset));
|
|
|
|
/* Loop over all elements of BSET, starting with MIN, setting BIT
|
|
to the index of each set bit. */
|
|
#define BITSET_FOR_EACH(ITER, BSET, BIT, MIN) \
|
|
for (ITER.next = (MIN), ITER.num = BITSET_LIST_SIZE; \
|
|
(ITER.num == BITSET_LIST_SIZE) \
|
|
&& (ITER.num = bitset_list (BSET, ITER.list, \
|
|
BITSET_LIST_SIZE, &ITER.next));) \
|
|
for (ITER.i = 0; (BIT) = ITER.list[ITER.i], ITER.i < ITER.num; ITER.i++)
|
|
|
|
|
|
/* Loop over all elements of BSET, in reverse order starting with
|
|
MIN, setting BIT to the index of each set bit. */
|
|
#define BITSET_FOR_EACH_REVERSE(ITER, BSET, BIT, MIN) \
|
|
for (ITER.next = (MIN), ITER.num = BITSET_LIST_SIZE; \
|
|
(ITER.num == BITSET_LIST_SIZE) \
|
|
&& (ITER.num = bitset_list_reverse (BSET, ITER.list, \
|
|
BITSET_LIST_SIZE, &ITER.next));) \
|
|
for (ITER.i = 0; (BIT) = ITER.list[ITER.i], ITER.i < ITER.num; ITER.i++)
|
|
|
|
|
|
/* Define set operations in terms of logical operations. */
|
|
|
|
#define bitset_diff(DST, SRC1, SRC2) bitset_andn (DST, SRC1, SRC2)
|
|
|
|
#define bitset_intersection(DST, SRC1, SRC2) bitset_and (DST, SRC1, SRC2)
|
|
|
|
#define bitset_union(DST, SRC1, SRC2) bitset_or (DST, SRC1, SRC2)
|
|
|
|
#define bitset_diff_union(DST, SRC1, SRC2, SRC3) \
|
|
bitset_andn_or (DST, SRC1, SRC2, SRC3)
|
|
|
|
|
|
/* Release any memory tied up with bitsets. */
|
|
extern void bitset_release_memory PARAMS ((void));
|
|
|
|
/* Enable bitset stats gathering. */
|
|
extern void bitset_stats_enable PARAMS ((void));
|
|
|
|
/* Disable bitset stats gathering. */
|
|
extern void bitset_stats_disable PARAMS ((void));
|
|
|
|
/* Read bitset stats file of accummulated stats. */
|
|
void bitset_stats_read PARAMS ((const char *filename));
|
|
|
|
/* Write bitset stats file of accummulated stats. */
|
|
void bitset_stats_write PARAMS ((const char *filename));
|
|
|
|
/* Dump bitset stats. */
|
|
extern void bitset_stats_dump PARAMS ((FILE *));
|
|
|
|
/* Function to debug bitset from debugger. */
|
|
extern void debug_bitset PARAMS ((bitset));
|
|
|
|
/* Function to debug bitset stats from debugger. */
|
|
extern void debug_bitset_stats PARAMS ((void));
|
|
|
|
#endif /* _BITSET_H */
|
|
|