aboutsummaryrefslogtreecommitdiffstats
path: root/scripts/genksyms/genksyms.c
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/genksyms/genksyms.c')
-rw-r--r--scripts/genksyms/genksyms.c840
1 files changed, 402 insertions, 438 deletions
diff --git a/scripts/genksyms/genksyms.c b/scripts/genksyms/genksyms.c
index da8ff4fa5001..b798e284e1fc 100644
--- a/scripts/genksyms/genksyms.c
+++ b/scripts/genksyms/genksyms.c
@@ -29,7 +29,7 @@
29#include <stdarg.h> 29#include <stdarg.h>
30#ifdef __GNU_LIBRARY__ 30#ifdef __GNU_LIBRARY__
31#include <getopt.h> 31#include <getopt.h>
32#endif /* __GNU_LIBRARY__ */ 32#endif /* __GNU_LIBRARY__ */
33 33
34#include "genksyms.h" 34#include "genksyms.h"
35/*----------------------------------------------------------------------*/ 35/*----------------------------------------------------------------------*/
@@ -51,460 +51,427 @@ static int nsyms;
51 51
52static struct symbol *expansion_trail; 52static struct symbol *expansion_trail;
53 53
54static const char * const symbol_type_name[] = { 54static const char *const symbol_type_name[] = {
55 "normal", "typedef", "enum", "struct", "union" 55 "normal", "typedef", "enum", "struct", "union"
56}; 56};
57 57
58/*----------------------------------------------------------------------*/ 58/*----------------------------------------------------------------------*/
59 59
60static const unsigned int crctab32[] = 60static const unsigned int crctab32[] = {
61{ 61 0x00000000U, 0x77073096U, 0xee0e612cU, 0x990951baU, 0x076dc419U,
62 0x00000000U, 0x77073096U, 0xee0e612cU, 0x990951baU, 0x076dc419U, 62 0x706af48fU, 0xe963a535U, 0x9e6495a3U, 0x0edb8832U, 0x79dcb8a4U,
63 0x706af48fU, 0xe963a535U, 0x9e6495a3U, 0x0edb8832U, 0x79dcb8a4U, 63 0xe0d5e91eU, 0x97d2d988U, 0x09b64c2bU, 0x7eb17cbdU, 0xe7b82d07U,
64 0xe0d5e91eU, 0x97d2d988U, 0x09b64c2bU, 0x7eb17cbdU, 0xe7b82d07U, 64 0x90bf1d91U, 0x1db71064U, 0x6ab020f2U, 0xf3b97148U, 0x84be41deU,
65 0x90bf1d91U, 0x1db71064U, 0x6ab020f2U, 0xf3b97148U, 0x84be41deU, 65 0x1adad47dU, 0x6ddde4ebU, 0xf4d4b551U, 0x83d385c7U, 0x136c9856U,
66 0x1adad47dU, 0x6ddde4ebU, 0xf4d4b551U, 0x83d385c7U, 0x136c9856U, 66 0x646ba8c0U, 0xfd62f97aU, 0x8a65c9ecU, 0x14015c4fU, 0x63066cd9U,
67 0x646ba8c0U, 0xfd62f97aU, 0x8a65c9ecU, 0x14015c4fU, 0x63066cd9U, 67 0xfa0f3d63U, 0x8d080df5U, 0x3b6e20c8U, 0x4c69105eU, 0xd56041e4U,
68 0xfa0f3d63U, 0x8d080df5U, 0x3b6e20c8U, 0x4c69105eU, 0xd56041e4U, 68 0xa2677172U, 0x3c03e4d1U, 0x4b04d447U, 0xd20d85fdU, 0xa50ab56bU,
69 0xa2677172U, 0x3c03e4d1U, 0x4b04d447U, 0xd20d85fdU, 0xa50ab56bU, 69 0x35b5a8faU, 0x42b2986cU, 0xdbbbc9d6U, 0xacbcf940U, 0x32d86ce3U,
70 0x35b5a8faU, 0x42b2986cU, 0xdbbbc9d6U, 0xacbcf940U, 0x32d86ce3U, 70 0x45df5c75U, 0xdcd60dcfU, 0xabd13d59U, 0x26d930acU, 0x51de003aU,
71 0x45df5c75U, 0xdcd60dcfU, 0xabd13d59U, 0x26d930acU, 0x51de003aU, 71 0xc8d75180U, 0xbfd06116U, 0x21b4f4b5U, 0x56b3c423U, 0xcfba9599U,
72 0xc8d75180U, 0xbfd06116U, 0x21b4f4b5U, 0x56b3c423U, 0xcfba9599U, 72 0xb8bda50fU, 0x2802b89eU, 0x5f058808U, 0xc60cd9b2U, 0xb10be924U,
73 0xb8bda50fU, 0x2802b89eU, 0x5f058808U, 0xc60cd9b2U, 0xb10be924U, 73 0x2f6f7c87U, 0x58684c11U, 0xc1611dabU, 0xb6662d3dU, 0x76dc4190U,
74 0x2f6f7c87U, 0x58684c11U, 0xc1611dabU, 0xb6662d3dU, 0x76dc4190U, 74 0x01db7106U, 0x98d220bcU, 0xefd5102aU, 0x71b18589U, 0x06b6b51fU,
75 0x01db7106U, 0x98d220bcU, 0xefd5102aU, 0x71b18589U, 0x06b6b51fU, 75 0x9fbfe4a5U, 0xe8b8d433U, 0x7807c9a2U, 0x0f00f934U, 0x9609a88eU,
76 0x9fbfe4a5U, 0xe8b8d433U, 0x7807c9a2U, 0x0f00f934U, 0x9609a88eU, 76 0xe10e9818U, 0x7f6a0dbbU, 0x086d3d2dU, 0x91646c97U, 0xe6635c01U,
77 0xe10e9818U, 0x7f6a0dbbU, 0x086d3d2dU, 0x91646c97U, 0xe6635c01U, 77 0x6b6b51f4U, 0x1c6c6162U, 0x856530d8U, 0xf262004eU, 0x6c0695edU,
78 0x6b6b51f4U, 0x1c6c6162U, 0x856530d8U, 0xf262004eU, 0x6c0695edU, 78 0x1b01a57bU, 0x8208f4c1U, 0xf50fc457U, 0x65b0d9c6U, 0x12b7e950U,
79 0x1b01a57bU, 0x8208f4c1U, 0xf50fc457U, 0x65b0d9c6U, 0x12b7e950U, 79 0x8bbeb8eaU, 0xfcb9887cU, 0x62dd1ddfU, 0x15da2d49U, 0x8cd37cf3U,
80 0x8bbeb8eaU, 0xfcb9887cU, 0x62dd1ddfU, 0x15da2d49U, 0x8cd37cf3U, 80 0xfbd44c65U, 0x4db26158U, 0x3ab551ceU, 0xa3bc0074U, 0xd4bb30e2U,
81 0xfbd44c65U, 0x4db26158U, 0x3ab551ceU, 0xa3bc0074U, 0xd4bb30e2U, 81 0x4adfa541U, 0x3dd895d7U, 0xa4d1c46dU, 0xd3d6f4fbU, 0x4369e96aU,
82 0x4adfa541U, 0x3dd895d7U, 0xa4d1c46dU, 0xd3d6f4fbU, 0x4369e96aU, 82 0x346ed9fcU, 0xad678846U, 0xda60b8d0U, 0x44042d73U, 0x33031de5U,
83 0x346ed9fcU, 0xad678846U, 0xda60b8d0U, 0x44042d73U, 0x33031de5U, 83 0xaa0a4c5fU, 0xdd0d7cc9U, 0x5005713cU, 0x270241aaU, 0xbe0b1010U,
84 0xaa0a4c5fU, 0xdd0d7cc9U, 0x5005713cU, 0x270241aaU, 0xbe0b1010U, 84 0xc90c2086U, 0x5768b525U, 0x206f85b3U, 0xb966d409U, 0xce61e49fU,
85 0xc90c2086U, 0x5768b525U, 0x206f85b3U, 0xb966d409U, 0xce61e49fU, 85 0x5edef90eU, 0x29d9c998U, 0xb0d09822U, 0xc7d7a8b4U, 0x59b33d17U,
86 0x5edef90eU, 0x29d9c998U, 0xb0d09822U, 0xc7d7a8b4U, 0x59b33d17U, 86 0x2eb40d81U, 0xb7bd5c3bU, 0xc0ba6cadU, 0xedb88320U, 0x9abfb3b6U,
87 0x2eb40d81U, 0xb7bd5c3bU, 0xc0ba6cadU, 0xedb88320U, 0x9abfb3b6U, 87 0x03b6e20cU, 0x74b1d29aU, 0xead54739U, 0x9dd277afU, 0x04db2615U,
88 0x03b6e20cU, 0x74b1d29aU, 0xead54739U, 0x9dd277afU, 0x04db2615U, 88 0x73dc1683U, 0xe3630b12U, 0x94643b84U, 0x0d6d6a3eU, 0x7a6a5aa8U,
89 0x73dc1683U, 0xe3630b12U, 0x94643b84U, 0x0d6d6a3eU, 0x7a6a5aa8U, 89 0xe40ecf0bU, 0x9309ff9dU, 0x0a00ae27U, 0x7d079eb1U, 0xf00f9344U,
90 0xe40ecf0bU, 0x9309ff9dU, 0x0a00ae27U, 0x7d079eb1U, 0xf00f9344U, 90 0x8708a3d2U, 0x1e01f268U, 0x6906c2feU, 0xf762575dU, 0x806567cbU,
91 0x8708a3d2U, 0x1e01f268U, 0x6906c2feU, 0xf762575dU, 0x806567cbU, 91 0x196c3671U, 0x6e6b06e7U, 0xfed41b76U, 0x89d32be0U, 0x10da7a5aU,
92 0x196c3671U, 0x6e6b06e7U, 0xfed41b76U, 0x89d32be0U, 0x10da7a5aU, 92 0x67dd4accU, 0xf9b9df6fU, 0x8ebeeff9U, 0x17b7be43U, 0x60b08ed5U,
93 0x67dd4accU, 0xf9b9df6fU, 0x8ebeeff9U, 0x17b7be43U, 0x60b08ed5U, 93 0xd6d6a3e8U, 0xa1d1937eU, 0x38d8c2c4U, 0x4fdff252U, 0xd1bb67f1U,
94 0xd6d6a3e8U, 0xa1d1937eU, 0x38d8c2c4U, 0x4fdff252U, 0xd1bb67f1U, 94 0xa6bc5767U, 0x3fb506ddU, 0x48b2364bU, 0xd80d2bdaU, 0xaf0a1b4cU,
95 0xa6bc5767U, 0x3fb506ddU, 0x48b2364bU, 0xd80d2bdaU, 0xaf0a1b4cU, 95 0x36034af6U, 0x41047a60U, 0xdf60efc3U, 0xa867df55U, 0x316e8eefU,
96 0x36034af6U, 0x41047a60U, 0xdf60efc3U, 0xa867df55U, 0x316e8eefU, 96 0x4669be79U, 0xcb61b38cU, 0xbc66831aU, 0x256fd2a0U, 0x5268e236U,
97 0x4669be79U, 0xcb61b38cU, 0xbc66831aU, 0x256fd2a0U, 0x5268e236U, 97 0xcc0c7795U, 0xbb0b4703U, 0x220216b9U, 0x5505262fU, 0xc5ba3bbeU,
98 0xcc0c7795U, 0xbb0b4703U, 0x220216b9U, 0x5505262fU, 0xc5ba3bbeU, 98 0xb2bd0b28U, 0x2bb45a92U, 0x5cb36a04U, 0xc2d7ffa7U, 0xb5d0cf31U,
99 0xb2bd0b28U, 0x2bb45a92U, 0x5cb36a04U, 0xc2d7ffa7U, 0xb5d0cf31U, 99 0x2cd99e8bU, 0x5bdeae1dU, 0x9b64c2b0U, 0xec63f226U, 0x756aa39cU,
100 0x2cd99e8bU, 0x5bdeae1dU, 0x9b64c2b0U, 0xec63f226U, 0x756aa39cU, 100 0x026d930aU, 0x9c0906a9U, 0xeb0e363fU, 0x72076785U, 0x05005713U,
101 0x026d930aU, 0x9c0906a9U, 0xeb0e363fU, 0x72076785U, 0x05005713U, 101 0x95bf4a82U, 0xe2b87a14U, 0x7bb12baeU, 0x0cb61b38U, 0x92d28e9bU,
102 0x95bf4a82U, 0xe2b87a14U, 0x7bb12baeU, 0x0cb61b38U, 0x92d28e9bU, 102 0xe5d5be0dU, 0x7cdcefb7U, 0x0bdbdf21U, 0x86d3d2d4U, 0xf1d4e242U,
103 0xe5d5be0dU, 0x7cdcefb7U, 0x0bdbdf21U, 0x86d3d2d4U, 0xf1d4e242U, 103 0x68ddb3f8U, 0x1fda836eU, 0x81be16cdU, 0xf6b9265bU, 0x6fb077e1U,
104 0x68ddb3f8U, 0x1fda836eU, 0x81be16cdU, 0xf6b9265bU, 0x6fb077e1U, 104 0x18b74777U, 0x88085ae6U, 0xff0f6a70U, 0x66063bcaU, 0x11010b5cU,
105 0x18b74777U, 0x88085ae6U, 0xff0f6a70U, 0x66063bcaU, 0x11010b5cU, 105 0x8f659effU, 0xf862ae69U, 0x616bffd3U, 0x166ccf45U, 0xa00ae278U,
106 0x8f659effU, 0xf862ae69U, 0x616bffd3U, 0x166ccf45U, 0xa00ae278U, 106 0xd70dd2eeU, 0x4e048354U, 0x3903b3c2U, 0xa7672661U, 0xd06016f7U,
107 0xd70dd2eeU, 0x4e048354U, 0x3903b3c2U, 0xa7672661U, 0xd06016f7U, 107 0x4969474dU, 0x3e6e77dbU, 0xaed16a4aU, 0xd9d65adcU, 0x40df0b66U,
108 0x4969474dU, 0x3e6e77dbU, 0xaed16a4aU, 0xd9d65adcU, 0x40df0b66U, 108 0x37d83bf0U, 0xa9bcae53U, 0xdebb9ec5U, 0x47b2cf7fU, 0x30b5ffe9U,
109 0x37d83bf0U, 0xa9bcae53U, 0xdebb9ec5U, 0x47b2cf7fU, 0x30b5ffe9U, 109 0xbdbdf21cU, 0xcabac28aU, 0x53b39330U, 0x24b4a3a6U, 0xbad03605U,
110 0xbdbdf21cU, 0xcabac28aU, 0x53b39330U, 0x24b4a3a6U, 0xbad03605U, 110 0xcdd70693U, 0x54de5729U, 0x23d967bfU, 0xb3667a2eU, 0xc4614ab8U,
111 0xcdd70693U, 0x54de5729U, 0x23d967bfU, 0xb3667a2eU, 0xc4614ab8U, 111 0x5d681b02U, 0x2a6f2b94U, 0xb40bbe37U, 0xc30c8ea1U, 0x5a05df1bU,
112 0x5d681b02U, 0x2a6f2b94U, 0xb40bbe37U, 0xc30c8ea1U, 0x5a05df1bU, 112 0x2d02ef8dU
113 0x2d02ef8dU
114}; 113};
115 114
116static inline unsigned long 115static inline unsigned long
117partial_crc32_one(unsigned char c, unsigned long crc) 116partial_crc32_one(unsigned char c, unsigned long crc)
118{ 117{
119 return crctab32[(crc ^ c) & 0xff] ^ (crc >> 8); 118 return crctab32[(crc ^ c) & 0xff] ^ (crc >> 8);
120} 119}
121 120
122static inline unsigned long 121static inline unsigned long partial_crc32(const char *s, unsigned long crc)
123partial_crc32(const char *s, unsigned long crc)
124{ 122{
125 while (*s) 123 while (*s)
126 crc = partial_crc32_one(*s++, crc); 124 crc = partial_crc32_one(*s++, crc);
127 return crc; 125 return crc;
128} 126}
129 127
130static inline unsigned long 128static inline unsigned long crc32(const char *s)
131crc32(const char *s)
132{ 129{
133 return partial_crc32(s, 0xffffffff) ^ 0xffffffff; 130 return partial_crc32(s, 0xffffffff) ^ 0xffffffff;
134} 131}
135 132
136
137/*----------------------------------------------------------------------*/ 133/*----------------------------------------------------------------------*/
138 134
139static inline enum symbol_type 135static inline enum symbol_type map_to_ns(enum symbol_type t)
140map_to_ns(enum symbol_type t)
141{ 136{
142 if (t == SYM_TYPEDEF) 137 if (t == SYM_TYPEDEF)
143 t = SYM_NORMAL; 138 t = SYM_NORMAL;
144 else if (t == SYM_UNION) 139 else if (t == SYM_UNION)
145 t = SYM_STRUCT; 140 t = SYM_STRUCT;
146 return t; 141 return t;
147} 142}
148 143
149struct symbol * 144struct symbol *find_symbol(const char *name, enum symbol_type ns)
150find_symbol(const char *name, enum symbol_type ns)
151{ 145{
152 unsigned long h = crc32(name) % HASH_BUCKETS; 146 unsigned long h = crc32(name) % HASH_BUCKETS;
153 struct symbol *sym; 147 struct symbol *sym;
154 148
155 for (sym = symtab[h]; sym ; sym = sym->hash_next) 149 for (sym = symtab[h]; sym; sym = sym->hash_next)
156 if (map_to_ns(sym->type) == map_to_ns(ns) && strcmp(name, sym->name) == 0) 150 if (map_to_ns(sym->type) == map_to_ns(ns)
157 break; 151 && strcmp(name, sym->name) == 0)
152 break;
158 153
159 return sym; 154 return sym;
160} 155}
161 156
162struct symbol * 157struct symbol *add_symbol(const char *name, enum symbol_type type,
163add_symbol(const char *name, enum symbol_type type, struct string_list *defn, int is_extern) 158 struct string_list *defn, int is_extern)
164{ 159{
165 unsigned long h = crc32(name) % HASH_BUCKETS; 160 unsigned long h = crc32(name) % HASH_BUCKETS;
166 struct symbol *sym; 161 struct symbol *sym;
167 162
168 for (sym = symtab[h]; sym ; sym = sym->hash_next) 163 for (sym = symtab[h]; sym; sym = sym->hash_next)
169 if (map_to_ns(sym->type) == map_to_ns(type) 164 if (map_to_ns(sym->type) == map_to_ns(type)
170 && strcmp(name, sym->name) == 0) 165 && strcmp(name, sym->name) == 0) {
171 { 166 if (!equal_list(sym->defn, defn))
172 if (!equal_list(sym->defn, defn)) 167 error_with_pos("redefinition of %s", name);
173 error_with_pos("redefinition of %s", name); 168 return sym;
169 }
170
171 sym = xmalloc(sizeof(*sym));
172 sym->name = name;
173 sym->type = type;
174 sym->defn = defn;
175 sym->expansion_trail = NULL;
176 sym->is_extern = is_extern;
177
178 sym->hash_next = symtab[h];
179 symtab[h] = sym;
180
181 if (flag_debug) {
182 fprintf(debugfile, "Defn for %s %s == <",
183 symbol_type_name[type], name);
184 if (is_extern)
185 fputs("extern ", debugfile);
186 print_list(debugfile, defn);
187 fputs(">\n", debugfile);
188 }
189
190 ++nsyms;
174 return sym; 191 return sym;
175 }
176
177 sym = xmalloc(sizeof(*sym));
178 sym->name = name;
179 sym->type = type;
180 sym->defn = defn;
181 sym->expansion_trail = NULL;
182 sym->is_extern = is_extern;
183
184 sym->hash_next = symtab[h];
185 symtab[h] = sym;
186
187 if (flag_debug)
188 {
189 fprintf(debugfile, "Defn for %s %s == <", symbol_type_name[type], name);
190 if (is_extern)
191 fputs("extern ", debugfile);
192 print_list(debugfile, defn);
193 fputs(">\n", debugfile);
194 }
195
196 ++nsyms;
197 return sym;
198} 192}
199 193
200
201/*----------------------------------------------------------------------*/ 194/*----------------------------------------------------------------------*/
202 195
203inline void 196inline void free_node(struct string_list *node)
204free_node(struct string_list *node)
205{ 197{
206 free(node->string); 198 free(node->string);
207 free(node); 199 free(node);
208} 200}
209 201
210void 202void free_list(struct string_list *s, struct string_list *e)
211free_list(struct string_list *s, struct string_list *e)
212{ 203{
213 while (s != e) 204 while (s != e) {
214 { 205 struct string_list *next = s->next;
215 struct string_list *next = s->next; 206 free_node(s);
216 free_node(s); 207 s = next;
217 s = next; 208 }
218 }
219} 209}
220 210
221inline struct string_list * 211inline struct string_list *copy_node(struct string_list *node)
222copy_node(struct string_list *node)
223{ 212{
224 struct string_list *newnode; 213 struct string_list *newnode;
225 214
226 newnode = xmalloc(sizeof(*newnode)); 215 newnode = xmalloc(sizeof(*newnode));
227 newnode->string = xstrdup(node->string); 216 newnode->string = xstrdup(node->string);
228 newnode->tag = node->tag; 217 newnode->tag = node->tag;
229 218
230 return newnode; 219 return newnode;
231} 220}
232 221
233struct string_list * 222struct string_list *copy_list(struct string_list *s, struct string_list *e)
234copy_list(struct string_list *s, struct string_list *e)
235{ 223{
236 struct string_list *h, *p; 224 struct string_list *h, *p;
237 225
238 if (s == e) 226 if (s == e)
239 return NULL; 227 return NULL;
240 228
241 p = h = copy_node(s); 229 p = h = copy_node(s);
242 while ((s = s->next) != e) 230 while ((s = s->next) != e)
243 p = p->next = copy_node(s); 231 p = p->next = copy_node(s);
244 p->next = NULL; 232 p->next = NULL;
245 233
246 return h; 234 return h;
247} 235}
248 236
249int 237int equal_list(struct string_list *a, struct string_list *b)
250equal_list(struct string_list *a, struct string_list *b)
251{ 238{
252 while (a && b) 239 while (a && b) {
253 { 240 if (a->tag != b->tag || strcmp(a->string, b->string))
254 if (a->tag != b->tag || strcmp(a->string, b->string)) 241 return 0;
255 return 0; 242 a = a->next;
256 a = a->next; 243 b = b->next;
257 b = b->next; 244 }
258 }
259
260 return !a && !b;
261}
262 245
263static inline void 246 return !a && !b;
264print_node(FILE *f, struct string_list *list)
265{
266 switch (list->tag)
267 {
268 case SYM_STRUCT:
269 putc('s', f);
270 goto printit;
271 case SYM_UNION:
272 putc('u', f);
273 goto printit;
274 case SYM_ENUM:
275 putc('e', f);
276 goto printit;
277 case SYM_TYPEDEF:
278 putc('t', f);
279 goto printit;
280
281 printit:
282 putc('#', f);
283 case SYM_NORMAL:
284 fputs(list->string, f);
285 break;
286 }
287} 247}
288 248
289void 249static inline void print_node(FILE * f, struct string_list *list)
290print_list(FILE *f, struct string_list *list)
291{ 250{
292 struct string_list **e, **b; 251 switch (list->tag) {
293 struct string_list *tmp, **tmp2; 252 case SYM_STRUCT:
294 int elem = 1; 253 putc('s', f);
295 254 goto printit;
296 if (list == NULL) 255 case SYM_UNION:
297 { 256 putc('u', f);
298 fputs("(nil)", f); 257 goto printit;
299 return; 258 case SYM_ENUM:
300 } 259 putc('e', f);
301 260 goto printit;
302 tmp = list; 261 case SYM_TYPEDEF:
303 while((tmp = tmp->next) != NULL) 262 putc('t', f);
304 elem++; 263 goto printit;
305 264
306 b = alloca(elem * sizeof(*e)); 265 printit:
307 e = b + elem; 266 putc('#', f);
308 tmp2 = e - 1; 267 case SYM_NORMAL:
309 268 fputs(list->string, f);
310 (*tmp2--) = list; 269 break;
311 while((list = list->next) != NULL) 270 }
312 *(tmp2--) = list;
313
314 while (b != e)
315 {
316 print_node(f, *b++);
317 putc(' ', f);
318 }
319} 271}
320 272
321static unsigned long 273void print_list(FILE * f, struct string_list *list)
322expand_and_crc_list(struct string_list *list, unsigned long crc)
323{ 274{
324 struct string_list **e, **b; 275 struct string_list **e, **b;
325 struct string_list *tmp, **tmp2; 276 struct string_list *tmp, **tmp2;
326 int elem = 1; 277 int elem = 1;
327
328 if (!list)
329 return crc;
330 278
331 tmp = list; 279 if (list == NULL) {
332 while((tmp = tmp->next) != NULL) 280 fputs("(nil)", f);
333 elem++; 281 return;
334 282 }
335 b = alloca(elem * sizeof(*e));
336 e = b + elem;
337 tmp2 = e - 1;
338 283
339 *(tmp2--) = list; 284 tmp = list;
340 while ((list = list->next) != NULL) 285 while ((tmp = tmp->next) != NULL)
341 *(tmp2--) = list; 286 elem++;
342 287
343 while (b != e) 288 b = alloca(elem * sizeof(*e));
344 { 289 e = b + elem;
345 struct string_list *cur; 290 tmp2 = e - 1;
346 struct symbol *subsym;
347 291
348 cur = *(b++); 292 (*tmp2--) = list;
349 switch (cur->tag) 293 while ((list = list->next) != NULL)
350 { 294 *(tmp2--) = list;
351 case SYM_NORMAL:
352 if (flag_dump_defs)
353 fprintf(debugfile, "%s ", cur->string);
354 crc = partial_crc32(cur->string, crc);
355 crc = partial_crc32_one(' ', crc);
356 break;
357 295
358 case SYM_TYPEDEF: 296 while (b != e) {
359 subsym = find_symbol(cur->string, cur->tag); 297 print_node(f, *b++);
360 if (subsym->expansion_trail) 298 putc(' ', f);
361 { 299 }
362 if (flag_dump_defs) 300}
363 fprintf(debugfile, "%s ", cur->string);
364 crc = partial_crc32(cur->string, crc);
365 crc = partial_crc32_one(' ', crc);
366 }
367 else
368 {
369 subsym->expansion_trail = expansion_trail;
370 expansion_trail = subsym;
371 crc = expand_and_crc_list(subsym->defn, crc);
372 }
373 break;
374 301
375 case SYM_STRUCT: 302static unsigned long
376 case SYM_UNION: 303expand_and_crc_list(struct string_list *list, unsigned long crc)
377 case SYM_ENUM: 304{
378 subsym = find_symbol(cur->string, cur->tag); 305 struct string_list **e, **b;
379 if (!subsym) 306 struct string_list *tmp, **tmp2;
380 { 307 int elem = 1;
381 struct string_list *n, *t = NULL; 308
382 309 if (!list)
383 error_with_pos("expand undefined %s %s", 310 return crc;
384 symbol_type_name[cur->tag], cur->string); 311
385 312 tmp = list;
386 n = xmalloc(sizeof(*n)); 313 while ((tmp = tmp->next) != NULL)
387 n->string = xstrdup(symbol_type_name[cur->tag]); 314 elem++;
388 n->tag = SYM_NORMAL; 315
389 n->next = t; 316 b = alloca(elem * sizeof(*e));
390 t = n; 317 e = b + elem;
391 318 tmp2 = e - 1;
392 n = xmalloc(sizeof(*n)); 319
393 n->string = xstrdup(cur->string); 320 *(tmp2--) = list;
394 n->tag = SYM_NORMAL; 321 while ((list = list->next) != NULL)
395 n->next = t; 322 *(tmp2--) = list;
396 t = n; 323
397 324 while (b != e) {
398 n = xmalloc(sizeof(*n)); 325 struct string_list *cur;
399 n->string = xstrdup("{ UNKNOWN }"); 326 struct symbol *subsym;
400 n->tag = SYM_NORMAL; 327
401 n->next = t; 328 cur = *(b++);
402 329 switch (cur->tag) {
403 subsym = add_symbol(cur->string, cur->tag, n, 0); 330 case SYM_NORMAL:
404 } 331 if (flag_dump_defs)
405 if (subsym->expansion_trail) 332 fprintf(debugfile, "%s ", cur->string);
406 { 333 crc = partial_crc32(cur->string, crc);
407 if (flag_dump_defs) 334 crc = partial_crc32_one(' ', crc);
408 { 335 break;
409 fprintf(debugfile, "%s %s ", symbol_type_name[cur->tag], 336
410 cur->string); 337 case SYM_TYPEDEF:
338 subsym = find_symbol(cur->string, cur->tag);
339 if (subsym->expansion_trail) {
340 if (flag_dump_defs)
341 fprintf(debugfile, "%s ", cur->string);
342 crc = partial_crc32(cur->string, crc);
343 crc = partial_crc32_one(' ', crc);
344 } else {
345 subsym->expansion_trail = expansion_trail;
346 expansion_trail = subsym;
347 crc = expand_and_crc_list(subsym->defn, crc);
348 }
349 break;
350
351 case SYM_STRUCT:
352 case SYM_UNION:
353 case SYM_ENUM:
354 subsym = find_symbol(cur->string, cur->tag);
355 if (!subsym) {
356 struct string_list *n, *t = NULL;
357
358 error_with_pos("expand undefined %s %s",
359 symbol_type_name[cur->tag],
360 cur->string);
361
362 n = xmalloc(sizeof(*n));
363 n->string = xstrdup(symbol_type_name[cur->tag]);
364 n->tag = SYM_NORMAL;
365 n->next = t;
366 t = n;
367
368 n = xmalloc(sizeof(*n));
369 n->string = xstrdup(cur->string);
370 n->tag = SYM_NORMAL;
371 n->next = t;
372 t = n;
373
374 n = xmalloc(sizeof(*n));
375 n->string = xstrdup("{ UNKNOWN }");
376 n->tag = SYM_NORMAL;
377 n->next = t;
378
379 subsym =
380 add_symbol(cur->string, cur->tag, n, 0);
381 }
382 if (subsym->expansion_trail) {
383 if (flag_dump_defs) {
384 fprintf(debugfile, "%s %s ",
385 symbol_type_name[cur->tag],
386 cur->string);
387 }
388
389 crc =
390 partial_crc32(symbol_type_name[cur->tag],
391 crc);
392 crc = partial_crc32_one(' ', crc);
393 crc = partial_crc32(cur->string, crc);
394 crc = partial_crc32_one(' ', crc);
395 } else {
396 subsym->expansion_trail = expansion_trail;
397 expansion_trail = subsym;
398 crc = expand_and_crc_list(subsym->defn, crc);
399 }
400 break;
411 } 401 }
412
413 crc = partial_crc32(symbol_type_name[cur->tag], crc);
414 crc = partial_crc32_one(' ', crc);
415 crc = partial_crc32(cur->string, crc);
416 crc = partial_crc32_one(' ', crc);
417 }
418 else
419 {
420 subsym->expansion_trail = expansion_trail;
421 expansion_trail = subsym;
422 crc = expand_and_crc_list(subsym->defn, crc);
423 }
424 break;
425 } 402 }
426 }
427 403
428 return crc; 404 return crc;
429} 405}
430 406
431void 407void export_symbol(const char *name)
432export_symbol(const char *name)
433{ 408{
434 struct symbol *sym; 409 struct symbol *sym;
435 410
436 sym = find_symbol(name, SYM_NORMAL); 411 sym = find_symbol(name, SYM_NORMAL);
437 if (!sym) 412 if (!sym)
438 error_with_pos("export undefined symbol %s", name); 413 error_with_pos("export undefined symbol %s", name);
439 else 414 else {
440 { 415 unsigned long crc;
441 unsigned long crc;
442 416
443 if (flag_dump_defs) 417 if (flag_dump_defs)
444 fprintf(debugfile, "Export %s == <", name); 418 fprintf(debugfile, "Export %s == <", name);
445 419
446 expansion_trail = (struct symbol *)-1L; 420 expansion_trail = (struct symbol *)-1L;
447 421
448 crc = expand_and_crc_list(sym->defn, 0xffffffff) ^ 0xffffffff; 422 crc = expand_and_crc_list(sym->defn, 0xffffffff) ^ 0xffffffff;
449 423
450 sym = expansion_trail; 424 sym = expansion_trail;
451 while (sym != (struct symbol *)-1L) 425 while (sym != (struct symbol *)-1L) {
452 { 426 struct symbol *n = sym->expansion_trail;
453 struct symbol *n = sym->expansion_trail; 427 sym->expansion_trail = 0;
454 sym->expansion_trail = 0; 428 sym = n;
455 sym = n; 429 }
456 }
457 430
458 if (flag_dump_defs) 431 if (flag_dump_defs)
459 fputs(">\n", debugfile); 432 fputs(">\n", debugfile);
460 433
461 /* Used as a linker script. */ 434 /* Used as a linker script. */
462 printf("%s__crc_%s = 0x%08lx ;\n", mod_prefix, name, crc); 435 printf("%s__crc_%s = 0x%08lx ;\n", mod_prefix, name, crc);
463 } 436 }
464} 437}
465 438
466/*----------------------------------------------------------------------*/ 439/*----------------------------------------------------------------------*/
467 440
468void 441void error(const char *fmt, ...)
469error(const char *fmt, ...)
470{ 442{
471 va_list args; 443 va_list args;
472 444
473 if (flag_warnings) 445 if (flag_warnings) {
474 { 446 va_start(args, fmt);
475 va_start(args, fmt); 447 vfprintf(stderr, fmt, args);
476 vfprintf(stderr, fmt, args); 448 va_end(args);
477 va_end(args); 449 putc('\n', stderr);
478 putc('\n', stderr);
479 450
480 errors++; 451 errors++;
481 } 452 }
482} 453}
483 454
484void 455void error_with_pos(const char *fmt, ...)
485error_with_pos(const char *fmt, ...)
486{ 456{
487 va_list args; 457 va_list args;
488 458
489 if (flag_warnings) 459 if (flag_warnings) {
490 { 460 fprintf(stderr, "%s:%d: ", cur_filename ? : "<stdin>",
491 fprintf(stderr, "%s:%d: ", cur_filename ? : "<stdin>", cur_line); 461 cur_line);
492 462
493 va_start(args, fmt); 463 va_start(args, fmt);
494 vfprintf(stderr, fmt, args); 464 vfprintf(stderr, fmt, args);
495 va_end(args); 465 va_end(args);
496 putc('\n', stderr); 466 putc('\n', stderr);
497 467
498 errors++; 468 errors++;
499 } 469 }
500} 470}
501 471
502
503void genksyms_usage(void) 472void genksyms_usage(void)
504{ 473{
505 fputs("Usage:\n" 474 fputs("Usage:\n" "genksyms [-dDwqhV] > /path/to/.tmp_obj.ver\n" "\n"
506 "genksyms [-dDwqhV] > /path/to/.tmp_obj.ver\n"
507 "\n"
508#ifdef __GNU_LIBRARY__ 475#ifdef __GNU_LIBRARY__
509 " -d, --debug Increment the debug level (repeatable)\n" 476 " -d, --debug Increment the debug level (repeatable)\n"
510 " -D, --dump Dump expanded symbol defs (for debugging only)\n" 477 " -D, --dump Dump expanded symbol defs (for debugging only)\n"
@@ -512,87 +479,84 @@ void genksyms_usage(void)
512 " -q, --quiet Disable warnings (default)\n" 479 " -q, --quiet Disable warnings (default)\n"
513 " -h, --help Print this message\n" 480 " -h, --help Print this message\n"
514 " -V, --version Print the release version\n" 481 " -V, --version Print the release version\n"
515#else /* __GNU_LIBRARY__ */ 482#else /* __GNU_LIBRARY__ */
516 " -d Increment the debug level (repeatable)\n" 483 " -d Increment the debug level (repeatable)\n"
517 " -D Dump expanded symbol defs (for debugging only)\n" 484 " -D Dump expanded symbol defs (for debugging only)\n"
518 " -w Enable warnings\n" 485 " -w Enable warnings\n"
519 " -q Disable warnings (default)\n" 486 " -q Disable warnings (default)\n"
520 " -h Print this message\n" 487 " -h Print this message\n"
521 " -V Print the release version\n" 488 " -V Print the release version\n"
522#endif /* __GNU_LIBRARY__ */ 489#endif /* __GNU_LIBRARY__ */
523 , stderr); 490 , stderr);
524} 491}
525 492
526int 493int main(int argc, char **argv)
527main(int argc, char **argv)
528{ 494{
529 int o; 495 int o;
530 496
531#ifdef __GNU_LIBRARY__ 497#ifdef __GNU_LIBRARY__
532 struct option long_opts[] = { 498 struct option long_opts[] = {
533 {"arch", 1, 0, 'a'}, 499 {"arch", 1, 0, 'a'},
534 {"debug", 0, 0, 'd'}, 500 {"debug", 0, 0, 'd'},
535 {"warnings", 0, 0, 'w'}, 501 {"warnings", 0, 0, 'w'},
536 {"quiet", 0, 0, 'q'}, 502 {"quiet", 0, 0, 'q'},
537 {"dump", 0, 0, 'D'}, 503 {"dump", 0, 0, 'D'},
538 {"version", 0, 0, 'V'}, 504 {"version", 0, 0, 'V'},
539 {"help", 0, 0, 'h'}, 505 {"help", 0, 0, 'h'},
540 {0, 0, 0, 0} 506 {0, 0, 0, 0}
541 }; 507 };
542 508
543 while ((o = getopt_long(argc, argv, "a:dwqVDk:p:", 509 while ((o = getopt_long(argc, argv, "a:dwqVDk:p:",
544 &long_opts[0], NULL)) != EOF) 510 &long_opts[0], NULL)) != EOF)
545#else /* __GNU_LIBRARY__ */ 511#else /* __GNU_LIBRARY__ */
546 while ((o = getopt(argc, argv, "a:dwqVDk:p:")) != EOF) 512 while ((o = getopt(argc, argv, "a:dwqVDk:p:")) != EOF)
547#endif /* __GNU_LIBRARY__ */ 513#endif /* __GNU_LIBRARY__ */
548 switch (o) 514 switch (o) {
549 { 515 case 'a':
550 case 'a': 516 arch = optarg;
551 arch = optarg; 517 break;
552 break; 518 case 'd':
553 case 'd': 519 flag_debug++;
554 flag_debug++; 520 break;
555 break; 521 case 'w':
556 case 'w': 522 flag_warnings = 1;
557 flag_warnings = 1; 523 break;
558 break; 524 case 'q':
559 case 'q': 525 flag_warnings = 0;
560 flag_warnings = 0; 526 break;
561 break; 527 case 'V':
562 case 'V': 528 fputs("genksyms version 2.5.60\n", stderr);
563 fputs("genksyms version 2.5.60\n", stderr); 529 break;
564 break; 530 case 'D':
565 case 'D': 531 flag_dump_defs = 1;
566 flag_dump_defs = 1; 532 break;
567 break; 533 case 'h':
568 case 'h': 534 genksyms_usage();
569 genksyms_usage(); 535 return 0;
570 return 0; 536 default:
571 default: 537 genksyms_usage();
572 genksyms_usage(); 538 return 1;
573 return 1; 539 }
574 } 540 if ((strcmp(arch, "v850") == 0) || (strcmp(arch, "h8300") == 0))
575 if ((strcmp(arch, "v850") == 0) || 541 mod_prefix = "_";
576 (strcmp(arch, "h8300") == 0)) 542 {
577 mod_prefix = "_"; 543 extern int yydebug;
578 { 544 extern int yy_flex_debug;
579 extern int yydebug; 545
580 extern int yy_flex_debug; 546 yydebug = (flag_debug > 1);
581 547 yy_flex_debug = (flag_debug > 2);
582 yydebug = (flag_debug > 1); 548
583 yy_flex_debug = (flag_debug > 2); 549 debugfile = stderr;
584 550 /* setlinebuf(debugfile); */
585 debugfile = stderr; 551 }
586 /* setlinebuf(debugfile); */ 552
587 } 553 yyparse();
588 554
589 yyparse(); 555 if (flag_debug) {
590 556 fprintf(debugfile, "Hash table occupancy %d/%d = %g\n",
591 if (flag_debug) 557 nsyms, HASH_BUCKETS,
592 { 558 (double)nsyms / (double)HASH_BUCKETS);
593 fprintf(debugfile, "Hash table occupancy %d/%d = %g\n", 559 }
594 nsyms, HASH_BUCKETS, (double)nsyms / (double)HASH_BUCKETS); 560
595 } 561 return errors != 0;
596
597 return errors != 0;
598} 562}