111
|
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 }
|