gcc/testsuite/gcc.dg/pr44699.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-O2" } */
   3 typedef long unsigned int size_t;
   4 typedef long int intmax_t;
   5 typedef long unsigned int uintmax_t;
   6 extern void *xmalloc (size_t) __attribute__ ((__malloc__));
   7 extern const char *trim_filename (const char *);
   8 extern void error (const char *, ...);
   9
  10 static __inline void *
  11 __inline_memcpy_chk (void *__dest, const void *__src, size_t __len)
  12 {
  13   return __builtin___memcpy_chk (__dest, __src, __len, __builtin_object_size (__dest, 0));
  14 }
  15
  16 typedef unsigned int hashval_t;
  17 typedef hashval_t (*htab_hash) (const void *);
  18 typedef int (*htab_eq) (const void *, const void *);
  19 typedef void (*htab_del) (void *);
  20 typedef int (*htab_trav) (void **, void *);
  21 typedef void *(*htab_alloc) (size_t, size_t);
  22 typedef void (*htab_free) (void *);
  23
  24 typedef void *(*htab_alloc_with_arg) (void *, size_t, size_t);
  25 typedef void (*htab_free_with_arg) (void *, void *);
  26 struct htab {
  27   htab_hash hash_f;
  28   htab_eq eq_f;
  29   htab_del del_f;
  30   void ** entries;
  31   size_t size;
  32   size_t n_elements;
  33   size_t n_deleted;
  34   unsigned int searches;
  35   unsigned int collisions;
  36   htab_alloc alloc_f;
  37   htab_free free_f;
  38   void * alloc_arg;
  39   htab_alloc_with_arg alloc_with_arg_f;
  40   htab_free_with_arg free_with_arg_f;
  41   unsigned int size_prime_index;
  42 };
  43
  44 typedef struct htab *htab_t;
  45 enum insert_option {NO_INSERT, INSERT};
  46 extern void * htab_find (htab_t, const void *);
  47 extern void ** htab_find_slot (htab_t, const void *, enum insert_option);
  48
  49 enum mode_class { MODE_RANDOM, MODE_CC, MODE_INT, MODE_PARTIAL_INT, MODE_FRACT, MODE_UFRACT, MODE_ACCUM, MODE_UACCUM, MODE_FLOAT, MODE_DECIMAL_FLOAT, MODE_COMPLEX_INT, MODE_COMPLEX_FLOAT, MODE_VECTOR_INT, MODE_VECTOR_FRACT, MODE_VECTOR_UFRACT, MODE_VECTOR_ACCUM, MODE_VECTOR_UACCUM, MODE_VECTOR_FLOAT, MAX_MODE_CLASS };
  50
  51 static const char *const mode_class_names[MAX_MODE_CLASS] =
  52 {
  53   "MODE_RANDOM", "MODE_CC", "MODE_INT", "MODE_PARTIAL_INT", "MODE_FRACT", "MODE_UFRACT", "MODE_ACCUM", "MODE_UACCUM", "MODE_FLOAT", "MODE_DECIMAL_FLOAT", "MODE_COMPLEX_INT", "MODE_COMPLEX_FLOAT", "MODE_VECTOR_INT", "MODE_VECTOR_FRACT", "MODE_VECTOR_UFRACT", "MODE_VECTOR_ACCUM", "MODE_VECTOR_UACCUM", "MODE_VECTOR_FLOAT"
  54 };
  55 struct mode_data
  56 {
  57   struct mode_data *next;
  58
  59   const char *name;
  60   enum mode_class cl;
  61   unsigned int precision;
  62   unsigned int bytesize;
  63   unsigned int ncomponents;
  64   unsigned int alignment;
  65   const char *format;
  66
  67   struct mode_data *component;
  68   struct mode_data *wider;
  69   struct mode_data *wider_2x;
  70
  71   struct mode_data *contained;
  72
  73   struct mode_data *next_cont;
  74
  75   const char *file;
  76   unsigned int line;
  77   unsigned int counter;
  78   unsigned int ibit;
  79   unsigned int fbit;
  80 };
  81
  82 static struct mode_data *modes[MAX_MODE_CLASS];
  83 static unsigned int n_modes[MAX_MODE_CLASS];
  84 static struct mode_data *void_mode;
  85
  86 static const struct mode_data blank_mode = {
  87   0, "<unknown>", MAX_MODE_CLASS,
  88   -1U, -1U, -1U, -1U,
  89   0, 0, 0, 0, 0, 0,
  90   "<unknown>", 0, 0, 0, 0
  91 };
  92
  93 static htab_t modes_by_name;
  94
  95 static __inline__ struct mode_data *
  96 find_mode (const char *name)
  97 {
  98   struct mode_data key;
  99
 100   key.name = name;
 101   return (struct mode_data *) htab_find (modes_by_name, &key);
 102 }
 103
 104 static struct mode_data *
 105 new_mode (enum mode_class cl, const char *name,
 106    const char *file, unsigned int line)
 107 {
 108   struct mode_data *m;
 109   static unsigned int count = 0;
 110
 111   m = find_mode (name);
 112   if (m)
 113     {
 114       error ("%s:%d: duplicate definition of mode \"%s\"",
 115       trim_filename (file), line, name);
 116       error ("%s:%d: previous definition here", m->file, m->line);
 117       return m;
 118     }
 119
 120   m = ((struct mode_data *) xmalloc (sizeof (struct mode_data)));
 121   ((__builtin_object_size (m, 0) != (size_t) -1) ? __builtin___memcpy_chk (m, &blank_mode, sizeof (struct mode_data), __builtin_object_size (m, 0)) : __inline_memcpy_chk (m, &blank_mode, sizeof (struct mode_data)));
 122   m->cl = cl;
 123   m->name = name;
 124   if (file)
 125     m->file = trim_filename (file);
 126   m->line = line;
 127   m->counter = count++;
 128
 129   m->next = modes[cl];
 130   modes[cl] = m;
 131   n_modes[cl]++;
 132
 133   *htab_find_slot (modes_by_name, m, INSERT) = m;
 134
 135   return m;
 136 }
 137
 138 static void
 139 make_int_mode (const char *name,
 140         unsigned int precision, unsigned int bytesize,
 141         const char *file, unsigned int line)
 142 {
 143   struct mode_data *m = new_mode (MODE_INT, name, file, line);
 144   m->bytesize = bytesize;
 145   m->precision = precision;
 146 }
 147
 148 static void
 149 create_modes (void)
 150 {
 151 make_int_mode ("HI", -1U, 2, "../../work/gcc/machmode.def", 182);
 152 }
 153
 154 int
 155 main (int argc, char **argv)
 156 {
 157   create_modes ();
 158 }