OSDN Git Service

Patch from Richard Guenther.
[pf3gnuchains/gcc-fork.git] / gcc / bitmap.h
index 58e14ee..4191542 100644 (file)
@@ -1,30 +1,39 @@
 /* Functions to support general ended bitmaps.
-   Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+   Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
+   Free Software Foundation, Inc.
 
-This file is part of GNU CC.
+This file is part of GCC.
 
-GNU CC 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, or (at your option)
-any later version.
+GCC 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, or (at your option) any later
+version.
 
-GNU CC 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.
+GCC 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 GNU CC; see the file COPYING.  If not, write to
-the Free Software Foundation, 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.  */
+along with GCC; see the file COPYING.  If not, write to the Free
+Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.  */
 
 #ifndef GCC_BITMAP_H
-#define GCC_BITMAP_H 
+#define GCC_BITMAP_H
+
+/* Fundamental storage type for bitmap.  */
+
+/* typedef unsigned HOST_WIDE_INT BITMAP_WORD; */
+/* #define nBITMAP_WORD_BITS HOST_BITS_PER_WIDE_INT */
+typedef unsigned long BITMAP_WORD;
+#define nBITMAP_WORD_BITS (CHAR_BIT * SIZEOF_LONG)
+#define BITMAP_WORD_BITS (unsigned) nBITMAP_WORD_BITS
 
 /* Number of words to use for each element in the linked list.  */
 
 #ifndef BITMAP_ELEMENT_WORDS
-#define BITMAP_ELEMENT_WORDS 2
+#define BITMAP_ELEMENT_WORDS ((128 + nBITMAP_WORD_BITS - 1) / nBITMAP_WORD_BITS)
 #endif
 
 /* Number of bits in each actual element of a bitmap.  We get slightly better
@@ -32,28 +41,30 @@ Boston, MA 02111-1307, USA.  */
    bits is unsigned, assuming it is a power of 2.  */
 
 #define BITMAP_ELEMENT_ALL_BITS \
-  ((unsigned) (BITMAP_ELEMENT_WORDS * HOST_BITS_PER_WIDE_INT))
+  ((unsigned) (BITMAP_ELEMENT_WORDS * BITMAP_WORD_BITS))
 
 /* Bitmap set element.  We use a linked list to hold only the bits that
    are set.  This allows for use to grow the bitset dynamically without
    having to realloc and copy a giant bit array.  The `prev' field is
    undefined for an element on the free list.  */
 
-typedef struct bitmap_element_def
+typedef struct bitmap_element_def GTY(())
 {
-  struct bitmap_element_def *next;             /* Next element. */
-  struct bitmap_element_def *prev;             /* Previous element. */
-  unsigned int indx;                   /* regno/BITMAP_ELEMENT_ALL_BITS. */
-  unsigned HOST_WIDE_INT bits[BITMAP_ELEMENT_WORDS]; /* Bits that are set. */
+  struct bitmap_element_def *next;             /* Next element.  */
+  struct bitmap_element_def *prev;             /* Previous element.  */
+  unsigned int indx;                   /* regno/BITMAP_ELEMENT_ALL_BITS.  */
+  BITMAP_WORD bits[BITMAP_ELEMENT_WORDS]; /* Bits that are set.  */
 } bitmap_element;
 
 /* Head of bitmap linked list.  */
-typedef struct bitmap_head_def {
-  bitmap_element *first;       /* First element in linked list. */
-  bitmap_element *current;     /* Last element looked at. */
-  unsigned int indx;           /* Index of last element looked at. */
-
-} bitmap_head, *bitmap;
+typedef struct bitmap_head_def GTY(()) {
+  bitmap_element *first;       /* First element in linked list.  */
+  bitmap_element *current;     /* Last element looked at.  */
+  unsigned int indx;           /* Index of last element looked at.  */
+  int using_obstack;           /* Are we using an obstack or ggc for
+                                   allocation?  */
+} bitmap_head;
+typedef struct bitmap_head_def *bitmap;
 
 /* Enumeration giving the various operations we support.  */
 enum bitmap_bits {
@@ -65,74 +76,67 @@ enum bitmap_bits {
 };
 
 /* Global data */
-extern bitmap_element *bitmap_free;    /* Freelist of bitmap elements */
-extern bitmap_element bitmap_zero;     /* Zero bitmap element */
+extern bitmap_element bitmap_zero_bits;        /* Zero bitmap element */
 
 /* Clear a bitmap by freeing up the linked list.  */
-extern void bitmap_clear PARAMS ((bitmap));
+extern void bitmap_clear (bitmap);
 
-/* Copy a bitmap to another bitmap. */
-extern void bitmap_copy PARAMS ((bitmap, bitmap));
+/* Copy a bitmap to another bitmap.  */
+extern void bitmap_copy (bitmap, bitmap);
 
 /* True if two bitmaps are identical.  */
-extern int bitmap_equal_p PARAMS ((bitmap, bitmap));
+extern int bitmap_equal_p (bitmap, bitmap);
 
 /* Perform an operation on two bitmaps, yielding a third.  */
-extern int bitmap_operation PARAMS ((bitmap, bitmap, bitmap, enum bitmap_bits));
+extern int bitmap_operation (bitmap, bitmap, bitmap, enum bitmap_bits);
 
 /* `or' into one bitmap the `and' of a second bitmap witih the complement
    of a third.  */
-extern void bitmap_ior_and_compl PARAMS ((bitmap, bitmap, bitmap));
+extern void bitmap_ior_and_compl (bitmap, bitmap, bitmap);
 
 /* Clear a single register in a register set.  */
-extern void bitmap_clear_bit PARAMS ((bitmap, int));
+extern void bitmap_clear_bit (bitmap, int);
 
 /* Set a single register in a register set.  */
-extern void bitmap_set_bit PARAMS ((bitmap, int));
+extern void bitmap_set_bit (bitmap, int);
 
 /* Return true if a register is set in a register set.  */
-extern int bitmap_bit_p PARAMS ((bitmap, int));
+extern int bitmap_bit_p (bitmap, int);
 
 /* Debug functions to print a bitmap linked list.  */
-extern void debug_bitmap PARAMS ((bitmap));
-extern void debug_bitmap_file PARAMS ((FILE *, bitmap));
+extern void debug_bitmap (bitmap);
+extern void debug_bitmap_file (FILE *, bitmap);
 
-/* Print a bitmap */
-extern void bitmap_print PARAMS ((FILE *, bitmap, const char *, const char *));
+/* Print a bitmap */
+extern void bitmap_print (FILE *, bitmap, const char *, const char *);
 
-/* Initialize a bitmap header.  */
-extern bitmap bitmap_initialize PARAMS ((bitmap));
+/* Initialize a bitmap header.  If HEAD is NULL, a new header will be
+   allocated.  USING_OBSTACK indicates how elements should be allocated.  */
+extern bitmap bitmap_initialize (bitmap head, int using_obstack);
 
-/* Release all memory held by bitmaps.  */
-extern void bitmap_release_memory PARAMS ((void));
+/* Release all memory used by the bitmap obstack.  */
+extern void bitmap_release_memory (void);
 
 /* A few compatibility/functions macros for compatibility with sbitmaps */
 #define dump_bitmap(file, bitmap) bitmap_print (file, bitmap, "", "\n")
 #define bitmap_zero(a) bitmap_clear (a)
 #define bitmap_a_or_b(a,b,c) bitmap_operation (a, b, c, BITMAP_IOR)
 #define bitmap_a_and_b(a,b,c) bitmap_operation (a, b, c, BITMAP_AND)
-extern int bitmap_union_of_diff PARAMS((bitmap, bitmap, bitmap, bitmap));
-extern int bitmap_first_set_bit PARAMS((bitmap));
-extern int bitmap_last_set_bit PARAMS((bitmap));
+extern int bitmap_union_of_diff (bitmap, bitmap, bitmap, bitmap);
+extern int bitmap_first_set_bit (bitmap);
+extern int bitmap_last_set_bit (bitmap);
 
 /* Allocate a bitmap with oballoc.  */
 #define BITMAP_OBSTACK_ALLOC(OBSTACK)                          \
-  bitmap_initialize ((bitmap) obstack_alloc (OBSTACK, sizeof (bitmap_head)))
-
-/* Allocate a bitmap with alloca.  Note alloca cannot be passed as an
-   argument to a function, so we set a temporary variable to the value
-   returned by alloca and pass that variable to bitmap_initialize().
-   PTR is then set to the value returned from bitmap_initialize() to
-   avoid having it appear more than once in case it has side effects.  */
-#define BITMAP_ALLOCA(PTR) \
-do { \
-  bitmap temp_bitmap_ = (bitmap) alloca (sizeof (bitmap_head)); \
-  (PTR) = bitmap_initialize (temp_bitmap_); \
-} while (0)
-  
+  bitmap_initialize (obstack_alloc (OBSTACK, sizeof (bitmap_head)), 1)
+
+/* Allocate a bitmap with ggc_alloc.  */
+#define BITMAP_GGC_ALLOC()                     \
+  bitmap_initialize (NULL, 0)
+
 /* Allocate a bitmap with xmalloc.  */
 #define BITMAP_XMALLOC()                                        \
-  bitmap_initialize ((bitmap) xmalloc (sizeof (bitmap_head)))
+  bitmap_initialize (xmalloc (sizeof (bitmap_head)), 1)
 
 /* Do any cleanup needed on a bitmap when it is no longer used.  */
 #define BITMAP_FREE(BITMAP)                    \
@@ -159,15 +163,14 @@ do {                                              \
 #define BITMAP_INIT_ONCE()
 
 /* Loop over all bits in BITMAP, starting with MIN, setting BITNUM to the
-   bit number and executing CODE for all bits that are set. */
+   bit number and executing CODE for all bits that are set.  */
 
 #define EXECUTE_IF_SET_IN_BITMAP(BITMAP, MIN, BITNUM, CODE)            \
 do {                                                                   \
   bitmap_element *ptr_ = (BITMAP)->first;                              \
   unsigned int indx_ = (MIN) / BITMAP_ELEMENT_ALL_BITS;                        \
-  unsigned bit_num_ = (MIN) % ((unsigned) HOST_BITS_PER_WIDE_INT);     \
-  unsigned word_num_ = (((MIN) / ((unsigned) HOST_BITS_PER_WIDE_INT))  \
-                       % BITMAP_ELEMENT_WORDS);                        \
+  unsigned bit_num_ = (MIN) % BITMAP_WORD_BITS;                                \
+  unsigned word_num_ = (MIN) / BITMAP_WORD_BITS % BITMAP_ELEMENT_WORDS;        \
                                                                        \
                                                                        \
   /* Find the block the minimum bit is in.  */                         \
@@ -184,20 +187,19 @@ do {                                                                      \
     {                                                                  \
       for (; word_num_ < BITMAP_ELEMENT_WORDS; word_num_++)            \
        {                                                               \
-         unsigned HOST_WIDE_INT word_ = ptr_->bits[word_num_];         \
+         BITMAP_WORD word_ = ptr_->bits[word_num_];                    \
                                                                        \
          if (word_ != 0)                                               \
            {                                                           \
-             for (; bit_num_ < HOST_BITS_PER_WIDE_INT; bit_num_++)     \
+             for (; bit_num_ < BITMAP_WORD_BITS; bit_num_++)           \
                {                                                       \
-                 unsigned HOST_WIDE_INT mask_                          \
-                   = ((unsigned HOST_WIDE_INT) 1) << bit_num_;         \
+                 BITMAP_WORD mask_ = ((BITMAP_WORD) 1) << bit_num_;    \
                                                                        \
                  if ((word_ & mask_) != 0)                             \
                    {                                                   \
                      word_ &= ~ mask_;                                 \
                      (BITNUM) = (ptr_->indx * BITMAP_ELEMENT_ALL_BITS  \
-                                 + word_num_ * HOST_BITS_PER_WIDE_INT  \
+                                 + word_num_ * BITMAP_WORD_BITS        \
                                  + bit_num_);                          \
                      CODE;                                             \
                                                                        \
@@ -216,16 +218,15 @@ do {                                                                      \
 
 /* Loop over all bits in BITMAP1 and BITMAP2, starting with MIN, setting
    BITNUM to the bit number and executing CODE for all bits that are set in
-   the first bitmap and not set in the second. */
+   the first bitmap and not set in the second.  */
 
 #define EXECUTE_IF_AND_COMPL_IN_BITMAP(BITMAP1, BITMAP2, MIN, BITNUM, CODE) \
 do {                                                                   \
   bitmap_element *ptr1_ = (BITMAP1)->first;                            \
   bitmap_element *ptr2_ = (BITMAP2)->first;                            \
   unsigned int indx_ = (MIN) / BITMAP_ELEMENT_ALL_BITS;                        \
-  unsigned bit_num_ = (MIN) % ((unsigned) HOST_BITS_PER_WIDE_INT);     \
-  unsigned word_num_ = (((MIN) / ((unsigned) HOST_BITS_PER_WIDE_INT))  \
-                       % BITMAP_ELEMENT_WORDS);                        \
+  unsigned bit_num_ = (MIN) % BITMAP_WORD_BITS;                                \
+  unsigned word_num_ = (MIN) / BITMAP_WORD_BITS % BITMAP_ELEMENT_WORDS;        \
                                                                        \
   /* Find the block the minimum bit is in in the first bitmap.  */     \
   while (ptr1_ != 0 && ptr1_->indx < indx_)                            \
@@ -247,24 +248,23 @@ do {                                                                      \
        ptr2_ = ptr2_->next;                                            \
                                                                        \
       tmp2_ = ((ptr2_ != 0 && ptr2_->indx == ptr1_->indx)              \
-              ? ptr2_ : &bitmap_zero);                                 \
+              ? ptr2_ : &bitmap_zero_bits);                            \
                                                                        \
       for (; word_num_ < BITMAP_ELEMENT_WORDS; word_num_++)            \
        {                                                               \
-         unsigned HOST_WIDE_INT word_ = (ptr1_->bits[word_num_]        \
-                                         & ~ tmp2_->bits[word_num_]);  \
+         BITMAP_WORD word_ = (ptr1_->bits[word_num_]                   \
+                              & ~ tmp2_->bits[word_num_]);             \
          if (word_ != 0)                                               \
            {                                                           \
-             for (; bit_num_ < HOST_BITS_PER_WIDE_INT; bit_num_++)     \
+             for (; bit_num_ < BITMAP_WORD_BITS; bit_num_++)           \
                {                                                       \
-                 unsigned HOST_WIDE_INT mask_                          \
-                   = ((unsigned HOST_WIDE_INT)1) << bit_num_;          \
+                 BITMAP_WORD mask_ = ((BITMAP_WORD) 1) << bit_num_;    \
                                                                        \
                  if ((word_ & mask_) != 0)                             \
                    {                                                   \
                      word_ &= ~ mask_;                                 \
                      (BITNUM) = (ptr1_->indx * BITMAP_ELEMENT_ALL_BITS \
-                                 + word_num_ * HOST_BITS_PER_WIDE_INT  \
+                                 + word_num_ * BITMAP_WORD_BITS        \
                                  + bit_num_);                          \
                                                                        \
                      CODE;                                             \
@@ -283,16 +283,15 @@ do {                                                                      \
 
 /* Loop over all bits in BITMAP1 and BITMAP2, starting with MIN, setting
    BITNUM to the bit number and executing CODE for all bits that are set in
-   the both bitmaps. */
+   the both bitmaps.  */
 
 #define EXECUTE_IF_AND_IN_BITMAP(BITMAP1, BITMAP2, MIN, BITNUM, CODE)  \
 do {                                                                   \
   bitmap_element *ptr1_ = (BITMAP1)->first;                            \
   bitmap_element *ptr2_ = (BITMAP2)->first;                            \
   unsigned int indx_ = (MIN) / BITMAP_ELEMENT_ALL_BITS;                        \
-  unsigned bit_num_ = (MIN) % ((unsigned) HOST_BITS_PER_WIDE_INT);     \
-  unsigned word_num_ = (((MIN) / ((unsigned) HOST_BITS_PER_WIDE_INT))  \
-                       % BITMAP_ELEMENT_WORDS);                        \
+  unsigned bit_num_ = (MIN) % BITMAP_WORD_BITS;                                \
+  unsigned word_num_ = (MIN) / BITMAP_WORD_BITS % BITMAP_ELEMENT_WORDS;        \
                                                                        \
   /* Find the block the minimum bit is in in the first bitmap.  */     \
   while (ptr1_ != 0 && ptr1_->indx < indx_)                            \
@@ -306,13 +305,13 @@ do {                                                                      \
                                                                        \
   for (; ptr1_ != 0 ; ptr1_ = ptr1_->next)                             \
     {                                                                  \
-      /* Advance BITMAP2 to the equivalent link */                     \
+      /* Advance BITMAP2 to the equivalent link.  */                   \
       while (ptr2_ != 0 && ptr2_->indx < ptr1_->indx)                  \
        ptr2_ = ptr2_->next;                                            \
                                                                        \
       if (ptr2_ == 0)                                                  \
        {                                                               \
-         /* If there are no more elements in BITMAP2, exit loop now.*/ \
+         /* If there are no more elements in BITMAP2, exit loop now.  */ \
          ptr1_ = (bitmap_element *)0;                                  \
          break;                                                        \
        }                                                               \
@@ -324,20 +323,19 @@ do {                                                                      \
                                                                        \
       for (; word_num_ < BITMAP_ELEMENT_WORDS; word_num_++)            \
        {                                                               \
-         unsigned HOST_WIDE_INT word_ = (ptr1_->bits[word_num_]        \
-                                         & ptr2_->bits[word_num_]);    \
+         BITMAP_WORD word_ = (ptr1_->bits[word_num_]                   \
+                              & ptr2_->bits[word_num_]);               \
          if (word_ != 0)                                               \
            {                                                           \
-             for (; bit_num_ < HOST_BITS_PER_WIDE_INT; bit_num_++)     \
+             for (; bit_num_ < BITMAP_WORD_BITS; bit_num_++)           \
                {                                                       \
-                 unsigned HOST_WIDE_INT mask_                          \
-                   = ((unsigned HOST_WIDE_INT)1) << bit_num_;          \
+                 BITMAP_WORD mask_ = ((BITMAP_WORD) 1) << bit_num_;    \
                                                                        \
                  if ((word_ & mask_) != 0)                             \
                    {                                                   \
                      word_ &= ~ mask_;                                 \
                      (BITNUM) = (ptr1_->indx * BITMAP_ELEMENT_ALL_BITS \
-                                 + word_num_ * HOST_BITS_PER_WIDE_INT  \
+                                 + word_num_ * BITMAP_WORD_BITS        \
                                  + bit_num_);                          \
                                                                        \
                      CODE;                                             \