| File: | src/gnu/usr.bin/binutils/obj/gdb/m2-exp.c |
| Warning: | line 1100, column 5 Value stored to 'c' is never read |
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 YYLEXm2_lex() yylexm2_lex() |
| 7 | #define YYEMPTY-1 -1 |
| 8 | #define yyclearin(m2_char=(-1)) (yycharm2_char=(YYEMPTY-1)) |
| 9 | #define yyerrok(m2_errflag=0) (yyerrflagm2_errflag=0) |
| 10 | #define YYRECOVERING()(m2_errflag!=0) (yyerrflagm2_errflag!=0) |
| 11 | #define YYPREFIX"yy" "yy" |
| 12 | #line 42 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 13 | |
| 14 | #include "defs.h" |
| 15 | #include "gdb_string.h" |
| 16 | #include "expression.h" |
| 17 | #include "language.h" |
| 18 | #include "value.h" |
| 19 | #include "parser-defs.h" |
| 20 | #include "m2-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 | |
| 26 | /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc), |
| 27 | as well as gratuitiously global symbol names, so we can have multiple |
| 28 | yacc generated parsers in gdb. Note that these are only the variables |
| 29 | produced by yacc. If other parser generators (bison, byacc, etc) produce |
| 30 | additional global names that conflict at link time, then those parser |
| 31 | generators need to be fixed instead of adding those names to this list. */ |
| 32 | |
| 33 | #define yymaxdepthm2_maxdepth m2_maxdepth |
| 34 | #define yyparsem2_parse m2_parse |
| 35 | #define yylexm2_lex m2_lex |
| 36 | #define yyerrorm2_error m2_error |
| 37 | #define yylvalm2_lval m2_lval |
| 38 | #define yycharm2_char m2_char |
| 39 | #define yydebugm2_debug m2_debug |
| 40 | #define yypactm2_pact m2_pact |
| 41 | #define yyr1m2_r1 m2_r1 |
| 42 | #define yyr2m2_r2 m2_r2 |
| 43 | #define yydefm2_def m2_def |
| 44 | #define yychkm2_chk m2_chk |
| 45 | #define yypgom2_pgo m2_pgo |
| 46 | #define yyactm2_act m2_act |
| 47 | #define yyexcam2_exca m2_exca |
| 48 | #define yyerrflagm2_errflag m2_errflag |
| 49 | #define yynerrsm2_nerrs m2_nerrs |
| 50 | #define yypsm2_ps m2_ps |
| 51 | #define yypvm2_pv m2_pv |
| 52 | #define yysm2_s m2_s |
| 53 | #define yy_yysm2_yys m2_yys |
| 54 | #define yystatem2_state m2_state |
| 55 | #define yytmpm2_tmp m2_tmp |
| 56 | #define yyvm2_v m2_v |
| 57 | #define yy_yyvm2_yyv m2_yyv |
| 58 | #define yyvalm2_val m2_val |
| 59 | #define yyllocm2_lloc m2_lloc |
| 60 | #define yyredsm2_reds m2_reds /* With YYDEBUG defined */ |
| 61 | #define yytoksm2_toks m2_toks /* With YYDEBUG defined */ |
| 62 | #define yynamem2_name m2_name /* With YYDEBUG defined */ |
| 63 | #define yyrulem2_rule m2_rule /* With YYDEBUG defined */ |
| 64 | #define yylhsm2_yylhs m2_yylhs |
| 65 | #define yylenm2_yylen m2_yylen |
| 66 | #define yydefredm2_yydefred m2_yydefred |
| 67 | #define yydgotom2_yydgoto m2_yydgoto |
| 68 | #define yysindexm2_yysindex m2_yysindex |
| 69 | #define yyrindexm2_yyrindex m2_yyrindex |
| 70 | #define yygindexm2_yygindex m2_yygindex |
| 71 | #define yytablem2_yytable m2_yytable |
| 72 | #define yycheckm2_yycheck m2_yycheck |
| 73 | |
| 74 | #ifndef YYDEBUG1 |
| 75 | #define YYDEBUG1 1 /* Default to yydebug support */ |
| 76 | #endif |
| 77 | |
| 78 | #define YYFPRINTFparser_fprintf parser_fprintf |
| 79 | |
| 80 | int yyparsem2_parse (void); |
| 81 | |
| 82 | static int yylexm2_lex (void); |
| 83 | |
| 84 | void yyerrorm2_error (char *); |
| 85 | |
| 86 | #if 0 |
| 87 | static char *make_qualname (char *, char *); |
| 88 | #endif |
| 89 | |
| 90 | static int parse_number (int); |
| 91 | |
| 92 | /* The sign of the number being parsed. */ |
| 93 | static int number_sign = 1; |
| 94 | |
| 95 | /* The block that the module specified by the qualifer on an identifer is |
| 96 | contained in, */ |
| 97 | #if 0 |
| 98 | static struct block *modblock=0; |
| 99 | #endif |
| 100 | |
| 101 | #line 136 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 102 | #ifndef YYSTYPE_DEFINED |
| 103 | #define YYSTYPE_DEFINED |
| 104 | typedef union |
| 105 | { |
| 106 | LONGESTlong lval; |
| 107 | ULONGESTunsigned long ulval; |
| 108 | DOUBLEST dval; |
| 109 | struct symbol *sym; |
| 110 | struct type *tval; |
| 111 | struct stoken sval; |
| 112 | int voidval; |
| 113 | struct block *bval; |
| 114 | enum exp_opcode opcode; |
| 115 | struct internalvar *ivar; |
| 116 | |
| 117 | struct type **tvec; |
| 118 | int *ivec; |
| 119 | } YYSTYPE; |
| 120 | #endif /* YYSTYPE_DEFINED */ |
| 121 | #define INT257 257 |
| 122 | #define HEX258 258 |
| 123 | #define ERROR259 259 |
| 124 | #define UINT260 260 |
| 125 | #define M2_TRUE261 261 |
| 126 | #define M2_FALSE262 262 |
| 127 | #define CHAR263 263 |
| 128 | #define FLOAT264 264 |
| 129 | #define STRING265 265 |
| 130 | #define NAME266 266 |
| 131 | #define BLOCKNAME267 267 |
| 132 | #define IDENT268 268 |
| 133 | #define VARNAME269 269 |
| 134 | #define TYPENAME270 270 |
| 135 | #define SIZE271 271 |
| 136 | #define CAP272 272 |
| 137 | #define ORD273 273 |
| 138 | #define HIGH274 274 |
| 139 | #define ABS275 275 |
| 140 | #define MIN_FUNC276 276 |
| 141 | #define MAX_FUNC277 277 |
| 142 | #define FLOAT_FUNC278 278 |
| 143 | #define VAL279 279 |
| 144 | #define CHR280 280 |
| 145 | #define ODD281 281 |
| 146 | #define TRUNC282 282 |
| 147 | #define INC283 283 |
| 148 | #define DEC284 284 |
| 149 | #define INCL285 285 |
| 150 | #define EXCL286 286 |
| 151 | #define COLONCOLON287 287 |
| 152 | #define INTERNAL_VAR288 288 |
| 153 | #define ABOVE_COMMA289 289 |
| 154 | #define ASSIGN290 290 |
| 155 | #define LEQ291 291 |
| 156 | #define GEQ292 292 |
| 157 | #define NOTEQUAL293 293 |
| 158 | #define IN294 294 |
| 159 | #define OROR295 295 |
| 160 | #define LOGICAL_AND296 296 |
| 161 | #define DIV297 297 |
| 162 | #define MOD298 298 |
| 163 | #define UNARY299 299 |
| 164 | #define DOT300 300 |
| 165 | #define NOT301 301 |
| 166 | #define QID302 302 |
| 167 | #define YYERRCODE256 256 |
| 168 | const short yylhsm2_yylhs[] = |
| 169 | { -1, |
| 170 | 0, 0, 2, 1, 8, 1, 1, 1, 9, 9, |
| 171 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| 172 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| 173 | 1, 3, 3, 12, 1, 13, 1, 10, 10, 10, |
| 174 | 11, 11, 1, 1, 1, 1, 1, 1, 1, 1, |
| 175 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| 176 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| 177 | 1, 6, 7, 7, 4, 4, 4, 4, 5, |
| 178 | }; |
| 179 | const short yylenm2_yylen[] = |
| 180 | { 2, |
| 181 | 1, 1, 1, 2, 0, 3, 2, 2, 1, 1, |
| 182 | 4, 4, 4, 4, 4, 4, 4, 6, 4, 4, |
| 183 | 4, 2, 4, 6, 4, 6, 3, 1, 3, 6, |
| 184 | 6, 3, 4, 0, 5, 0, 5, 0, 1, 3, |
| 185 | 1, 3, 4, 4, 3, 3, 3, 3, 3, 3, |
| 186 | 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, |
| 187 | 3, 3, 1, 1, 1, 1, 1, 1, 1, 4, |
| 188 | 1, 1, 1, 3, 1, 1, 3, 1, 1, |
| 189 | }; |
| 190 | const short yydefredm2_yydefred[] = |
| 191 | { 0, |
| 192 | 65, 66, 63, 64, 67, 68, 71, 78, 73, 79, |
| 193 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 194 | 0, 0, 0, 0, 0, 0, 76, 0, 5, 0, |
| 195 | 9, 10, 0, 0, 0, 2, 28, 69, 0, 0, |
| 196 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 197 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 198 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 199 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 200 | 0, 0, 0, 0, 4, 0, 34, 36, 0, 0, |
| 201 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 202 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 45, |
| 203 | 0, 0, 32, 0, 0, 0, 0, 0, 0, 0, |
| 204 | 0, 0, 29, 0, 0, 0, 0, 0, 0, 0, |
| 205 | 0, 0, 0, 27, 0, 0, 0, 0, 77, 74, |
| 206 | 70, 11, 12, 14, 13, 15, 16, 17, 0, 19, |
| 207 | 20, 21, 0, 23, 0, 25, 0, 0, 0, 0, |
| 208 | 0, 0, 0, 44, 33, 0, 0, 0, 0, 0, |
| 209 | 0, 35, 37, 18, 24, 26, 30, 31, 0, |
| 210 | }; |
| 211 | const short yydgotom2_yydgoto[] = |
| 212 | { 34, |
| 213 | 64, 36, 37, 38, 45, 40, 41, 62, 42, 66, |
| 214 | 162, 135, 136, |
| 215 | }; |
| 216 | const short yysindexm2_yysindex[] = |
| 217 | { 1587, |
| 218 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 219 | 1711, -40, -21, -8, -6, -3, -2, 24, 31, 37, |
| 220 | 38, 39, 57, 58, 59, 77, 0, 1587, 0, 1587, |
| 221 | 0, 0, 1587, 0, 1658, 0, 0, 0, -15, -281, |
| 222 | 0, 1587, 1587, -24, -15, 1587, 1587, 1587, 1587, -239, |
| 223 | -239, 1587, -239, 1587, 1587, 1587, 1587, 1587, 1587, 1587, |
| 224 | -24, 1587, 886, 1658, -37, -36, 1587, 1587, 1587, 1587, |
| 225 | 1587, 1587, 1587, 1587, -118, 1587, 1587, 1587, 1587, 1587, |
| 226 | 1587, 1587, 1587, 1587, 0, -214, 0, 0, 1587, 1587, |
| 227 | -238, -24, -27, 897, 952, 963, 1018, 78, 79, 1046, |
| 228 | 36, 1107, 1171, 1229, 739, 831, 1240, 1315, -24, 0, |
| 229 | 1587, 1587, 0, 1669, 860, 860, 860, 860, 860, 860, |
| 230 | 860, 1587, 0, -5, -25, 507, 117, 366, 366, -24, |
| 231 | -24, -24, -24, 0, 1587, 1587, 1326, -11, 0, 0, |
| 232 | 0, 0, 0, 0, 0, 0, 0, 0, 1587, 0, |
| 233 | 0, 0, 1587, 0, 1587, 0, 1587, 1587, -24, 1658, |
| 234 | 1658, -42, -20, 0, 0, 1381, 1392, 1450, 1507, 1600, |
| 235 | 1587, 0, 0, 0, 0, 0, 0, 0, 1658,}; |
| 236 | const short yyrindexm2_yyrindex[] = |
| 237 | { 0, |
| 238 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 239 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 240 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 241 | 0, 0, -9, 0, 121, 0, 0, 0, 122, 0, |
| 242 | 1, 0, 0, 12, 0, 0, 0, 0, 0, 0, |
| 243 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 244 | 40, 0, 0, -34, 0, 0, 0, 0, 0, 0, |
| 245 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 246 | 0, 0, 0, 0, 0, 0, 0, 0, 0, -9, |
| 247 | 0, 68, 0, 0, 0, 0, 0, 0, 0, 0, |
| 248 | 0, 0, 0, 0, 0, 0, 0, 0, 106, 0, |
| 249 | 0, 0, 0, 49, 529, 551, 559, 596, 618, 626, |
| 250 | 673, -9, 0, 0, 522, 500, 285, 191, 463, 134, |
| 251 | 145, 219, 409, 0, 0, -14, 0, 0, 0, 0, |
| 252 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 253 | 0, 0, 0, 0, 0, 0, 0, 0, 433, -18, |
| 254 | -35, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 255 | 0, 0, 0, 0, 0, 0, 0, 0, -33,}; |
| 256 | const short yygindexm2_yygindex[] = |
| 257 | { 0, |
| 258 | 1998, 0, 48, 0, 171, 0, 0, 0, 0, -86, |
| 259 | 0, 0, 0, |
| 260 | }; |
| 261 | #define YYTABLESIZE2169 2169 |
| 262 | const short yytablem2_yytable[] = |
| 263 | { 46, |
| 264 | 75, 171, 89, 138, 122, 91, 39, 112, 41, 39, |
| 265 | 42, 22, 89, 141, 88, 88, 81, 79, 47, 80, |
| 266 | 173, 82, 40, 112, 89, 40, 38, 139, 140, 38, |
| 267 | 10, 48, 112, 49, 38, 75, 50, 51, 78, 7, |
| 268 | 75, 75, 75, 75, 75, 75, 22, 75, 62, 163, |
| 269 | 172, 134, 22, 22, 22, 22, 22, 41, 22, 42, |
| 270 | 75, 75, 75, 52, 75, 87, 87, 8, 85, 85, |
| 271 | 53, 22, 22, 22, 7, 22, 54, 55, 56, 149, |
| 272 | 7, 7, 7, 7, 7, 90, 7, 111, 113, 62, |
| 273 | 39, 75, 62, 75, 75, 90, 57, 58, 59, 7, |
| 274 | 7, 7, 8, 7, 22, 6, 40, 90, 8, 8, |
| 275 | 8, 8, 8, 165, 8, 38, 60, 90, 146, 147, |
| 276 | 1, 3, 123, 0, 0, 75, 0, 8, 8, 8, |
| 277 | 0, 8, 7, 47, 0, 0, 22, 0, 0, 0, |
| 278 | 6, 62, 0, 0, 48, 0, 6, 6, 6, 6, |
| 279 | 6, 10, 6, 0, 0, 0, 88, 0, 81, 79, |
| 280 | 8, 80, 0, 82, 7, 6, 6, 6, 47, 6, |
| 281 | 39, 0, 0, 62, 47, 47, 47, 47, 47, 48, |
| 282 | 47, 0, 0, 0, 0, 48, 48, 48, 48, 48, |
| 283 | 51, 48, 8, 47, 47, 47, 0, 47, 6, 0, |
| 284 | 0, 0, 0, 65, 48, 48, 48, 87, 48, 0, |
| 285 | 85, 0, 0, 93, 0, 0, 0, 0, 49, 0, |
| 286 | 98, 99, 0, 101, 0, 51, 47, 0, 0, 0, |
| 287 | 6, 51, 0, 51, 51, 51, 0, 48, 0, 0, |
| 288 | 0, 0, 0, 0, 0, 124, 0, 0, 0, 0, |
| 289 | 51, 51, 51, 49, 51, 0, 0, 0, 47, 49, |
| 290 | 49, 49, 49, 49, 0, 49, 0, 0, 0, 48, |
| 291 | 77, 83, 84, 0, 86, 86, 0, 0, 49, 49, |
| 292 | 49, 0, 49, 51, 46, 0, 0, 72, 0, 0, |
| 293 | 75, 75, 75, 75, 75, 75, 75, 75, 75, 0, |
| 294 | 75, 22, 22, 22, 22, 22, 22, 22, 22, 22, |
| 295 | 0, 49, 0, 0, 0, 51, 0, 0, 0, 46, |
| 296 | 0, 0, 0, 0, 0, 46, 0, 0, 46, 7, |
| 297 | 7, 7, 7, 7, 7, 7, 7, 7, 0, 0, |
| 298 | 0, 0, 0, 49, 46, 46, 46, 0, 46, 0, |
| 299 | 0, 0, 0, 0, 0, 0, 0, 8, 8, 8, |
| 300 | 8, 8, 8, 8, 8, 8, 0, 0, 0, 0, |
| 301 | 0, 0, 0, 0, 0, 0, 0, 46, 0, 0, |
| 302 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 303 | 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, |
| 304 | 6, 6, 6, 6, 0, 88, 0, 81, 50, 46, |
| 305 | 0, 0, 82, 83, 84, 0, 86, 0, 0, 0, |
| 306 | 0, 0, 0, 47, 47, 47, 47, 47, 47, 47, |
| 307 | 47, 47, 43, 0, 48, 48, 48, 48, 48, 48, |
| 308 | 48, 48, 48, 50, 0, 0, 0, 0, 0, 50, |
| 309 | 50, 50, 50, 50, 0, 50, 87, 0, 0, 85, |
| 310 | 0, 0, 52, 0, 0, 0, 0, 43, 50, 50, |
| 311 | 50, 0, 50, 43, 43, 43, 43, 43, 0, 43, |
| 312 | 51, 51, 51, 51, 51, 51, 51, 0, 0, 0, |
| 313 | 0, 0, 43, 43, 43, 0, 43, 52, 0, 60, |
| 314 | 0, 50, 0, 52, 0, 52, 52, 52, 49, 49, |
| 315 | 49, 49, 49, 49, 49, 49, 49, 0, 0, 0, |
| 316 | 0, 61, 52, 52, 52, 43, 52, 0, 58, 0, |
| 317 | 0, 0, 0, 50, 60, 0, 0, 0, 0, 0, |
| 318 | 60, 0, 0, 60, 0, 0, 88, 0, 81, 79, |
| 319 | 59, 80, 0, 82, 0, 52, 61, 43, 56, 60, |
| 320 | 60, 60, 61, 58, 0, 61, 0, 0, 0, 58, |
| 321 | 78, 0, 58, 0, 46, 46, 46, 46, 46, 46, |
| 322 | 46, 61, 61, 61, 0, 59, 0, 52, 58, 58, |
| 323 | 58, 59, 60, 56, 59, 57, 0, 87, 0, 56, |
| 324 | 85, 0, 56, 0, 0, 0, 0, 0, 0, 0, |
| 325 | 59, 59, 59, 0, 61, 0, 0, 53, 56, 56, |
| 326 | 56, 58, 0, 0, 60, 54, 0, 0, 0, 0, |
| 327 | 57, 0, 0, 0, 0, 0, 57, 0, 0, 57, |
| 328 | 0, 0, 0, 59, 0, 0, 61, 0, 0, 0, |
| 329 | 0, 56, 53, 58, 0, 57, 57, 57, 53, 0, |
| 330 | 54, 53, 83, 84, 0, 86, 54, 0, 0, 54, |
| 331 | 0, 0, 55, 0, 0, 59, 0, 53, 53, 53, |
| 332 | 0, 0, 0, 56, 0, 54, 54, 54, 57, 0, |
| 333 | 0, 0, 0, 0, 0, 0, 0, 0, 50, 50, |
| 334 | 50, 50, 50, 50, 50, 50, 50, 55, 0, 0, |
| 335 | 53, 0, 0, 55, 0, 0, 55, 0, 54, 0, |
| 336 | 57, 0, 43, 43, 43, 43, 43, 43, 43, 43, |
| 337 | 43, 0, 55, 55, 55, 0, 0, 0, 0, 0, |
| 338 | 0, 0, 53, 0, 0, 0, 0, 0, 0, 0, |
| 339 | 54, 0, 52, 52, 52, 52, 52, 52, 52, 0, |
| 340 | 0, 0, 0, 0, 0, 55, 0, 0, 0, 0, |
| 341 | 0, 0, 0, 74, 0, 0, 0, 0, 88, 154, |
| 342 | 81, 79, 153, 80, 0, 82, 0, 0, 0, 60, |
| 343 | 60, 60, 60, 60, 60, 60, 0, 55, 68, 72, |
| 344 | 69, 0, 78, 83, 84, 0, 86, 0, 0, 0, |
| 345 | 0, 61, 61, 61, 61, 61, 61, 0, 58, 58, |
| 346 | 58, 58, 58, 0, 0, 0, 0, 0, 0, 87, |
| 347 | 0, 0, 85, 0, 0, 0, 0, 0, 0, 0, |
| 348 | 59, 59, 59, 59, 59, 0, 0, 0, 56, 56, |
| 349 | 56, 56, 56, 0, 0, 0, 0, 0, 0, 0, |
| 350 | 0, 0, 0, 0, 0, 74, 0, 0, 0, 0, |
| 351 | 88, 156, 81, 79, 155, 80, 0, 82, 0, 0, |
| 352 | 0, 0, 0, 0, 0, 57, 57, 57, 57, 57, |
| 353 | 68, 72, 69, 0, 78, 0, 0, 0, 0, 88, |
| 354 | 0, 81, 79, 0, 80, 0, 82, 53, 53, 53, |
| 355 | 53, 53, 0, 0, 0, 54, 54, 54, 54, 54, |
| 356 | 74, 87, 0, 78, 85, 88, 110, 81, 79, 0, |
| 357 | 80, 74, 82, 0, 0, 0, 88, 142, 81, 79, |
| 358 | 0, 80, 0, 82, 0, 68, 72, 69, 0, 78, |
| 359 | 87, 0, 0, 85, 0, 0, 68, 72, 69, 0, |
| 360 | 78, 0, 55, 55, 55, 55, 55, 0, 0, 0, |
| 361 | 0, 0, 0, 0, 0, 0, 87, 0, 0, 85, |
| 362 | 0, 0, 0, 0, 0, 0, 74, 87, 0, 0, |
| 363 | 85, 88, 143, 81, 79, 0, 80, 74, 82, 0, |
| 364 | 0, 0, 88, 144, 81, 79, 0, 80, 0, 82, |
| 365 | 0, 68, 72, 69, 0, 78, 0, 0, 0, 0, |
| 366 | 0, 0, 68, 72, 69, 0, 78, 0, 67, 70, |
| 367 | 71, 73, 75, 76, 77, 83, 84, 0, 86, 0, |
| 368 | 0, 0, 87, 0, 0, 85, 0, 0, 0, 0, |
| 369 | 0, 0, 74, 87, 0, 0, 85, 88, 145, 81, |
| 370 | 79, 0, 80, 0, 82, 0, 0, 0, 0, 0, |
| 371 | 0, 0, 0, 0, 0, 0, 0, 68, 72, 69, |
| 372 | 74, 78, 0, 0, 0, 88, 148, 81, 79, 0, |
| 373 | 80, 0, 82, 0, 0, 0, 0, 0, 0, 0, |
| 374 | 0, 0, 0, 0, 0, 68, 72, 69, 87, 78, |
| 375 | 0, 85, 0, 0, 0, 0, 0, 0, 0, 0, |
| 376 | 67, 70, 71, 73, 75, 76, 77, 83, 84, 0, |
| 377 | 86, 0, 0, 0, 0, 0, 87, 0, 0, 85, |
| 378 | 0, 74, 0, 0, 0, 0, 88, 150, 81, 79, |
| 379 | 0, 80, 0, 82, 76, 77, 83, 84, 0, 86, |
| 380 | 0, 0, 0, 0, 0, 0, 68, 72, 69, 0, |
| 381 | 78, 0, 0, 0, 0, 67, 70, 71, 73, 75, |
| 382 | 76, 77, 83, 84, 0, 86, 67, 70, 71, 73, |
| 383 | 75, 76, 77, 83, 84, 0, 86, 87, 0, 0, |
| 384 | 85, 0, 0, 0, 0, 74, 0, 0, 0, 0, |
| 385 | 88, 151, 81, 79, 0, 80, 0, 82, 0, 0, |
| 386 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 387 | 68, 72, 69, 0, 78, 0, 0, 0, 0, 0, |
| 388 | 0, 67, 70, 71, 73, 75, 76, 77, 83, 84, |
| 389 | 0, 86, 67, 70, 71, 73, 75, 76, 77, 83, |
| 390 | 84, 87, 86, 74, 85, 0, 0, 0, 88, 152, |
| 391 | 81, 79, 0, 80, 74, 82, 0, 0, 0, 88, |
| 392 | 0, 81, 79, 157, 80, 0, 82, 0, 68, 72, |
| 393 | 69, 0, 78, 0, 0, 0, 0, 0, 0, 68, |
| 394 | 72, 69, 0, 78, 0, 0, 0, 67, 70, 71, |
| 395 | 73, 75, 76, 77, 83, 84, 0, 86, 0, 87, |
| 396 | 0, 0, 85, 0, 0, 0, 0, 0, 0, 0, |
| 397 | 87, 0, 0, 85, 0, 67, 70, 71, 73, 75, |
| 398 | 76, 77, 83, 84, 0, 86, 0, 0, 0, 74, |
| 399 | 0, 0, 0, 0, 88, 0, 81, 79, 158, 80, |
| 400 | 74, 82, 0, 0, 0, 88, 164, 81, 79, 0, |
| 401 | 80, 0, 82, 0, 68, 72, 69, 0, 78, 0, |
| 402 | 0, 0, 0, 0, 0, 68, 72, 69, 0, 78, |
| 403 | 0, 0, 0, 0, 0, 0, 67, 70, 71, 73, |
| 404 | 75, 76, 77, 83, 84, 87, 86, 0, 85, 0, |
| 405 | 0, 0, 0, 0, 0, 74, 87, 0, 0, 85, |
| 406 | 88, 174, 81, 79, 0, 80, 74, 82, 0, 0, |
| 407 | 0, 88, 175, 81, 79, 0, 80, 0, 82, 0, |
| 408 | 68, 72, 69, 0, 78, 0, 0, 0, 0, 0, |
| 409 | 0, 68, 72, 69, 0, 78, 0, 0, 0, 0, |
| 410 | 67, 70, 71, 73, 75, 76, 77, 83, 84, 0, |
| 411 | 86, 87, 0, 0, 85, 0, 0, 0, 0, 0, |
| 412 | 0, 0, 87, 0, 74, 85, 0, 0, 0, 88, |
| 413 | 176, 81, 79, 0, 80, 0, 82, 0, 0, 0, |
| 414 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 68, |
| 415 | 72, 69, 0, 78, 0, 0, 0, 0, 67, 70, |
| 416 | 71, 73, 75, 76, 77, 83, 84, 0, 86, 67, |
| 417 | 70, 71, 73, 75, 76, 77, 83, 84, 0, 86, |
| 418 | 87, 74, 0, 85, 0, 0, 88, 177, 81, 79, |
| 419 | 0, 80, 0, 82, 0, 0, 0, 0, 0, 0, |
| 420 | 0, 0, 0, 0, 0, 0, 68, 72, 69, 0, |
| 421 | 78, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 422 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 423 | 0, 0, 0, 0, 0, 0, 0, 87, 0, 0, |
| 424 | 85, 0, 0, 0, 67, 70, 71, 73, 75, 76, |
| 425 | 77, 83, 84, 0, 86, 67, 70, 71, 73, 75, |
| 426 | 76, 77, 83, 84, 0, 86, 30, 0, 0, 28, |
| 427 | 0, 29, 0, 0, 74, 0, 0, 0, 0, 88, |
| 428 | 178, 81, 79, 0, 80, 0, 82, 0, 0, 0, |
| 429 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 68, |
| 430 | 72, 69, 0, 78, 0, 0, 0, 0, 0, 0, |
| 431 | 67, 70, 71, 73, 75, 76, 77, 83, 84, 0, |
| 432 | 86, 67, 70, 71, 73, 75, 76, 77, 83, 84, |
| 433 | 87, 86, 74, 85, 0, 0, 0, 88, 0, 81, |
| 434 | 79, 0, 80, 74, 82, 0, 0, 0, 88, 33, |
| 435 | 81, 79, 32, 80, 0, 82, 0, 68, 72, 69, |
| 436 | 0, 78, 0, 0, 0, 0, 0, 0, 68, 72, |
| 437 | 69, 0, 78, 0, 0, 0, 0, 0, 0, 67, |
| 438 | 70, 71, 73, 75, 76, 77, 83, 84, 87, 86, |
| 439 | 43, 85, 0, 28, 0, 29, 0, 0, 0, 87, |
| 440 | 0, 0, 85, 0, 0, 0, 0, 0, 0, 0, |
| 441 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 442 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 443 | 0, 0, 0, 0, 0, 0, 67, 70, 71, 73, |
| 444 | 75, 76, 77, 83, 84, 0, 86, 0, 0, 0, |
| 445 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 446 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 447 | 0, 0, 0, 33, 0, 0, 32, 0, 0, 0, |
| 448 | 0, 0, 0, 1, 0, 0, 2, 3, 4, 5, |
| 449 | 6, 7, 8, 9, 0, 0, 10, 11, 12, 13, |
| 450 | 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, |
| 451 | 24, 25, 26, 0, 27, 0, 0, 0, 0, 0, |
| 452 | 0, 0, 0, 0, 0, 0, 0, 31, 0, 67, |
| 453 | 70, 71, 73, 75, 76, 77, 83, 84, 0, 86, |
| 454 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 455 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 456 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 457 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 458 | 0, 0, 0, 0, 0, 0, 0, 67, 70, 71, |
| 459 | 73, 75, 76, 77, 83, 84, 0, 86, 0, 70, |
| 460 | 71, 73, 75, 76, 77, 83, 84, 1, 86, 0, |
| 461 | 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, |
| 462 | 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, |
| 463 | 20, 21, 22, 23, 24, 25, 26, 35, 27, 0, |
| 464 | 0, 0, 0, 0, 0, 0, 0, 0, 44, 0, |
| 465 | 0, 31, 0, 0, 0, 0, 0, 0, 0, 0, |
| 466 | 0, 0, 0, 0, 0, 61, 0, 63, 0, 0, |
| 467 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 92, |
| 468 | 63, 0, 0, 94, 95, 96, 97, 0, 0, 100, |
| 469 | 0, 102, 103, 104, 105, 106, 107, 108, 0, 109, |
| 470 | 0, 0, 0, 0, 114, 115, 116, 117, 118, 119, |
| 471 | 120, 121, 0, 125, 126, 127, 128, 129, 130, 131, |
| 472 | 132, 133, 0, 0, 0, 0, 137, 0, 0, 0, |
| 473 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 474 | 0, 0, 0, 0, 0, 0, 0, 0, 159, 160, |
| 475 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 476 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 477 | 0, 0, 161, 0, 0, 0, 0, 0, 0, 0, |
| 478 | 0, 0, 0, 0, 0, 0, 166, 0, 0, 0, |
| 479 | 167, 0, 168, 0, 169, 170, 0, 0, 0, 0, |
| 480 | 0, 0, 0, 0, 0, 0, 0, 0, 179, |
| 481 | }; |
| 482 | const short yycheckm2_yycheck[] = |
| 483 | { 40, |
| 484 | 0, 44, 40, 90, 123, 287, 41, 44, 44, 44, |
| 485 | 44, 0, 40, 41, 40, 40, 42, 43, 40, 45, |
| 486 | 41, 47, 41, 44, 40, 44, 41, 266, 267, 44, |
| 487 | 270, 40, 44, 40, 44, 35, 40, 40, 64, 0, |
| 488 | 40, 41, 42, 43, 44, 45, 35, 47, 0, 136, |
| 489 | 93, 266, 41, 42, 43, 44, 45, 93, 47, 93, |
| 490 | 60, 61, 62, 40, 64, 91, 91, 0, 94, 94, |
| 491 | 40, 60, 61, 62, 35, 64, 40, 40, 40, 44, |
| 492 | 41, 42, 43, 44, 45, 123, 47, 125, 125, 41, |
| 493 | 125, 91, 44, 93, 94, 123, 40, 40, 40, 60, |
| 494 | 61, 62, 35, 64, 93, 0, 125, 123, 41, 42, |
| 495 | 43, 44, 45, 125, 47, 125, 40, 123, 41, 41, |
| 496 | 0, 0, 75, -1, -1, 125, -1, 60, 61, 62, |
| 497 | -1, 64, 93, 0, -1, -1, 125, -1, -1, -1, |
| 498 | 35, 93, -1, -1, 0, -1, 41, 42, 43, 44, |
| 499 | 45, 270, 47, -1, -1, -1, 40, -1, 42, 43, |
| 500 | 93, 45, -1, 47, 125, 60, 61, 62, 35, 64, |
| 501 | 0, -1, -1, 125, 41, 42, 43, 44, 45, 35, |
| 502 | 47, -1, -1, -1, -1, 41, 42, 43, 44, 45, |
| 503 | 0, 47, 125, 60, 61, 62, -1, 64, 93, -1, |
| 504 | -1, -1, -1, 33, 60, 61, 62, 91, 64, -1, |
| 505 | 94, -1, -1, 43, -1, -1, -1, -1, 0, -1, |
| 506 | 50, 51, -1, 53, -1, 35, 93, -1, -1, -1, |
| 507 | 125, 41, -1, 43, 44, 45, -1, 93, -1, -1, |
| 508 | -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, |
| 509 | 60, 61, 62, 35, 64, -1, -1, -1, 125, 41, |
| 510 | 42, 43, 44, 45, -1, 47, -1, -1, -1, 125, |
| 511 | 296, 297, 298, -1, 300, 300, -1, -1, 60, 61, |
| 512 | 62, -1, 64, 93, 0, -1, -1, 287, -1, -1, |
| 513 | 290, 291, 292, 293, 294, 295, 296, 297, 298, -1, |
| 514 | 300, 290, 291, 292, 293, 294, 295, 296, 297, 298, |
| 515 | -1, 93, -1, -1, -1, 125, -1, -1, -1, 35, |
| 516 | -1, -1, -1, -1, -1, 41, -1, -1, 44, 290, |
| 517 | 291, 292, 293, 294, 295, 296, 297, 298, -1, -1, |
| 518 | -1, -1, -1, 125, 60, 61, 62, -1, 64, -1, |
| 519 | -1, -1, -1, -1, -1, -1, -1, 290, 291, 292, |
| 520 | 293, 294, 295, 296, 297, 298, -1, -1, -1, -1, |
| 521 | -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, |
| 522 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 523 | -1, -1, -1, -1, -1, 290, 291, 292, 293, 294, |
| 524 | 295, 296, 297, 298, -1, 40, -1, 42, 0, 125, |
| 525 | -1, -1, 47, 297, 298, -1, 300, -1, -1, -1, |
| 526 | -1, -1, -1, 290, 291, 292, 293, 294, 295, 296, |
| 527 | 297, 298, 0, -1, 290, 291, 292, 293, 294, 295, |
| 528 | 296, 297, 298, 35, -1, -1, -1, -1, -1, 41, |
| 529 | 42, 43, 44, 45, -1, 47, 91, -1, -1, 94, |
| 530 | -1, -1, 0, -1, -1, -1, -1, 35, 60, 61, |
| 531 | 62, -1, 64, 41, 42, 43, 44, 45, -1, 47, |
| 532 | 290, 291, 292, 293, 294, 295, 296, -1, -1, -1, |
| 533 | -1, -1, 60, 61, 62, -1, 64, 35, -1, 0, |
| 534 | -1, 93, -1, 41, -1, 43, 44, 45, 290, 291, |
| 535 | 292, 293, 294, 295, 296, 297, 298, -1, -1, -1, |
| 536 | -1, 0, 60, 61, 62, 93, 64, -1, 0, -1, |
| 537 | -1, -1, -1, 125, 35, -1, -1, -1, -1, -1, |
| 538 | 41, -1, -1, 44, -1, -1, 40, -1, 42, 43, |
| 539 | 0, 45, -1, 47, -1, 93, 35, 125, 0, 60, |
| 540 | 61, 62, 41, 35, -1, 44, -1, -1, -1, 41, |
| 541 | 64, -1, 44, -1, 290, 291, 292, 293, 294, 295, |
| 542 | 296, 60, 61, 62, -1, 35, -1, 125, 60, 61, |
| 543 | 62, 41, 93, 35, 44, 0, -1, 91, -1, 41, |
| 544 | 94, -1, 44, -1, -1, -1, -1, -1, -1, -1, |
| 545 | 60, 61, 62, -1, 93, -1, -1, 0, 60, 61, |
| 546 | 62, 93, -1, -1, 125, 0, -1, -1, -1, -1, |
| 547 | 35, -1, -1, -1, -1, -1, 41, -1, -1, 44, |
| 548 | -1, -1, -1, 93, -1, -1, 125, -1, -1, -1, |
| 549 | -1, 93, 35, 125, -1, 60, 61, 62, 41, -1, |
| 550 | 35, 44, 297, 298, -1, 300, 41, -1, -1, 44, |
| 551 | -1, -1, 0, -1, -1, 125, -1, 60, 61, 62, |
| 552 | -1, -1, -1, 125, -1, 60, 61, 62, 93, -1, |
| 553 | -1, -1, -1, -1, -1, -1, -1, -1, 290, 291, |
| 554 | 292, 293, 294, 295, 296, 297, 298, 35, -1, -1, |
| 555 | 93, -1, -1, 41, -1, -1, 44, -1, 93, -1, |
| 556 | 125, -1, 290, 291, 292, 293, 294, 295, 296, 297, |
| 557 | 298, -1, 60, 61, 62, -1, -1, -1, -1, -1, |
| 558 | -1, -1, 125, -1, -1, -1, -1, -1, -1, -1, |
| 559 | 125, -1, 290, 291, 292, 293, 294, 295, 296, -1, |
| 560 | -1, -1, -1, -1, -1, 93, -1, -1, -1, -1, |
| 561 | -1, -1, -1, 35, -1, -1, -1, -1, 40, 41, |
| 562 | 42, 43, 44, 45, -1, 47, -1, -1, -1, 290, |
| 563 | 291, 292, 293, 294, 295, 296, -1, 125, 60, 61, |
| 564 | 62, -1, 64, 297, 298, -1, 300, -1, -1, -1, |
| 565 | -1, 290, 291, 292, 293, 294, 295, -1, 290, 291, |
| 566 | 292, 293, 294, -1, -1, -1, -1, -1, -1, 91, |
| 567 | -1, -1, 94, -1, -1, -1, -1, -1, -1, -1, |
| 568 | 290, 291, 292, 293, 294, -1, -1, -1, 290, 291, |
| 569 | 292, 293, 294, -1, -1, -1, -1, -1, -1, -1, |
| 570 | -1, -1, -1, -1, -1, 35, -1, -1, -1, -1, |
| 571 | 40, 41, 42, 43, 44, 45, -1, 47, -1, -1, |
| 572 | -1, -1, -1, -1, -1, 290, 291, 292, 293, 294, |
| 573 | 60, 61, 62, -1, 64, -1, -1, -1, -1, 40, |
| 574 | -1, 42, 43, -1, 45, -1, 47, 290, 291, 292, |
| 575 | 293, 294, -1, -1, -1, 290, 291, 292, 293, 294, |
| 576 | 35, 91, -1, 64, 94, 40, 41, 42, 43, -1, |
| 577 | 45, 35, 47, -1, -1, -1, 40, 41, 42, 43, |
| 578 | -1, 45, -1, 47, -1, 60, 61, 62, -1, 64, |
| 579 | 91, -1, -1, 94, -1, -1, 60, 61, 62, -1, |
| 580 | 64, -1, 290, 291, 292, 293, 294, -1, -1, -1, |
| 581 | -1, -1, -1, -1, -1, -1, 91, -1, -1, 94, |
| 582 | -1, -1, -1, -1, -1, -1, 35, 91, -1, -1, |
| 583 | 94, 40, 41, 42, 43, -1, 45, 35, 47, -1, |
| 584 | -1, -1, 40, 41, 42, 43, -1, 45, -1, 47, |
| 585 | -1, 60, 61, 62, -1, 64, -1, -1, -1, -1, |
| 586 | -1, -1, 60, 61, 62, -1, 64, -1, 290, 291, |
| 587 | 292, 293, 294, 295, 296, 297, 298, -1, 300, -1, |
| 588 | -1, -1, 91, -1, -1, 94, -1, -1, -1, -1, |
| 589 | -1, -1, 35, 91, -1, -1, 94, 40, 41, 42, |
| 590 | 43, -1, 45, -1, 47, -1, -1, -1, -1, -1, |
| 591 | -1, -1, -1, -1, -1, -1, -1, 60, 61, 62, |
| 592 | 35, 64, -1, -1, -1, 40, 41, 42, 43, -1, |
| 593 | 45, -1, 47, -1, -1, -1, -1, -1, -1, -1, |
| 594 | -1, -1, -1, -1, -1, 60, 61, 62, 91, 64, |
| 595 | -1, 94, -1, -1, -1, -1, -1, -1, -1, -1, |
| 596 | 290, 291, 292, 293, 294, 295, 296, 297, 298, -1, |
| 597 | 300, -1, -1, -1, -1, -1, 91, -1, -1, 94, |
| 598 | -1, 35, -1, -1, -1, -1, 40, 41, 42, 43, |
| 599 | -1, 45, -1, 47, 295, 296, 297, 298, -1, 300, |
| 600 | -1, -1, -1, -1, -1, -1, 60, 61, 62, -1, |
| 601 | 64, -1, -1, -1, -1, 290, 291, 292, 293, 294, |
| 602 | 295, 296, 297, 298, -1, 300, 290, 291, 292, 293, |
| 603 | 294, 295, 296, 297, 298, -1, 300, 91, -1, -1, |
| 604 | 94, -1, -1, -1, -1, 35, -1, -1, -1, -1, |
| 605 | 40, 41, 42, 43, -1, 45, -1, 47, -1, -1, |
| 606 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 607 | 60, 61, 62, -1, 64, -1, -1, -1, -1, -1, |
| 608 | -1, 290, 291, 292, 293, 294, 295, 296, 297, 298, |
| 609 | -1, 300, 290, 291, 292, 293, 294, 295, 296, 297, |
| 610 | 298, 91, 300, 35, 94, -1, -1, -1, 40, 41, |
| 611 | 42, 43, -1, 45, 35, 47, -1, -1, -1, 40, |
| 612 | -1, 42, 43, 44, 45, -1, 47, -1, 60, 61, |
| 613 | 62, -1, 64, -1, -1, -1, -1, -1, -1, 60, |
| 614 | 61, 62, -1, 64, -1, -1, -1, 290, 291, 292, |
| 615 | 293, 294, 295, 296, 297, 298, -1, 300, -1, 91, |
| 616 | -1, -1, 94, -1, -1, -1, -1, -1, -1, -1, |
| 617 | 91, -1, -1, 94, -1, 290, 291, 292, 293, 294, |
| 618 | 295, 296, 297, 298, -1, 300, -1, -1, -1, 35, |
| 619 | -1, -1, -1, -1, 40, -1, 42, 43, 44, 45, |
| 620 | 35, 47, -1, -1, -1, 40, 41, 42, 43, -1, |
| 621 | 45, -1, 47, -1, 60, 61, 62, -1, 64, -1, |
| 622 | -1, -1, -1, -1, -1, 60, 61, 62, -1, 64, |
| 623 | -1, -1, -1, -1, -1, -1, 290, 291, 292, 293, |
| 624 | 294, 295, 296, 297, 298, 91, 300, -1, 94, -1, |
| 625 | -1, -1, -1, -1, -1, 35, 91, -1, -1, 94, |
| 626 | 40, 41, 42, 43, -1, 45, 35, 47, -1, -1, |
| 627 | -1, 40, 41, 42, 43, -1, 45, -1, 47, -1, |
| 628 | 60, 61, 62, -1, 64, -1, -1, -1, -1, -1, |
| 629 | -1, 60, 61, 62, -1, 64, -1, -1, -1, -1, |
| 630 | 290, 291, 292, 293, 294, 295, 296, 297, 298, -1, |
| 631 | 300, 91, -1, -1, 94, -1, -1, -1, -1, -1, |
| 632 | -1, -1, 91, -1, 35, 94, -1, -1, -1, 40, |
| 633 | 41, 42, 43, -1, 45, -1, 47, -1, -1, -1, |
| 634 | -1, -1, -1, -1, -1, -1, -1, -1, -1, 60, |
| 635 | 61, 62, -1, 64, -1, -1, -1, -1, 290, 291, |
| 636 | 292, 293, 294, 295, 296, 297, 298, -1, 300, 290, |
| 637 | 291, 292, 293, 294, 295, 296, 297, 298, -1, 300, |
| 638 | 91, 35, -1, 94, -1, -1, 40, 41, 42, 43, |
| 639 | -1, 45, -1, 47, -1, -1, -1, -1, -1, -1, |
| 640 | -1, -1, -1, -1, -1, -1, 60, 61, 62, -1, |
| 641 | 64, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 642 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 643 | -1, -1, -1, -1, -1, -1, -1, 91, -1, -1, |
| 644 | 94, -1, -1, -1, 290, 291, 292, 293, 294, 295, |
| 645 | 296, 297, 298, -1, 300, 290, 291, 292, 293, 294, |
| 646 | 295, 296, 297, 298, -1, 300, 40, -1, -1, 43, |
| 647 | -1, 45, -1, -1, 35, -1, -1, -1, -1, 40, |
| 648 | 41, 42, 43, -1, 45, -1, 47, -1, -1, -1, |
| 649 | -1, -1, -1, -1, -1, -1, -1, -1, -1, 60, |
| 650 | 61, 62, -1, 64, -1, -1, -1, -1, -1, -1, |
| 651 | 290, 291, 292, 293, 294, 295, 296, 297, 298, -1, |
| 652 | 300, 290, 291, 292, 293, 294, 295, 296, 297, 298, |
| 653 | 91, 300, 35, 94, -1, -1, -1, 40, -1, 42, |
| 654 | 43, -1, 45, 35, 47, -1, -1, -1, 40, 123, |
| 655 | 42, 43, 126, 45, -1, 47, -1, 60, 61, 62, |
| 656 | -1, 64, -1, -1, -1, -1, -1, -1, 60, 61, |
| 657 | 62, -1, 64, -1, -1, -1, -1, -1, -1, 290, |
| 658 | 291, 292, 293, 294, 295, 296, 297, 298, 91, 300, |
| 659 | 40, 94, -1, 43, -1, 45, -1, -1, -1, 91, |
| 660 | -1, -1, 94, -1, -1, -1, -1, -1, -1, -1, |
| 661 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 662 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 663 | -1, -1, -1, -1, -1, -1, 290, 291, 292, 293, |
| 664 | 294, 295, 296, 297, 298, -1, 300, -1, -1, -1, |
| 665 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 666 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 667 | -1, -1, -1, 123, -1, -1, 126, -1, -1, -1, |
| 668 | -1, -1, -1, 257, -1, -1, 260, 261, 262, 263, |
| 669 | 264, 265, 266, 267, -1, -1, 270, 271, 272, 273, |
| 670 | 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, |
| 671 | 284, 285, 286, -1, 288, -1, -1, -1, -1, -1, |
| 672 | -1, -1, -1, -1, -1, -1, -1, 301, -1, 290, |
| 673 | 291, 292, 293, 294, 295, 296, 297, 298, -1, 300, |
| 674 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 675 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 676 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 677 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 678 | -1, -1, -1, -1, -1, -1, -1, 290, 291, 292, |
| 679 | 293, 294, 295, 296, 297, 298, -1, 300, -1, 291, |
| 680 | 292, 293, 294, 295, 296, 297, 298, 257, 300, -1, |
| 681 | 260, 261, 262, 263, 264, 265, 266, 267, -1, -1, |
| 682 | 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, |
| 683 | 280, 281, 282, 283, 284, 285, 286, 0, 288, -1, |
| 684 | -1, -1, -1, -1, -1, -1, -1, -1, 11, -1, |
| 685 | -1, 301, -1, -1, -1, -1, -1, -1, -1, -1, |
| 686 | -1, -1, -1, -1, -1, 28, -1, 30, -1, -1, |
| 687 | -1, -1, -1, -1, -1, -1, -1, -1, -1, 42, |
| 688 | 43, -1, -1, 46, 47, 48, 49, -1, -1, 52, |
| 689 | -1, 54, 55, 56, 57, 58, 59, 60, -1, 62, |
| 690 | -1, -1, -1, -1, 67, 68, 69, 70, 71, 72, |
| 691 | 73, 74, -1, 76, 77, 78, 79, 80, 81, 82, |
| 692 | 83, 84, -1, -1, -1, -1, 89, -1, -1, -1, |
| 693 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 694 | -1, -1, -1, -1, -1, -1, -1, -1, 111, 112, |
| 695 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 696 | -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 697 | -1, -1, 135, -1, -1, -1, -1, -1, -1, -1, |
| 698 | -1, -1, -1, -1, -1, -1, 149, -1, -1, -1, |
| 699 | 153, -1, 155, -1, 157, 158, -1, -1, -1, -1, |
| 700 | -1, -1, -1, -1, -1, -1, -1, -1, 171, |
| 701 | }; |
| 702 | #define YYFINAL34 34 |
| 703 | #ifndef YYDEBUG1 |
| 704 | #define YYDEBUG1 0 |
| 705 | #endif |
| 706 | #define YYMAXTOKEN302 302 |
| 707 | #if YYDEBUG1 |
| 708 | const char * const yynamem2_name[] = |
| 709 | { |
| 710 | "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, |
| 711 | 0,"'#'",0,0,"'&'",0,"'('","')'","'*'","'+'","','","'-'",0,"'/'",0,0,0,0,0,0,0,0, |
| 712 | 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, |
| 713 | 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, |
| 714 | 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, |
| 715 | 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, |
| 716 | 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, |
| 717 | 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"INT","HEX","ERROR","UINT","M2_TRUE", |
| 718 | "M2_FALSE","CHAR","FLOAT","STRING","NAME","BLOCKNAME","IDENT","VARNAME", |
| 719 | "TYPENAME","SIZE","CAP","ORD","HIGH","ABS","MIN_FUNC","MAX_FUNC","FLOAT_FUNC", |
| 720 | "VAL","CHR","ODD","TRUNC","INC","DEC","INCL","EXCL","COLONCOLON","INTERNAL_VAR", |
| 721 | "ABOVE_COMMA","ASSIGN","LEQ","GEQ","NOTEQUAL","IN","OROR","LOGICAL_AND","DIV", |
| 722 | "MOD","UNARY","DOT","NOT","QID", |
| 723 | }; |
| 724 | const char * const yyrulem2_rule[] = |
| 725 | {"$accept : start", |
| 726 | "start : exp", |
| 727 | "start : type_exp", |
| 728 | "type_exp : type", |
| 729 | "exp : exp '^'", |
| 730 | "$$1 :", |
| 731 | "exp : '-' $$1 exp", |
| 732 | "exp : '+' exp", |
| 733 | "exp : not_exp exp", |
| 734 | "not_exp : NOT", |
| 735 | "not_exp : '~'", |
| 736 | "exp : CAP '(' exp ')'", |
| 737 | "exp : ORD '(' exp ')'", |
| 738 | "exp : ABS '(' exp ')'", |
| 739 | "exp : HIGH '(' exp ')'", |
| 740 | "exp : MIN_FUNC '(' type ')'", |
| 741 | "exp : MAX_FUNC '(' type ')'", |
| 742 | "exp : FLOAT_FUNC '(' exp ')'", |
| 743 | "exp : VAL '(' type ',' exp ')'", |
| 744 | "exp : CHR '(' exp ')'", |
| 745 | "exp : ODD '(' exp ')'", |
| 746 | "exp : TRUNC '(' exp ')'", |
| 747 | "exp : SIZE exp", |
| 748 | "exp : INC '(' exp ')'", |
| 749 | "exp : INC '(' exp ',' exp ')'", |
| 750 | "exp : DEC '(' exp ')'", |
| 751 | "exp : DEC '(' exp ',' exp ')'", |
| 752 | "exp : exp DOT NAME", |
| 753 | "exp : set", |
| 754 | "exp : exp IN set", |
| 755 | "exp : INCL '(' exp ',' exp ')'", |
| 756 | "exp : EXCL '(' exp ',' exp ')'", |
| 757 | "set : '{' arglist '}'", |
| 758 | "set : type '{' arglist '}'", |
| 759 | "$$2 :", |
| 760 | "exp : exp '[' $$2 non_empty_arglist ']'", |
| 761 | "$$3 :", |
| 762 | "exp : exp '(' $$3 arglist ')'", |
| 763 | "arglist :", |
| 764 | "arglist : exp", |
| 765 | "arglist : arglist ',' exp", |
| 766 | "non_empty_arglist : exp", |
| 767 | "non_empty_arglist : non_empty_arglist ',' exp", |
| 768 | "exp : '{' type '}' exp", |
| 769 | "exp : type '(' exp ')'", |
| 770 | "exp : '(' exp ')'", |
| 771 | "exp : exp '@' exp", |
| 772 | "exp : exp '*' exp", |
| 773 | "exp : exp '/' exp", |
| 774 | "exp : exp DIV exp", |
| 775 | "exp : exp MOD exp", |
| 776 | "exp : exp '+' exp", |
| 777 | "exp : exp '-' exp", |
| 778 | "exp : exp '=' exp", |
| 779 | "exp : exp NOTEQUAL exp", |
| 780 | "exp : exp '#' exp", |
| 781 | "exp : exp LEQ exp", |
| 782 | "exp : exp GEQ exp", |
| 783 | "exp : exp '<' exp", |
| 784 | "exp : exp '>' exp", |
| 785 | "exp : exp LOGICAL_AND exp", |
| 786 | "exp : exp OROR exp", |
| 787 | "exp : exp ASSIGN exp", |
| 788 | "exp : M2_TRUE", |
| 789 | "exp : M2_FALSE", |
| 790 | "exp : INT", |
| 791 | "exp : UINT", |
| 792 | "exp : CHAR", |
| 793 | "exp : FLOAT", |
| 794 | "exp : variable", |
| 795 | "exp : SIZE '(' type ')'", |
| 796 | "exp : STRING", |
| 797 | "block : fblock", |
| 798 | "fblock : BLOCKNAME", |
| 799 | "fblock : block COLONCOLON BLOCKNAME", |
| 800 | "variable : fblock", |
| 801 | "variable : INTERNAL_VAR", |
| 802 | "variable : block COLONCOLON NAME", |
| 803 | "variable : NAME", |
| 804 | "type : TYPENAME", |
| 805 | }; |
| 806 | #endif |
| 807 | #ifdef YYSTACKSIZE10000 |
| 808 | #undef YYMAXDEPTH10000 |
| 809 | #define YYMAXDEPTH10000 YYSTACKSIZE10000 |
| 810 | #else |
| 811 | #ifdef YYMAXDEPTH10000 |
| 812 | #define YYSTACKSIZE10000 YYMAXDEPTH10000 |
| 813 | #else |
| 814 | #define YYSTACKSIZE10000 10000 |
| 815 | #define YYMAXDEPTH10000 10000 |
| 816 | #endif |
| 817 | #endif |
| 818 | #define YYINITSTACKSIZE200 200 |
| 819 | /* LINTUSED */ |
| 820 | int yydebugm2_debug; |
| 821 | int yynerrsm2_nerrs; |
| 822 | int yyerrflagm2_errflag; |
| 823 | int yycharm2_char; |
| 824 | short *yyssp; |
| 825 | YYSTYPE *yyvsp; |
| 826 | YYSTYPE yyvalm2_val; |
| 827 | YYSTYPE yylvalm2_lval; |
| 828 | short *yyss; |
| 829 | short *yysslim; |
| 830 | YYSTYPE *yyvs; |
| 831 | unsigned int yystacksize; |
| 832 | int yyparsem2_parse(void); |
| 833 | #line 648 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 834 | |
| 835 | #if 0 /* FIXME! */ |
| 836 | int |
| 837 | overflow(a,b) |
| 838 | long a,b; |
| 839 | { |
| 840 | return (MAX_OF_TYPE(builtin_type_m2_int)(((builtin_type_m2_int)->main_type->flags & (1 << 0)) ? UMAX_OF_SIZE((builtin_type_m2_int)->length) : MAX_OF_SIZE ((builtin_type_m2_int)->length)) - b) < a; |
| 841 | } |
| 842 | |
| 843 | int |
| 844 | uoverflow(a,b) |
| 845 | unsigned long a,b; |
| 846 | { |
| 847 | return (MAX_OF_TYPE(builtin_type_m2_card)(((builtin_type_m2_card)->main_type->flags & (1 << 0)) ? UMAX_OF_SIZE((builtin_type_m2_card)->length) : MAX_OF_SIZE ((builtin_type_m2_card)->length)) - b) < a; |
| 848 | } |
| 849 | #endif /* FIXME */ |
| 850 | |
| 851 | /* Take care of parsing a number (anything that starts with a digit). |
| 852 | Set yylval and return the token type; update lexptr. |
| 853 | LEN is the number of characters in it. */ |
| 854 | |
| 855 | /*** Needs some error checking for the float case ***/ |
| 856 | |
| 857 | static int |
| 858 | parse_number (olen) |
| 859 | int olen; |
| 860 | { |
| 861 | char *p = lexptr; |
| 862 | LONGESTlong n = 0; |
| 863 | LONGESTlong prevn = 0; |
| 864 | int c,i,ischar=0; |
| 865 | int base = input_radix; |
| 866 | int len = olen; |
| 867 | int unsigned_p = number_sign == 1 ? 1 : 0; |
| 868 | |
| 869 | if(p[len-1] == 'H') |
| 870 | { |
| 871 | base = 16; |
| 872 | len--; |
| 873 | } |
| 874 | else if(p[len-1] == 'C' || p[len-1] == 'B') |
| 875 | { |
| 876 | base = 8; |
| 877 | ischar = p[len-1] == 'C'; |
| 878 | len--; |
| 879 | } |
| 880 | |
| 881 | /* Scan the number */ |
| 882 | for (c = 0; c < len; c++) |
| 883 | { |
| 884 | if (p[c] == '.' && base == 10) |
| 885 | { |
| 886 | /* It's a float since it contains a point. */ |
| 887 | yylvalm2_lval.dval = atof (p); |
| 888 | lexptr += len; |
| 889 | return FLOAT264; |
| 890 | } |
| 891 | if (p[c] == '.' && base != 10) |
| 892 | error("Floating point numbers must be base 10."); |
| 893 | if (base == 10 && (p[c] < '0' || p[c] > '9')) |
| 894 | error("Invalid digit \'%c\' in number.",p[c]); |
| 895 | } |
| 896 | |
| 897 | while (len-- > 0) |
| 898 | { |
| 899 | c = *p++; |
| 900 | n *= base; |
| 901 | if( base == 8 && (c == '8' || c == '9')) |
| 902 | error("Invalid digit \'%c\' in octal number.",c); |
| 903 | if (c >= '0' && c <= '9') |
| 904 | i = c - '0'; |
| 905 | else |
| 906 | { |
| 907 | if (base == 16 && c >= 'A' && c <= 'F') |
| 908 | i = c - 'A' + 10; |
| 909 | else |
| 910 | return ERROR259; |
| 911 | } |
| 912 | n+=i; |
| 913 | if(i >= base) |
| 914 | return ERROR259; |
| 915 | if(!unsigned_p && number_sign == 1 && (prevn >= n)) |
| 916 | unsigned_p=1; /* Try something unsigned */ |
| 917 | /* Don't do the range check if n==i and i==0, since that special |
| 918 | case will give an overflow error. */ |
| 919 | if(RANGE_CHECK(range_check != range_check_off) && n!=i && i) |
| 920 | { |
| 921 | if((unsigned_p && (unsigned)prevn >= (unsigned)n) || |
| 922 | ((!unsigned_p && number_sign==-1) && -prevn <= -n)) |
| 923 | range_error("Overflow on numeric constant."); |
| 924 | } |
| 925 | prevn=n; |
| 926 | } |
| 927 | |
| 928 | lexptr = p; |
| 929 | if(*p == 'B' || *p == 'C' || *p == 'H') |
| 930 | lexptr++; /* Advance past B,C or H */ |
| 931 | |
| 932 | if (ischar) |
| 933 | { |
| 934 | yylvalm2_lval.ulval = n; |
| 935 | return CHAR263; |
| 936 | } |
| 937 | else if ( unsigned_p && number_sign == 1) |
| 938 | { |
| 939 | yylvalm2_lval.ulval = n; |
| 940 | return UINT260; |
| 941 | } |
| 942 | else if((unsigned_p && (n<0))) { |
| 943 | range_error("Overflow on numeric constant -- number too large."); |
| 944 | /* But, this can return if range_check == range_warn. */ |
| 945 | } |
| 946 | yylvalm2_lval.lval = n; |
| 947 | return INT257; |
| 948 | } |
| 949 | |
| 950 | |
| 951 | /* Some tokens */ |
| 952 | |
| 953 | static struct |
| 954 | { |
| 955 | char name[2]; |
| 956 | int token; |
| 957 | } tokentab2[] = |
| 958 | { |
| 959 | { {'<', '>'}, NOTEQUAL293 }, |
| 960 | { {':', '='}, ASSIGN290 }, |
| 961 | { {'<', '='}, LEQ291 }, |
| 962 | { {'>', '='}, GEQ292 }, |
| 963 | { {':', ':'}, COLONCOLON287 }, |
| 964 | |
| 965 | }; |
| 966 | |
| 967 | /* Some specific keywords */ |
| 968 | |
| 969 | struct keyword { |
| 970 | char keyw[10]; |
| 971 | int token; |
| 972 | }; |
| 973 | |
| 974 | static struct keyword keytab[] = |
| 975 | { |
| 976 | {"OR" , OROR295 }, |
| 977 | {"IN", IN294 },/* Note space after IN */ |
| 978 | {"AND", LOGICAL_AND296}, |
| 979 | {"ABS", ABS275 }, |
| 980 | {"CHR", CHR280 }, |
| 981 | {"DEC", DEC284 }, |
| 982 | {"NOT", NOT301 }, |
| 983 | {"DIV", DIV297 }, |
| 984 | {"INC", INC283 }, |
| 985 | {"MAX", MAX_FUNC277 }, |
| 986 | {"MIN", MIN_FUNC276 }, |
| 987 | {"MOD", MOD298 }, |
| 988 | {"ODD", ODD281 }, |
| 989 | {"CAP", CAP272 }, |
| 990 | {"ORD", ORD273 }, |
| 991 | {"VAL", VAL279 }, |
| 992 | {"EXCL", EXCL286 }, |
| 993 | {"HIGH", HIGH274 }, |
| 994 | {"INCL", INCL285 }, |
| 995 | {"SIZE", SIZE271 }, |
| 996 | {"FLOAT", FLOAT_FUNC278 }, |
| 997 | {"TRUNC", TRUNC282 }, |
| 998 | }; |
| 999 | |
| 1000 | |
| 1001 | /* Read one token, getting characters through lexptr. */ |
| 1002 | |
| 1003 | /* This is where we will check to make sure that the language and the operators used are |
| 1004 | compatible */ |
| 1005 | |
| 1006 | static int |
| 1007 | yylexm2_lex () |
| 1008 | { |
| 1009 | int c; |
| 1010 | int namelen; |
| 1011 | int i; |
| 1012 | char *tokstart; |
| 1013 | char quote; |
| 1014 | |
| 1015 | retry: |
| 1016 | |
| 1017 | prev_lexptr = lexptr; |
| 1018 | |
| 1019 | tokstart = lexptr; |
| 1020 | |
| 1021 | |
| 1022 | /* See if it is a special token of length 2 */ |
| 1023 | for( i = 0 ; i < (int) (sizeof tokentab2 / sizeof tokentab2[0]) ; i++) |
| 1024 | if(DEPRECATED_STREQN(tokentab2[i].name, tokstart, 2)(strncmp ((tokentab2[i].name), (tokstart), (2)) == 0)) |
| 1025 | { |
| 1026 | lexptr += 2; |
| 1027 | return tokentab2[i].token; |
| 1028 | } |
| 1029 | |
| 1030 | switch (c = *tokstart) |
| 1031 | { |
| 1032 | case 0: |
| 1033 | return 0; |
| 1034 | |
| 1035 | case ' ': |
| 1036 | case '\t': |
| 1037 | case '\n': |
| 1038 | lexptr++; |
| 1039 | goto retry; |
| 1040 | |
| 1041 | case '(': |
| 1042 | paren_depth++; |
| 1043 | lexptr++; |
| 1044 | return c; |
| 1045 | |
| 1046 | case ')': |
| 1047 | if (paren_depth == 0) |
| 1048 | return 0; |
| 1049 | paren_depth--; |
| 1050 | lexptr++; |
| 1051 | return c; |
| 1052 | |
| 1053 | case ',': |
| 1054 | if (comma_terminates && paren_depth == 0) |
| 1055 | return 0; |
| 1056 | lexptr++; |
| 1057 | return c; |
| 1058 | |
| 1059 | case '.': |
| 1060 | /* Might be a floating point number. */ |
| 1061 | if (lexptr[1] >= '0' && lexptr[1] <= '9') |
| 1062 | break; /* Falls into number code. */ |
| 1063 | else |
| 1064 | { |
| 1065 | lexptr++; |
| 1066 | return DOT300; |
| 1067 | } |
| 1068 | |
| 1069 | /* These are character tokens that appear as-is in the YACC grammar */ |
| 1070 | case '+': |
| 1071 | case '-': |
| 1072 | case '*': |
| 1073 | case '/': |
| 1074 | case '^': |
| 1075 | case '<': |
| 1076 | case '>': |
| 1077 | case '[': |
| 1078 | case ']': |
| 1079 | case '=': |
| 1080 | case '{': |
| 1081 | case '}': |
| 1082 | case '#': |
| 1083 | case '@': |
| 1084 | case '~': |
| 1085 | case '&': |
| 1086 | lexptr++; |
| 1087 | return c; |
| 1088 | |
| 1089 | case '\'' : |
| 1090 | case '"': |
| 1091 | quote = c; |
| 1092 | for (namelen = 1; (c = tokstart[namelen]) != quote && c != '\0'; namelen++) |
| 1093 | if (c == '\\') |
| 1094 | { |
| 1095 | c = tokstart[++namelen]; |
| 1096 | if (c >= '0' && c <= '9') |
| 1097 | { |
| 1098 | c = tokstart[++namelen]; |
| 1099 | if (c >= '0' && c <= '9') |
| 1100 | c = tokstart[++namelen]; |
Value stored to 'c' is never read | |
| 1101 | } |
| 1102 | } |
| 1103 | if(c != quote) |
| 1104 | error("Unterminated string or character constant."); |
| 1105 | yylvalm2_lval.sval.ptr = tokstart + 1; |
| 1106 | yylvalm2_lval.sval.length = namelen - 1; |
| 1107 | lexptr += namelen + 1; |
| 1108 | |
| 1109 | if(namelen == 2) /* Single character */ |
| 1110 | { |
| 1111 | yylvalm2_lval.ulval = tokstart[1]; |
| 1112 | return CHAR263; |
| 1113 | } |
| 1114 | else |
| 1115 | return STRING265; |
| 1116 | } |
| 1117 | |
| 1118 | /* Is it a number? */ |
| 1119 | /* Note: We have already dealt with the case of the token '.'. |
| 1120 | See case '.' above. */ |
| 1121 | if ((c >= '0' && c <= '9')) |
| 1122 | { |
| 1123 | /* It's a number. */ |
| 1124 | int got_dot = 0, got_e = 0; |
| 1125 | char *p = tokstart; |
| 1126 | int toktype; |
| 1127 | |
| 1128 | for (++p ;; ++p) |
| 1129 | { |
| 1130 | if (!got_e && (*p == 'e' || *p == 'E')) |
| 1131 | got_dot = got_e = 1; |
| 1132 | else if (!got_dot && *p == '.') |
| 1133 | got_dot = 1; |
| 1134 | else if (got_e && (p[-1] == 'e' || p[-1] == 'E') |
| 1135 | && (*p == '-' || *p == '+')) |
| 1136 | /* This is the sign of the exponent, not the end of the |
| 1137 | number. */ |
| 1138 | continue; |
| 1139 | else if ((*p < '0' || *p > '9') && |
| 1140 | (*p < 'A' || *p > 'F') && |
| 1141 | (*p != 'H')) /* Modula-2 hexadecimal number */ |
| 1142 | break; |
| 1143 | } |
| 1144 | toktype = parse_number (p - tokstart); |
| 1145 | if (toktype == ERROR259) |
| 1146 | { |
| 1147 | char *err_copy = (char *) alloca (p - tokstart + 1)__builtin_alloca(p - tokstart + 1); |
| 1148 | |
| 1149 | memcpy (err_copy, tokstart, p - tokstart); |
| 1150 | err_copy[p - tokstart] = 0; |
| 1151 | error ("Invalid number \"%s\".", err_copy); |
| 1152 | } |
| 1153 | lexptr = p; |
| 1154 | return toktype; |
| 1155 | } |
| 1156 | |
| 1157 | if (!(c == '_' || c == '$' |
| 1158 | || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z'))) |
| 1159 | /* We must have come across a bad character (e.g. ';'). */ |
| 1160 | error ("Invalid character '%c' in expression.", c); |
| 1161 | |
| 1162 | /* It's a name. See how long it is. */ |
| 1163 | namelen = 0; |
| 1164 | for (c = tokstart[namelen]; |
| 1165 | (c == '_' || c == '$' || (c >= '0' && c <= '9') |
| 1166 | || (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')); |
| 1167 | c = tokstart[++namelen]) |
| 1168 | ; |
| 1169 | |
| 1170 | /* The token "if" terminates the expression and is NOT |
| 1171 | removed from the input stream. */ |
| 1172 | if (namelen == 2 && tokstart[0] == 'i' && tokstart[1] == 'f') |
| 1173 | { |
| 1174 | return 0; |
| 1175 | } |
| 1176 | |
| 1177 | lexptr += namelen; |
| 1178 | |
| 1179 | /* Lookup special keywords */ |
| 1180 | for(i = 0 ; i < (int) (sizeof(keytab) / sizeof(keytab[0])) ; i++) |
| 1181 | if(namelen == strlen(keytab[i].keyw) && DEPRECATED_STREQN(tokstart,keytab[i].keyw,namelen)(strncmp ((tokstart), (keytab[i].keyw), (namelen)) == 0)) |
| 1182 | return keytab[i].token; |
| 1183 | |
| 1184 | yylvalm2_lval.sval.ptr = tokstart; |
| 1185 | yylvalm2_lval.sval.length = namelen; |
| 1186 | |
| 1187 | if (*tokstart == '$') |
| 1188 | { |
| 1189 | write_dollar_variable (yylvalm2_lval.sval); |
| 1190 | return INTERNAL_VAR288; |
| 1191 | } |
| 1192 | |
| 1193 | /* Use token-type BLOCKNAME for symbols that happen to be defined as |
| 1194 | functions. If this is not so, then ... |
| 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 | |
| 1200 | |
| 1201 | char *tmp = copy_name (yylvalm2_lval.sval); |
| 1202 | struct symbol *sym; |
| 1203 | |
| 1204 | if (lookup_partial_symtab (tmp)) |
| 1205 | return BLOCKNAME267; |
| 1206 | sym = lookup_symbol (tmp, expression_context_block, |
| 1207 | VAR_DOMAIN, 0, NULL((void*)0)); |
| 1208 | if (sym && SYMBOL_CLASS (sym)(sym)->aclass == LOC_BLOCK) |
| 1209 | return BLOCKNAME267; |
| 1210 | if (lookup_typename (copy_name (yylvalm2_lval.sval), expression_context_block, 1)) |
| 1211 | return TYPENAME270; |
| 1212 | |
| 1213 | if(sym) |
| 1214 | { |
| 1215 | switch(sym->aclass) |
| 1216 | { |
| 1217 | case LOC_STATIC: |
| 1218 | case LOC_REGISTER: |
| 1219 | case LOC_ARG: |
| 1220 | case LOC_REF_ARG: |
| 1221 | case LOC_REGPARM: |
| 1222 | case LOC_REGPARM_ADDR: |
| 1223 | case LOC_LOCAL: |
| 1224 | case LOC_LOCAL_ARG: |
| 1225 | case LOC_BASEREG: |
| 1226 | case LOC_BASEREG_ARG: |
| 1227 | case LOC_CONST: |
| 1228 | case LOC_CONST_BYTES: |
| 1229 | case LOC_OPTIMIZED_OUT: |
| 1230 | case LOC_COMPUTED: |
| 1231 | case LOC_COMPUTED_ARG: |
| 1232 | return NAME266; |
| 1233 | |
| 1234 | case LOC_TYPEDEF: |
| 1235 | return TYPENAME270; |
| 1236 | |
| 1237 | case LOC_BLOCK: |
| 1238 | return BLOCKNAME267; |
| 1239 | |
| 1240 | case LOC_UNDEF: |
| 1241 | error("internal: Undefined class in m2lex()"); |
| 1242 | |
| 1243 | case LOC_LABEL: |
| 1244 | case LOC_UNRESOLVED: |
| 1245 | error("internal: Unforseen case in m2lex()"); |
| 1246 | |
| 1247 | default: |
| 1248 | error ("unhandled token in m2lex()"); |
| 1249 | break; |
| 1250 | } |
| 1251 | } |
| 1252 | else |
| 1253 | { |
| 1254 | /* Built-in BOOLEAN type. This is sort of a hack. */ |
| 1255 | if(DEPRECATED_STREQN(tokstart,"TRUE",4)(strncmp ((tokstart), ("TRUE"), (4)) == 0)) |
| 1256 | { |
| 1257 | yylvalm2_lval.ulval = 1; |
| 1258 | return M2_TRUE261; |
| 1259 | } |
| 1260 | else if(DEPRECATED_STREQN(tokstart,"FALSE",5)(strncmp ((tokstart), ("FALSE"), (5)) == 0)) |
| 1261 | { |
| 1262 | yylvalm2_lval.ulval = 0; |
| 1263 | return M2_FALSE262; |
| 1264 | } |
| 1265 | } |
| 1266 | |
| 1267 | /* Must be another type of name... */ |
| 1268 | return NAME266; |
| 1269 | } |
| 1270 | } |
| 1271 | |
| 1272 | #if 0 /* Unused */ |
| 1273 | static char * |
| 1274 | make_qualname(mod,ident) |
| 1275 | char *mod, *ident; |
| 1276 | { |
| 1277 | char *new = xmalloc(strlen(mod)+strlen(ident)+2); |
| 1278 | |
| 1279 | strcpy(new,mod); |
| 1280 | strcat(new,"."); |
| 1281 | strcat(new,ident); |
| 1282 | return new; |
| 1283 | } |
| 1284 | #endif /* 0 */ |
| 1285 | |
| 1286 | void |
| 1287 | yyerrorm2_error (msg) |
| 1288 | char *msg; |
| 1289 | { |
| 1290 | if (prev_lexptr) |
| 1291 | lexptr = prev_lexptr; |
| 1292 | |
| 1293 | error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); |
| 1294 | } |
| 1295 | /* allocate initial stack or double stack size, up to YYMAXDEPTH */ |
| 1296 | static int yygrowstack(void) |
| 1297 | { |
| 1298 | unsigned int newsize; |
| 1299 | long sslen; |
| 1300 | short *newss; |
| 1301 | YYSTYPE *newvs; |
| 1302 | |
| 1303 | if ((newsize = yystacksize) == 0) |
| 1304 | newsize = YYINITSTACKSIZE200; |
| 1305 | else if (newsize >= YYMAXDEPTH10000) |
| 1306 | return -1; |
| 1307 | else if ((newsize *= 2) > YYMAXDEPTH10000) |
| 1308 | newsize = YYMAXDEPTH10000; |
| 1309 | sslen = yyssp - yyss; |
| 1310 | #ifdef SIZE_MAX |
| 1311 | #define YY_SIZE_MAX0xffffffffU SIZE_MAX |
| 1312 | #else |
| 1313 | #define YY_SIZE_MAX0xffffffffU 0xffffffffU |
| 1314 | #endif |
| 1315 | if (newsize && YY_SIZE_MAX0xffffffffU / newsize < sizeof *newss) |
| 1316 | goto bail; |
| 1317 | newss = (short *)xrealloc(yyss, newsize * sizeof *newss); |
| 1318 | if (newss == NULL((void*)0)) |
| 1319 | goto bail; |
| 1320 | yyss = newss; |
| 1321 | yyssp = newss + sslen; |
| 1322 | if (newsize && YY_SIZE_MAX0xffffffffU / newsize < sizeof *newvs) |
| 1323 | goto bail; |
| 1324 | newvs = (YYSTYPE *)xrealloc(yyvs, newsize * sizeof *newvs); |
| 1325 | if (newvs == NULL((void*)0)) |
| 1326 | goto bail; |
| 1327 | yyvs = newvs; |
| 1328 | yyvsp = newvs + sslen; |
| 1329 | yystacksize = newsize; |
| 1330 | yysslim = yyss + newsize - 1; |
| 1331 | return 0; |
| 1332 | bail: |
| 1333 | if (yyss) |
| 1334 | free(yyss); |
| 1335 | if (yyvs) |
| 1336 | free(yyvs); |
| 1337 | yyss = yyssp = NULL((void*)0); |
| 1338 | yyvs = yyvsp = NULL((void*)0); |
| 1339 | yystacksize = 0; |
| 1340 | return -1; |
| 1341 | } |
| 1342 | |
| 1343 | #define YYABORTgoto yyabort goto yyabort |
| 1344 | #define YYREJECTgoto yyabort goto yyabort |
| 1345 | #define YYACCEPTgoto yyaccept goto yyaccept |
| 1346 | #define YYERRORgoto yyerrlab goto yyerrlab |
| 1347 | int |
| 1348 | yyparsem2_parse(void) |
| 1349 | { |
| 1350 | int yym, yyn, yystatem2_state; |
| 1351 | #if YYDEBUG1 |
| 1352 | const char *yysm2_s; |
| 1353 | |
| 1354 | if ((yysm2_s = getenv("YYDEBUG"))) |
| 1355 | { |
| 1356 | yyn = *yysm2_s; |
| 1357 | if (yyn >= '0' && yyn <= '9') |
| 1358 | yydebugm2_debug = yyn - '0'; |
| 1359 | } |
| 1360 | #endif /* YYDEBUG */ |
| 1361 | |
| 1362 | yynerrsm2_nerrs = 0; |
| 1363 | yyerrflagm2_errflag = 0; |
| 1364 | yycharm2_char = (-1); |
| 1365 | |
| 1366 | if (yyss == NULL((void*)0) && yygrowstack()) goto yyoverflow; |
| 1367 | yyssp = yyss; |
| 1368 | yyvsp = yyvs; |
| 1369 | *yyssp = yystatem2_state = 0; |
| 1370 | |
| 1371 | yyloop: |
| 1372 | if ((yyn = yydefredm2_yydefred[yystatem2_state]) != 0) goto yyreduce; |
| 1373 | if (yycharm2_char < 0) |
| 1374 | { |
| 1375 | if ((yycharm2_char = yylexm2_lex()) < 0) yycharm2_char = 0; |
| 1376 | #if YYDEBUG1 |
| 1377 | if (yydebugm2_debug) |
| 1378 | { |
| 1379 | yysm2_s = 0; |
| 1380 | if (yycharm2_char <= YYMAXTOKEN302) yysm2_s = yynamem2_name[yycharm2_char]; |
| 1381 | if (!yysm2_s) yysm2_s = "illegal-symbol"; |
| 1382 | printf("%sdebug: state %d, reading %d (%s)\n", |
| 1383 | YYPREFIX"yy", yystatem2_state, yycharm2_char, yysm2_s); |
| 1384 | } |
| 1385 | #endif |
| 1386 | } |
| 1387 | if ((yyn = yysindexm2_yysindex[yystatem2_state]) && (yyn += yycharm2_char) >= 0 && |
| 1388 | yyn <= YYTABLESIZE2169 && yycheckm2_yycheck[yyn] == yycharm2_char) |
| 1389 | { |
| 1390 | #if YYDEBUG1 |
| 1391 | if (yydebugm2_debug) |
| 1392 | printf("%sdebug: state %d, shifting to state %d\n", |
| 1393 | YYPREFIX"yy", yystatem2_state, yytablem2_yytable[yyn]); |
| 1394 | #endif |
| 1395 | if (yyssp >= yysslim && yygrowstack()) |
| 1396 | { |
| 1397 | goto yyoverflow; |
| 1398 | } |
| 1399 | *++yyssp = yystatem2_state = yytablem2_yytable[yyn]; |
| 1400 | *++yyvsp = yylvalm2_lval; |
| 1401 | yycharm2_char = (-1); |
| 1402 | if (yyerrflagm2_errflag > 0) --yyerrflagm2_errflag; |
| 1403 | goto yyloop; |
| 1404 | } |
| 1405 | if ((yyn = yyrindexm2_yyrindex[yystatem2_state]) && (yyn += yycharm2_char) >= 0 && |
| 1406 | yyn <= YYTABLESIZE2169 && yycheckm2_yycheck[yyn] == yycharm2_char) |
| 1407 | { |
| 1408 | yyn = yytablem2_yytable[yyn]; |
| 1409 | goto yyreduce; |
| 1410 | } |
| 1411 | if (yyerrflagm2_errflag) goto yyinrecovery; |
| 1412 | #if defined(__GNUC__4) |
| 1413 | goto yynewerror; |
| 1414 | #endif |
| 1415 | yynewerror: |
| 1416 | yyerrorm2_error("syntax error"); |
| 1417 | #if defined(__GNUC__4) |
| 1418 | goto yyerrlab; |
| 1419 | #endif |
| 1420 | yyerrlab: |
| 1421 | ++yynerrsm2_nerrs; |
| 1422 | yyinrecovery: |
| 1423 | if (yyerrflagm2_errflag < 3) |
| 1424 | { |
| 1425 | yyerrflagm2_errflag = 3; |
| 1426 | for (;;) |
| 1427 | { |
| 1428 | if ((yyn = yysindexm2_yysindex[*yyssp]) && (yyn += YYERRCODE256) >= 0 && |
| 1429 | yyn <= YYTABLESIZE2169 && yycheckm2_yycheck[yyn] == YYERRCODE256) |
| 1430 | { |
| 1431 | #if YYDEBUG1 |
| 1432 | if (yydebugm2_debug) |
| 1433 | printf("%sdebug: state %d, error recovery shifting\ |
| 1434 | to state %d\n", YYPREFIX"yy", *yyssp, yytablem2_yytable[yyn]); |
| 1435 | #endif |
| 1436 | if (yyssp >= yysslim && yygrowstack()) |
| 1437 | { |
| 1438 | goto yyoverflow; |
| 1439 | } |
| 1440 | *++yyssp = yystatem2_state = yytablem2_yytable[yyn]; |
| 1441 | *++yyvsp = yylvalm2_lval; |
| 1442 | goto yyloop; |
| 1443 | } |
| 1444 | else |
| 1445 | { |
| 1446 | #if YYDEBUG1 |
| 1447 | if (yydebugm2_debug) |
| 1448 | printf("%sdebug: error recovery discarding state %d\n", |
| 1449 | YYPREFIX"yy", *yyssp); |
| 1450 | #endif |
| 1451 | if (yyssp <= yyss) goto yyabort; |
| 1452 | --yyssp; |
| 1453 | --yyvsp; |
| 1454 | } |
| 1455 | } |
| 1456 | } |
| 1457 | else |
| 1458 | { |
| 1459 | if (yycharm2_char == 0) goto yyabort; |
| 1460 | #if YYDEBUG1 |
| 1461 | if (yydebugm2_debug) |
| 1462 | { |
| 1463 | yysm2_s = 0; |
| 1464 | if (yycharm2_char <= YYMAXTOKEN302) yysm2_s = yynamem2_name[yycharm2_char]; |
| 1465 | if (!yysm2_s) yysm2_s = "illegal-symbol"; |
| 1466 | printf("%sdebug: state %d, error recovery discards token %d (%s)\n", |
| 1467 | YYPREFIX"yy", yystatem2_state, yycharm2_char, yysm2_s); |
| 1468 | } |
| 1469 | #endif |
| 1470 | yycharm2_char = (-1); |
| 1471 | goto yyloop; |
| 1472 | } |
| 1473 | yyreduce: |
| 1474 | #if YYDEBUG1 |
| 1475 | if (yydebugm2_debug) |
| 1476 | printf("%sdebug: state %d, reducing by rule %d (%s)\n", |
| 1477 | YYPREFIX"yy", yystatem2_state, yyn, yyrulem2_rule[yyn]); |
| 1478 | #endif |
| 1479 | yym = yylenm2_yylen[yyn]; |
| 1480 | if (yym) |
| 1481 | yyvalm2_val = yyvsp[1-yym]; |
| 1482 | else |
| 1483 | memset(&yyvalm2_val, 0, sizeof yyvalm2_val); |
| 1484 | switch (yyn) |
| 1485 | { |
| 1486 | case 3: |
| 1487 | #line 210 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1488 | { write_exp_elt_opcode(OP_TYPE); |
| 1489 | write_exp_elt_type(yyvsp[0].tval); |
| 1490 | write_exp_elt_opcode(OP_TYPE); |
| 1491 | } |
| 1492 | break; |
| 1493 | case 4: |
| 1494 | #line 219 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1495 | { write_exp_elt_opcode (UNOP_IND); } |
| 1496 | break; |
| 1497 | case 5: |
| 1498 | #line 223 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1499 | { number_sign = -1; } |
| 1500 | break; |
| 1501 | case 6: |
| 1502 | #line 225 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1503 | { number_sign = 1; |
| 1504 | write_exp_elt_opcode (UNOP_NEG); } |
| 1505 | break; |
| 1506 | case 7: |
| 1507 | #line 230 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1508 | { write_exp_elt_opcode(UNOP_PLUS); } |
| 1509 | break; |
| 1510 | case 8: |
| 1511 | #line 234 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1512 | { write_exp_elt_opcode (UNOP_LOGICAL_NOT); } |
| 1513 | break; |
| 1514 | case 11: |
| 1515 | #line 242 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1516 | { write_exp_elt_opcode (UNOP_CAP); } |
| 1517 | break; |
| 1518 | case 12: |
| 1519 | #line 246 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1520 | { write_exp_elt_opcode (UNOP_ORD); } |
| 1521 | break; |
| 1522 | case 13: |
| 1523 | #line 250 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1524 | { write_exp_elt_opcode (UNOP_ABS); } |
| 1525 | break; |
| 1526 | case 14: |
| 1527 | #line 254 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1528 | { write_exp_elt_opcode (UNOP_HIGH); } |
| 1529 | break; |
| 1530 | case 15: |
| 1531 | #line 258 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1532 | { write_exp_elt_opcode (UNOP_MIN); |
| 1533 | write_exp_elt_type (yyvsp[-1].tval); |
| 1534 | write_exp_elt_opcode (UNOP_MIN); } |
| 1535 | break; |
| 1536 | case 16: |
| 1537 | #line 264 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1538 | { write_exp_elt_opcode (UNOP_MAX); |
| 1539 | write_exp_elt_type (yyvsp[-1].tval); |
| 1540 | write_exp_elt_opcode (UNOP_MIN); } |
| 1541 | break; |
| 1542 | case 17: |
| 1543 | #line 270 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1544 | { write_exp_elt_opcode (UNOP_FLOAT); } |
| 1545 | break; |
| 1546 | case 18: |
| 1547 | #line 274 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1548 | { write_exp_elt_opcode (BINOP_VAL); |
| 1549 | write_exp_elt_type (yyvsp[-3].tval); |
| 1550 | write_exp_elt_opcode (BINOP_VAL); } |
| 1551 | break; |
| 1552 | case 19: |
| 1553 | #line 280 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1554 | { write_exp_elt_opcode (UNOP_CHR); } |
| 1555 | break; |
| 1556 | case 20: |
| 1557 | #line 284 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1558 | { write_exp_elt_opcode (UNOP_ODD); } |
| 1559 | break; |
| 1560 | case 21: |
| 1561 | #line 288 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1562 | { write_exp_elt_opcode (UNOP_TRUNC); } |
| 1563 | break; |
| 1564 | case 22: |
| 1565 | #line 292 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1566 | { write_exp_elt_opcode (UNOP_SIZEOF); } |
| 1567 | break; |
| 1568 | case 23: |
| 1569 | #line 297 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1570 | { write_exp_elt_opcode(UNOP_PREINCREMENT); } |
| 1571 | break; |
| 1572 | case 24: |
| 1573 | #line 301 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1574 | { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); |
| 1575 | write_exp_elt_opcode(BINOP_ADD); |
| 1576 | write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); } |
| 1577 | break; |
| 1578 | case 25: |
| 1579 | #line 307 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1580 | { write_exp_elt_opcode(UNOP_PREDECREMENT);} |
| 1581 | break; |
| 1582 | case 26: |
| 1583 | #line 311 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1584 | { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); |
| 1585 | write_exp_elt_opcode(BINOP_SUB); |
| 1586 | write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); } |
| 1587 | break; |
| 1588 | case 27: |
| 1589 | #line 317 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1590 | { write_exp_elt_opcode (STRUCTOP_STRUCT); |
| 1591 | write_exp_string (yyvsp[0].sval); |
| 1592 | write_exp_elt_opcode (STRUCTOP_STRUCT); } |
| 1593 | break; |
| 1594 | case 29: |
| 1595 | #line 326 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1596 | { error("Sets are not implemented.");} |
| 1597 | break; |
| 1598 | case 30: |
| 1599 | #line 330 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1600 | { error("Sets are not implemented.");} |
| 1601 | break; |
| 1602 | case 31: |
| 1603 | #line 334 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1604 | { error("Sets are not implemented.");} |
| 1605 | break; |
| 1606 | case 32: |
| 1607 | #line 338 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1608 | { error("Sets are not implemented.");} |
| 1609 | break; |
| 1610 | case 33: |
| 1611 | #line 340 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1612 | { error("Sets are not implemented.");} |
| 1613 | break; |
| 1614 | case 34: |
| 1615 | #line 349 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1616 | { start_arglist(); } |
| 1617 | break; |
| 1618 | case 35: |
| 1619 | #line 351 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1620 | { write_exp_elt_opcode (MULTI_SUBSCRIPT); |
| 1621 | write_exp_elt_longcst ((LONGESTlong) end_arglist()); |
| 1622 | write_exp_elt_opcode (MULTI_SUBSCRIPT); } |
| 1623 | break; |
| 1624 | case 36: |
| 1625 | #line 359 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1626 | { start_arglist (); } |
| 1627 | break; |
| 1628 | case 37: |
| 1629 | #line 361 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1630 | { write_exp_elt_opcode (OP_FUNCALL); |
| 1631 | write_exp_elt_longcst ((LONGESTlong) end_arglist ()); |
| 1632 | write_exp_elt_opcode (OP_FUNCALL); } |
| 1633 | break; |
| 1634 | case 39: |
| 1635 | #line 370 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1636 | { arglist_len = 1; } |
| 1637 | break; |
| 1638 | case 40: |
| 1639 | #line 374 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1640 | { arglist_len++; } |
| 1641 | break; |
| 1642 | case 41: |
| 1643 | #line 379 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1644 | { arglist_len = 1; } |
| 1645 | break; |
| 1646 | case 42: |
| 1647 | #line 384 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1648 | { arglist_len++; } |
| 1649 | break; |
| 1650 | case 43: |
| 1651 | #line 389 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1652 | { write_exp_elt_opcode (UNOP_MEMVAL); |
| 1653 | write_exp_elt_type (yyvsp[-2].tval); |
| 1654 | write_exp_elt_opcode (UNOP_MEMVAL); } |
| 1655 | break; |
| 1656 | case 44: |
| 1657 | #line 395 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1658 | { write_exp_elt_opcode (UNOP_CAST); |
| 1659 | write_exp_elt_type (yyvsp[-3].tval); |
| 1660 | write_exp_elt_opcode (UNOP_CAST); } |
| 1661 | break; |
| 1662 | case 45: |
| 1663 | #line 401 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1664 | { } |
| 1665 | break; |
| 1666 | case 46: |
| 1667 | #line 409 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1668 | { write_exp_elt_opcode (BINOP_REPEAT); } |
| 1669 | break; |
| 1670 | case 47: |
| 1671 | #line 413 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1672 | { write_exp_elt_opcode (BINOP_MUL); } |
| 1673 | break; |
| 1674 | case 48: |
| 1675 | #line 417 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1676 | { write_exp_elt_opcode (BINOP_DIV); } |
| 1677 | break; |
| 1678 | case 49: |
| 1679 | #line 421 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1680 | { write_exp_elt_opcode (BINOP_INTDIV); } |
| 1681 | break; |
| 1682 | case 50: |
| 1683 | #line 425 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1684 | { write_exp_elt_opcode (BINOP_REM); } |
| 1685 | break; |
| 1686 | case 51: |
| 1687 | #line 429 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1688 | { write_exp_elt_opcode (BINOP_ADD); } |
| 1689 | break; |
| 1690 | case 52: |
| 1691 | #line 433 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1692 | { write_exp_elt_opcode (BINOP_SUB); } |
| 1693 | break; |
| 1694 | case 53: |
| 1695 | #line 437 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1696 | { write_exp_elt_opcode (BINOP_EQUAL); } |
| 1697 | break; |
| 1698 | case 54: |
| 1699 | #line 441 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1700 | { write_exp_elt_opcode (BINOP_NOTEQUAL); } |
| 1701 | break; |
| 1702 | case 55: |
| 1703 | #line 443 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1704 | { write_exp_elt_opcode (BINOP_NOTEQUAL); } |
| 1705 | break; |
| 1706 | case 56: |
| 1707 | #line 447 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1708 | { write_exp_elt_opcode (BINOP_LEQ); } |
| 1709 | break; |
| 1710 | case 57: |
| 1711 | #line 451 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1712 | { write_exp_elt_opcode (BINOP_GEQ); } |
| 1713 | break; |
| 1714 | case 58: |
| 1715 | #line 455 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1716 | { write_exp_elt_opcode (BINOP_LESS); } |
| 1717 | break; |
| 1718 | case 59: |
| 1719 | #line 459 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1720 | { write_exp_elt_opcode (BINOP_GTR); } |
| 1721 | break; |
| 1722 | case 60: |
| 1723 | #line 463 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1724 | { write_exp_elt_opcode (BINOP_LOGICAL_AND); } |
| 1725 | break; |
| 1726 | case 61: |
| 1727 | #line 467 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1728 | { write_exp_elt_opcode (BINOP_LOGICAL_OR); } |
| 1729 | break; |
| 1730 | case 62: |
| 1731 | #line 471 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1732 | { write_exp_elt_opcode (BINOP_ASSIGN); } |
| 1733 | break; |
| 1734 | case 63: |
| 1735 | #line 478 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1736 | { write_exp_elt_opcode (OP_BOOL); |
| 1737 | write_exp_elt_longcst ((LONGESTlong) yyvsp[0].ulval); |
| 1738 | write_exp_elt_opcode (OP_BOOL); } |
| 1739 | break; |
| 1740 | case 64: |
| 1741 | #line 484 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1742 | { write_exp_elt_opcode (OP_BOOL); |
| 1743 | write_exp_elt_longcst ((LONGESTlong) yyvsp[0].ulval); |
| 1744 | write_exp_elt_opcode (OP_BOOL); } |
| 1745 | break; |
| 1746 | case 65: |
| 1747 | #line 490 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1748 | { write_exp_elt_opcode (OP_LONG); |
| 1749 | write_exp_elt_type (builtin_type_m2_int); |
| 1750 | write_exp_elt_longcst ((LONGESTlong) yyvsp[0].lval); |
| 1751 | write_exp_elt_opcode (OP_LONG); } |
| 1752 | break; |
| 1753 | case 66: |
| 1754 | #line 497 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1755 | { |
| 1756 | write_exp_elt_opcode (OP_LONG); |
| 1757 | write_exp_elt_type (builtin_type_m2_card); |
| 1758 | write_exp_elt_longcst ((LONGESTlong) yyvsp[0].ulval); |
| 1759 | write_exp_elt_opcode (OP_LONG); |
| 1760 | } |
| 1761 | break; |
| 1762 | case 67: |
| 1763 | #line 506 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1764 | { write_exp_elt_opcode (OP_LONG); |
| 1765 | write_exp_elt_type (builtin_type_m2_char); |
| 1766 | write_exp_elt_longcst ((LONGESTlong) yyvsp[0].ulval); |
| 1767 | write_exp_elt_opcode (OP_LONG); } |
| 1768 | break; |
| 1769 | case 68: |
| 1770 | #line 514 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1771 | { write_exp_elt_opcode (OP_DOUBLE); |
| 1772 | write_exp_elt_type (builtin_type_m2_real); |
| 1773 | write_exp_elt_dblcst (yyvsp[0].dval); |
| 1774 | write_exp_elt_opcode (OP_DOUBLE); } |
| 1775 | break; |
| 1776 | case 70: |
| 1777 | #line 524 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1778 | { write_exp_elt_opcode (OP_LONG); |
| 1779 | write_exp_elt_type (builtin_type_int); |
| 1780 | write_exp_elt_longcst ((LONGESTlong) TYPE_LENGTH (yyvsp[-1].tval)(yyvsp[-1].tval)->length); |
| 1781 | write_exp_elt_opcode (OP_LONG); } |
| 1782 | break; |
| 1783 | case 71: |
| 1784 | #line 531 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1785 | { write_exp_elt_opcode (OP_M2_STRING); |
| 1786 | write_exp_string (yyvsp[0].sval); |
| 1787 | write_exp_elt_opcode (OP_M2_STRING); } |
| 1788 | break; |
| 1789 | case 72: |
| 1790 | #line 538 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1791 | { yyvalm2_val.bval = SYMBOL_BLOCK_VALUE(yyvsp[0].sym)(yyvsp[0].sym)->ginfo.value.block; } |
| 1792 | break; |
| 1793 | case 73: |
| 1794 | #line 542 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1795 | { struct symbol *sym |
| 1796 | = lookup_symbol (copy_name (yyvsp[0].sval), expression_context_block, |
| 1797 | VAR_DOMAIN, 0, NULL((void*)0)); |
| 1798 | yyvalm2_val.sym = sym;} |
| 1799 | break; |
| 1800 | case 74: |
| 1801 | #line 551 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1802 | { struct symbol *tem |
| 1803 | = lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval, |
| 1804 | VAR_DOMAIN, 0, NULL((void*)0)); |
| 1805 | if (!tem || SYMBOL_CLASS (tem)(tem)->aclass != LOC_BLOCK) |
| 1806 | error ("No function \"%s\" in specified context.", |
| 1807 | copy_name (yyvsp[0].sval)); |
| 1808 | yyvalm2_val.sym = tem; |
| 1809 | } |
| 1810 | break; |
| 1811 | case 75: |
| 1812 | #line 563 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1813 | { write_exp_elt_opcode(OP_VAR_VALUE); |
| 1814 | write_exp_elt_block (NULL((void*)0)); |
| 1815 | write_exp_elt_sym (yyvsp[0].sym); |
| 1816 | write_exp_elt_opcode (OP_VAR_VALUE); } |
| 1817 | break; |
| 1818 | case 77: |
| 1819 | #line 575 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1820 | { struct symbol *sym; |
| 1821 | sym = lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval, |
| 1822 | VAR_DOMAIN, 0, NULL((void*)0)); |
| 1823 | if (sym == 0) |
| 1824 | error ("No symbol \"%s\" in specified context.", |
| 1825 | copy_name (yyvsp[0].sval)); |
| 1826 | |
| 1827 | write_exp_elt_opcode (OP_VAR_VALUE); |
| 1828 | /* block_found is set by lookup_symbol. */ |
| 1829 | write_exp_elt_block (block_found); |
| 1830 | write_exp_elt_sym (sym); |
| 1831 | write_exp_elt_opcode (OP_VAR_VALUE); } |
| 1832 | break; |
| 1833 | case 78: |
| 1834 | #line 591 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1835 | { struct symbol *sym; |
| 1836 | int is_a_field_of_this; |
| 1837 | |
| 1838 | sym = lookup_symbol (copy_name (yyvsp[0].sval), |
| 1839 | expression_context_block, |
| 1840 | VAR_DOMAIN, |
| 1841 | &is_a_field_of_this, |
| 1842 | NULL((void*)0)); |
| 1843 | if (sym) |
| 1844 | { |
| 1845 | if (symbol_read_needs_frame (sym)) |
| 1846 | { |
| 1847 | if (innermost_block == 0 || |
| 1848 | contained_in (block_found, |
| 1849 | innermost_block)) |
| 1850 | innermost_block = block_found; |
| 1851 | } |
| 1852 | |
| 1853 | write_exp_elt_opcode (OP_VAR_VALUE); |
| 1854 | /* We want to use the selected frame, not |
| 1855 | another more inner frame which happens to |
| 1856 | be in the same block. */ |
| 1857 | write_exp_elt_block (NULL((void*)0)); |
| 1858 | write_exp_elt_sym (sym); |
| 1859 | write_exp_elt_opcode (OP_VAR_VALUE); |
| 1860 | } |
| 1861 | else |
| 1862 | { |
| 1863 | struct minimal_symbol *msymbol; |
| 1864 | char *arg = copy_name (yyvsp[0].sval); |
| 1865 | |
| 1866 | msymbol = |
| 1867 | lookup_minimal_symbol (arg, NULL((void*)0), NULL((void*)0)); |
| 1868 | if (msymbol != NULL((void*)0)) |
| 1869 | { |
| 1870 | write_exp_msymbol |
| 1871 | (msymbol, |
| 1872 | lookup_function_type (builtin_type_int), |
| 1873 | builtin_type_int); |
| 1874 | } |
| 1875 | else if (!have_full_symbols () && !have_partial_symbols ()) |
| 1876 | error ("No symbol table is loaded. Use the \"symbol-file\" command."); |
| 1877 | else |
| 1878 | error ("No symbol \"%s\" in current context.", |
| 1879 | copy_name (yyvsp[0].sval)); |
| 1880 | } |
| 1881 | } |
| 1882 | break; |
| 1883 | case 79: |
| 1884 | #line 642 "/usr/src/gnu/usr.bin/binutils/gdb/m2-exp.y" |
| 1885 | { yyvalm2_val.tval = lookup_typename (copy_name (yyvsp[0].sval), |
| 1886 | expression_context_block, 0); } |
| 1887 | break; |
| 1888 | } |
| 1889 | yyssp -= yym; |
| 1890 | yystatem2_state = *yyssp; |
| 1891 | yyvsp -= yym; |
| 1892 | yym = yylhsm2_yylhs[yyn]; |
| 1893 | if (yystatem2_state == 0 && yym == 0) |
| 1894 | { |
| 1895 | #if YYDEBUG1 |
| 1896 | if (yydebugm2_debug) |
| 1897 | printf("%sdebug: after reduction, shifting from state 0 to\ |
| 1898 | state %d\n", YYPREFIX"yy", YYFINAL34); |
| 1899 | #endif |
| 1900 | yystatem2_state = YYFINAL34; |
| 1901 | *++yyssp = YYFINAL34; |
| 1902 | *++yyvsp = yyvalm2_val; |
| 1903 | if (yycharm2_char < 0) |
| 1904 | { |
| 1905 | if ((yycharm2_char = yylexm2_lex()) < 0) yycharm2_char = 0; |
| 1906 | #if YYDEBUG1 |
| 1907 | if (yydebugm2_debug) |
| 1908 | { |
| 1909 | yysm2_s = 0; |
| 1910 | if (yycharm2_char <= YYMAXTOKEN302) yysm2_s = yynamem2_name[yycharm2_char]; |
| 1911 | if (!yysm2_s) yysm2_s = "illegal-symbol"; |
| 1912 | printf("%sdebug: state %d, reading %d (%s)\n", |
| 1913 | YYPREFIX"yy", YYFINAL34, yycharm2_char, yysm2_s); |
| 1914 | } |
| 1915 | #endif |
| 1916 | } |
| 1917 | if (yycharm2_char == 0) goto yyaccept; |
| 1918 | goto yyloop; |
| 1919 | } |
| 1920 | if ((yyn = yygindexm2_yygindex[yym]) && (yyn += yystatem2_state) >= 0 && |
| 1921 | yyn <= YYTABLESIZE2169 && yycheckm2_yycheck[yyn] == yystatem2_state) |
| 1922 | yystatem2_state = yytablem2_yytable[yyn]; |
| 1923 | else |
| 1924 | yystatem2_state = yydgotom2_yydgoto[yym]; |
| 1925 | #if YYDEBUG1 |
| 1926 | if (yydebugm2_debug) |
| 1927 | printf("%sdebug: after reduction, shifting from state %d \ |
| 1928 | to state %d\n", YYPREFIX"yy", *yyssp, yystatem2_state); |
| 1929 | #endif |
| 1930 | if (yyssp >= yysslim && yygrowstack()) |
| 1931 | { |
| 1932 | goto yyoverflow; |
| 1933 | } |
| 1934 | *++yyssp = yystatem2_state; |
| 1935 | *++yyvsp = yyvalm2_val; |
| 1936 | goto yyloop; |
| 1937 | yyoverflow: |
| 1938 | yyerrorm2_error("yacc stack overflow"); |
| 1939 | yyabort: |
| 1940 | if (yyss) |
| 1941 | free(yyss); |
| 1942 | if (yyvs) |
| 1943 | free(yyvs); |
| 1944 | yyss = yyssp = NULL((void*)0); |
| 1945 | yyvs = yyvsp = NULL((void*)0); |
| 1946 | yystacksize = 0; |
| 1947 | return (1); |
| 1948 | yyaccept: |
| 1949 | if (yyss) |
| 1950 | free(yyss); |
| 1951 | if (yyvs) |
| 1952 | free(yyvs); |
| 1953 | yyss = yyssp = NULL((void*)0); |
| 1954 | yyvs = yyvsp = NULL((void*)0); |
| 1955 | yystacksize = 0; |
| 1956 | return (0); |
| 1957 | } |