gcc-4.1.2/gcc/varray.h

   1 /* Virtual array support.
   2    Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004
   3    Free Software Foundation, Inc.
   4    Contributed by Cygnus Solutions.
   5
   6    This file is part of GCC.
   7
   8    GCC is free software; you can redistribute it and/or modify it
   9    under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2, or (at your option)
  11    any later version.
  12
  13    GCC is distributed in the hope that it will be useful, but WITHOUT
  14    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  15    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
  16    License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with GCC; see the file COPYING.  If not, write to the Free
  20    the Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston,
  21    MA 02110-1301, USA.  */
  22
  23 #ifndef GCC_VARRAY_H
  24 #define GCC_VARRAY_H
  25
  26 #ifndef HOST_WIDE_INT
  27 #include "machmode.h"
  28 #endif
  29
  30 #ifndef GCC_SYSTEM_H
  31 #include "system.h"
  32 #include "coretypes.h"
  33 #include "tm.h"
  34 #endif
  35
  36 /* Enum indicating what the varray contains.
  37    If this is changed, `element' in varray.c needs to be updated.  */
  38
  39 enum varray_data_enum {
  40   VARRAY_DATA_C,
  41   VARRAY_DATA_UC,
  42   VARRAY_DATA_S,
  43   VARRAY_DATA_US,
  44   VARRAY_DATA_I,
  45   VARRAY_DATA_U,
  46   VARRAY_DATA_L,
  47   VARRAY_DATA_UL,
  48   VARRAY_DATA_HINT,
  49   VARRAY_DATA_UHINT,
  50   VARRAY_DATA_GENERIC,
  51   VARRAY_DATA_GENERIC_NOGC,
  52   VARRAY_DATA_CPTR,
  53   VARRAY_DATA_RTX,
  54   VARRAY_DATA_RTVEC,
  55   VARRAY_DATA_TREE,
  56   VARRAY_DATA_BITMAP,
  57   VARRAY_DATA_REG,
  58   VARRAY_DATA_BB,
  59   VARRAY_DATA_TE,
  60   VARRAY_DATA_EDGE,
  61   VARRAY_DATA_TREE_PTR,
  62   NUM_VARRAY_DATA
  63 };
  64
  65 #ifndef __cplusplus
  66 # define VARRAY_STRANGE_1 rtx
  67 # define VARRAY_STRANGE_2 rtvec
  68 # define VARRAY_STRANGE_3 tree
  69 #else
  70 # define VARRAY_STRANGE_1 rtx_
  71 # define VARRAY_STRANGE_2 rtvec_
  72 # define VARRAY_STRANGE_3 tree_
  73 #endif
  74
  75
  76 /* Union of various array types that are used.  */
  77 typedef union varray_data_tag GTY (()) {
  78   char                    GTY ((length ("%0.num_elements"),
  79                                 tag ("VARRAY_DATA_C")))         c[1];
  80   unsigned char           GTY ((length ("%0.num_elements"),
  81                                 tag ("VARRAY_DATA_UC")))        uc[1];
  82   short                   GTY ((length ("%0.num_elements"),
  83                                 tag ("VARRAY_DATA_S")))         s[1];
  84   unsigned short          GTY ((length ("%0.num_elements"),
  85                                 tag ("VARRAY_DATA_US")))        us[1];
  86   int                     GTY ((length ("%0.num_elements"),
  87                                 tag ("VARRAY_DATA_I")))         i[1];
  88   unsigned int            GTY ((length ("%0.num_elements"),
  89                                 tag ("VARRAY_DATA_U")))         u[1];
  90   long                    GTY ((length ("%0.num_elements"),
  91                                 tag ("VARRAY_DATA_L")))         l[1];
  92   unsigned long           GTY ((length ("%0.num_elements"),
  93                                 tag ("VARRAY_DATA_UL")))        ul[1];
  94   HOST_WIDE_INT           GTY ((length ("%0.num_elements"),
  95                                 tag ("VARRAY_DATA_HINT")))      hint[1];
  96   unsigned HOST_WIDE_INT  GTY ((length ("%0.num_elements"),
  97                                 tag ("VARRAY_DATA_UHINT")))     uhint[1];
  98   PTR                     GTY ((length ("%0.num_elements"), use_param,
  99                                 tag ("VARRAY_DATA_GENERIC")))   generic[1];
 100   PTR                     GTY ((length ("%0.num_elements"), skip (""),
 101                                 tag ("VARRAY_DATA_GENERIC_NOGC")))      generic_nogc[1];
 102   char                   *GTY ((length ("%0.num_elements"),
 103                                 tag ("VARRAY_DATA_CPTR")))      cptr[1];
 104   rtx                     GTY ((length ("%0.num_elements"),
 105                                 tag ("VARRAY_DATA_RTX")))       VARRAY_STRANGE_1[1];
 106   rtvec                   GTY ((length ("%0.num_elements"),
 107                                 tag ("VARRAY_DATA_RTVEC")))     VARRAY_STRANGE_2[1];
 108   tree                    GTY ((length ("%0.num_elements"),
 109                                 tag ("VARRAY_DATA_TREE")))      VARRAY_STRANGE_3[1];
 110   struct bitmap_head_def *GTY ((length ("%0.num_elements"),
 111                                 tag ("VARRAY_DATA_BITMAP")))    bitmap[1];
 112   struct reg_info_def    *GTY ((length ("%0.num_elements"), skip,
 113                                 tag ("VARRAY_DATA_REG")))       reg[1];
 114   struct basic_block_def *GTY ((length ("%0.num_elements"), skip,
 115                                 tag ("VARRAY_DATA_BB")))        bb[1];
 116   struct elt_list        *GTY ((length ("%0.num_elements"),
 117                                 tag ("VARRAY_DATA_TE")))        te[1];
 118   struct edge_def        *GTY ((length ("%0.num_elements"),
 119                                 tag ("VARRAY_DATA_EDGE")))      e[1];
 120   tree                   *GTY ((length ("%0.num_elements"), skip (""),
 121                                 tag ("VARRAY_DATA_TREE_PTR")))  tp[1];
 122 } varray_data;
 123
 124 /* Virtual array of pointers header.  */
 125 struct varray_head_tag GTY(()) {
 126   size_t        num_elements;   /* Maximum element number allocated.  */
 127   size_t        elements_used;  /* The number of elements used, if
 128                                    using VARRAY_PUSH/VARRAY_POP.  */
 129   enum varray_data_enum type;   /* The kind of elements in the varray.  */
 130   const char   *name;           /* name of the varray for reporting errors */
 131   varray_data   GTY ((desc ("%0.type"))) data;  /* The data elements follow,
 132                                                    must be last.  */
 133 };
 134 typedef struct varray_head_tag *varray_type;
 135
 136 /* Allocate a virtual array with NUM elements, each of which is SIZE bytes
 137    long, named NAME.  Array elements are zeroed.  */
 138 extern varray_type varray_init (size_t, enum varray_data_enum, const char *);
 139
 140 #define VARRAY_CHAR_INIT(va, num, name) \
 141   va = varray_init (num, VARRAY_DATA_C, name)
 142
 143 #define VARRAY_UCHAR_INIT(va, num, name) \
 144   va = varray_init (num, VARRAY_DATA_UC, name)
 145
 146 #define VARRAY_SHORT_INIT(va, num, name) \
 147   va = varray_init (num, VARRAY_DATA_S, name)
 148
 149 #define VARRAY_USHORT_INIT(va, num, name) \
 150   va = varray_init (num, VARRAY_DATA_US, name)
 151
 152 #define VARRAY_INT_INIT(va, num, name) \
 153   va = varray_init (num, VARRAY_DATA_I, name)
 154
 155 #define VARRAY_UINT_INIT(va, num, name) \
 156   va = varray_init (num, VARRAY_DATA_U, name)
 157
 158 #define VARRAY_LONG_INIT(va, num, name) \
 159   va = varray_init (num, VARRAY_DATA_L, name)
 160
 161 #define VARRAY_ULONG_INIT(va, num, name) \
 162   va = varray_init (num, VARRAY_DATA_UL, name)
 163
 164 #define VARRAY_WIDE_INT_INIT(va, num, name) \
 165   va = varray_init (num, VARRAY_DATA_HINT, name)
 166
 167 #define VARRAY_UWIDE_INT_INIT(va, num, name) \
 168   va = varray_init (num, VARRAY_DATA_UHINT, name)
 169
 170 #define VARRAY_GENERIC_PTR_INIT(va, num, name) \
 171   va = varray_init (num, VARRAY_DATA_GENERIC, name)
 172
 173 #define VARRAY_GENERIC_PTR_NOGC_INIT(va, num, name) \
 174   va = varray_init (num, VARRAY_DATA_GENERIC_NOGC, name)
 175
 176 #define VARRAY_CHAR_PTR_INIT(va, num, name) \
 177   va = varray_init (num, VARRAY_DATA_CPTR, name)
 178
 179 #define VARRAY_RTX_INIT(va, num, name) \
 180   va = varray_init (num, VARRAY_DATA_RTX, name)
 181
 182 #define VARRAY_RTVEC_INIT(va, num, name) \
 183   va = varray_init (num, VARRAY_DATA_RTVEC, name)
 184
 185 #define VARRAY_TREE_INIT(va, num, name) \
 186   va = varray_init (num, VARRAY_DATA_TREE, name)
 187
 188 #define VARRAY_BITMAP_INIT(va, num, name) \
 189   va = varray_init (num, VARRAY_DATA_BITMAP, name)
 190
 191 #define VARRAY_REG_INIT(va, num, name) \
 192   va = varray_init (num, VARRAY_DATA_REG, name)
 193
 194 #define VARRAY_BB_INIT(va, num, name) \
 195   va = varray_init (num, VARRAY_DATA_BB, name)
 196
 197 #define VARRAY_ELT_LIST_INIT(va, num, name) \
 198   va = varray_init (num, VARRAY_DATA_TE, name)
 199
 200 #define VARRAY_EDGE_INIT(va, num, name) \
 201   va = varray_init (num, VARRAY_DATA_EDGE, name)
 202
 203 #define VARRAY_TREE_PTR_INIT(va, num, name) \
 204   va = varray_init (num, VARRAY_DATA_TREE_PTR, name)
 205
 206 /* Free up memory allocated by the virtual array, but do not free any of the
 207    elements involved.  */
 208 #define VARRAY_FREE(vp) \
 209   do { if (vp) { free (vp); vp = (varray_type) 0; } } while (0)
 210
 211 /* Grow/shrink the virtual array VA to N elements.  */
 212 extern varray_type varray_grow (varray_type, size_t);
 213
 214 #define VARRAY_GROW(VA, N) ((VA) = varray_grow (VA, N))
 215
 216 #define VARRAY_SIZE(VA) ((VA)->num_elements)
 217
 218 #define VARRAY_ACTIVE_SIZE(VA)  ((VA)->elements_used)
 219 #define VARRAY_POP_ALL(VA)      ((VA)->elements_used = 0)
 220
 221 #define VARRAY_CLEAR(VA) varray_clear(VA)
 222
 223 extern void varray_clear (varray_type);
 224 extern void dump_varray_statistics (void);
 225
 226 /* Check for VARRAY_xxx macros being in bound.  */
 227 #if defined ENABLE_CHECKING && (GCC_VERSION >= 2007)
 228 extern void varray_check_failed (varray_type, size_t, const char *, int,
 229                                  const char *) ATTRIBUTE_NORETURN;
 230 extern void varray_underflow (varray_type, const char *, int, const char *)
 231      ATTRIBUTE_NORETURN;
 232 #define VARRAY_CHECK(VA, N, T) __extension__                    \
 233 (*({ varray_type const _va = (VA);                              \
 234      const size_t _n = (N);                                     \
 235      if (_n >= _va->num_elements)                               \
 236        varray_check_failed (_va, _n, __FILE__, __LINE__, __FUNCTION__); \
 237      &_va->data.T[_n]; }))
 238
 239 #define VARRAY_POP(VA) do {                                     \
 240   varray_type const _va = (VA);                                 \
 241   if (_va->elements_used == 0)                                  \
 242     varray_underflow (_va, __FILE__, __LINE__, __FUNCTION__);   \
 243   else                                                          \
 244     _va->elements_used--;                                       \
 245 } while (0)
 246
 247 #else
 248 #define VARRAY_CHECK(VA, N, T) ((VA)->data.T[N])
 249 /* Pop the top element of VA.  */
 250 #define VARRAY_POP(VA) do { ((VA)->elements_used--); } while (0)
 251 #endif
 252
 253 /* Push X onto VA.  T is the name of the field in varray_data
 254    corresponding to the type of X.  */
 255 #define VARRAY_PUSH(VA, T, X)                           \
 256   do                                                    \
 257     {                                                   \
 258       if ((VA)->elements_used >= (VA)->num_elements)    \
 259         VARRAY_GROW ((VA), 2 * (VA)->num_elements);     \
 260       (VA)->data.T[(VA)->elements_used++] = (X);        \
 261     }                                                   \
 262   while (0)
 263
 264 #define VARRAY_CHAR(VA, N)              VARRAY_CHECK (VA, N, c)
 265 #define VARRAY_UCHAR(VA, N)             VARRAY_CHECK (VA, N, uc)
 266 #define VARRAY_SHORT(VA, N)             VARRAY_CHECK (VA, N, s)
 267 #define VARRAY_USHORT(VA, N)            VARRAY_CHECK (VA, N, us)
 268 #define VARRAY_INT(VA, N)               VARRAY_CHECK (VA, N, i)
 269 #define VARRAY_UINT(VA, N)              VARRAY_CHECK (VA, N, u)
 270 #define VARRAY_LONG(VA, N)              VARRAY_CHECK (VA, N, l)
 271 #define VARRAY_ULONG(VA, N)             VARRAY_CHECK (VA, N, ul)
 272 #define VARRAY_WIDE_INT(VA, N)          VARRAY_CHECK (VA, N, hint)
 273 #define VARRAY_UWIDE_INT(VA, N)         VARRAY_CHECK (VA, N, uhint)
 274 #define VARRAY_GENERIC_PTR(VA,N)        VARRAY_CHECK (VA, N, generic)
 275 #define VARRAY_GENERIC_PTR_NOGC(VA,N)   VARRAY_CHECK (VA, N, generic_nogc)
 276 #define VARRAY_CHAR_PTR(VA,N)           VARRAY_CHECK (VA, N, cptr)
 277 #define VARRAY_RTX(VA, N)               VARRAY_CHECK (VA, N, rtx)
 278 #define VARRAY_RTVEC(VA, N)             VARRAY_CHECK (VA, N, rtvec)
 279 #define VARRAY_TREE(VA, N)              VARRAY_CHECK (VA, N, tree)
 280 #define VARRAY_BITMAP(VA, N)            VARRAY_CHECK (VA, N, bitmap)
 281 #define VARRAY_REG(VA, N)               VARRAY_CHECK (VA, N, reg)
 282 #define VARRAY_BB(VA, N)                VARRAY_CHECK (VA, N, bb)
 283 #define VARRAY_ELT_LIST(VA, N)          VARRAY_CHECK (VA, N, te)
 284 #define VARRAY_EDGE(VA, N)              VARRAY_CHECK (VA, N, e)
 285 #define VARRAY_TREE_PTR(VA, N)          VARRAY_CHECK (VA, N, tp)
 286
 287 /* Push a new element on the end of VA, extending it if necessary.  */
 288 #define VARRAY_PUSH_CHAR(VA, X)         VARRAY_PUSH (VA, c, X)
 289 #define VARRAY_PUSH_UCHAR(VA, X)        VARRAY_PUSH (VA, uc, X)
 290 #define VARRAY_PUSH_SHORT(VA, X)        VARRAY_PUSH (VA, s, X)
 291 #define VARRAY_PUSH_USHORT(VA, X)       VARRAY_PUSH (VA, us, X)
 292 #define VARRAY_PUSH_INT(VA, X)          VARRAY_PUSH (VA, i, X)
 293 #define VARRAY_PUSH_UINT(VA, X)         VARRAY_PUSH (VA, u, X)
 294 #define VARRAY_PUSH_LONG(VA, X)         VARRAY_PUSH (VA, l, X)
 295 #define VARRAY_PUSH_ULONG(VA, X)        VARRAY_PUSH (VA, ul, X)
 296 #define VARRAY_PUSH_WIDE_INT(VA, X)     VARRAY_PUSH (VA, hint, X)
 297 #define VARRAY_PUSH_UWIDE_INT(VA, X)    VARRAY_PUSH (VA, uhint, X)
 298 #define VARRAY_PUSH_GENERIC_PTR(VA, X)  VARRAY_PUSH (VA, generic, X)
 299 #define VARRAY_PUSH_GENERIC_PTR_NOGC(VA, X)     VARRAY_PUSH (VA, generic_nogc, X)
 300 #define VARRAY_PUSH_CHAR_PTR(VA, X)     VARRAY_PUSH (VA, cptr, X)
 301 #define VARRAY_PUSH_RTX(VA, X)          VARRAY_PUSH (VA, rtx, X)
 302 #define VARRAY_PUSH_RTVEC(VA, X)        VARRAY_PUSH (VA, rtvec, X)
 303 #define VARRAY_PUSH_TREE(VA, X)         VARRAY_PUSH (VA, tree, X)
 304 #define VARRAY_PUSH_BITMAP(VA, X)       VARRAY_PUSH (VA, bitmap, X)
 305 #define VARRAY_PUSH_REG(VA, X)          VARRAY_PUSH (VA, reg, X)
 306 #define VARRAY_PUSH_BB(VA, X)           VARRAY_PUSH (VA, bb, X)
 307 #define VARRAY_PUSH_EDGE(VA, X)         VARRAY_PUSH (VA, e, X)
 308 #define VARRAY_PUSH_TREE_PTR(VA, X)     VARRAY_PUSH (VA, tp, X)
 309
 310 /* Return the last element of VA.  */
 311 #define VARRAY_TOP(VA, T) VARRAY_CHECK(VA, (VA)->elements_used - 1, T)
 312
 313 #define VARRAY_TOP_CHAR(VA)             VARRAY_TOP (VA, c)
 314 #define VARRAY_TOP_UCHAR(VA)            VARRAY_TOP (VA, uc)
 315 #define VARRAY_TOP_SHORT(VA)            VARRAY_TOP (VA, s)
 316 #define VARRAY_TOP_USHORT(VA)           VARRAY_TOP (VA, us)
 317 #define VARRAY_TOP_INT(VA)              VARRAY_TOP (VA, i)
 318 #define VARRAY_TOP_UINT(VA)             VARRAY_TOP (VA, u)
 319 #define VARRAY_TOP_LONG(VA)             VARRAY_TOP (VA, l)
 320 #define VARRAY_TOP_ULONG(VA)            VARRAY_TOP (VA, ul)
 321 #define VARRAY_TOP_WIDE_INT(VA)         VARRAY_TOP (VA, hint)
 322 #define VARRAY_TOP_UWIDE_INT(VA)        VARRAY_TOP (VA, uhint)
 323 #define VARRAY_TOP_GENERIC_PTR(VA)      VARRAY_TOP (VA, generic)
 324 #define VARRAY_TOP_GENERIC_PTR_NOGC(VA) VARRAY_TOP (VA, generic_nogc)
 325 #define VARRAY_TOP_CHAR_PTR(VA)         VARRAY_TOP (VA, cptr)
 326 #define VARRAY_TOP_RTX(VA)              VARRAY_TOP (VA, rtx)
 327 #define VARRAY_TOP_RTVEC(VA)            VARRAY_TOP (VA, rtvec)
 328 #define VARRAY_TOP_TREE(VA)             VARRAY_TOP (VA, tree)
 329 #define VARRAY_TOP_BITMAP(VA)           VARRAY_TOP (VA, bitmap)
 330 #define VARRAY_TOP_REG(VA)              VARRAY_TOP (VA, reg)
 331 #define VARRAY_TOP_BB(VA)               VARRAY_TOP (VA, bb)
 332 #define VARRAY_TOP_EDGE(VA)             VARRAY_TOP (VA, e)
 333 #define VARRAY_TOP_TREE_PTR(VA)         VARRAY_TOP (VA, tp)
 334
 335 #endif /* ! GCC_VARRAY_H */