File: | src/gnu/usr.bin/binutils/obj/gdb/f-exp.c |
Warning: | line 736, column 7 Array access (from variable 'p') results in a null pointer dereference |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | #include <stdlib.h> | |||
2 | #include <string.h> | |||
3 | #define YYBYACC1 1 | |||
4 | #define YYMAJOR1 1 | |||
5 | #define YYMINOR9 9 | |||
6 | #define YYLEXf_lex() yylexf_lex() | |||
7 | #define YYEMPTY-1 -1 | |||
8 | #define yyclearin(f_char=(-1)) (yycharf_char=(YYEMPTY-1)) | |||
9 | #define yyerrok(f_errflag=0) (yyerrflagf_errflag=0) | |||
10 | #define YYRECOVERING()(f_errflag!=0) (yyerrflagf_errflag!=0) | |||
11 | #define YYPREFIX"yy" "yy" | |||
12 | #line 45 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
13 | ||||
14 | #include "defs.h" | |||
15 | #include "gdb_string.h" | |||
16 | #include "expression.h" | |||
17 | #include "value.h" | |||
18 | #include "parser-defs.h" | |||
19 | #include "language.h" | |||
20 | #include "f-lang.h" | |||
21 | #include "bfd.h" /* Required by objfiles.h. */ | |||
22 | #include "symfile.h" /* Required by objfiles.h. */ | |||
23 | #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */ | |||
24 | #include "block.h" | |||
25 | #include <ctype.h> | |||
26 | ||||
27 | /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), | |||
28 | as well as gratuitiously global symbol names, so we can have multiple | |||
29 | yacc generated parsers in gdb. Note that these are only the variables | |||
30 | produced by yacc. If other parser generators (bison, byacc, etc) produce | |||
31 | additional global names that conflict at link time, then those parser | |||
32 | generators need to be fixed instead of adding those names to this list. */ | |||
33 | ||||
34 | #define yymaxdepthf_maxdepth f_maxdepth | |||
35 | #define yyparsef_parse f_parse | |||
36 | #define yylexf_lex f_lex | |||
37 | #define yyerrorf_error f_error | |||
38 | #define yylvalf_lval f_lval | |||
39 | #define yycharf_char f_char | |||
40 | #define yydebugf_debug f_debug | |||
41 | #define yypactf_pact f_pact | |||
42 | #define yyr1f_r1 f_r1 | |||
43 | #define yyr2f_r2 f_r2 | |||
44 | #define yydeff_def f_def | |||
45 | #define yychkf_chk f_chk | |||
46 | #define yypgof_pgo f_pgo | |||
47 | #define yyactf_act f_act | |||
48 | #define yyexcaf_exca f_exca | |||
49 | #define yyerrflagf_errflag f_errflag | |||
50 | #define yynerrsf_nerrs f_nerrs | |||
51 | #define yypsf_ps f_ps | |||
52 | #define yypvf_pv f_pv | |||
53 | #define yysf_s f_s | |||
54 | #define yy_yysf_yys f_yys | |||
55 | #define yystatef_state f_state | |||
56 | #define yytmpf_tmp f_tmp | |||
57 | #define yyvf_v f_v | |||
58 | #define yy_yyvf_yyv f_yyv | |||
59 | #define yyvalf_val f_val | |||
60 | #define yyllocf_lloc f_lloc | |||
61 | #define yyredsf_reds f_reds /* With YYDEBUG defined */ | |||
62 | #define yytoksf_toks f_toks /* With YYDEBUG defined */ | |||
63 | #define yynamef_name f_name /* With YYDEBUG defined */ | |||
64 | #define yyrulef_rule f_rule /* With YYDEBUG defined */ | |||
65 | #define yylhsf_yylhs f_yylhs | |||
66 | #define yylenf_yylen f_yylen | |||
67 | #define yydefredf_yydefred f_yydefred | |||
68 | #define yydgotof_yydgoto f_yydgoto | |||
69 | #define yysindexf_yysindex f_yysindex | |||
70 | #define yyrindexf_yyrindex f_yyrindex | |||
71 | #define yygindexf_yygindex f_yygindex | |||
72 | #define yytablef_yytable f_yytable | |||
73 | #define yycheckf_yycheck f_yycheck | |||
74 | ||||
75 | #ifndef YYDEBUG1 | |||
76 | #define YYDEBUG1 1 /* Default to yydebug support */ | |||
77 | #endif | |||
78 | ||||
79 | #define YYFPRINTFparser_fprintf parser_fprintf | |||
80 | ||||
81 | int yyparsef_parse (void); | |||
82 | ||||
83 | static int yylexf_lex (void); | |||
84 | ||||
85 | void yyerrorf_error (char *); | |||
86 | ||||
87 | static void growbuf_by_size (int); | |||
88 | ||||
89 | static int match_string_literal (void); | |||
90 | ||||
91 | #line 129 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
92 | #ifndef YYSTYPE_DEFINED | |||
93 | #define YYSTYPE_DEFINED | |||
94 | typedef union | |||
95 | { | |||
96 | LONGESTlong lval; | |||
97 | struct { | |||
98 | LONGESTlong val; | |||
99 | struct type *type; | |||
100 | } typed_val; | |||
101 | DOUBLEST dval; | |||
102 | struct symbol *sym; | |||
103 | struct type *tval; | |||
104 | struct stoken sval; | |||
105 | struct ttype tsym; | |||
106 | struct symtoken ssym; | |||
107 | int voidval; | |||
108 | struct block *bval; | |||
109 | enum exp_opcode opcode; | |||
110 | struct internalvar *ivar; | |||
111 | ||||
112 | struct type **tvec; | |||
113 | int *ivec; | |||
114 | } YYSTYPE; | |||
115 | #endif /* YYSTYPE_DEFINED */ | |||
116 | #line 152 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
117 | /* YYSTYPE gets defined by %union */ | |||
118 | static int parse_number (char *, int, int, YYSTYPE *); | |||
119 | #define INT257 257 | |||
120 | #define FLOAT258 258 | |||
121 | #define STRING_LITERAL259 259 | |||
122 | #define BOOLEAN_LITERAL260 260 | |||
123 | #define NAME261 261 | |||
124 | #define TYPENAME262 262 | |||
125 | #define NAME_OR_INT263 263 | |||
126 | #define SIZEOF264 264 | |||
127 | #define ERROR265 265 | |||
128 | #define INT_KEYWORD266 266 | |||
129 | #define INT_S2_KEYWORD267 267 | |||
130 | #define LOGICAL_S1_KEYWORD268 268 | |||
131 | #define LOGICAL_S2_KEYWORD269 269 | |||
132 | #define LOGICAL_KEYWORD270 270 | |||
133 | #define REAL_KEYWORD271 271 | |||
134 | #define REAL_S8_KEYWORD272 272 | |||
135 | #define REAL_S16_KEYWORD273 273 | |||
136 | #define COMPLEX_S8_KEYWORD274 274 | |||
137 | #define COMPLEX_S16_KEYWORD275 275 | |||
138 | #define COMPLEX_S32_KEYWORD276 276 | |||
139 | #define BOOL_AND277 277 | |||
140 | #define BOOL_OR278 278 | |||
141 | #define BOOL_NOT279 279 | |||
142 | #define CHARACTER280 280 | |||
143 | #define VARIABLE281 281 | |||
144 | #define ASSIGN_MODIFY282 282 | |||
145 | #define ABOVE_COMMA283 283 | |||
146 | #define EQUAL284 284 | |||
147 | #define NOTEQUAL285 285 | |||
148 | #define LESSTHAN286 286 | |||
149 | #define GREATERTHAN287 287 | |||
150 | #define LEQ288 288 | |||
151 | #define GEQ289 289 | |||
152 | #define LSH290 290 | |||
153 | #define RSH291 291 | |||
154 | #define UNARY292 292 | |||
155 | #define YYERRCODE256 256 | |||
156 | const short yylhsf_yylhs[] = | |||
157 | { -1, | |||
158 | 0, 0, 2, 1, 1, 1, 1, 1, 1, 1, | |||
159 | 15, 1, 14, 14, 14, 14, 16, 17, 1, 1, | |||
160 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |||
161 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |||
162 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, | |||
163 | 4, 10, 10, 9, 9, 9, 9, 9, 8, 8, | |||
164 | 8, 7, 7, 5, 5, 5, 5, 5, 5, 5, | |||
165 | 5, 5, 5, 5, 5, 5, 13, 6, 6, 11, | |||
166 | 11, 11, 12, | |||
167 | }; | |||
168 | const short yylenf_yylen[] = | |||
169 | { 2, | |||
170 | 1, 1, 1, 3, 2, 2, 2, 2, 2, 2, | |||
171 | 0, 5, 0, 1, 1, 3, 3, 3, 3, 4, | |||
172 | 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, | |||
173 | 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, | |||
174 | 3, 1, 1, 1, 1, 1, 4, 1, 1, 1, | |||
175 | 1, 1, 2, 1, 2, 1, 2, 1, 3, 2, | |||
176 | 1, 2, 3, 1, 1, 1, 1, 1, 1, 1, | |||
177 | 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, | |||
178 | 1, 1, 1, | |||
179 | }; | |||
180 | const short yydefredf_yydefred[] = | |||
181 | { 0, | |||
182 | 42, 44, 49, 48, 83, 64, 43, 0, 65, 66, | |||
183 | 70, 69, 68, 71, 72, 73, 74, 75, 76, 0, | |||
184 | 67, 46, 0, 0, 0, 0, 0, 0, 0, 2, | |||
185 | 45, 3, 0, 51, 50, 0, 0, 0, 0, 0, | |||
186 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
187 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
188 | 0, 0, 0, 0, 0, 0, 11, 0, 0, 0, | |||
189 | 61, 0, 53, 0, 0, 4, 0, 19, 0, 0, | |||
190 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
191 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
192 | 57, 55, 62, 78, 0, 0, 0, 60, 0, 0, | |||
193 | 0, 0, 0, 15, 0, 63, 59, 0, 0, 12, | |||
194 | 79, 0, 0, | |||
195 | }; | |||
196 | const short yydgotof_yydgoto[] = | |||
197 | { 28, | |||
198 | 42, 30, 31, 104, 33, 105, 71, 72, 73, 34, | |||
199 | 0, 35, 0, 113, 100, 114, 44, | |||
200 | }; | |||
201 | const short yysindexf_yysindex[] = | |||
202 | { 1080, | |||
203 | 0, 0, 0, 0, 0, 0, 0, 1044, 0, 0, | |||
204 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 1105, | |||
205 | 0, 0, 1105, 1105, 1105, 1080, 1105, 0, 991, 0, | |||
206 | 0, 0, -29, 0, 0, 1080, -36, -36, -36, -36, | |||
207 | -36, 938, -22, -8, -36, 1105, 1105, 1105, 1105, 1105, | |||
208 | 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, | |||
209 | 1105, 1105, 1105, 1105, 1105, 1105, 0, -29, -29, 1123, | |||
210 | 0, -34, 0, -4, 1105, 0, 1105, 0, 898, 1006, | |||
211 | 991, 991, 951, 1029, 64, 681, 681, -35, -35, -35, | |||
212 | -35, -15, -15, 227, 145, 145, -36, -36, -36, 1105, | |||
213 | 0, 0, 0, 0, -41, 11, 1177, 0, 1159, 991, | |||
214 | -36, 966, -26, 0, -47, 0, 0, 1105, 1105, 0, | |||
215 | 0, 991, 991,}; | |||
216 | const short yyrindexf_yyrindex[] = | |||
217 | { 0, | |||
218 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
219 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
220 | 0, 0, 0, 0, 0, 0, 0, 0, 41, 0, | |||
221 | 0, 0, 35, 0, 0, 0, 1, 26, 55, 94, | |||
222 | 122, 0, 0, 0, 153, 0, 0, 0, 0, 0, | |||
223 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
224 | 0, 0, 0, 0, 0, 0, 0, 36, 133, 0, | |||
225 | 0, 134, 0, 0, 0, 0, 0, 0, 17, 47, | |||
226 | 16, 86, 535, 82, 199, 110, 562, 825, 871, 890, | |||
227 | 916, 617, 636, 590, 544, 571, 207, 414, 462, -21, | |||
228 | 0, 0, 0, 0, 0, 0, 0, 0, 487, 12, | |||
229 | 516, -20, 0, 0, 0, 0, 0, 0, 0, 0, | |||
230 | 0, -10, 10,}; | |||
231 | const short yygindexf_yygindex[] = | |||
232 | { 0, | |||
233 | 1454, 0, 0, 14, 0, 0, -16, 0, 77, 0, | |||
234 | 0, 0, 0, 0, 0, 0, 0, | |||
235 | }; | |||
236 | #define YYTABLESIZE1573 1573 | |||
237 | const short yytablef_yytable[] = | |||
238 | { 116, | |||
239 | 10, 66, 115, 67, 67, 107, 64, 62, 68, 63, | |||
240 | 70, 65, 69, 32, 120, 41, 38, 119, 77, 13, | |||
241 | 14, 66, 13, 14, 67, 8, 64, 62, 61, 63, | |||
242 | 17, 65, 78, 17, 52, 56, 109, 10, 10, 43, | |||
243 | 1, 10, 10, 10, 10, 10, 39, 10, 61, 74, | |||
244 | 16, 117, 18, 16, 6, 108, 41, 38, 10, 41, | |||
245 | 38, 10, 8, 8, 10, 0, 8, 8, 8, 8, | |||
246 | 8, 0, 8, 41, 38, 52, 56, 38, 52, 56, | |||
247 | 0, 36, 0, 8, 0, 40, 8, 39, 0, 8, | |||
248 | 39, 6, 6, 7, 10, 6, 6, 6, 6, 6, | |||
249 | 66, 6, 0, 67, 39, 64, 62, 39, 63, 29, | |||
250 | 65, 0, 6, 0, 0, 6, 0, 0, 6, 8, | |||
251 | 0, 5, 36, 0, 10, 36, 40, 61, 121, 40, | |||
252 | 7, 7, 54, 58, 7, 7, 7, 7, 7, 36, | |||
253 | 7, 0, 36, 40, 101, 102, 106, 29, 6, 8, | |||
254 | 29, 7, 9, 29, 7, 0, 0, 7, 5, 5, | |||
255 | 0, 0, 5, 5, 5, 5, 5, 29, 5, 0, | |||
256 | 29, 0, 0, 54, 58, 36, 54, 58, 6, 5, | |||
257 | 0, 66, 5, 0, 67, 5, 64, 7, 0, 9, | |||
258 | 9, 65, 0, 9, 9, 9, 9, 9, 35, 9, | |||
259 | 0, 0, 0, 29, 0, 36, 22, 0, 0, 0, | |||
260 | 9, 0, 0, 9, 6, 5, 9, 7, 9, 10, | |||
261 | 11, 12, 13, 14, 15, 16, 17, 18, 19, 0, | |||
262 | 0, 0, 21, 29, 0, 0, 35, 0, 0, 35, | |||
263 | 0, 0, 35, 22, 22, 5, 9, 22, 22, 22, | |||
264 | 22, 22, 0, 22, 59, 60, 35, 0, 0, 35, | |||
265 | 0, 0, 0, 66, 22, 0, 67, 22, 64, 62, | |||
266 | 22, 63, 0, 65, 0, 0, 9, 10, 10, 0, | |||
267 | 0, 0, 10, 0, 10, 10, 10, 10, 10, 10, | |||
268 | 10, 10, 35, 38, 38, 0, 0, 0, 38, 0, | |||
269 | 22, 0, 8, 8, 0, 0, 0, 8, 0, 8, | |||
270 | 8, 8, 8, 8, 8, 8, 8, 0, 0, 0, | |||
271 | 0, 0, 35, 0, 39, 0, 0, 0, 39, 0, | |||
272 | 22, 6, 6, 0, 0, 0, 6, 0, 6, 6, | |||
273 | 6, 6, 6, 6, 6, 6, 0, 53, 54, 55, | |||
274 | 56, 57, 58, 59, 60, 0, 0, 0, 36, 36, | |||
275 | 0, 0, 0, 36, 0, 0, 0, 0, 0, 0, | |||
276 | 7, 7, 0, 0, 0, 7, 0, 7, 7, 7, | |||
277 | 7, 7, 7, 7, 7, 0, 29, 29, 0, 0, | |||
278 | 0, 29, 0, 29, 29, 0, 0, 0, 5, 5, | |||
279 | 0, 0, 0, 5, 0, 5, 5, 5, 5, 5, | |||
280 | 5, 5, 5, 23, 0, 0, 0, 0, 0, 0, | |||
281 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, | |||
282 | 9, 0, 0, 0, 9, 0, 9, 9, 9, 9, | |||
283 | 9, 9, 9, 9, 0, 0, 0, 0, 0, 0, | |||
284 | 23, 23, 0, 0, 23, 23, 23, 23, 23, 0, | |||
285 | 23, 24, 0, 0, 0, 0, 0, 0, 0, 0, | |||
286 | 0, 23, 0, 0, 23, 35, 35, 23, 0, 0, | |||
287 | 35, 0, 0, 22, 22, 0, 47, 0, 22, 0, | |||
288 | 22, 22, 22, 22, 22, 22, 22, 22, 24, 24, | |||
289 | 0, 0, 24, 24, 24, 24, 24, 23, 24, 0, | |||
290 | 0, 0, 0, 0, 0, 20, 0, 0, 0, 24, | |||
291 | 0, 0, 24, 47, 47, 24, 0, 47, 47, 47, | |||
292 | 47, 47, 0, 47, 37, 0, 0, 23, 0, 0, | |||
293 | 0, 0, 0, 25, 47, 0, 0, 47, 0, 0, | |||
294 | 47, 0, 20, 20, 0, 24, 20, 20, 20, 20, | |||
295 | 20, 30, 20, 0, 0, 0, 0, 0, 0, 0, | |||
296 | 26, 0, 0, 20, 0, 37, 20, 0, 37, 20, | |||
297 | 47, 25, 0, 0, 25, 24, 25, 25, 25, 21, | |||
298 | 0, 0, 37, 0, 0, 37, 0, 0, 0, 30, | |||
299 | 0, 25, 30, 0, 25, 30, 0, 25, 26, 20, | |||
300 | 47, 26, 0, 26, 26, 26, 27, 0, 0, 30, | |||
301 | 0, 0, 30, 0, 0, 0, 0, 21, 26, 0, | |||
302 | 21, 26, 0, 21, 26, 28, 0, 25, 0, 20, | |||
303 | 0, 0, 0, 0, 0, 0, 0, 21, 0, 0, | |||
304 | 21, 0, 0, 21, 27, 30, 0, 27, 37, 0, | |||
305 | 27, 0, 0, 0, 26, 0, 0, 25, 0, 0, | |||
306 | 0, 0, 0, 28, 27, 0, 28, 27, 0, 28, | |||
307 | 0, 0, 0, 21, 0, 30, 0, 0, 0, 0, | |||
308 | 23, 23, 0, 28, 26, 23, 28, 23, 23, 23, | |||
309 | 23, 23, 23, 23, 23, 0, 0, 0, 0, 0, | |||
310 | 27, 0, 0, 21, 0, 0, 0, 66, 0, 0, | |||
311 | 67, 0, 64, 62, 0, 63, 0, 65, 0, 28, | |||
312 | 0, 0, 0, 0, 0, 0, 0, 0, 24, 24, | |||
313 | 27, 0, 0, 24, 61, 24, 24, 24, 24, 24, | |||
314 | 24, 24, 24, 0, 0, 0, 0, 0, 0, 28, | |||
315 | 0, 0, 0, 47, 47, 0, 0, 0, 47, 0, | |||
316 | 47, 47, 47, 47, 47, 47, 47, 47, 0, 0, | |||
317 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
318 | 0, 0, 20, 20, 0, 0, 0, 20, 0, 20, | |||
319 | 20, 20, 20, 20, 20, 20, 20, 0, 0, 0, | |||
320 | 0, 37, 37, 0, 0, 0, 37, 0, 0, 0, | |||
321 | 25, 25, 0, 0, 33, 25, 0, 25, 25, 25, | |||
322 | 25, 25, 25, 25, 25, 0, 0, 0, 30, 30, | |||
323 | 0, 0, 0, 30, 0, 30, 30, 26, 26, 0, | |||
324 | 0, 0, 26, 0, 26, 26, 26, 26, 26, 26, | |||
325 | 26, 26, 33, 0, 0, 33, 21, 21, 33, 0, | |||
326 | 34, 21, 0, 21, 21, 21, 21, 21, 21, 21, | |||
327 | 21, 0, 33, 0, 0, 33, 0, 0, 0, 31, | |||
328 | 0, 0, 0, 27, 27, 0, 0, 0, 27, 0, | |||
329 | 27, 27, 27, 27, 27, 27, 27, 27, 34, 0, | |||
330 | 0, 34, 28, 28, 34, 32, 0, 28, 33, 28, | |||
331 | 28, 28, 28, 28, 28, 28, 28, 31, 34, 0, | |||
332 | 31, 34, 0, 31, 66, 52, 0, 67, 0, 64, | |||
333 | 62, 0, 63, 0, 65, 0, 0, 31, 33, 0, | |||
334 | 31, 0, 0, 32, 0, 0, 32, 0, 0, 32, | |||
335 | 0, 61, 0, 0, 34, 0, 55, 56, 57, 58, | |||
336 | 59, 60, 0, 32, 66, 52, 32, 67, 76, 64, | |||
337 | 62, 75, 63, 31, 65, 0, 0, 66, 52, 0, | |||
338 | 67, 51, 64, 62, 34, 63, 0, 65, 49, 0, | |||
339 | 0, 61, 66, 52, 0, 67, 0, 64, 62, 32, | |||
340 | 63, 0, 65, 31, 61, 0, 0, 0, 0, 0, | |||
341 | 0, 50, 0, 118, 0, 0, 49, 66, 52, 61, | |||
342 | 67, 51, 64, 62, 0, 63, 0, 65, 0, 32, | |||
343 | 0, 0, 66, 52, 51, 67, 0, 64, 62, 0, | |||
344 | 63, 49, 65, 0, 61, 0, 0, 0, 0, 51, | |||
345 | 0, 50, 0, 0, 0, 66, 52, 0, 67, 61, | |||
346 | 64, 62, 0, 63, 0, 65, 0, 0, 0, 0, | |||
347 | 0, 23, 0, 36, 51, 25, 0, 0, 24, 50, | |||
348 | 0, 0, 61, 0, 0, 0, 0, 0, 0, 51, | |||
349 | 0, 33, 33, 0, 0, 0, 33, 0, 33, 33, | |||
350 | 33, 33, 33, 33, 50, 0, 0, 23, 0, 26, | |||
351 | 0, 25, 0, 0, 24, 0, 0, 0, 0, 50, | |||
352 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
353 | 0, 0, 23, 0, 26, 0, 25, 34, 34, 24, | |||
354 | 0, 0, 34, 0, 34, 34, 34, 34, 34, 34, | |||
355 | 68, 0, 70, 103, 69, 0, 31, 31, 0, 27, | |||
356 | 0, 31, 0, 31, 31, 31, 31, 31, 31, 0, | |||
357 | 0, 53, 54, 55, 56, 57, 58, 59, 60, 0, | |||
358 | 0, 0, 32, 32, 0, 0, 0, 32, 26, 32, | |||
359 | 32, 32, 32, 32, 32, 27, 0, 0, 0, 0, | |||
360 | 0, 0, 0, 0, 46, 47, 0, 103, 0, 48, | |||
361 | 0, 53, 54, 55, 56, 57, 58, 59, 60, 0, | |||
362 | 27, 0, 0, 0, 53, 54, 55, 56, 57, 58, | |||
363 | 59, 60, 46, 47, 0, 0, 0, 48, 0, 53, | |||
364 | 54, 55, 56, 57, 58, 59, 60, 0, 0, 0, | |||
365 | 0, 0, 0, 0, 0, 0, 0, 46, 47, 0, | |||
366 | 0, 0, 48, 0, 53, 54, 55, 56, 57, 58, | |||
367 | 59, 60, 46, 0, 27, 0, 0, 0, 0, 53, | |||
368 | 54, 55, 56, 57, 58, 59, 60, 0, 0, 0, | |||
369 | 1, 2, 3, 4, 5, 0, 7, 8, 0, 0, | |||
370 | 0, 0, 53, 54, 55, 56, 57, 58, 59, 60, | |||
371 | 0, 0, 20, 0, 22, 0, 0, 0, 0, 0, | |||
372 | 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, | |||
373 | 5, 6, 7, 8, 0, 9, 10, 11, 12, 13, | |||
374 | 14, 15, 16, 17, 18, 19, 0, 0, 20, 21, | |||
375 | 22, 1, 2, 3, 4, 5, 0, 7, 8, 0, | |||
376 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
377 | 0, 0, 0, 20, 6, 22, 0, 0, 9, 10, | |||
378 | 11, 12, 13, 14, 15, 16, 17, 18, 19, 0, | |||
379 | 0, 0, 21, 0, 0, 0, 0, 0, 0, 0, | |||
380 | 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, | |||
381 | 0, 7, 8, 0, 0, 0, 0, 0, 0, 0, | |||
382 | 0, 0, 0, 0, 0, 0, 0, 20, 6, 22, | |||
383 | 0, 0, 9, 10, 11, 12, 13, 14, 15, 16, | |||
384 | 17, 18, 19, 29, 0, 0, 21, 0, 0, 0, | |||
385 | 0, 37, 0, 0, 0, 0, 0, 0, 0, 0, | |||
386 | 0, 0, 0, 38, 0, 0, 39, 40, 41, 0, | |||
387 | 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
388 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 79, | |||
389 | 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, | |||
390 | 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, | |||
391 | 0, 0, 0, 0, 0, 0, 0, 0, 110, 0, | |||
392 | 111, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
393 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |||
394 | 0, 0, 0, 112, 0, 0, 0, 0, 0, 0, | |||
395 | 0, 0, 111, 0, 0, 0, 0, 0, 0, 0, | |||
396 | 0, 122, 123, | |||
397 | }; | |||
398 | const short yycheckf_yycheck[] = | |||
399 | { 41, | |||
400 | 0, 37, 44, 40, 40, 40, 42, 43, 38, 45, | |||
401 | 40, 47, 42, 0, 41, 0, 0, 44, 41, 41, | |||
402 | 41, 37, 44, 44, 40, 0, 42, 43, 64, 45, | |||
403 | 41, 47, 41, 44, 0, 0, 41, 37, 38, 26, | |||
404 | 0, 41, 42, 43, 44, 45, 0, 47, 64, 36, | |||
405 | 41, 41, 41, 44, 0, 72, 41, 41, 58, 44, | |||
406 | 44, 61, 37, 38, 64, -1, 41, 42, 43, 44, | |||
407 | 45, -1, 47, 58, 58, 41, 41, 61, 44, 44, | |||
408 | -1, 0, -1, 58, -1, 0, 61, 41, -1, 64, | |||
409 | 44, 37, 38, 0, 94, 41, 42, 43, 44, 45, | |||
410 | 37, 47, -1, 40, 58, 42, 43, 61, 45, 0, | |||
411 | 47, -1, 58, -1, -1, 61, -1, -1, 64, 94, | |||
412 | -1, 0, 41, -1, 124, 44, 41, 64, 115, 44, | |||
413 | 37, 38, 0, 0, 41, 42, 43, 44, 45, 58, | |||
414 | 47, -1, 61, 58, 68, 69, 70, 38, 94, 124, | |||
415 | 41, 58, 0, 44, 61, -1, -1, 64, 37, 38, | |||
416 | -1, -1, 41, 42, 43, 44, 45, 58, 47, -1, | |||
417 | 61, -1, -1, 41, 41, 94, 44, 44, 124, 58, | |||
418 | -1, 37, 61, -1, 40, 64, 42, 94, -1, 37, | |||
419 | 38, 47, -1, 41, 42, 43, 44, 45, 0, 47, | |||
420 | -1, -1, -1, 94, -1, 124, 0, -1, -1, -1, | |||
421 | 58, -1, -1, 61, 262, 94, 64, 124, 266, 267, | |||
422 | 268, 269, 270, 271, 272, 273, 274, 275, 276, -1, | |||
423 | -1, -1, 280, 124, -1, -1, 38, -1, -1, 41, | |||
424 | -1, -1, 44, 37, 38, 124, 94, 41, 42, 43, | |||
425 | 44, 45, -1, 47, 290, 291, 58, -1, -1, 61, | |||
426 | -1, -1, -1, 37, 58, -1, 40, 61, 42, 43, | |||
427 | 64, 45, -1, 47, -1, -1, 124, 277, 278, -1, | |||
428 | -1, -1, 282, -1, 284, 285, 286, 287, 288, 289, | |||
429 | 290, 291, 94, 277, 278, -1, -1, -1, 282, -1, | |||
430 | 94, -1, 277, 278, -1, -1, -1, 282, -1, 284, | |||
431 | 285, 286, 287, 288, 289, 290, 291, -1, -1, -1, | |||
432 | -1, -1, 124, -1, 278, -1, -1, -1, 282, -1, | |||
433 | 124, 277, 278, -1, -1, -1, 282, -1, 284, 285, | |||
434 | 286, 287, 288, 289, 290, 291, -1, 284, 285, 286, | |||
435 | 287, 288, 289, 290, 291, -1, -1, -1, 277, 278, | |||
436 | -1, -1, -1, 282, -1, -1, -1, -1, -1, -1, | |||
437 | 277, 278, -1, -1, -1, 282, -1, 284, 285, 286, | |||
438 | 287, 288, 289, 290, 291, -1, 277, 278, -1, -1, | |||
439 | -1, 282, -1, 284, 285, -1, -1, -1, 277, 278, | |||
440 | -1, -1, -1, 282, -1, 284, 285, 286, 287, 288, | |||
441 | 289, 290, 291, 0, -1, -1, -1, -1, -1, -1, | |||
442 | -1, -1, -1, -1, -1, -1, -1, -1, -1, 277, | |||
443 | 278, -1, -1, -1, 282, -1, 284, 285, 286, 287, | |||
444 | 288, 289, 290, 291, -1, -1, -1, -1, -1, -1, | |||
445 | 37, 38, -1, -1, 41, 42, 43, 44, 45, -1, | |||
446 | 47, 0, -1, -1, -1, -1, -1, -1, -1, -1, | |||
447 | -1, 58, -1, -1, 61, 277, 278, 64, -1, -1, | |||
448 | 282, -1, -1, 277, 278, -1, 0, -1, 282, -1, | |||
449 | 284, 285, 286, 287, 288, 289, 290, 291, 37, 38, | |||
450 | -1, -1, 41, 42, 43, 44, 45, 94, 47, -1, | |||
451 | -1, -1, -1, -1, -1, 0, -1, -1, -1, 58, | |||
452 | -1, -1, 61, 37, 38, 64, -1, 41, 42, 43, | |||
453 | 44, 45, -1, 47, 0, -1, -1, 124, -1, -1, | |||
454 | -1, -1, -1, 0, 58, -1, -1, 61, -1, -1, | |||
455 | 64, -1, 37, 38, -1, 94, 41, 42, 43, 44, | |||
456 | 45, 0, 47, -1, -1, -1, -1, -1, -1, -1, | |||
457 | 0, -1, -1, 58, -1, 41, 61, -1, 44, 64, | |||
458 | 94, 38, -1, -1, 41, 124, 43, 44, 45, 0, | |||
459 | -1, -1, 58, -1, -1, 61, -1, -1, -1, 38, | |||
460 | -1, 58, 41, -1, 61, 44, -1, 64, 38, 94, | |||
461 | 124, 41, -1, 43, 44, 45, 0, -1, -1, 58, | |||
462 | -1, -1, 61, -1, -1, -1, -1, 38, 58, -1, | |||
463 | 41, 61, -1, 44, 64, 0, -1, 94, -1, 124, | |||
464 | -1, -1, -1, -1, -1, -1, -1, 58, -1, -1, | |||
465 | 61, -1, -1, 64, 38, 94, -1, 41, 124, -1, | |||
466 | 44, -1, -1, -1, 94, -1, -1, 124, -1, -1, | |||
467 | -1, -1, -1, 38, 58, -1, 41, 61, -1, 44, | |||
468 | -1, -1, -1, 94, -1, 124, -1, -1, -1, -1, | |||
469 | 277, 278, -1, 58, 124, 282, 61, 284, 285, 286, | |||
470 | 287, 288, 289, 290, 291, -1, -1, -1, -1, -1, | |||
471 | 94, -1, -1, 124, -1, -1, -1, 37, -1, -1, | |||
472 | 40, -1, 42, 43, -1, 45, -1, 47, -1, 94, | |||
473 | -1, -1, -1, -1, -1, -1, -1, -1, 277, 278, | |||
474 | 124, -1, -1, 282, 64, 284, 285, 286, 287, 288, | |||
475 | 289, 290, 291, -1, -1, -1, -1, -1, -1, 124, | |||
476 | -1, -1, -1, 277, 278, -1, -1, -1, 282, -1, | |||
477 | 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, | |||
478 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, | |||
479 | -1, -1, 277, 278, -1, -1, -1, 282, -1, 284, | |||
480 | 285, 286, 287, 288, 289, 290, 291, -1, -1, -1, | |||
481 | -1, 277, 278, -1, -1, -1, 282, -1, -1, -1, | |||
482 | 277, 278, -1, -1, 0, 282, -1, 284, 285, 286, | |||
483 | 287, 288, 289, 290, 291, -1, -1, -1, 277, 278, | |||
484 | -1, -1, -1, 282, -1, 284, 285, 277, 278, -1, | |||
485 | -1, -1, 282, -1, 284, 285, 286, 287, 288, 289, | |||
486 | 290, 291, 38, -1, -1, 41, 277, 278, 44, -1, | |||
487 | 0, 282, -1, 284, 285, 286, 287, 288, 289, 290, | |||
488 | 291, -1, 58, -1, -1, 61, -1, -1, -1, 0, | |||
489 | -1, -1, -1, 277, 278, -1, -1, -1, 282, -1, | |||
490 | 284, 285, 286, 287, 288, 289, 290, 291, 38, -1, | |||
491 | -1, 41, 277, 278, 44, 0, -1, 282, 94, 284, | |||
492 | 285, 286, 287, 288, 289, 290, 291, 38, 58, -1, | |||
493 | 41, 61, -1, 44, 37, 38, -1, 40, -1, 42, | |||
494 | 43, -1, 45, -1, 47, -1, -1, 58, 124, -1, | |||
495 | 61, -1, -1, 38, -1, -1, 41, -1, -1, 44, | |||
496 | -1, 64, -1, -1, 94, -1, 286, 287, 288, 289, | |||
497 | 290, 291, -1, 58, 37, 38, 61, 40, 41, 42, | |||
498 | 43, 44, 45, 94, 47, -1, -1, 37, 38, -1, | |||
499 | 40, 94, 42, 43, 124, 45, -1, 47, 61, -1, | |||
500 | -1, 64, 37, 38, -1, 40, -1, 42, 43, 94, | |||
501 | 45, -1, 47, 124, 64, -1, -1, -1, -1, -1, | |||
502 | -1, 124, -1, 58, -1, -1, 61, 37, 38, 64, | |||
503 | 40, 94, 42, 43, -1, 45, -1, 47, -1, 124, | |||
504 | -1, -1, 37, 38, 94, 40, -1, 42, 43, -1, | |||
505 | 45, 61, 47, -1, 64, -1, -1, -1, -1, 94, | |||
506 | -1, 124, -1, -1, -1, 37, 38, -1, 40, 64, | |||
507 | 42, 43, -1, 45, -1, 47, -1, -1, -1, -1, | |||
508 | -1, 38, -1, 40, 94, 42, -1, -1, 45, 124, | |||
509 | -1, -1, 64, -1, -1, -1, -1, -1, -1, 94, | |||
510 | -1, 277, 278, -1, -1, -1, 282, -1, 284, 285, | |||
511 | 286, 287, 288, 289, 124, -1, -1, 38, -1, 40, | |||
512 | -1, 42, -1, -1, 45, -1, -1, -1, -1, 124, | |||
513 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, | |||
514 | -1, -1, 38, -1, 40, -1, 42, 277, 278, 45, | |||
515 | -1, -1, 282, -1, 284, 285, 286, 287, 288, 289, | |||
516 | 38, -1, 40, 41, 42, -1, 277, 278, -1, 126, | |||
517 | -1, 282, -1, 284, 285, 286, 287, 288, 289, -1, | |||
518 | -1, 284, 285, 286, 287, 288, 289, 290, 291, -1, | |||
519 | -1, -1, 277, 278, -1, -1, -1, 282, 40, 284, | |||
520 | 285, 286, 287, 288, 289, 126, -1, -1, -1, -1, | |||
521 | -1, -1, -1, -1, 277, 278, -1, 41, -1, 282, | |||
522 | -1, 284, 285, 286, 287, 288, 289, 290, 291, -1, | |||
523 | 126, -1, -1, -1, 284, 285, 286, 287, 288, 289, | |||
524 | 290, 291, 277, 278, -1, -1, -1, 282, -1, 284, | |||
525 | 285, 286, 287, 288, 289, 290, 291, -1, -1, -1, | |||
526 | -1, -1, -1, -1, -1, -1, -1, 277, 278, -1, | |||
527 | -1, -1, 282, -1, 284, 285, 286, 287, 288, 289, | |||
528 | 290, 291, 277, -1, 126, -1, -1, -1, -1, 284, | |||
529 | 285, 286, 287, 288, 289, 290, 291, -1, -1, -1, | |||
530 | 257, 258, 259, 260, 261, -1, 263, 264, -1, -1, | |||
531 | -1, -1, 284, 285, 286, 287, 288, 289, 290, 291, | |||
532 | -1, -1, 279, -1, 281, -1, -1, -1, -1, -1, | |||
533 | -1, -1, -1, -1, -1, -1, 257, 258, 259, 260, | |||
534 | 261, 262, 263, 264, -1, 266, 267, 268, 269, 270, | |||
535 | 271, 272, 273, 274, 275, 276, -1, -1, 279, 280, | |||
536 | 281, 257, 258, 259, 260, 261, -1, 263, 264, -1, | |||
537 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, | |||
538 | -1, -1, -1, 279, 262, 281, -1, -1, 266, 267, | |||
539 | 268, 269, 270, 271, 272, 273, 274, 275, 276, -1, | |||
540 | -1, -1, 280, -1, -1, -1, -1, -1, -1, -1, | |||
541 | -1, -1, -1, -1, -1, 257, 258, 259, 260, 261, | |||
542 | -1, 263, 264, -1, -1, -1, -1, -1, -1, -1, | |||
543 | -1, -1, -1, -1, -1, -1, -1, 279, 262, 281, | |||
544 | -1, -1, 266, 267, 268, 269, 270, 271, 272, 273, | |||
545 | 274, 275, 276, 0, -1, -1, 280, -1, -1, -1, | |||
546 | -1, 8, -1, -1, -1, -1, -1, -1, -1, -1, | |||
547 | -1, -1, -1, 20, -1, -1, 23, 24, 25, -1, | |||
548 | 27, -1, -1, -1, -1, -1, -1, -1, -1, -1, | |||
549 | -1, -1, -1, -1, -1, -1, -1, -1, -1, 46, | |||
550 | 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, | |||
551 | 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, | |||
552 | -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, | |||
553 | 77, -1, -1, -1, -1, -1, -1, -1, -1, -1, | |||
554 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, | |||
555 | -1, -1, -1, 100, -1, -1, -1, -1, -1, -1, | |||
556 | -1, -1, 109, -1, -1, -1, -1, -1, -1, -1, | |||
557 | -1, 118, 119, | |||
558 | }; | |||
559 | #define YYFINAL28 28 | |||
560 | #ifndef YYDEBUG1 | |||
561 | #define YYDEBUG1 0 | |||
562 | #endif | |||
563 | #define YYMAXTOKEN292 292 | |||
564 | #if YYDEBUG1 | |||
565 | const char * const yynamef_name[] = | |||
566 | { | |||
567 | "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |||
568 | 0,0,0,"'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,"'/'",0,0,0,0,0,0,0,0, | |||
569 | 0,0,"':'",0,0,"'='",0,"'?'","'@'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |||
570 | 0,0,0,0,0,0,"'^'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |||
571 | "'|'",0,"'~'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |||
572 | 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |||
573 | 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, | |||
574 | 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"INT","FLOAT","STRING_LITERAL", | |||
575 | "BOOLEAN_LITERAL","NAME","TYPENAME","NAME_OR_INT","SIZEOF","ERROR", | |||
576 | "INT_KEYWORD","INT_S2_KEYWORD","LOGICAL_S1_KEYWORD","LOGICAL_S2_KEYWORD", | |||
577 | "LOGICAL_KEYWORD","REAL_KEYWORD","REAL_S8_KEYWORD","REAL_S16_KEYWORD", | |||
578 | "COMPLEX_S8_KEYWORD","COMPLEX_S16_KEYWORD","COMPLEX_S32_KEYWORD","BOOL_AND", | |||
579 | "BOOL_OR","BOOL_NOT","CHARACTER","VARIABLE","ASSIGN_MODIFY","ABOVE_COMMA", | |||
580 | "EQUAL","NOTEQUAL","LESSTHAN","GREATERTHAN","LEQ","GEQ","LSH","RSH","UNARY", | |||
581 | }; | |||
582 | const char * const yyrulef_rule[] = | |||
583 | {"$accept : start", | |||
584 | "start : exp", | |||
585 | "start : type_exp", | |||
586 | "type_exp : type", | |||
587 | "exp : '(' exp ')'", | |||
588 | "exp : '*' exp", | |||
589 | "exp : '&' exp", | |||
590 | "exp : '-' exp", | |||
591 | "exp : BOOL_NOT exp", | |||
592 | "exp : '~' exp", | |||
593 | "exp : SIZEOF exp", | |||
594 | "$$1 :", | |||
595 | "exp : exp '(' $$1 arglist ')'", | |||
596 | "arglist :", | |||
597 | "arglist : exp", | |||
598 | "arglist : substring", | |||
599 | "arglist : arglist ',' exp", | |||
600 | "substring : exp ':' exp", | |||
601 | "complexnum : exp ',' exp", | |||
602 | "exp : '(' complexnum ')'", | |||
603 | "exp : '(' type ')' exp", | |||
604 | "exp : exp '@' exp", | |||
605 | "exp : exp '*' exp", | |||
606 | "exp : exp '/' exp", | |||
607 | "exp : exp '%' exp", | |||
608 | "exp : exp '+' exp", | |||
609 | "exp : exp '-' exp", | |||
610 | "exp : exp LSH exp", | |||
611 | "exp : exp RSH exp", | |||
612 | "exp : exp EQUAL exp", | |||
613 | "exp : exp NOTEQUAL exp", | |||
614 | "exp : exp LEQ exp", | |||
615 | "exp : exp GEQ exp", | |||
616 | "exp : exp LESSTHAN exp", | |||
617 | "exp : exp GREATERTHAN exp", | |||
618 | "exp : exp '&' exp", | |||
619 | "exp : exp '^' exp", | |||
620 | "exp : exp '|' exp", | |||
621 | "exp : exp BOOL_AND exp", | |||
622 | "exp : exp BOOL_OR exp", | |||
623 | "exp : exp '=' exp", | |||
624 | "exp : exp ASSIGN_MODIFY exp", | |||
625 | "exp : INT", | |||
626 | "exp : NAME_OR_INT", | |||
627 | "exp : FLOAT", | |||
628 | "exp : variable", | |||
629 | "exp : VARIABLE", | |||
630 | "exp : SIZEOF '(' type ')'", | |||
631 | "exp : BOOLEAN_LITERAL", | |||
632 | "exp : STRING_LITERAL", | |||
633 | "variable : name_not_typename", | |||
634 | "type : ptype", | |||
635 | "ptype : typebase", | |||
636 | "ptype : typebase abs_decl", | |||
637 | "abs_decl : '*'", | |||
638 | "abs_decl : '*' abs_decl", | |||
639 | "abs_decl : '&'", | |||
640 | "abs_decl : '&' abs_decl", | |||
641 | "abs_decl : direct_abs_decl", | |||
642 | "direct_abs_decl : '(' abs_decl ')'", | |||
643 | "direct_abs_decl : direct_abs_decl func_mod", | |||
644 | "direct_abs_decl : func_mod", | |||
645 | "func_mod : '(' ')'", | |||
646 | "func_mod : '(' nonempty_typelist ')'", | |||
647 | "typebase : TYPENAME", | |||
648 | "typebase : INT_KEYWORD", | |||
649 | "typebase : INT_S2_KEYWORD", | |||
650 | "typebase : CHARACTER", | |||
651 | "typebase : LOGICAL_KEYWORD", | |||
652 | "typebase : LOGICAL_S2_KEYWORD", | |||
653 | "typebase : LOGICAL_S1_KEYWORD", | |||
654 | "typebase : REAL_KEYWORD", | |||
655 | "typebase : REAL_S8_KEYWORD", | |||
656 | "typebase : REAL_S16_KEYWORD", | |||
657 | "typebase : COMPLEX_S8_KEYWORD", | |||
658 | "typebase : COMPLEX_S16_KEYWORD", | |||
659 | "typebase : COMPLEX_S32_KEYWORD", | |||
660 | "typename : TYPENAME", | |||
661 | "nonempty_typelist : type", | |||
662 | "nonempty_typelist : nonempty_typelist ',' type", | |||
663 | "name : NAME", | |||
664 | "name : TYPENAME", | |||
665 | "name : NAME_OR_INT", | |||
666 | "name_not_typename : NAME", | |||
667 | }; | |||
668 | #endif | |||
669 | #ifdef YYSTACKSIZE10000 | |||
670 | #undef YYMAXDEPTH10000 | |||
671 | #define YYMAXDEPTH10000 YYSTACKSIZE10000 | |||
672 | #else | |||
673 | #ifdef YYMAXDEPTH10000 | |||
674 | #define YYSTACKSIZE10000 YYMAXDEPTH10000 | |||
675 | #else | |||
676 | #define YYSTACKSIZE10000 10000 | |||
677 | #define YYMAXDEPTH10000 10000 | |||
678 | #endif | |||
679 | #endif | |||
680 | #define YYINITSTACKSIZE200 200 | |||
681 | /* LINTUSED */ | |||
682 | int yydebugf_debug; | |||
683 | int yynerrsf_nerrs; | |||
684 | int yyerrflagf_errflag; | |||
685 | int yycharf_char; | |||
686 | short *yyssp; | |||
687 | YYSTYPE *yyvsp; | |||
688 | YYSTYPE yyvalf_val; | |||
689 | YYSTYPE yylvalf_lval; | |||
690 | short *yyss; | |||
691 | short *yysslim; | |||
692 | YYSTYPE *yyvs; | |||
693 | unsigned int yystacksize; | |||
694 | int yyparsef_parse(void); | |||
695 | #line 635 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
696 | ||||
697 | /* Take care of parsing a number (anything that starts with a digit). | |||
698 | Set yylval and return the token type; update lexptr. | |||
699 | LEN is the number of characters in it. */ | |||
700 | ||||
701 | /*** Needs some error checking for the float case ***/ | |||
702 | ||||
703 | static int | |||
704 | parse_number (p, len, parsed_float, putithere) | |||
705 | char *p; | |||
706 | int len; | |||
707 | int parsed_float; | |||
708 | YYSTYPE *putithere; | |||
709 | { | |||
710 | LONGESTlong n = 0; | |||
711 | LONGESTlong prevn = 0; | |||
712 | int c; | |||
713 | int base = input_radix; | |||
714 | int unsigned_p = 0; | |||
715 | int long_p = 0; | |||
716 | ULONGESTunsigned long high_bit; | |||
717 | struct type *signed_type; | |||
718 | struct type *unsigned_type; | |||
719 | ||||
720 | if (parsed_float
| |||
721 | { | |||
722 | /* It's a float since it contains a point or an exponent. */ | |||
723 | /* [dD] is not understood as an exponent by atof, change it to 'e'. */ | |||
724 | char *tmp, *tmp2; | |||
725 | ||||
726 | tmp = xstrdup (p); | |||
727 | for (tmp2 = tmp; *tmp2; ++tmp2) | |||
728 | if (*tmp2 == 'd' || *tmp2 == 'D') | |||
729 | *tmp2 = 'e'; | |||
730 | putithere->dval = atof (tmp); | |||
731 | free (tmp); | |||
732 | return FLOAT258; | |||
733 | } | |||
734 | ||||
735 | /* Handle base-switching prefixes 0x, 0t, 0d, 0 */ | |||
736 | if (p[0] == '0') | |||
| ||||
737 | switch (p[1]) | |||
738 | { | |||
739 | case 'x': | |||
740 | case 'X': | |||
741 | if (len >= 3) | |||
742 | { | |||
743 | p += 2; | |||
744 | base = 16; | |||
745 | len -= 2; | |||
746 | } | |||
747 | break; | |||
748 | ||||
749 | case 't': | |||
750 | case 'T': | |||
751 | case 'd': | |||
752 | case 'D': | |||
753 | if (len >= 3) | |||
754 | { | |||
755 | p += 2; | |||
756 | base = 10; | |||
757 | len -= 2; | |||
758 | } | |||
759 | break; | |||
760 | ||||
761 | default: | |||
762 | base = 8; | |||
763 | break; | |||
764 | } | |||
765 | ||||
766 | while (len-- > 0) | |||
767 | { | |||
768 | c = *p++; | |||
769 | if (isupper (c)) | |||
770 | c = tolower (c); | |||
771 | if (len == 0 && c == 'l') | |||
772 | long_p = 1; | |||
773 | else if (len == 0 && c == 'u') | |||
774 | unsigned_p = 1; | |||
775 | else | |||
776 | { | |||
777 | int i; | |||
778 | if (c >= '0' && c <= '9') | |||
779 | i = c - '0'; | |||
780 | else if (c >= 'a' && c <= 'f') | |||
781 | i = c - 'a' + 10; | |||
782 | else | |||
783 | return ERROR265; /* Char not a digit */ | |||
784 | if (i >= base) | |||
785 | return ERROR265; /* Invalid digit in this base */ | |||
786 | n *= base; | |||
787 | n += i; | |||
788 | } | |||
789 | /* Portably test for overflow (only works for nonzero values, so make | |||
790 | a second check for zero). */ | |||
791 | if ((prevn >= n) && n != 0) | |||
792 | unsigned_p=1; /* Try something unsigned */ | |||
793 | /* If range checking enabled, portably test for unsigned overflow. */ | |||
794 | if (RANGE_CHECK(range_check != range_check_off) && n != 0) | |||
795 | { | |||
796 | if ((unsigned_p && (unsigned)prevn >= (unsigned)n)) | |||
797 | range_error("Overflow on numeric constant."); | |||
798 | } | |||
799 | prevn = n; | |||
800 | } | |||
801 | ||||
802 | /* If the number is too big to be an int, or it's got an l suffix | |||
803 | then it's a long. Work out if this has to be a long by | |||
804 | shifting right and and seeing if anything remains, and the | |||
805 | target int size is different to the target long size. | |||
806 | ||||
807 | In the expression below, we could have tested | |||
808 | (n >> TARGET_INT_BIT) | |||
809 | to see if it was zero, | |||
810 | but too many compilers warn about that, when ints and longs | |||
811 | are the same size. So we shift it twice, with fewer bits | |||
812 | each time, for the same result. */ | |||
813 | ||||
814 | if ((TARGET_INT_BIT(gdbarch_int_bit (current_gdbarch)) != TARGET_LONG_BIT(gdbarch_long_bit (current_gdbarch)) | |||
815 | && ((n >> 2) >> (TARGET_INT_BIT(gdbarch_int_bit (current_gdbarch))-2))) /* Avoid shift warning */ | |||
816 | || long_p) | |||
817 | { | |||
818 | high_bit = ((ULONGESTunsigned long)1) << (TARGET_LONG_BIT(gdbarch_long_bit (current_gdbarch))-1); | |||
819 | unsigned_type = builtin_type_unsigned_long; | |||
820 | signed_type = builtin_type_long; | |||
821 | } | |||
822 | else | |||
823 | { | |||
824 | high_bit = ((ULONGESTunsigned long)1) << (TARGET_INT_BIT(gdbarch_int_bit (current_gdbarch))-1); | |||
825 | unsigned_type = builtin_type_unsigned_int; | |||
826 | signed_type = builtin_type_int; | |||
827 | } | |||
828 | ||||
829 | putithere->typed_val.val = n; | |||
830 | ||||
831 | /* If the high bit of the worked out type is set then this number | |||
832 | has to be unsigned. */ | |||
833 | ||||
834 | if (unsigned_p || (n & high_bit)) | |||
835 | putithere->typed_val.type = unsigned_type; | |||
836 | else | |||
837 | putithere->typed_val.type = signed_type; | |||
838 | ||||
839 | return INT257; | |||
840 | } | |||
841 | ||||
842 | struct token | |||
843 | { | |||
844 | char *operator; | |||
845 | int token; | |||
846 | enum exp_opcode opcode; | |||
847 | }; | |||
848 | ||||
849 | static const struct token dot_ops[] = | |||
850 | { | |||
851 | { ".and.", BOOL_AND277, BINOP_END }, | |||
852 | { ".AND.", BOOL_AND277, BINOP_END }, | |||
853 | { ".or.", BOOL_OR278, BINOP_END }, | |||
854 | { ".OR.", BOOL_OR278, BINOP_END }, | |||
855 | { ".not.", BOOL_NOT279, BINOP_END }, | |||
856 | { ".NOT.", BOOL_NOT279, BINOP_END }, | |||
857 | { ".eq.", EQUAL284, BINOP_END }, | |||
858 | { ".EQ.", EQUAL284, BINOP_END }, | |||
859 | { ".eqv.", EQUAL284, BINOP_END }, | |||
860 | { ".NEQV.", NOTEQUAL285, BINOP_END }, | |||
861 | { ".neqv.", NOTEQUAL285, BINOP_END }, | |||
862 | { ".EQV.", EQUAL284, BINOP_END }, | |||
863 | { ".ne.", NOTEQUAL285, BINOP_END }, | |||
864 | { ".NE.", NOTEQUAL285, BINOP_END }, | |||
865 | { ".le.", LEQ288, BINOP_END }, | |||
866 | { ".LE.", LEQ288, BINOP_END }, | |||
867 | { ".ge.", GEQ289, BINOP_END }, | |||
868 | { ".GE.", GEQ289, BINOP_END }, | |||
869 | { ".gt.", GREATERTHAN287, BINOP_END }, | |||
870 | { ".GT.", GREATERTHAN287, BINOP_END }, | |||
871 | { ".lt.", LESSTHAN286, BINOP_END }, | |||
872 | { ".LT.", LESSTHAN286, BINOP_END }, | |||
873 | { NULL((void*)0), 0, 0 } | |||
874 | }; | |||
875 | ||||
876 | struct f77_boolean_val | |||
877 | { | |||
878 | char *name; | |||
879 | int value; | |||
880 | }; | |||
881 | ||||
882 | static const struct f77_boolean_val boolean_values[] = | |||
883 | { | |||
884 | { ".true.", 1 }, | |||
885 | { ".TRUE.", 1 }, | |||
886 | { ".false.", 0 }, | |||
887 | { ".FALSE.", 0 }, | |||
888 | { NULL((void*)0), 0 } | |||
889 | }; | |||
890 | ||||
891 | static const struct token f77_keywords[] = | |||
892 | { | |||
893 | { "complex_16", COMPLEX_S16_KEYWORD275, BINOP_END }, | |||
894 | { "complex_32", COMPLEX_S32_KEYWORD276, BINOP_END }, | |||
895 | { "character", CHARACTER280, BINOP_END }, | |||
896 | { "integer_2", INT_S2_KEYWORD267, BINOP_END }, | |||
897 | { "logical_1", LOGICAL_S1_KEYWORD268, BINOP_END }, | |||
898 | { "logical_2", LOGICAL_S2_KEYWORD269, BINOP_END }, | |||
899 | { "complex_8", COMPLEX_S8_KEYWORD274, BINOP_END }, | |||
900 | { "integer", INT_KEYWORD266, BINOP_END }, | |||
901 | { "logical", LOGICAL_KEYWORD270, BINOP_END }, | |||
902 | { "real_16", REAL_S16_KEYWORD273, BINOP_END }, | |||
903 | { "complex", COMPLEX_S8_KEYWORD274, BINOP_END }, | |||
904 | { "sizeof", SIZEOF264, BINOP_END }, | |||
905 | { "real_8", REAL_S8_KEYWORD272, BINOP_END }, | |||
906 | { "real", REAL_KEYWORD271, BINOP_END }, | |||
907 | { NULL((void*)0), 0, 0 } | |||
908 | }; | |||
909 | ||||
910 | /* Implementation of a dynamically expandable buffer for processing input | |||
911 | characters acquired through lexptr and building a value to return in | |||
912 | yylval. Ripped off from ch-exp.y */ | |||
913 | ||||
914 | static char *tempbuf; /* Current buffer contents */ | |||
915 | static int tempbufsize; /* Size of allocated buffer */ | |||
916 | static int tempbufindex; /* Current index into buffer */ | |||
917 | ||||
918 | #define GROWBY_MIN_SIZE64 64 /* Minimum amount to grow buffer by */ | |||
919 | ||||
920 | #define CHECKBUF(size)do { if (tempbufindex + (size) >= tempbufsize) { growbuf_by_size (size); } } while (0); \ | |||
921 | do { \ | |||
922 | if (tempbufindex + (size) >= tempbufsize) \ | |||
923 | { \ | |||
924 | growbuf_by_size (size); \ | |||
925 | } \ | |||
926 | } while (0); | |||
927 | ||||
928 | ||||
929 | /* Grow the static temp buffer if necessary, including allocating the first one | |||
930 | on demand. */ | |||
931 | ||||
932 | static void | |||
933 | growbuf_by_size (count) | |||
934 | int count; | |||
935 | { | |||
936 | int growby; | |||
937 | ||||
938 | growby = max (count, GROWBY_MIN_SIZE)((count) > (64) ? (count) : (64)); | |||
939 | tempbufsize += growby; | |||
940 | if (tempbuf == NULL((void*)0)) | |||
941 | tempbuf = (char *) xmalloc (tempbufsize); | |||
942 | else | |||
943 | tempbuf = (char *) xrealloc (tempbuf, tempbufsize); | |||
944 | } | |||
945 | ||||
946 | /* Blatantly ripped off from ch-exp.y. This routine recognizes F77 | |||
947 | string-literals. | |||
948 | ||||
949 | Recognize a string literal. A string literal is a nonzero sequence | |||
950 | of characters enclosed in matching single quotes, except that | |||
951 | a single character inside single quotes is a character literal, which | |||
952 | we reject as a string literal. To embed the terminator character inside | |||
953 | a string, it is simply doubled (I.E. 'this''is''one''string') */ | |||
954 | ||||
955 | static int | |||
956 | match_string_literal () | |||
957 | { | |||
958 | char *tokptr = lexptr; | |||
959 | ||||
960 | for (tempbufindex = 0, tokptr++; *tokptr != '\0'; tokptr++) | |||
961 | { | |||
962 | CHECKBUF (1)do { if (tempbufindex + (1) >= tempbufsize) { growbuf_by_size (1); } } while (0);; | |||
963 | if (*tokptr == *lexptr) | |||
964 | { | |||
965 | if (*(tokptr + 1) == *lexptr) | |||
966 | tokptr++; | |||
967 | else | |||
968 | break; | |||
969 | } | |||
970 | tempbuf[tempbufindex++] = *tokptr; | |||
971 | } | |||
972 | if (*tokptr == '\0' /* no terminator */ | |||
973 | || tempbufindex == 0) /* no string */ | |||
974 | return 0; | |||
975 | else | |||
976 | { | |||
977 | tempbuf[tempbufindex] = '\0'; | |||
978 | yylvalf_lval.sval.ptr = tempbuf; | |||
979 | yylvalf_lval.sval.length = tempbufindex; | |||
980 | lexptr = ++tokptr; | |||
981 | return STRING_LITERAL259; | |||
982 | } | |||
983 | } | |||
984 | ||||
985 | /* Read one token, getting characters through lexptr. */ | |||
986 | ||||
987 | static int | |||
988 | yylexf_lex () | |||
989 | { | |||
990 | int c; | |||
991 | int namelen; | |||
992 | unsigned int i,token; | |||
993 | char *tokstart; | |||
994 | ||||
995 | retry: | |||
996 | ||||
997 | prev_lexptr = lexptr; | |||
998 | ||||
999 | tokstart = lexptr; | |||
1000 | ||||
1001 | /* First of all, let us make sure we are not dealing with the | |||
1002 | special tokens .true. and .false. which evaluate to 1 and 0. */ | |||
1003 | ||||
1004 | if (*lexptr == '.') | |||
1005 | { | |||
1006 | for (i = 0; boolean_values[i].name != NULL((void*)0); i++) | |||
1007 | { | |||
1008 | if (strncmp (tokstart, boolean_values[i].name, | |||
1009 | strlen (boolean_values[i].name)) == 0) | |||
1010 | { | |||
1011 | lexptr += strlen (boolean_values[i].name); | |||
1012 | yylvalf_lval.lval = boolean_values[i].value; | |||
1013 | return BOOLEAN_LITERAL260; | |||
1014 | } | |||
1015 | } | |||
1016 | } | |||
1017 | ||||
1018 | /* See if it is a special .foo. operator */ | |||
1019 | ||||
1020 | for (i = 0; dot_ops[i].operator != NULL((void*)0); i++) | |||
1021 | if (strncmp (tokstart, dot_ops[i].operator, strlen (dot_ops[i].operator)) == 0) | |||
1022 | { | |||
1023 | lexptr += strlen (dot_ops[i].operator); | |||
1024 | yylvalf_lval.opcode = dot_ops[i].opcode; | |||
1025 | return dot_ops[i].token; | |||
1026 | } | |||
1027 | ||||
1028 | switch (c = *tokstart) | |||
1029 | { | |||
1030 | case 0: | |||
1031 | return 0; | |||
1032 | ||||
1033 | case ' ': | |||
1034 | case '\t': | |||
1035 | case '\n': | |||
1036 | lexptr++; | |||
1037 | goto retry; | |||
1038 | ||||
1039 | case '\'': | |||
1040 | token = match_string_literal (); | |||
1041 | if (token != 0) | |||
1042 | return (token); | |||
1043 | break; | |||
1044 | ||||
1045 | case '(': | |||
1046 | paren_depth++; | |||
1047 | lexptr++; | |||
1048 | return c; | |||
1049 | ||||
1050 | case ')': | |||
1051 | if (paren_depth == 0) | |||
1052 | return 0; | |||
1053 | paren_depth--; | |||
1054 | lexptr++; | |||
1055 | return c; | |||
1056 | ||||
1057 | case ',': | |||
1058 | if (comma_terminates && paren_depth == 0) | |||
1059 | return 0; | |||
1060 | lexptr++; | |||
1061 | return c; | |||
1062 | ||||
1063 | case '.': | |||
1064 | /* Might be a floating point number. */ | |||
1065 | if (lexptr[1] < '0' || lexptr[1] > '9') | |||
1066 | goto symbol; /* Nope, must be a symbol. */ | |||
1067 | /* FALL THRU into number case. */ | |||
1068 | ||||
1069 | case '0': | |||
1070 | case '1': | |||
1071 | case '2': | |||
1072 | case '3': | |||
1073 | case '4': | |||
1074 | case '5': | |||
1075 | case '6': | |||
1076 | case '7': | |||
1077 | case '8': | |||
1078 | case '9': | |||
1079 | { | |||
1080 | /* It's a number. */ | |||
1081 | int got_dot = 0, got_e = 0, got_d = 0, toktype; | |||
1082 | char *p = tokstart; | |||
1083 | int hex = input_radix > 10; | |||
1084 | ||||
1085 | if (c == '0' && (p[1] == 'x' || p[1] == 'X')) | |||
1086 | { | |||
1087 | p += 2; | |||
1088 | hex = 1; | |||
1089 | } | |||
1090 | else if (c == '0' && (p[1]=='t' || p[1]=='T' || p[1]=='d' || p[1]=='D')) | |||
1091 | { | |||
1092 | p += 2; | |||
1093 | hex = 0; | |||
1094 | } | |||
1095 | ||||
1096 | for (;; ++p) | |||
1097 | { | |||
1098 | if (!hex && !got_e && (*p == 'e' || *p == 'E')) | |||
1099 | got_dot = got_e = 1; | |||
1100 | else if (!hex && !got_d && (*p == 'd' || *p == 'D')) | |||
1101 | got_dot = got_d = 1; | |||
1102 | else if (!hex && !got_dot && *p == '.') | |||
1103 | got_dot = 1; | |||
1104 | else if (((got_e && (p[-1] == 'e' || p[-1] == 'E')) | |||
1105 | || (got_d && (p[-1] == 'd' || p[-1] == 'D'))) | |||
1106 | && (*p == '-' || *p == '+')) | |||
1107 | /* This is the sign of the exponent, not the end of the | |||
1108 | number. */ | |||
1109 | continue; | |||
1110 | /* We will take any letters or digits. parse_number will | |||
1111 | complain if past the radix, or if L or U are not final. */ | |||
1112 | else if ((*p < '0' || *p > '9') | |||
1113 | && ((*p < 'a' || *p > 'z') | |||
1114 | && (*p < 'A' || *p > 'Z'))) | |||
1115 | break; | |||
1116 | } | |||
1117 | toktype = parse_number (tokstart, p - tokstart, got_dot|got_e|got_d, | |||
1118 | &yylvalf_lval); | |||
1119 | if (toktype == ERROR265) | |||
1120 | { | |||
1121 | char *err_copy = (char *) alloca (p - tokstart + 1)__builtin_alloca(p - tokstart + 1); | |||
1122 | ||||
1123 | memcpy (err_copy, tokstart, p - tokstart); | |||
1124 | err_copy[p - tokstart] = 0; | |||
1125 | error ("Invalid number \"%s\".", err_copy); | |||
1126 | } | |||
1127 | lexptr = p; | |||
1128 | return toktype; | |||
1129 | } | |||
1130 | ||||
1131 | case '+': | |||
1132 | case '-': | |||
1133 | case '*': | |||
1134 | case '/': | |||
1135 | case '%': | |||
1136 | case '|': | |||
1137 | case '&': | |||
1138 | case '^': | |||
1139 | case '~': | |||
1140 | case '!': | |||
1141 | case '@': | |||
1142 | case '<': | |||
1143 | case '>': | |||
1144 | case '[': | |||
1145 | case ']': | |||
1146 | case '?': | |||
1147 | case ':': | |||
1148 | case '=': | |||
1149 | case '{': | |||
1150 | case '}': | |||
1151 | symbol: | |||
1152 | lexptr++; | |||
1153 | return c; | |||
1154 | } | |||
1155 | ||||
1156 | if (!(c == '_' || c == '$' | |||
1157 | || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))) | |||
1158 | /* We must have come across a bad character (e.g. ';'). */ | |||
1159 | error ("Invalid character '%c' in expression.", c); | |||
1160 | ||||
1161 | namelen = 0; | |||
1162 | for (c = tokstart[namelen]; | |||
1163 | (c == '_' || c == '$' || (c >= '0' && c <= '9') | |||
1164 | || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')); | |||
1165 | c = tokstart[++namelen]); | |||
1166 | ||||
1167 | /* The token "if" terminates the expression and is NOT | |||
1168 | removed from the input stream. */ | |||
1169 | ||||
1170 | if (namelen == 2 && tokstart[0] == 'i' && tokstart[1] == 'f') | |||
1171 | return 0; | |||
1172 | ||||
1173 | lexptr += namelen; | |||
1174 | ||||
1175 | /* Catch specific keywords. */ | |||
1176 | ||||
1177 | for (i = 0; f77_keywords[i].operator != NULL((void*)0); i++) | |||
1178 | if (strncmp (tokstart, f77_keywords[i].operator, | |||
1179 | strlen(f77_keywords[i].operator)) == 0) | |||
1180 | { | |||
1181 | /* lexptr += strlen(f77_keywords[i].operator); */ | |||
1182 | yylvalf_lval.opcode = f77_keywords[i].opcode; | |||
1183 | return f77_keywords[i].token; | |||
1184 | } | |||
1185 | ||||
1186 | yylvalf_lval.sval.ptr = tokstart; | |||
1187 | yylvalf_lval.sval.length = namelen; | |||
1188 | ||||
1189 | if (*tokstart == '$') | |||
1190 | { | |||
1191 | write_dollar_variable (yylvalf_lval.sval); | |||
1192 | return VARIABLE281; | |||
1193 | } | |||
1194 | ||||
1195 | /* Use token-type TYPENAME for symbols that happen to be defined | |||
1196 | currently as names of types; NAME for other symbols. | |||
1197 | The caller is not constrained to care about the distinction. */ | |||
1198 | { | |||
1199 | char *tmp = copy_name (yylvalf_lval.sval); | |||
1200 | struct symbol *sym; | |||
1201 | int is_a_field_of_this = 0; | |||
1202 | int hextype; | |||
1203 | ||||
1204 | sym = lookup_symbol (tmp, expression_context_block, | |||
1205 | VAR_DOMAIN, | |||
1206 | current_language->la_language == language_cplus | |||
1207 | ? &is_a_field_of_this : NULL((void*)0), | |||
1208 | NULL((void*)0)); | |||
1209 | if (sym && SYMBOL_CLASS (sym)(sym)->aclass == LOC_TYPEDEF) | |||
1210 | { | |||
1211 | yylvalf_lval.tsym.type = SYMBOL_TYPE (sym)(sym)->type; | |||
1212 | return TYPENAME262; | |||
1213 | } | |||
1214 | yylvalf_lval.tsym.type | |||
1215 | = language_lookup_primitive_type_by_name (current_language, | |||
1216 | current_gdbarch, tmp); | |||
1217 | if (yylvalf_lval.tsym.type != NULL((void*)0)) | |||
1218 | return TYPENAME262; | |||
1219 | ||||
1220 | /* Input names that aren't symbols but ARE valid hex numbers, | |||
1221 | when the input radix permits them, can be names or numbers | |||
1222 | depending on the parse. Note we support radixes > 16 here. */ | |||
1223 | if (!sym | |||
1224 | && ((tokstart[0] >= 'a' && tokstart[0] < 'a' + input_radix - 10) | |||
1225 | || (tokstart[0] >= 'A' && tokstart[0] < 'A' + input_radix - 10))) | |||
1226 | { | |||
1227 | YYSTYPE newlval; /* Its value is ignored. */ | |||
1228 | hextype = parse_number (tokstart, namelen, 0, &newlval); | |||
1229 | if (hextype == INT257) | |||
1230 | { | |||
1231 | yylvalf_lval.ssym.sym = sym; | |||
1232 | yylvalf_lval.ssym.is_a_field_of_this = is_a_field_of_this; | |||
1233 | return NAME_OR_INT263; | |||
1234 | } | |||
1235 | } | |||
1236 | ||||
1237 | /* Any other kind of symbol */ | |||
1238 | yylvalf_lval.ssym.sym = sym; | |||
1239 | yylvalf_lval.ssym.is_a_field_of_this = is_a_field_of_this; | |||
1240 | return NAME261; | |||
1241 | } | |||
1242 | } | |||
1243 | ||||
1244 | void | |||
1245 | yyerrorf_error (msg) | |||
1246 | char *msg; | |||
1247 | { | |||
1248 | if (prev_lexptr) | |||
1249 | lexptr = prev_lexptr; | |||
1250 | ||||
1251 | error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); | |||
1252 | } | |||
1253 | /* allocate initial stack or double stack size, up to YYMAXDEPTH */ | |||
1254 | static int yygrowstack(void) | |||
1255 | { | |||
1256 | unsigned int newsize; | |||
1257 | long sslen; | |||
1258 | short *newss; | |||
1259 | YYSTYPE *newvs; | |||
1260 | ||||
1261 | if ((newsize = yystacksize) == 0) | |||
1262 | newsize = YYINITSTACKSIZE200; | |||
1263 | else if (newsize >= YYMAXDEPTH10000) | |||
1264 | return -1; | |||
1265 | else if ((newsize *= 2) > YYMAXDEPTH10000) | |||
1266 | newsize = YYMAXDEPTH10000; | |||
1267 | sslen = yyssp - yyss; | |||
1268 | #ifdef SIZE_MAX | |||
1269 | #define YY_SIZE_MAX0xffffffffU SIZE_MAX | |||
1270 | #else | |||
1271 | #define YY_SIZE_MAX0xffffffffU 0xffffffffU | |||
1272 | #endif | |||
1273 | if (newsize && YY_SIZE_MAX0xffffffffU / newsize < sizeof *newss) | |||
1274 | goto bail; | |||
1275 | newss = (short *)xrealloc(yyss, newsize * sizeof *newss); | |||
1276 | if (newss == NULL((void*)0)) | |||
1277 | goto bail; | |||
1278 | yyss = newss; | |||
1279 | yyssp = newss + sslen; | |||
1280 | if (newsize && YY_SIZE_MAX0xffffffffU / newsize < sizeof *newvs) | |||
1281 | goto bail; | |||
1282 | newvs = (YYSTYPE *)xrealloc(yyvs, newsize * sizeof *newvs); | |||
1283 | if (newvs == NULL((void*)0)) | |||
1284 | goto bail; | |||
1285 | yyvs = newvs; | |||
1286 | yyvsp = newvs + sslen; | |||
1287 | yystacksize = newsize; | |||
1288 | yysslim = yyss + newsize - 1; | |||
1289 | return 0; | |||
1290 | bail: | |||
1291 | if (yyss) | |||
1292 | free(yyss); | |||
1293 | if (yyvs) | |||
1294 | free(yyvs); | |||
1295 | yyss = yyssp = NULL((void*)0); | |||
1296 | yyvs = yyvsp = NULL((void*)0); | |||
1297 | yystacksize = 0; | |||
1298 | return -1; | |||
1299 | } | |||
1300 | ||||
1301 | #define YYABORTgoto yyabort goto yyabort | |||
1302 | #define YYREJECTgoto yyabort goto yyabort | |||
1303 | #define YYACCEPTgoto yyaccept goto yyaccept | |||
1304 | #define YYERRORgoto yyerrlab goto yyerrlab | |||
1305 | int | |||
1306 | yyparsef_parse(void) | |||
1307 | { | |||
1308 | int yym, yyn, yystatef_state; | |||
1309 | #if YYDEBUG1 | |||
1310 | const char *yysf_s; | |||
1311 | ||||
1312 | if ((yysf_s = getenv("YYDEBUG"))) | |||
| ||||
1313 | { | |||
1314 | yyn = *yysf_s; | |||
1315 | if (yyn >= '0' && yyn <= '9') | |||
1316 | yydebugf_debug = yyn - '0'; | |||
1317 | } | |||
1318 | #endif /* YYDEBUG */ | |||
1319 | ||||
1320 | yynerrsf_nerrs = 0; | |||
1321 | yyerrflagf_errflag = 0; | |||
1322 | yycharf_char = (-1); | |||
1323 | ||||
1324 | if (yyss == NULL((void*)0) && yygrowstack()) goto yyoverflow; | |||
1325 | yyssp = yyss; | |||
1326 | yyvsp = yyvs; | |||
1327 | *yyssp = yystatef_state = 0; | |||
1328 | ||||
1329 | yyloop: | |||
1330 | if ((yyn = yydefredf_yydefred[yystatef_state]) != 0) goto yyreduce; | |||
1331 | if (yycharf_char < 0) | |||
1332 | { | |||
1333 | if ((yycharf_char = yylexf_lex()) < 0) yycharf_char = 0; | |||
1334 | #if YYDEBUG1 | |||
1335 | if (yydebugf_debug) | |||
1336 | { | |||
1337 | yysf_s = 0; | |||
1338 | if (yycharf_char <= YYMAXTOKEN292) yysf_s = yynamef_name[yycharf_char]; | |||
1339 | if (!yysf_s) yysf_s = "illegal-symbol"; | |||
1340 | printf("%sdebug: state %d, reading %d (%s)\n", | |||
1341 | YYPREFIX"yy", yystatef_state, yycharf_char, yysf_s); | |||
1342 | } | |||
1343 | #endif | |||
1344 | } | |||
1345 | if ((yyn = yysindexf_yysindex[yystatef_state]) && (yyn += yycharf_char) >= 0 && | |||
1346 | yyn <= YYTABLESIZE1573 && yycheckf_yycheck[yyn] == yycharf_char) | |||
1347 | { | |||
1348 | #if YYDEBUG1 | |||
1349 | if (yydebugf_debug) | |||
1350 | printf("%sdebug: state %d, shifting to state %d\n", | |||
1351 | YYPREFIX"yy", yystatef_state, yytablef_yytable[yyn]); | |||
1352 | #endif | |||
1353 | if (yyssp >= yysslim && yygrowstack()) | |||
1354 | { | |||
1355 | goto yyoverflow; | |||
1356 | } | |||
1357 | *++yyssp = yystatef_state = yytablef_yytable[yyn]; | |||
1358 | *++yyvsp = yylvalf_lval; | |||
1359 | yycharf_char = (-1); | |||
1360 | if (yyerrflagf_errflag > 0) --yyerrflagf_errflag; | |||
1361 | goto yyloop; | |||
1362 | } | |||
1363 | if ((yyn = yyrindexf_yyrindex[yystatef_state]) && (yyn += yycharf_char) >= 0 && | |||
1364 | yyn <= YYTABLESIZE1573 && yycheckf_yycheck[yyn] == yycharf_char) | |||
1365 | { | |||
1366 | yyn = yytablef_yytable[yyn]; | |||
1367 | goto yyreduce; | |||
1368 | } | |||
1369 | if (yyerrflagf_errflag) goto yyinrecovery; | |||
1370 | #if defined(__GNUC__4) | |||
1371 | goto yynewerror; | |||
1372 | #endif | |||
1373 | yynewerror: | |||
1374 | yyerrorf_error("syntax error"); | |||
1375 | #if defined(__GNUC__4) | |||
1376 | goto yyerrlab; | |||
1377 | #endif | |||
1378 | yyerrlab: | |||
1379 | ++yynerrsf_nerrs; | |||
1380 | yyinrecovery: | |||
1381 | if (yyerrflagf_errflag < 3) | |||
1382 | { | |||
1383 | yyerrflagf_errflag = 3; | |||
1384 | for (;;) | |||
1385 | { | |||
1386 | if ((yyn = yysindexf_yysindex[*yyssp]) && (yyn += YYERRCODE256) >= 0 && | |||
1387 | yyn <= YYTABLESIZE1573 && yycheckf_yycheck[yyn] == YYERRCODE256) | |||
1388 | { | |||
1389 | #if YYDEBUG1 | |||
1390 | if (yydebugf_debug) | |||
1391 | printf("%sdebug: state %d, error recovery shifting\ | |||
1392 | to state %d\n", YYPREFIX"yy", *yyssp, yytablef_yytable[yyn]); | |||
1393 | #endif | |||
1394 | if (yyssp >= yysslim && yygrowstack()) | |||
1395 | { | |||
1396 | goto yyoverflow; | |||
1397 | } | |||
1398 | *++yyssp = yystatef_state = yytablef_yytable[yyn]; | |||
1399 | *++yyvsp = yylvalf_lval; | |||
1400 | goto yyloop; | |||
1401 | } | |||
1402 | else | |||
1403 | { | |||
1404 | #if YYDEBUG1 | |||
1405 | if (yydebugf_debug) | |||
1406 | printf("%sdebug: error recovery discarding state %d\n", | |||
1407 | YYPREFIX"yy", *yyssp); | |||
1408 | #endif | |||
1409 | if (yyssp <= yyss) goto yyabort; | |||
1410 | --yyssp; | |||
1411 | --yyvsp; | |||
1412 | } | |||
1413 | } | |||
1414 | } | |||
1415 | else | |||
1416 | { | |||
1417 | if (yycharf_char == 0) goto yyabort; | |||
1418 | #if YYDEBUG1 | |||
1419 | if (yydebugf_debug) | |||
1420 | { | |||
1421 | yysf_s = 0; | |||
1422 | if (yycharf_char <= YYMAXTOKEN292) yysf_s = yynamef_name[yycharf_char]; | |||
1423 | if (!yysf_s) yysf_s = "illegal-symbol"; | |||
1424 | printf("%sdebug: state %d, error recovery discards token %d (%s)\n", | |||
1425 | YYPREFIX"yy", yystatef_state, yycharf_char, yysf_s); | |||
1426 | } | |||
1427 | #endif | |||
1428 | yycharf_char = (-1); | |||
1429 | goto yyloop; | |||
1430 | } | |||
1431 | yyreduce: | |||
1432 | #if YYDEBUG1 | |||
1433 | if (yydebugf_debug) | |||
1434 | printf("%sdebug: state %d, reducing by rule %d (%s)\n", | |||
1435 | YYPREFIX"yy", yystatef_state, yyn, yyrulef_rule[yyn]); | |||
1436 | #endif | |||
1437 | yym = yylenf_yylen[yyn]; | |||
1438 | if (yym) | |||
1439 | yyvalf_val = yyvsp[1-yym]; | |||
1440 | else | |||
1441 | memset(&yyvalf_val, 0, sizeof yyvalf_val); | |||
1442 | switch (yyn) | |||
1443 | { | |||
1444 | case 3: | |||
1445 | #line 233 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1446 | { write_exp_elt_opcode(OP_TYPE); | |||
1447 | write_exp_elt_type(yyvsp[0].tval); | |||
1448 | write_exp_elt_opcode(OP_TYPE); } | |||
1449 | break; | |||
1450 | case 4: | |||
1451 | #line 239 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1452 | { } | |||
1453 | break; | |||
1454 | case 5: | |||
1455 | #line 244 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1456 | { write_exp_elt_opcode (UNOP_IND); } | |||
1457 | break; | |||
1458 | case 6: | |||
1459 | #line 248 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1460 | { write_exp_elt_opcode (UNOP_ADDR); } | |||
1461 | break; | |||
1462 | case 7: | |||
1463 | #line 252 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1464 | { write_exp_elt_opcode (UNOP_NEG); } | |||
1465 | break; | |||
1466 | case 8: | |||
1467 | #line 256 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1468 | { write_exp_elt_opcode (UNOP_LOGICAL_NOT); } | |||
1469 | break; | |||
1470 | case 9: | |||
1471 | #line 260 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1472 | { write_exp_elt_opcode (UNOP_COMPLEMENT); } | |||
1473 | break; | |||
1474 | case 10: | |||
1475 | #line 264 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1476 | { write_exp_elt_opcode (UNOP_SIZEOF); } | |||
1477 | break; | |||
1478 | case 11: | |||
1479 | #line 273 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1480 | { start_arglist (); } | |||
1481 | break; | |||
1482 | case 12: | |||
1483 | #line 275 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1484 | { write_exp_elt_opcode (OP_F77_UNDETERMINED_ARGLIST); | |||
1485 | write_exp_elt_longcst ((LONGESTlong) end_arglist ()); | |||
1486 | write_exp_elt_opcode (OP_F77_UNDETERMINED_ARGLIST); } | |||
1487 | break; | |||
1488 | case 14: | |||
1489 | #line 284 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1490 | { arglist_len = 1; } | |||
1491 | break; | |||
1492 | case 15: | |||
1493 | #line 288 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1494 | { arglist_len = 2;} | |||
1495 | break; | |||
1496 | case 16: | |||
1497 | #line 292 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1498 | { arglist_len++; } | |||
1499 | break; | |||
1500 | case 17: | |||
1501 | #line 296 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1502 | { } | |||
1503 | break; | |||
1504 | case 18: | |||
1505 | #line 301 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1506 | { } | |||
1507 | break; | |||
1508 | case 19: | |||
1509 | #line 305 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1510 | { write_exp_elt_opcode(OP_COMPLEX); } | |||
1511 | break; | |||
1512 | case 20: | |||
1513 | #line 309 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1514 | { write_exp_elt_opcode (UNOP_CAST); | |||
1515 | write_exp_elt_type (yyvsp[-2].tval); | |||
1516 | write_exp_elt_opcode (UNOP_CAST); } | |||
1517 | break; | |||
1518 | case 21: | |||
1519 | #line 317 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1520 | { write_exp_elt_opcode (BINOP_REPEAT); } | |||
1521 | break; | |||
1522 | case 22: | |||
1523 | #line 321 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1524 | { write_exp_elt_opcode (BINOP_MUL); } | |||
1525 | break; | |||
1526 | case 23: | |||
1527 | #line 325 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1528 | { write_exp_elt_opcode (BINOP_DIV); } | |||
1529 | break; | |||
1530 | case 24: | |||
1531 | #line 329 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1532 | { write_exp_elt_opcode (BINOP_REM); } | |||
1533 | break; | |||
1534 | case 25: | |||
1535 | #line 333 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1536 | { write_exp_elt_opcode (BINOP_ADD); } | |||
1537 | break; | |||
1538 | case 26: | |||
1539 | #line 337 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1540 | { write_exp_elt_opcode (BINOP_SUB); } | |||
1541 | break; | |||
1542 | case 27: | |||
1543 | #line 341 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1544 | { write_exp_elt_opcode (BINOP_LSH); } | |||
1545 | break; | |||
1546 | case 28: | |||
1547 | #line 345 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1548 | { write_exp_elt_opcode (BINOP_RSH); } | |||
1549 | break; | |||
1550 | case 29: | |||
1551 | #line 349 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1552 | { write_exp_elt_opcode (BINOP_EQUAL); } | |||
1553 | break; | |||
1554 | case 30: | |||
1555 | #line 353 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1556 | { write_exp_elt_opcode (BINOP_NOTEQUAL); } | |||
1557 | break; | |||
1558 | case 31: | |||
1559 | #line 357 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1560 | { write_exp_elt_opcode (BINOP_LEQ); } | |||
1561 | break; | |||
1562 | case 32: | |||
1563 | #line 361 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1564 | { write_exp_elt_opcode (BINOP_GEQ); } | |||
1565 | break; | |||
1566 | case 33: | |||
1567 | #line 365 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1568 | { write_exp_elt_opcode (BINOP_LESS); } | |||
1569 | break; | |||
1570 | case 34: | |||
1571 | #line 369 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1572 | { write_exp_elt_opcode (BINOP_GTR); } | |||
1573 | break; | |||
1574 | case 35: | |||
1575 | #line 373 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1576 | { write_exp_elt_opcode (BINOP_BITWISE_AND); } | |||
1577 | break; | |||
1578 | case 36: | |||
1579 | #line 377 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1580 | { write_exp_elt_opcode (BINOP_BITWISE_XOR); } | |||
1581 | break; | |||
1582 | case 37: | |||
1583 | #line 381 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1584 | { write_exp_elt_opcode (BINOP_BITWISE_IOR); } | |||
1585 | break; | |||
1586 | case 38: | |||
1587 | #line 385 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1588 | { write_exp_elt_opcode (BINOP_LOGICAL_AND); } | |||
1589 | break; | |||
1590 | case 39: | |||
1591 | #line 390 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1592 | { write_exp_elt_opcode (BINOP_LOGICAL_OR); } | |||
1593 | break; | |||
1594 | case 40: | |||
1595 | #line 394 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1596 | { write_exp_elt_opcode (BINOP_ASSIGN); } | |||
1597 | break; | |||
1598 | case 41: | |||
1599 | #line 398 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1600 | { write_exp_elt_opcode (BINOP_ASSIGN_MODIFY); | |||
1601 | write_exp_elt_opcode (yyvsp[-1].opcode); | |||
1602 | write_exp_elt_opcode (BINOP_ASSIGN_MODIFY); } | |||
1603 | break; | |||
1604 | case 42: | |||
1605 | #line 404 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1606 | { write_exp_elt_opcode (OP_LONG); | |||
1607 | write_exp_elt_type (yyvsp[0].typed_val.type); | |||
1608 | write_exp_elt_longcst ((LONGESTlong)(yyvsp[0].typed_val.val)); | |||
1609 | write_exp_elt_opcode (OP_LONG); } | |||
1610 | break; | |||
1611 | case 43: | |||
1612 | #line 411 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1613 | { YYSTYPE val; | |||
1614 | parse_number (yyvsp[0].ssym.stoken.ptr, yyvsp[0].ssym.stoken.length, 0, &val); | |||
1615 | write_exp_elt_opcode (OP_LONG); | |||
1616 | write_exp_elt_type (val.typed_val.type); | |||
1617 | write_exp_elt_longcst ((LONGESTlong)val.typed_val.val); | |||
1618 | write_exp_elt_opcode (OP_LONG); } | |||
1619 | break; | |||
1620 | case 44: | |||
1621 | #line 420 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1622 | { write_exp_elt_opcode (OP_DOUBLE); | |||
1623 | write_exp_elt_type (builtin_type_f_real_s8); | |||
1624 | write_exp_elt_dblcst (yyvsp[0].dval); | |||
1625 | write_exp_elt_opcode (OP_DOUBLE); } | |||
1626 | break; | |||
1627 | case 47: | |||
1628 | #line 433 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1629 | { write_exp_elt_opcode (OP_LONG); | |||
1630 | write_exp_elt_type (builtin_type_f_integer); | |||
1631 | CHECK_TYPEDEF (yyvsp[-1].tval)(yyvsp[-1].tval) = check_typedef (yyvsp[-1].tval); | |||
1632 | write_exp_elt_longcst ((LONGESTlong) TYPE_LENGTH (yyvsp[-1].tval)(yyvsp[-1].tval)->length); | |||
1633 | write_exp_elt_opcode (OP_LONG); } | |||
1634 | break; | |||
1635 | case 48: | |||
1636 | #line 441 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1637 | { write_exp_elt_opcode (OP_BOOL); | |||
1638 | write_exp_elt_longcst ((LONGESTlong) yyvsp[0].lval); | |||
1639 | write_exp_elt_opcode (OP_BOOL); | |||
1640 | } | |||
1641 | break; | |||
1642 | case 49: | |||
1643 | #line 448 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1644 | { | |||
1645 | write_exp_elt_opcode (OP_STRING); | |||
1646 | write_exp_string (yyvsp[0].sval); | |||
1647 | write_exp_elt_opcode (OP_STRING); | |||
1648 | } | |||
1649 | break; | |||
1650 | case 50: | |||
1651 | #line 456 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1652 | { struct symbol *sym = yyvsp[0].ssym.sym; | |||
1653 | ||||
1654 | if (sym) | |||
1655 | { | |||
1656 | if (symbol_read_needs_frame (sym)) | |||
1657 | { | |||
1658 | if (innermost_block == 0 || | |||
1659 | contained_in (block_found, | |||
1660 | innermost_block)) | |||
1661 | innermost_block = block_found; | |||
1662 | } | |||
1663 | write_exp_elt_opcode (OP_VAR_VALUE); | |||
1664 | /* We want to use the selected frame, not | |||
1665 | another more inner frame which happens to | |||
1666 | be in the same block. */ | |||
1667 | write_exp_elt_block (NULL((void*)0)); | |||
1668 | write_exp_elt_sym (sym); | |||
1669 | write_exp_elt_opcode (OP_VAR_VALUE); | |||
1670 | break; | |||
1671 | } | |||
1672 | else | |||
1673 | { | |||
1674 | struct minimal_symbol *msymbol; | |||
1675 | char *arg = copy_name (yyvsp[0].ssym.stoken); | |||
1676 | ||||
1677 | msymbol = | |||
1678 | lookup_minimal_symbol (arg, NULL((void*)0), NULL((void*)0)); | |||
1679 | if (msymbol != NULL((void*)0)) | |||
1680 | { | |||
1681 | write_exp_msymbol (msymbol, | |||
1682 | lookup_function_type (builtin_type_int), | |||
1683 | builtin_type_int); | |||
1684 | } | |||
1685 | else if (!have_full_symbols () && !have_partial_symbols ()) | |||
1686 | error ("No symbol table is loaded. Use the \"file\" command."); | |||
1687 | else | |||
1688 | error ("No symbol \"%s\" in current context.", | |||
1689 | copy_name (yyvsp[0].ssym.stoken)); | |||
1690 | } | |||
1691 | } | |||
1692 | break; | |||
1693 | case 53: | |||
1694 | #line 504 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1695 | { | |||
1696 | /* This is where the interesting stuff happens. */ | |||
1697 | int done = 0; | |||
1698 | int array_size; | |||
1699 | struct type *follow_type = yyvsp[-1].tval; | |||
1700 | struct type *range_type; | |||
1701 | ||||
1702 | while (!done) | |||
1703 | switch (pop_type ()) | |||
1704 | { | |||
1705 | case tp_end: | |||
1706 | done = 1; | |||
1707 | break; | |||
1708 | case tp_pointer: | |||
1709 | follow_type = lookup_pointer_type (follow_type); | |||
1710 | break; | |||
1711 | case tp_reference: | |||
1712 | follow_type = lookup_reference_type (follow_type); | |||
1713 | break; | |||
1714 | case tp_array: | |||
1715 | array_size = pop_type_int (); | |||
1716 | if (array_size != -1) | |||
1717 | { | |||
1718 | range_type = | |||
1719 | create_range_type ((struct type *) NULL((void*)0), | |||
1720 | builtin_type_f_integer, 0, | |||
1721 | array_size - 1); | |||
1722 | follow_type = | |||
1723 | create_array_type ((struct type *) NULL((void*)0), | |||
1724 | follow_type, range_type); | |||
1725 | } | |||
1726 | else | |||
1727 | follow_type = lookup_pointer_type (follow_type); | |||
1728 | break; | |||
1729 | case tp_function: | |||
1730 | follow_type = lookup_function_type (follow_type); | |||
1731 | break; | |||
1732 | } | |||
1733 | yyvalf_val.tval = follow_type; | |||
1734 | } | |||
1735 | break; | |||
1736 | case 54: | |||
1737 | #line 547 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1738 | { push_type (tp_pointer); yyvalf_val.voidval = 0; } | |||
1739 | break; | |||
1740 | case 55: | |||
1741 | #line 549 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1742 | { push_type (tp_pointer); yyvalf_val.voidval = yyvsp[0].voidval; } | |||
1743 | break; | |||
1744 | case 56: | |||
1745 | #line 551 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1746 | { push_type (tp_reference); yyvalf_val.voidval = 0; } | |||
1747 | break; | |||
1748 | case 57: | |||
1749 | #line 553 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1750 | { push_type (tp_reference); yyvalf_val.voidval = yyvsp[0].voidval; } | |||
1751 | break; | |||
1752 | case 59: | |||
1753 | #line 558 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1754 | { yyvalf_val.voidval = yyvsp[-1].voidval; } | |||
1755 | break; | |||
1756 | case 60: | |||
1757 | #line 560 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1758 | { push_type (tp_function); } | |||
1759 | break; | |||
1760 | case 61: | |||
1761 | #line 562 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1762 | { push_type (tp_function); } | |||
1763 | break; | |||
1764 | case 62: | |||
1765 | #line 566 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1766 | { yyvalf_val.voidval = 0; } | |||
1767 | break; | |||
1768 | case 63: | |||
1769 | #line 568 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1770 | { free (yyvsp[-1].tvec); yyvalf_val.voidval = 0; } | |||
1771 | break; | |||
1772 | case 64: | |||
1773 | #line 573 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1774 | { yyvalf_val.tval = yyvsp[0].tsym.type; } | |||
1775 | break; | |||
1776 | case 65: | |||
1777 | #line 575 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1778 | { yyvalf_val.tval = builtin_type_f_integer; } | |||
1779 | break; | |||
1780 | case 66: | |||
1781 | #line 577 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1782 | { yyvalf_val.tval = builtin_type_f_integer_s2; } | |||
1783 | break; | |||
1784 | case 67: | |||
1785 | #line 579 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1786 | { yyvalf_val.tval = builtin_type_f_character; } | |||
1787 | break; | |||
1788 | case 68: | |||
1789 | #line 581 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1790 | { yyvalf_val.tval = builtin_type_f_logical;} | |||
1791 | break; | |||
1792 | case 69: | |||
1793 | #line 583 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1794 | { yyvalf_val.tval = builtin_type_f_logical_s2;} | |||
1795 | break; | |||
1796 | case 70: | |||
1797 | #line 585 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1798 | { yyvalf_val.tval = builtin_type_f_logical_s1;} | |||
1799 | break; | |||
1800 | case 71: | |||
1801 | #line 587 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1802 | { yyvalf_val.tval = builtin_type_f_real;} | |||
1803 | break; | |||
1804 | case 72: | |||
1805 | #line 589 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1806 | { yyvalf_val.tval = builtin_type_f_real_s8;} | |||
1807 | break; | |||
1808 | case 73: | |||
1809 | #line 591 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1810 | { yyvalf_val.tval = builtin_type_f_real_s16;} | |||
1811 | break; | |||
1812 | case 74: | |||
1813 | #line 593 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1814 | { yyvalf_val.tval = builtin_type_f_complex_s8;} | |||
1815 | break; | |||
1816 | case 75: | |||
1817 | #line 595 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1818 | { yyvalf_val.tval = builtin_type_f_complex_s16;} | |||
1819 | break; | |||
1820 | case 76: | |||
1821 | #line 597 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1822 | { yyvalf_val.tval = builtin_type_f_complex_s32;} | |||
1823 | break; | |||
1824 | case 78: | |||
1825 | #line 605 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1826 | { yyvalf_val.tvec = (struct type **) xmalloc (sizeof (struct type *) * 2); | |||
1827 | yyvalf_val.ivec[0] = 1; /* Number of types in vector */ | |||
1828 | yyvalf_val.tvec[1] = yyvsp[0].tval; | |||
1829 | } | |||
1830 | break; | |||
1831 | case 79: | |||
1832 | #line 610 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1833 | { int len = sizeof (struct type *) * (++(yyvsp[-2].ivec[0]) + 1); | |||
1834 | yyvalf_val.tvec = (struct type **) xrealloc ((char *) yyvsp[-2].tvec, len); | |||
1835 | yyvalf_val.tvec[yyvalf_val.ivec[0]] = yyvsp[0].tval; | |||
1836 | } | |||
1837 | break; | |||
1838 | case 80: | |||
1839 | #line 617 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1840 | { yyvalf_val.sval = yyvsp[0].ssym.stoken; } | |||
1841 | break; | |||
1842 | case 81: | |||
1843 | #line 619 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1844 | { yyvalf_val.sval = yyvsp[0].tsym.stoken; } | |||
1845 | break; | |||
1846 | case 82: | |||
1847 | #line 621 "/usr/src/gnu/usr.bin/binutils/gdb/f-exp.y" | |||
1848 | { yyvalf_val.sval = yyvsp[0].ssym.stoken; } | |||
1849 | break; | |||
1850 | } | |||
1851 | yyssp -= yym; | |||
1852 | yystatef_state = *yyssp; | |||
1853 | yyvsp -= yym; | |||
1854 | yym = yylhsf_yylhs[yyn]; | |||
1855 | if (yystatef_state == 0 && yym == 0) | |||
1856 | { | |||
1857 | #if YYDEBUG1 | |||
1858 | if (yydebugf_debug) | |||
1859 | printf("%sdebug: after reduction, shifting from state 0 to\ | |||
1860 | state %d\n", YYPREFIX"yy", YYFINAL28); | |||
1861 | #endif | |||
1862 | yystatef_state = YYFINAL28; | |||
1863 | *++yyssp = YYFINAL28; | |||
1864 | *++yyvsp = yyvalf_val; | |||
1865 | if (yycharf_char < 0) | |||
1866 | { | |||
1867 | if ((yycharf_char = yylexf_lex()) < 0) yycharf_char = 0; | |||
1868 | #if YYDEBUG1 | |||
1869 | if (yydebugf_debug) | |||
1870 | { | |||
1871 | yysf_s = 0; | |||
1872 | if (yycharf_char <= YYMAXTOKEN292) yysf_s = yynamef_name[yycharf_char]; | |||
1873 | if (!yysf_s) yysf_s = "illegal-symbol"; | |||
1874 | printf("%sdebug: state %d, reading %d (%s)\n", | |||
1875 | YYPREFIX"yy", YYFINAL28, yycharf_char, yysf_s); | |||
1876 | } | |||
1877 | #endif | |||
1878 | } | |||
1879 | if (yycharf_char == 0) goto yyaccept; | |||
1880 | goto yyloop; | |||
1881 | } | |||
1882 | if ((yyn = yygindexf_yygindex[yym]) && (yyn += yystatef_state) >= 0 && | |||
1883 | yyn <= YYTABLESIZE1573 && yycheckf_yycheck[yyn] == yystatef_state) | |||
1884 | yystatef_state = yytablef_yytable[yyn]; | |||
1885 | else | |||
1886 | yystatef_state = yydgotof_yydgoto[yym]; | |||
1887 | #if YYDEBUG1 | |||
1888 | if (yydebugf_debug) | |||
1889 | printf("%sdebug: after reduction, shifting from state %d \ | |||
1890 | to state %d\n", YYPREFIX"yy", *yyssp, yystatef_state); | |||
1891 | #endif | |||
1892 | if (yyssp >= yysslim && yygrowstack()) | |||
1893 | { | |||
1894 | goto yyoverflow; | |||
1895 | } | |||
1896 | *++yyssp = yystatef_state; | |||
1897 | *++yyvsp = yyvalf_val; | |||
1898 | goto yyloop; | |||
1899 | yyoverflow: | |||
1900 | yyerrorf_error("yacc stack overflow"); | |||
1901 | yyabort: | |||
1902 | if (yyss) | |||
1903 | free(yyss); | |||
1904 | if (yyvs) | |||
1905 | free(yyvs); | |||
1906 | yyss = yyssp = NULL((void*)0); | |||
1907 | yyvs = yyvsp = NULL((void*)0); | |||
1908 | yystacksize = 0; | |||
1909 | return (1); | |||
1910 | yyaccept: | |||
1911 | if (yyss) | |||
1912 | free(yyss); | |||
1913 | if (yyvs) | |||
1914 | free(yyvs); | |||
1915 | yyss = yyssp = NULL((void*)0); | |||
1916 | yyvs = yyvsp = NULL((void*)0); | |||
1917 | yystacksize = 0; | |||
1918 | return (0); | |||
1919 | } |