diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 1999-05-26 15:24:21 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 1999-05-26 15:24:21 +0000 |
| commit | 1f8d3f5d5d2edbacba705858e1fe5af530389b9c (patch) | |
| tree | 475bb04e5b9fa6510484440e847805be95f532d2 /gnu/egcs/gcc/objc | |
| parent | cbfc74933876bce03bce3138d5d7bc7587d161d7 (diff) | |
Remove bison/yacc output files and change Makefiles rules to regenerate
them.
Diffstat (limited to 'gnu/egcs/gcc/objc')
| -rw-r--r-- | gnu/egcs/gcc/objc/Make-lang.in | 15 | ||||
| -rw-r--r-- | gnu/egcs/gcc/objc/objc-parse.c | 5195 | ||||
| -rw-r--r-- | gnu/egcs/gcc/objc/objc-parse.y | 3003 |
3 files changed, 7 insertions, 8206 deletions
diff --git a/gnu/egcs/gcc/objc/Make-lang.in b/gnu/egcs/gcc/objc/Make-lang.in index 9a84f0f59ca..773116f73ab 100644 --- a/gnu/egcs/gcc/objc/Make-lang.in +++ b/gnu/egcs/gcc/objc/Make-lang.in @@ -64,30 +64,29 @@ cc1obj$(exeext): $(P) $(OBJS) $(OBJC_OBJS) $(LIBDEPS) # Objective C language specific files. -objc-parse.o : $(srcdir)/objc/objc-parse.c \ +objc-parse.o : objc-parse.c \ $(CONFIG_H) $(TREE_H) $(srcdir)/toplev.h \ $(srcdir)/c-lex.h $(srcdir)/c-tree.h $(srcdir)/input.h \ $(srcdir)/flags.h $(srcdir)/output.h $(srcdir)/objc/objc-act.h system.h $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -I$(srcdir)/objc \ - -c $(srcdir)/objc/objc-parse.c + -c objc-parse.c -$(INTL_TARGETS): $(srcdir)/objc/objc-parse.c -$(srcdir)/objc/objc-parse.c : $(srcdir)/objc/objc-parse.y - cd $(srcdir)/objc; \ +$(INTL_TARGETS): objc-parse.c +objc-parse.c : objc-parse.y $(BISON) $(BISONFLAGS) -o objc-parse.c objc-parse.y -$(srcdir)/objc/objc-parse.y: $(srcdir)/c-parse.in +objc-parse.y: $(srcdir)/c-parse.in echo '/*WARNING: This file is automatically generated!*/' >tmp-objc-prs.y sed -e "/^ifc$$/,/^end ifc$$/d" \ -e "/^ifobjc$$/d" -e "/^end ifobjc$$/d" \ $(srcdir)/c-parse.in >>tmp-objc-prs.y - $(srcdir)/move-if-change tmp-objc-prs.y $(srcdir)/objc/objc-parse.y + $(srcdir)/move-if-change tmp-objc-prs.y objc-parse.y objc-act.o : $(srcdir)/objc/objc-act.c \ $(CONFIG_H) $(TREE_H) $(RTL_H) system.h \ $(srcdir)/c-tree.h $(srcdir)/c-lex.h $(srcdir)/toplev.h \ $(srcdir)/flags.h $(srcdir)/objc/objc-act.h $(srcdir)/input.h \ - $(srcdir)/function.h $(srcdir)/output.h $(srcdir)/c-parse.h + $(srcdir)/function.h $(srcdir)/output.h c-parse.h $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -I$(srcdir)/objc \ -c $(srcdir)/objc/objc-act.c diff --git a/gnu/egcs/gcc/objc/objc-parse.c b/gnu/egcs/gcc/objc/objc-parse.c deleted file mode 100644 index b95312d8708..00000000000 --- a/gnu/egcs/gcc/objc/objc-parse.c +++ /dev/null @@ -1,5195 +0,0 @@ - -/* A Bison parser, made from objc-parse.y - by GNU Bison version 1.25 - */ - -#define YYBISON 1 /* Identify Bison output. */ - -#define IDENTIFIER 258 -#define TYPENAME 259 -#define SCSPEC 260 -#define TYPESPEC 261 -#define TYPE_QUAL 262 -#define CONSTANT 263 -#define STRING 264 -#define ELLIPSIS 265 -#define SIZEOF 266 -#define ENUM 267 -#define STRUCT 268 -#define UNION 269 -#define IF 270 -#define ELSE 271 -#define WHILE 272 -#define DO 273 -#define FOR 274 -#define SWITCH 275 -#define CASE 276 -#define DEFAULT 277 -#define BREAK 278 -#define CONTINUE 279 -#define RETURN 280 -#define GOTO 281 -#define ASM_KEYWORD 282 -#define TYPEOF 283 -#define ALIGNOF 284 -#define ATTRIBUTE 285 -#define EXTENSION 286 -#define LABEL 287 -#define REALPART 288 -#define IMAGPART 289 -#define ASSIGN 290 -#define OROR 291 -#define ANDAND 292 -#define EQCOMPARE 293 -#define ARITHCOMPARE 294 -#define LSHIFT 295 -#define RSHIFT 296 -#define UNARY 297 -#define PLUSPLUS 298 -#define MINUSMINUS 299 -#define HYPERUNARY 300 -#define POINTSAT 301 -#define INTERFACE 302 -#define IMPLEMENTATION 303 -#define END 304 -#define SELECTOR 305 -#define DEFS 306 -#define ENCODE 307 -#define CLASSNAME 308 -#define PUBLIC 309 -#define PRIVATE 310 -#define PROTECTED 311 -#define PROTOCOL 312 -#define OBJECTNAME 313 -#define CLASS 314 -#define ALIAS 315 -#define OBJC_STRING 316 - -#line 33 "objc-parse.y" - -#include "config.h" -#include "system.h" -#include <setjmp.h> - -#include "tree.h" -#include "input.h" -#include "c-lex.h" -#include "c-tree.h" -#include "flags.h" -#include "output.h" -#include "toplev.h" - -#ifdef MULTIBYTE_CHARS -#include <locale.h> -#endif - -#include "objc-act.h" - -/* Since parsers are distinct for each language, put the language string - definition here. */ -char *language_string = "GNU Obj-C"; - -/* Like YYERROR but do call yyerror. */ -#define YYERROR1 { yyerror ("syntax error"); YYERROR; } - -/* Cause the `yydebug' variable to be defined. */ -#define YYDEBUG 1 - -#line 65 "objc-parse.y" -typedef union {long itype; tree ttype; enum tree_code code; - char *filename; int lineno; int ends_in_label; } YYSTYPE; -#line 193 "objc-parse.y" - -/* Number of statements (loosely speaking) and compound statements - seen so far. */ -static int stmt_count; -static int compstmt_count; - -/* Input file and line number of the end of the body of last simple_if; - used by the stmt-rule immediately after simple_if returns. */ -static char *if_stmt_file; -static int if_stmt_line; - -/* List of types and structure classes of the current declaration. */ -static tree current_declspecs = NULL_TREE; -static tree prefix_attributes = NULL_TREE; - -/* Stack of saved values of current_declspecs and prefix_attributes. */ -static tree declspec_stack; - -/* 1 if we explained undeclared var errors. */ -static int undeclared_variable_notice; - -/* Objective-C specific information */ - -tree objc_interface_context; -tree objc_implementation_context; -tree objc_method_context; -tree objc_ivar_chain; -tree objc_ivar_context; -enum tree_code objc_inherit_code; -int objc_receiver_context; -int objc_public_flag; - - -/* Tell yyparse how to print a token's value, if yydebug is set. */ - -#define YYPRINT(FILE,YYCHAR,YYLVAL) yyprint(FILE,YYCHAR,YYLVAL) -extern void yyprint PROTO ((FILE *, int, YYSTYPE)); -#include <stdio.h> - -#ifndef __cplusplus -#ifndef __STDC__ -#define const -#endif -#endif - - - -#define YYFINAL 955 -#define YYFLAG -32768 -#define YYNTBASE 84 - -#define YYTRANSLATE(x) ((unsigned)(x) <= 316 ? yytranslate[x] : 311) - -static const char yytranslate[] = { 0, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 80, 2, 2, 2, 52, 43, 2, 59, - 76, 50, 48, 81, 49, 58, 51, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 38, 77, 2, - 36, 2, 37, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 60, 2, 83, 42, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 82, 41, 78, 79, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, - 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, - 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, - 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, - 39, 40, 44, 45, 46, 47, 53, 54, 55, 56, - 57, 61, 62, 63, 64, 65, 66, 67, 68, 69, - 70, 71, 72, 73, 74, 75 -}; - -#if YYDEBUG != 0 -static const short yyprhs[] = { 0, - 0, 1, 3, 4, 7, 8, 12, 14, 16, 18, - 24, 27, 31, 36, 41, 44, 47, 50, 53, 55, - 56, 57, 65, 70, 71, 72, 80, 85, 86, 87, - 94, 98, 100, 102, 104, 106, 108, 110, 112, 114, - 116, 118, 120, 122, 123, 125, 127, 131, 133, 136, - 139, 142, 145, 148, 153, 156, 161, 164, 167, 169, - 171, 173, 178, 179, 187, 189, 193, 197, 201, 205, - 209, 213, 217, 221, 225, 229, 233, 237, 238, 243, - 244, 249, 250, 251, 259, 260, 266, 270, 274, 276, - 278, 280, 284, 288, 289, 294, 299, 304, 308, 312, - 315, 318, 320, 322, 324, 326, 328, 330, 333, 335, - 338, 339, 341, 344, 348, 350, 352, 355, 358, 363, - 368, 371, 374, 378, 380, 382, 385, 388, 389, 390, - 395, 400, 404, 408, 411, 414, 417, 420, 424, 425, - 428, 431, 434, 437, 441, 442, 445, 448, 450, 452, - 455, 458, 460, 462, 465, 468, 471, 475, 476, 479, - 481, 483, 485, 488, 491, 493, 498, 503, 505, 507, - 509, 511, 515, 517, 521, 522, 527, 528, 535, 539, - 540, 547, 551, 552, 554, 556, 559, 566, 568, 572, - 573, 575, 580, 587, 592, 594, 596, 598, 600, 602, - 603, 608, 610, 611, 614, 616, 620, 624, 627, 628, - 633, 635, 636, 641, 643, 645, 647, 650, 653, 654, - 655, 661, 662, 663, 669, 671, 673, 677, 681, 686, - 690, 694, 698, 700, 702, 706, 711, 715, 719, 723, - 725, 729, 733, 737, 742, 746, 750, 752, 754, 757, - 759, 762, 764, 767, 768, 776, 782, 785, 786, 794, - 800, 803, 804, 813, 814, 822, 825, 826, 828, 829, - 831, 833, 836, 837, 841, 844, 849, 853, 855, 859, - 861, 863, 866, 868, 872, 877, 884, 890, 892, 896, - 898, 900, 904, 907, 910, 911, 913, 915, 918, 919, - 922, 926, 930, 933, 937, 942, 946, 949, 953, 956, - 960, 962, 964, 967, 970, 971, 973, 976, 977, 978, - 980, 982, 985, 989, 991, 994, 996, 999, 1006, 1012, - 1018, 1021, 1024, 1029, 1030, 1035, 1036, 1037, 1041, 1046, - 1050, 1052, 1054, 1056, 1058, 1061, 1062, 1067, 1069, 1073, - 1074, 1075, 1083, 1089, 1092, 1093, 1094, 1095, 1108, 1109, - 1116, 1119, 1122, 1125, 1129, 1136, 1145, 1156, 1169, 1173, - 1178, 1180, 1182, 1183, 1190, 1194, 1200, 1203, 1207, 1208, - 1210, 1211, 1213, 1214, 1216, 1218, 1222, 1227, 1229, 1233, - 1234, 1237, 1240, 1241, 1246, 1249, 1250, 1252, 1254, 1258, - 1260, 1264, 1269, 1274, 1279, 1284, 1289, 1290, 1293, 1295, - 1298, 1300, 1304, 1306, 1310, 1312, 1314, 1316, 1318, 1320, - 1322, 1324, 1326, 1330, 1334, 1339, 1340, 1341, 1352, 1353, - 1360, 1361, 1362, 1375, 1376, 1385, 1386, 1393, 1396, 1397, - 1406, 1411, 1412, 1422, 1428, 1429, 1436, 1437, 1439, 1443, - 1447, 1449, 1451, 1453, 1455, 1456, 1460, 1463, 1467, 1471, - 1473, 1474, 1476, 1480, 1482, 1486, 1489, 1490, 1491, 1492, - 1500, 1501, 1502, 1503, 1511, 1512, 1513, 1516, 1518, 1520, - 1523, 1524, 1528, 1530, 1532, 1533, 1534, 1540, 1541, 1542, - 1548, 1553, 1555, 1561, 1564, 1565, 1568, 1569, 1571, 1573, - 1575, 1578, 1581, 1586, 1589, 1592, 1594, 1598, 1601, 1604, - 1607, 1608, 1611, 1612, 1616, 1618, 1620, 1623, 1625, 1627, - 1629, 1631, 1633, 1635, 1637, 1639, 1641, 1643, 1645, 1647, - 1649, 1651, 1653, 1655, 1657, 1659, 1661, 1663, 1665, 1667, - 1669, 1671, 1673, 1680, 1684, 1690, 1693, 1695, 1697, 1699, - 1702, 1704, 1708, 1711, 1713, 1715, 1716, 1717, 1724, 1726, - 1728, 1730, 1733, 1736, 1738, 1743, 1748 -}; - -static const short yyrhs[] = { -1, - 85, 0, 0, 86, 88, 0, 0, 85, 87, 88, - 0, 90, 0, 89, 0, 242, 0, 27, 59, 99, - 76, 77, 0, 241, 88, 0, 123, 137, 77, 0, - 130, 123, 137, 77, 0, 126, 123, 136, 77, 0, - 130, 77, 0, 126, 77, 0, 1, 77, 0, 1, - 78, 0, 77, 0, 0, 0, 126, 123, 165, 91, - 117, 92, 199, 0, 126, 123, 165, 1, 0, 0, - 0, 130, 123, 168, 93, 117, 94, 199, 0, 130, - 123, 168, 1, 0, 0, 0, 123, 168, 95, 117, - 96, 199, 0, 123, 168, 1, 0, 3, 0, 4, - 0, 72, 0, 67, 0, 43, 0, 49, 0, 48, - 0, 54, 0, 55, 0, 79, 0, 80, 0, 101, - 0, 0, 101, 0, 107, 0, 101, 81, 107, 0, - 113, 0, 50, 105, 0, 241, 105, 0, 98, 105, - 0, 40, 97, 0, 103, 102, 0, 103, 59, 186, - 76, 0, 104, 102, 0, 104, 59, 186, 76, 0, - 33, 105, 0, 34, 105, 0, 11, 0, 29, 0, - 102, 0, 59, 186, 76, 105, 0, 0, 59, 186, - 76, 82, 106, 151, 78, 0, 105, 0, 107, 48, - 107, 0, 107, 49, 107, 0, 107, 50, 107, 0, - 107, 51, 107, 0, 107, 52, 107, 0, 107, 46, - 107, 0, 107, 47, 107, 0, 107, 45, 107, 0, - 107, 44, 107, 0, 107, 43, 107, 0, 107, 41, - 107, 0, 107, 42, 107, 0, 0, 107, 40, 108, - 107, 0, 0, 107, 39, 109, 107, 0, 0, 0, - 107, 37, 110, 99, 38, 111, 107, 0, 0, 107, - 37, 112, 38, 107, 0, 107, 36, 107, 0, 107, - 35, 107, 0, 3, 0, 8, 0, 115, 0, 59, - 99, 76, 0, 59, 1, 76, 0, 0, 59, 114, - 201, 76, 0, 113, 59, 100, 76, 0, 113, 60, - 99, 83, 0, 113, 58, 97, 0, 113, 57, 97, - 0, 113, 54, 0, 113, 55, 0, 302, 0, 308, - 0, 309, 0, 310, 0, 116, 0, 9, 0, 115, - 9, 0, 75, 0, 116, 75, 0, 0, 119, 0, - 119, 10, 0, 206, 207, 120, 0, 118, 0, 194, - 0, 119, 118, 0, 118, 194, 0, 128, 123, 136, - 77, 0, 131, 123, 137, 77, 0, 128, 77, 0, - 131, 77, 0, 206, 207, 125, 0, 121, 0, 194, - 0, 122, 121, 0, 121, 194, 0, 0, 0, 126, - 123, 136, 77, 0, 130, 123, 137, 77, 0, 126, - 123, 159, 0, 130, 123, 162, 0, 126, 77, 0, - 130, 77, 0, 241, 125, 0, 134, 127, 0, 130, - 134, 127, 0, 0, 127, 135, 0, 127, 5, 0, - 127, 144, 0, 134, 129, 0, 131, 134, 129, 0, - 0, 129, 135, 0, 129, 5, 0, 131, 0, 144, - 0, 130, 131, 0, 130, 144, 0, 7, 0, 5, - 0, 131, 7, 0, 131, 5, 0, 134, 133, 0, - 188, 134, 133, 0, 0, 133, 135, 0, 6, 0, - 172, 0, 4, 0, 67, 258, 0, 72, 258, 0, - 259, 0, 28, 59, 99, 76, 0, 28, 59, 186, - 76, 0, 6, 0, 7, 0, 172, 0, 139, 0, - 136, 81, 139, 0, 141, 0, 137, 81, 139, 0, - 0, 27, 59, 115, 76, 0, 0, 165, 138, 143, - 36, 140, 149, 0, 165, 138, 143, 0, 0, 168, - 138, 143, 36, 142, 149, 0, 168, 138, 143, 0, - 0, 144, 0, 145, 0, 144, 145, 0, 30, 59, - 59, 146, 76, 76, 0, 147, 0, 146, 81, 147, - 0, 0, 148, 0, 148, 59, 3, 76, 0, 148, - 59, 3, 81, 101, 76, 0, 148, 59, 100, 76, - 0, 97, 0, 5, 0, 6, 0, 7, 0, 107, - 0, 0, 82, 150, 151, 78, 0, 1, 0, 0, - 152, 177, 0, 153, 0, 152, 81, 153, 0, 157, - 36, 155, 0, 158, 155, 0, 0, 97, 38, 154, - 155, 0, 155, 0, 0, 82, 156, 151, 78, 0, - 107, 0, 1, 0, 158, 0, 157, 158, 0, 58, - 97, 0, 0, 0, 165, 160, 117, 161, 201, 0, - 0, 0, 168, 163, 117, 164, 201, 0, 166, 0, - 168, 0, 59, 166, 76, 0, 166, 59, 236, 0, - 166, 60, 99, 83, 0, 166, 60, 83, 0, 50, - 189, 166, 0, 144, 124, 166, 0, 4, 0, 72, - 0, 167, 59, 236, 0, 167, 60, 99, 83, 0, - 167, 60, 83, 0, 50, 189, 167, 0, 144, 124, - 167, 0, 4, 0, 168, 59, 236, 0, 59, 168, - 76, 0, 50, 189, 168, 0, 168, 60, 99, 83, - 0, 168, 60, 83, 0, 144, 124, 168, 0, 3, - 0, 13, 0, 13, 144, 0, 14, 0, 14, 144, - 0, 12, 0, 12, 144, 0, 0, 169, 97, 82, - 173, 179, 78, 143, 0, 169, 82, 179, 78, 143, - 0, 169, 97, 0, 0, 170, 97, 82, 174, 179, - 78, 143, 0, 170, 82, 179, 78, 143, 0, 170, - 97, 0, 0, 171, 97, 82, 175, 184, 178, 78, - 143, 0, 0, 171, 82, 176, 184, 178, 78, 143, - 0, 171, 97, 0, 0, 81, 0, 0, 81, 0, - 180, 0, 180, 181, 0, 0, 180, 181, 77, 0, - 180, 77, 0, 65, 59, 67, 76, 0, 132, 123, - 182, 0, 132, 0, 188, 123, 182, 0, 188, 0, - 1, 0, 241, 181, 0, 183, 0, 182, 81, 183, - 0, 206, 207, 165, 143, 0, 206, 207, 165, 38, - 107, 143, 0, 206, 207, 38, 107, 143, 0, 185, - 0, 184, 81, 185, 0, 1, 0, 97, 0, 97, - 36, 107, 0, 132, 187, 0, 188, 187, 0, 0, - 190, 0, 7, 0, 188, 7, 0, 0, 189, 7, - 0, 59, 190, 76, 0, 50, 189, 190, 0, 50, - 189, 0, 190, 59, 229, 0, 190, 60, 99, 83, - 0, 190, 60, 83, 0, 59, 229, 0, 60, 99, - 83, 0, 60, 83, 0, 144, 124, 190, 0, 192, - 0, 209, 0, 192, 209, 0, 192, 194, 0, 0, - 191, 0, 1, 77, 0, 0, 0, 197, 0, 198, - 0, 197, 198, 0, 32, 240, 77, 0, 201, 0, - 1, 201, 0, 82, 0, 200, 78, 0, 200, 195, - 196, 122, 193, 78, 0, 200, 195, 196, 1, 78, - 0, 200, 195, 196, 191, 78, 0, 203, 208, 0, - 203, 1, 0, 15, 59, 99, 76, 0, 0, 18, - 205, 208, 17, 0, 0, 0, 206, 207, 211, 0, - 206, 207, 222, 208, 0, 206, 207, 210, 0, 211, - 0, 222, 0, 201, 0, 219, 0, 99, 77, 0, - 0, 202, 16, 212, 208, 0, 202, 0, 202, 16, - 1, 0, 0, 0, 17, 213, 59, 99, 76, 214, - 208, 0, 204, 59, 99, 76, 77, 0, 204, 1, - 0, 0, 0, 0, 19, 59, 224, 77, 215, 224, - 77, 216, 224, 76, 217, 208, 0, 0, 20, 59, - 99, 76, 218, 208, 0, 23, 77, 0, 24, 77, - 0, 25, 77, 0, 25, 99, 77, 0, 27, 223, - 59, 99, 76, 77, 0, 27, 223, 59, 99, 38, - 225, 76, 77, 0, 27, 223, 59, 99, 38, 225, - 38, 225, 76, 77, 0, 27, 223, 59, 99, 38, - 225, 38, 225, 38, 228, 76, 77, 0, 26, 97, - 77, 0, 26, 50, 99, 77, 0, 77, 0, 220, - 0, 0, 19, 59, 113, 76, 221, 208, 0, 21, - 107, 38, 0, 21, 107, 10, 107, 38, 0, 22, - 38, 0, 97, 38, 143, 0, 0, 7, 0, 0, - 99, 0, 0, 226, 0, 227, 0, 226, 81, 227, - 0, 9, 59, 99, 76, 0, 115, 0, 228, 81, - 115, 0, 0, 230, 231, 0, 233, 76, 0, 0, - 234, 77, 232, 231, 0, 1, 76, 0, 0, 10, - 0, 234, 0, 234, 81, 10, 0, 235, 0, 234, - 81, 235, 0, 126, 123, 167, 143, 0, 126, 123, - 168, 143, 0, 126, 123, 187, 143, 0, 130, 123, - 168, 143, 0, 130, 123, 187, 143, 0, 0, 237, - 238, 0, 231, 0, 239, 76, 0, 3, 0, 239, - 81, 3, 0, 97, 0, 240, 81, 97, 0, 31, - 0, 246, 0, 244, 0, 245, 0, 256, 0, 266, - 0, 63, 0, 97, 0, 243, 81, 97, 0, 73, - 243, 77, 0, 74, 97, 97, 77, 0, 0, 0, - 61, 97, 258, 82, 247, 260, 78, 248, 273, 63, - 0, 0, 61, 97, 258, 249, 273, 63, 0, 0, - 0, 61, 97, 38, 97, 258, 82, 250, 260, 78, - 251, 273, 63, 0, 0, 61, 97, 38, 97, 258, - 252, 273, 63, 0, 0, 62, 97, 82, 253, 260, - 78, 0, 62, 97, 0, 0, 62, 97, 38, 97, - 82, 254, 260, 78, 0, 62, 97, 38, 97, 0, - 0, 61, 97, 59, 97, 76, 258, 255, 273, 63, - 0, 62, 97, 59, 97, 76, 0, 0, 71, 97, - 258, 257, 273, 63, 0, 0, 259, 0, 45, 243, - 45, 0, 260, 261, 262, 0, 262, 0, 69, 0, - 70, 0, 68, 0, 0, 262, 263, 77, 0, 262, - 77, 0, 132, 123, 264, 0, 188, 123, 264, 0, - 1, 0, 0, 265, 0, 264, 81, 265, 0, 165, - 0, 165, 38, 107, 0, 38, 107, 0, 0, 0, - 0, 48, 267, 283, 268, 284, 269, 199, 0, 0, - 0, 0, 49, 270, 283, 271, 284, 272, 199, 0, - 0, 0, 274, 275, 0, 278, 0, 89, 0, 275, - 278, 0, 0, 275, 276, 89, 0, 77, 0, 1, - 0, 0, 0, 48, 279, 283, 280, 277, 0, 0, - 0, 49, 281, 283, 282, 277, 0, 59, 186, 76, - 292, 0, 292, 0, 59, 186, 76, 293, 290, 0, - 293, 290, 0, 0, 77, 285, 0, 0, 286, 0, - 287, 0, 194, 0, 286, 287, 0, 287, 194, 0, - 126, 123, 288, 77, 0, 126, 77, 0, 130, 77, - 0, 289, 0, 288, 81, 289, 0, 167, 143, 0, - 168, 143, 0, 187, 143, 0, 0, 81, 10, 0, - 0, 81, 291, 233, 0, 294, 0, 296, 0, 293, - 296, 0, 3, 0, 4, 0, 72, 0, 295, 0, - 12, 0, 13, 0, 14, 0, 15, 0, 16, 0, - 17, 0, 18, 0, 19, 0, 20, 0, 21, 0, - 22, 0, 23, 0, 24, 0, 25, 0, 26, 0, - 27, 0, 11, 0, 28, 0, 29, 0, 6, 0, - 7, 0, 294, 38, 59, 186, 76, 97, 0, 294, - 38, 97, 0, 38, 59, 186, 76, 97, 0, 38, - 97, 0, 294, 0, 298, 0, 300, 0, 298, 300, - 0, 101, 0, 294, 38, 299, 0, 38, 299, 0, - 99, 0, 67, 0, 0, 0, 60, 303, 301, 304, - 297, 83, 0, 294, 0, 306, 0, 307, 0, 306, - 307, 0, 294, 38, 0, 38, 0, 64, 59, 305, - 76, 0, 71, 59, 97, 76, 0, 66, 59, 186, - 76, 0 -}; - -#endif - -#if YYDEBUG != 0 -static const short yyrline[] = { 0, - 233, 238, 252, 254, 254, 255, 257, 259, 260, 261, - 269, 273, 284, 289, 294, 296, 298, 299, 300, 305, - 312, 314, 319, 324, 330, 332, 337, 342, 348, 350, - 355, 362, 364, 365, 366, 369, 371, 373, 375, 377, - 379, 381, 385, 389, 392, 395, 398, 402, 404, 407, - 410, 414, 442, 448, 451, 454, 457, 459, 463, 467, - 471, 473, 476, 480, 507, 509, 511, 513, 515, 517, - 519, 521, 523, 525, 527, 529, 531, 533, 537, 539, - 543, 545, 548, 552, 554, 561, 564, 572, 583, 743, - 744, 746, 752, 754, 768, 791, 793, 795, 807, 821, - 823, 825, 827, 829, 831, 833, 838, 840, 846, 848, - 852, 854, 855, 865, 870, 872, 873, 874, 881, 887, - 892, 895, 903, 908, 910, 911, 912, 919, 930, 934, - 940, 945, 950, 955, 957, 959, 968, 971, 975, 977, - 979, 984, 988, 991, 995, 998, 1000, 1012, 1015, 1017, - 1019, 1023, 1027, 1029, 1032, 1045, 1048, 1052, 1054, 1062, - 1063, 1064, 1068, 1070, 1075, 1077, 1079, 1085, 1086, 1087, - 1090, 1092, 1095, 1097, 1100, 1103, 1109, 1116, 1118, 1125, - 1132, 1135, 1142, 1145, 1149, 1152, 1156, 1161, 1164, 1168, - 1171, 1173, 1175, 1177, 1184, 1186, 1187, 1188, 1193, 1195, - 1200, 1208, 1213, 1217, 1220, 1222, 1227, 1229, 1230, 1233, - 1233, 1236, 1239, 1241, 1243, 1246, 1248, 1251, 1259, 1270, - 1278, 1282, 1293, 1301, 1308, 1310, 1315, 1318, 1323, 1325, - 1327, 1334, 1336, 1337, 1345, 1351, 1353, 1355, 1362, 1364, - 1370, 1376, 1378, 1380, 1382, 1389, 1391, 1394, 1397, 1401, - 1404, 1408, 1411, 1415, 1420, 1422, 1426, 1428, 1430, 1432, - 1436, 1438, 1441, 1444, 1447, 1450, 1454, 1456, 1459, 1461, - 1466, 1469, 1474, 1476, 1478, 1482, 1506, 1513, 1518, 1524, - 1529, 1531, 1536, 1538, 1542, 1546, 1550, 1560, 1562, 1567, - 1572, 1575, 1579, 1582, 1586, 1589, 1592, 1595, 1599, 1602, - 1606, 1610, 1612, 1614, 1616, 1618, 1620, 1622, 1624, 1628, - 1636, 1644, 1646, 1648, 1652, 1654, 1657, 1660, 1673, 1675, - 1680, 1682, 1685, 1699, 1702, 1705, 1707, 1709, 1717, 1725, - 1736, 1741, 1744, 1758, 1767, 1771, 1775, 1779, 1785, 1789, - 1794, 1797, 1802, 1805, 1806, 1823, 1828, 1831, 1843, 1845, - 1855, 1865, 1866, 1874, 1877, 1889, 1893, 1910, 1920, 1929, - 1934, 1939, 1944, 1948, 1952, 1963, 1970, 1977, 1984, 1995, - 2001, 2004, 2009, 2032, 2066, 2097, 2128, 2143, 2157, 2161, - 2165, 2168, 2173, 2175, 2178, 2180, 2184, 2189, 2192, 2198, - 2203, 2208, 2210, 2219, 2220, 2226, 2228, 2238, 2240, 2244, - 2247, 2253, 2263, 2272, 2281, 2291, 2305, 2310, 2315, 2317, - 2326, 2329, 2334, 2337, 2341, 2349, 2351, 2352, 2353, 2354, - 2355, 2369, 2372, 2376, 2382, 2388, 2395, 2400, 2406, 2413, - 2419, 2425, 2430, 2436, 2443, 2449, 2455, 2461, 2469, 2475, - 2481, 2489, 2496, 2502, 2511, 2518, 2526, 2531, 2534, 2544, - 2546, 2549, 2551, 2552, 2555, 2560, 2561, 2578, 2585, 2591, - 2595, 2598, 2599, 2602, 2610, 2616, 2625, 2635, 2642, 2646, - 2651, 2660, 2667, 2671, 2681, 2683, 2684, 2686, 2688, 2689, - 2690, 2691, 2693, 2695, 2698, 2706, 2713, 2713, 2720, 2726, - 2728, 2734, 2739, 2744, 2753, 2755, 2761, 2763, 2766, 2768, - 2769, 2770, 2773, 2779, 2781, 2785, 2788, 2795, 2801, 2806, - 2813, 2818, 2823, 2828, 2835, 2839, 2842, 2848, 2850, 2851, - 2852, 2855, 2857, 2858, 2859, 2860, 2861, 2862, 2863, 2864, - 2865, 2866, 2867, 2868, 2869, 2870, 2871, 2872, 2873, 2874, - 2875, 2875, 2878, 2884, 2889, 2894, 2900, 2902, 2905, 2907, - 2914, 2926, 2931, 2937, 2939, 2945, 2949, 2950, 2956, 2958, - 2961, 2963, 2969, 2974, 2980, 2987, 2996 -}; -#endif - - -#if YYDEBUG != 0 || defined (YYERROR_VERBOSE) - -static const char * const yytname[] = { "$","error","$undefined.","IDENTIFIER", -"TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF", -"ENUM","STRUCT","UNION","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT", -"BREAK","CONTINUE","RETURN","GOTO","ASM_KEYWORD","TYPEOF","ALIGNOF","ATTRIBUTE", -"EXTENSION","LABEL","REALPART","IMAGPART","ASSIGN","'='","'?'","':'","OROR", -"ANDAND","'|'","'^'","'&'","EQCOMPARE","ARITHCOMPARE","LSHIFT","RSHIFT","'+'", -"'-'","'*'","'/'","'%'","UNARY","PLUSPLUS","MINUSMINUS","HYPERUNARY","POINTSAT", -"'.'","'('","'['","INTERFACE","IMPLEMENTATION","END","SELECTOR","DEFS","ENCODE", -"CLASSNAME","PUBLIC","PRIVATE","PROTECTED","PROTOCOL","OBJECTNAME","CLASS","ALIAS", -"OBJC_STRING","')'","';'","'}'","'~'","'!'","','","'{'","']'","program","extdefs", -"@1","@2","extdef","datadef","fndef","@3","@4","@5","@6","@7","@8","identifier", -"unop","expr","exprlist","nonnull_exprlist","unary_expr","sizeof","alignof", -"cast_expr","@9","expr_no_commas","@10","@11","@12","@13","@14","primary","@15", -"string","objc_string","old_style_parm_decls","lineno_datadecl","datadecls", -"datadecl","lineno_decl","decls","setspecs","setattrs","decl","typed_declspecs", -"reserved_declspecs","typed_declspecs_no_prefix_attr","reserved_declspecs_no_prefix_attr", -"declmods","declmods_no_prefix_attr","typed_typespecs","reserved_typespecquals", -"typespec","typespecqual_reserved","initdecls","notype_initdecls","maybeasm", -"initdcl","@16","notype_initdcl","@17","maybe_attribute","attributes","attribute", -"attribute_list","attrib","any_word","init","@18","initlist_maybe_comma","initlist1", -"initelt","@19","initval","@20","designator_list","designator","nested_function", -"@21","@22","notype_nested_function","@23","@24","declarator","after_type_declarator", -"parm_declarator","notype_declarator","struct_head","union_head","enum_head", -"structsp","@25","@26","@27","@28","maybecomma","maybecomma_warn","component_decl_list", -"component_decl_list2","component_decl","components","component_declarator", -"enumlist","enumerator","typename","absdcl","nonempty_type_quals","type_quals", -"absdcl1","stmts","lineno_stmt_or_labels","xstmts","errstmt","pushlevel","maybe_label_decls", -"label_decls","label_decl","compstmt_or_error","compstmt_start","compstmt","simple_if", -"if_prefix","do_stmt_start","@29","save_filename","save_lineno","lineno_labeled_stmt", -"lineno_stmt_or_label","stmt_or_label","stmt","@30","@31","@32","@33","@34", -"@35","@36","all_iter_stmt","all_iter_stmt_simple","@37","label","maybe_type_qual", -"xexpr","asm_operands","nonnull_asm_operands","asm_operand","asm_clobbers","parmlist", -"@38","parmlist_1","@39","parmlist_2","parms","parm","parmlist_or_identifiers", -"@40","parmlist_or_identifiers_1","identifiers","identifiers_or_typenames","extension", -"objcdef","identifier_list","classdecl","aliasdecl","classdef","@41","@42","@43", -"@44","@45","@46","@47","@48","@49","protocoldef","@50","protocolrefs","non_empty_protocolrefs", -"ivar_decl_list","visibility_spec","ivar_decls","ivar_decl","ivars","ivar_declarator", -"methoddef","@51","@52","@53","@54","@55","@56","methodprotolist","@57","methodprotolist2", -"@58","semi_or_error","methodproto","@59","@60","@61","@62","methoddecl","optarglist", -"myxdecls","mydecls","mydecl","myparms","myparm","optparmlist","@63","unaryselector", -"keywordselector","selector","reservedwords","keyworddecl","messageargs","keywordarglist", -"keywordexpr","keywordarg","receiver","objcmessageexpr","@64","@65","selectorarg", -"keywordnamelist","keywordname","objcselectorexpr","objcprotocolexpr","objcencodeexpr", NULL -}; -#endif - -static const short yyr1[] = { 0, - 84, 84, 86, 85, 87, 85, 88, 88, 88, 88, - 88, 89, 89, 89, 89, 89, 89, 89, 89, 91, - 92, 90, 90, 93, 94, 90, 90, 95, 96, 90, - 90, 97, 97, 97, 97, 98, 98, 98, 98, 98, - 98, 98, 99, 100, 100, 101, 101, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 103, 104, - 105, 105, 106, 105, 107, 107, 107, 107, 107, 107, - 107, 107, 107, 107, 107, 107, 107, 108, 107, 109, - 107, 110, 111, 107, 112, 107, 107, 107, 113, 113, - 113, 113, 113, 114, 113, 113, 113, 113, 113, 113, - 113, 113, 113, 113, 113, 113, 115, 115, 116, 116, - 117, 117, 117, 118, 119, 119, 119, 119, 120, 120, - 120, 120, 121, 122, 122, 122, 122, 123, 124, 125, - 125, 125, 125, 125, 125, 125, 126, 126, 127, 127, - 127, 127, 128, 128, 129, 129, 129, 130, 130, 130, - 130, 131, 131, 131, 131, 132, 132, 133, 133, 134, - 134, 134, 134, 134, 134, 134, 134, 135, 135, 135, - 136, 136, 137, 137, 138, 138, 140, 139, 139, 142, - 141, 141, 143, 143, 144, 144, 145, 146, 146, 147, - 147, 147, 147, 147, 148, 148, 148, 148, 149, 150, - 149, 149, 151, 151, 152, 152, 153, 153, 154, 153, - 153, 156, 155, 155, 155, 157, 157, 158, 160, 161, - 159, 163, 164, 162, 165, 165, 166, 166, 166, 166, - 166, 166, 166, 166, 167, 167, 167, 167, 167, 167, - 168, 168, 168, 168, 168, 168, 168, 169, 169, 170, - 170, 171, 171, 173, 172, 172, 172, 174, 172, 172, - 172, 175, 172, 176, 172, 172, 177, 177, 178, 178, - 179, 179, 180, 180, 180, 180, 181, 181, 181, 181, - 181, 181, 182, 182, 183, 183, 183, 184, 184, 184, - 185, 185, 186, 186, 187, 187, 188, 188, 189, 189, - 190, 190, 190, 190, 190, 190, 190, 190, 190, 190, - 191, 192, 192, 192, 193, 193, 194, 195, 196, 196, - 197, 197, 198, 199, 199, 200, 201, 201, 201, 201, - 202, 202, 203, 205, 204, 206, 207, 208, 208, 209, - 210, 210, 211, 211, 211, 212, 211, 211, 211, 213, - 214, 211, 211, 211, 215, 216, 217, 211, 218, 211, - 211, 211, 211, 211, 211, 211, 211, 211, 211, 211, - 211, 219, 221, 220, 222, 222, 222, 222, 223, 223, - 224, 224, 225, 225, 226, 226, 227, 228, 228, 230, - 229, 231, 232, 231, 231, 233, 233, 233, 233, 234, - 234, 235, 235, 235, 235, 235, 237, 236, 238, 238, - 239, 239, 240, 240, 241, 242, 242, 242, 242, 242, - 242, 243, 243, 244, 245, 247, 248, 246, 249, 246, - 250, 251, 246, 252, 246, 253, 246, 246, 254, 246, - 246, 255, 246, 246, 257, 256, 258, 258, 259, 260, - 260, 261, 261, 261, 262, 262, 262, 263, 263, 263, - 264, 264, 264, 265, 265, 265, 267, 268, 269, 266, - 270, 271, 272, 266, 273, 274, 273, 275, 275, 275, - 276, 275, 277, 277, 279, 280, 278, 281, 282, 278, - 283, 283, 283, 283, 284, 284, 285, 285, 286, 286, - 286, 286, 287, 287, 287, 288, 288, 289, 289, 289, - 290, 290, 291, 290, 292, 293, 293, 294, 294, 294, - 294, 295, 295, 295, 295, 295, 295, 295, 295, 295, - 295, 295, 295, 295, 295, 295, 295, 295, 295, 295, - 295, 295, 296, 296, 296, 296, 297, 297, 298, 298, - 299, 300, 300, 301, 301, 303, 304, 302, 305, 305, - 306, 306, 307, 307, 308, 309, 310 -}; - -static const short yyr2[] = { 0, - 0, 1, 0, 2, 0, 3, 1, 1, 1, 5, - 2, 3, 4, 4, 2, 2, 2, 2, 1, 0, - 0, 7, 4, 0, 0, 7, 4, 0, 0, 6, - 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 0, 1, 1, 3, 1, 2, 2, - 2, 2, 2, 4, 2, 4, 2, 2, 1, 1, - 1, 4, 0, 7, 1, 3, 3, 3, 3, 3, - 3, 3, 3, 3, 3, 3, 3, 0, 4, 0, - 4, 0, 0, 7, 0, 5, 3, 3, 1, 1, - 1, 3, 3, 0, 4, 4, 4, 3, 3, 2, - 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, - 0, 1, 2, 3, 1, 1, 2, 2, 4, 4, - 2, 2, 3, 1, 1, 2, 2, 0, 0, 4, - 4, 3, 3, 2, 2, 2, 2, 3, 0, 2, - 2, 2, 2, 3, 0, 2, 2, 1, 1, 2, - 2, 1, 1, 2, 2, 2, 3, 0, 2, 1, - 1, 1, 2, 2, 1, 4, 4, 1, 1, 1, - 1, 3, 1, 3, 0, 4, 0, 6, 3, 0, - 6, 3, 0, 1, 1, 2, 6, 1, 3, 0, - 1, 4, 6, 4, 1, 1, 1, 1, 1, 0, - 4, 1, 0, 2, 1, 3, 3, 2, 0, 4, - 1, 0, 4, 1, 1, 1, 2, 2, 0, 0, - 5, 0, 0, 5, 1, 1, 3, 3, 4, 3, - 3, 3, 1, 1, 3, 4, 3, 3, 3, 1, - 3, 3, 3, 4, 3, 3, 1, 1, 2, 1, - 2, 1, 2, 0, 7, 5, 2, 0, 7, 5, - 2, 0, 8, 0, 7, 2, 0, 1, 0, 1, - 1, 2, 0, 3, 2, 4, 3, 1, 3, 1, - 1, 2, 1, 3, 4, 6, 5, 1, 3, 1, - 1, 3, 2, 2, 0, 1, 1, 2, 0, 2, - 3, 3, 2, 3, 4, 3, 2, 3, 2, 3, - 1, 1, 2, 2, 0, 1, 2, 0, 0, 1, - 1, 2, 3, 1, 2, 1, 2, 6, 5, 5, - 2, 2, 4, 0, 4, 0, 0, 3, 4, 3, - 1, 1, 1, 1, 2, 0, 4, 1, 3, 0, - 0, 7, 5, 2, 0, 0, 0, 12, 0, 6, - 2, 2, 2, 3, 6, 8, 10, 12, 3, 4, - 1, 1, 0, 6, 3, 5, 2, 3, 0, 1, - 0, 1, 0, 1, 1, 3, 4, 1, 3, 0, - 2, 2, 0, 4, 2, 0, 1, 1, 3, 1, - 3, 4, 4, 4, 4, 4, 0, 2, 1, 2, - 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, - 1, 1, 3, 3, 4, 0, 0, 10, 0, 6, - 0, 0, 12, 0, 8, 0, 6, 2, 0, 8, - 4, 0, 9, 5, 0, 6, 0, 1, 3, 3, - 1, 1, 1, 1, 0, 3, 2, 3, 3, 1, - 0, 1, 3, 1, 3, 2, 0, 0, 0, 7, - 0, 0, 0, 7, 0, 0, 2, 1, 1, 2, - 0, 3, 1, 1, 0, 0, 5, 0, 0, 5, - 4, 1, 5, 2, 0, 2, 0, 1, 1, 1, - 2, 2, 4, 2, 2, 1, 3, 2, 2, 2, - 0, 2, 0, 3, 1, 1, 2, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 6, 3, 5, 2, 1, 1, 1, 2, - 1, 3, 2, 1, 1, 0, 0, 6, 1, 1, - 1, 2, 2, 1, 4, 4, 4 -}; - -static const short yydefact[] = { 3, - 5, 0, 0, 0, 162, 153, 160, 152, 252, 248, - 250, 0, 0, 0, 415, 0, 467, 471, 0, 0, - 421, 447, 0, 447, 0, 0, 19, 4, 8, 7, - 0, 128, 128, 148, 139, 149, 185, 0, 0, 0, - 161, 0, 9, 417, 418, 416, 419, 165, 420, 6, - 17, 18, 253, 249, 251, 0, 0, 0, 32, 33, - 35, 34, 422, 0, 0, 0, 447, 438, 163, 448, - 447, 164, 0, 0, 247, 299, 0, 0, 173, 129, - 0, 16, 0, 15, 0, 150, 139, 151, 155, 154, - 137, 186, 273, 257, 273, 261, 264, 266, 11, 89, - 90, 107, 59, 60, 0, 0, 0, 36, 38, 37, - 0, 39, 40, 0, 556, 0, 0, 0, 109, 41, - 42, 0, 0, 43, 61, 0, 0, 65, 46, 48, - 91, 106, 0, 102, 103, 104, 105, 297, 0, 295, - 158, 0, 295, 190, 449, 0, 518, 519, 541, 542, - 538, 522, 523, 524, 525, 526, 527, 528, 529, 530, - 531, 532, 533, 534, 535, 536, 537, 539, 540, 0, - 0, 520, 468, 492, 511, 515, 521, 516, 472, 0, - 0, 429, 0, 0, 436, 445, 424, 0, 0, 0, - 12, 0, 0, 31, 0, 407, 0, 0, 183, 233, - 299, 0, 234, 0, 171, 129, 0, 225, 226, 0, - 0, 138, 141, 168, 169, 140, 142, 170, 0, 0, - 0, 254, 0, 258, 0, 262, 57, 58, 52, 49, - 0, 0, 0, 0, 0, 0, 0, 0, 51, 0, - 0, 0, 53, 0, 55, 0, 0, 82, 80, 78, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 100, 101, 0, 0, 44, 0, 108, 110, - 50, 166, 299, 390, 0, 129, 293, 296, 156, 167, - 298, 158, 294, 196, 197, 198, 195, 0, 188, 191, - 423, 0, 546, 0, 495, 513, 494, 0, 517, 0, - 495, 447, 0, 426, 476, 441, 0, 455, 476, 425, - 300, 243, 242, 174, 175, 246, 0, 241, 0, 245, - 0, 0, 29, 0, 336, 116, 337, 182, 184, 0, - 0, 14, 0, 0, 23, 0, 183, 407, 0, 13, - 27, 0, 0, 183, 281, 275, 128, 272, 128, 0, - 273, 183, 273, 290, 291, 269, 288, 0, 93, 92, - 326, 318, 0, 0, 555, 554, 557, 564, 559, 0, - 560, 561, 0, 0, 10, 47, 0, 0, 88, 87, - 0, 0, 0, 0, 76, 77, 75, 74, 73, 71, - 72, 66, 67, 68, 69, 70, 99, 98, 0, 45, - 0, 303, 0, 307, 0, 309, 0, 0, 390, 0, - 159, 157, 0, 190, 44, 0, 0, 0, 469, 512, - 396, 0, 544, 473, 434, 447, 455, 0, 0, 439, - 444, 0, 0, 0, 0, 0, 411, 397, 128, 128, - 409, 0, 398, 400, 408, 0, 244, 317, 0, 118, - 113, 117, 0, 180, 231, 227, 172, 232, 21, 179, - 228, 230, 0, 25, 0, 256, 336, 274, 336, 282, - 0, 260, 0, 0, 270, 0, 269, 327, 319, 95, - 63, 62, 0, 563, 565, 0, 562, 567, 566, 54, - 56, 0, 0, 81, 79, 96, 97, 302, 301, 391, - 308, 310, 304, 306, 0, 187, 189, 89, 0, 0, - 491, 511, 128, 0, 500, 496, 498, 0, 0, 514, - 398, 0, 0, 431, 476, 442, 0, 430, 485, 488, - 479, 0, 128, 128, 481, 478, 455, 454, 452, 453, - 437, 455, 460, 457, 128, 128, 0, 446, 176, 395, - 295, 295, 392, 393, 0, 410, 0, 0, 30, 324, - 114, 128, 128, 145, 0, 0, 177, 229, 0, 276, - 277, 283, 337, 279, 183, 183, 292, 289, 183, 0, - 0, 0, 320, 321, 0, 0, 547, 0, 548, 549, - 83, 86, 305, 192, 0, 194, 545, 493, 504, 295, - 505, 501, 502, 470, 0, 474, 455, 0, 476, 427, - 0, 0, 175, 0, 0, 0, 480, 0, 0, 461, - 461, 456, 240, 299, 390, 129, 183, 183, 183, 299, - 129, 183, 183, 0, 399, 401, 412, 325, 121, 0, - 122, 0, 145, 143, 202, 200, 199, 181, 22, 0, - 26, 336, 0, 255, 259, 265, 183, 413, 0, 0, - 0, 336, 0, 0, 125, 337, 312, 322, 215, 89, - 0, 212, 0, 214, 0, 267, 205, 211, 0, 0, - 551, 553, 0, 558, 0, 550, 0, 0, 183, 183, - 183, 0, 506, 543, 0, 435, 0, 476, 486, 489, - 482, 440, 0, 464, 458, 462, 459, 303, 0, 407, - 0, 402, 403, 404, 303, 0, 405, 406, 394, 0, - 0, 144, 147, 146, 0, 178, 284, 0, 183, 263, - 323, 0, 329, 127, 126, 316, 0, 330, 314, 337, - 313, 0, 218, 0, 209, 64, 0, 204, 0, 217, - 208, 552, 84, 193, 508, 509, 510, 503, 295, 432, - 443, 0, 0, 0, 466, 0, 0, 238, 239, 235, - 237, 0, 119, 120, 0, 183, 0, 285, 414, 328, - 0, 162, 0, 350, 334, 0, 0, 0, 0, 0, - 0, 0, 0, 379, 447, 447, 371, 0, 0, 123, - 128, 128, 343, 348, 0, 0, 340, 341, 344, 372, - 342, 0, 0, 0, 206, 207, 507, 476, 428, 484, - 483, 487, 490, 465, 463, 236, 201, 287, 183, 0, - 0, 336, 381, 0, 0, 377, 361, 362, 363, 0, - 0, 0, 380, 0, 183, 345, 134, 0, 135, 0, - 0, 332, 337, 331, 354, 0, 136, 213, 210, 0, - 286, 0, 0, 0, 382, 48, 0, 0, 0, 375, - 364, 0, 369, 0, 378, 0, 132, 219, 0, 133, - 222, 349, 336, 0, 0, 433, 333, 0, 335, 373, - 355, 359, 0, 370, 0, 130, 0, 131, 0, 347, - 338, 336, 0, 351, 336, 381, 336, 376, 383, 0, - 220, 223, 339, 353, 336, 374, 0, 360, 0, 0, - 384, 385, 365, 0, 0, 352, 356, 0, 383, 0, - 0, 221, 224, 381, 0, 0, 366, 386, 0, 387, - 0, 0, 357, 388, 0, 367, 336, 0, 0, 358, - 368, 389, 0, 0, 0 -}; - -static const short yydefgoto[] = { 953, - 1, 2, 3, 28, 29, 30, 336, 566, 342, 569, - 198, 449, 673, 122, 232, 399, 124, 125, 126, 127, - 128, 585, 129, 384, 383, 381, 687, 382, 130, 233, - 131, 132, 323, 324, 325, 561, 661, 662, 31, 193, - 800, 439, 91, 562, 644, 440, 34, 140, 279, 35, - 216, 204, 78, 199, 205, 650, 79, 565, 328, 329, - 37, 288, 289, 290, 648, 725, 675, 676, 677, 814, - 678, 744, 679, 680, 877, 897, 924, 880, 899, 925, - 315, 208, 689, 209, 38, 39, 40, 41, 351, 353, - 358, 225, 748, 476, 220, 221, 348, 571, 572, 356, - 357, 142, 691, 143, 189, 278, 663, 664, 737, 326, - 479, 582, 583, 584, 559, 362, 560, 804, 805, 806, - 832, 853, 453, 854, 667, 807, 808, 883, 831, 915, - 906, 934, 947, 907, 809, 810, 905, 811, 844, 867, - 920, 921, 922, 945, 404, 405, 441, 634, 442, 443, - 444, 318, 319, 445, 446, 659, 133, 43, 64, 44, - 45, 46, 427, 698, 305, 607, 818, 525, 308, 537, - 609, 47, 309, 69, 48, 432, 542, 433, 547, 705, - 706, 49, 65, 295, 519, 66, 301, 523, 428, 429, - 535, 616, 822, 536, 611, 763, 612, 764, 173, 419, - 516, 517, 518, 692, 693, 297, 421, 174, 175, 176, - 177, 178, 588, 589, 682, 590, 367, 134, 235, 483, - 370, 371, 372, 135, 136, 137 -}; - -static const short yypact[] = { 109, - 118, 3183, 3183, 412,-32768,-32768,-32768,-32768, 91, 91, - 91, 65, 100, 136,-32768, 270,-32768,-32768, 270, 270, --32768, 132, 270, 132, 270, 270,-32768,-32768,-32768,-32768, - 103, 128, 699, 378,-32768, 91,-32768, 119, 131, 203, --32768, 3183,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, --32768,-32768, 91, 91, 91, 2892, 2730, 155,-32768,-32768, --32768,-32768,-32768, 68, 3447, 3447, 70, 61,-32768,-32768, - 132,-32768, 112, 270,-32768,-32768, 103, 167,-32768, 91, - 1306,-32768, 434,-32768, 103, 378,-32768, 91,-32768,-32768, - 900,-32768, 160, 153, 160, 159,-32768, 175,-32768,-32768, --32768,-32768,-32768,-32768, 2892, 2892, 270,-32768,-32768,-32768, - 2892,-32768,-32768, 1480,-32768, 195, 231, 239,-32768,-32768, --32768, 2892, 216, 225,-32768, 2946, 3000,-32768, 3714, 1127, - 315, 255, 2892,-32768,-32768,-32768,-32768,-32768, 251, 418, --32768, 279, 2078, 314,-32768, 270,-32768,-32768,-32768,-32768, --32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, --32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 292, - 3610,-32768,-32768,-32768, 2624, 327,-32768,-32768,-32768, 270, - 270, 286, 270, 270,-32768,-32768,-32768, 321, 252, 301, --32768, 434, 103,-32768, 319,-32768, 2093, 744, 91,-32768, --32768, 434,-32768, 188,-32768, 91, 1969, 422, 471, 259, - 1950, 900,-32768,-32768,-32768,-32768, 91,-32768, 332, 340, - 1881,-32768, 347,-32768, 227,-32768,-32768,-32768,-32768,-32768, - 357, 359, 338, 368, 2784, 3475, 3610, 270,-32768, 377, - 2892, 1480,-32768, 1480,-32768, 2892, 2892, 408,-32768,-32768, - 2892, 2892, 2892, 2892, 2892, 2892, 2892, 2892, 2892, 2892, - 2892, 2892,-32768,-32768, 270, 270, 2892, 2892,-32768,-32768, --32768,-32768,-32768, 418, 2152, 91,-32768, 481, 708,-32768, --32768,-32768,-32768,-32768,-32768,-32768,-32768, 22,-32768, 411, --32768, 3610,-32768, 391, 402, 491,-32768, 327,-32768, 404, - 402, 132, 433,-32768, 449, 441, 439,-32768, 449,-32768, --32768, 471,-32768,-32768, 518, 471, 538,-32768, 3336,-32768, - 467, 483,-32768, 1021, 82,-32768,-32768, 536, 91, 386, - 350,-32768, 434, 434,-32768, 744, 91,-32768, 2211,-32768, --32768, 744, 520, 91,-32768,-32768, 475, 502, 1385, 3385, - 160, 91, 160,-32768, 560, 523,-32768, 227,-32768,-32768, --32768, 540, 525, 2544,-32768,-32768,-32768,-32768, 578, 544, - 3475,-32768, 562, 565,-32768, 3714, 569, 570, 3714, 3714, - 2892, 604, 2892, 2892, 1690, 1278, 969, 958, 1297, 563, - 563, 533, 533,-32768,-32768,-32768,-32768,-32768, 571, 225, - 577, 369, 355,-32768, 3355,-32768, 579, 418,-32768, 2270, --32768, 708, 580, 314, 3054, 588, 3511, 2048,-32768,-32768, - 3568, 3610,-32768,-32768, 583, 132,-32768, 590, 3258,-32768, --32768, 457, 3131, 608, 75, 591,-32768,-32768,-32768, 3614, --32768, 596, 276,-32768,-32768, 232,-32768,-32768, 90,-32768, --32768,-32768, 848,-32768, 422,-32768,-32768, 422,-32768, 637, --32768,-32768, 593,-32768, 601,-32768,-32768,-32768,-32768,-32768, - 600,-32768, 602, 2892, 270, 603, 523,-32768, 650,-32768, --32768,-32768, 3539,-32768,-32768, 578,-32768,-32768,-32768,-32768, --32768, 646, 2892, 1612, 996,-32768,-32768, 481,-32768,-32768, --32768, 481,-32768,-32768, 612,-32768,-32768, 234, 609, 270, --32768, 2624, 610, 2663,-32768,-32768, 3614, 2067, 90,-32768, - 618, 624, 90,-32768, 449,-32768, 530,-32768,-32768,-32768, --32768, 103, 128, 699, 450,-32768,-32768,-32768,-32768,-32768, --32768,-32768,-32768,-32768,-32768, 3644, 631,-32768,-32768,-32768, - 573, 344,-32768,-32768, 3580,-32768, 706, 338,-32768,-32768, --32768, 640, 550,-32768, 1795, 90,-32768,-32768, 90,-32768, - 629,-32768,-32768, 629, 91, 91, 3714,-32768, 91, 641, - 270, 1056, 650,-32768, 1560, 2892, 685, 643, 3539,-32768, --32768, 1533,-32768,-32768, 2892,-32768,-32768,-32768,-32768, 573, --32768,-32768,-32768,-32768, 270,-32768,-32768, 661, 449,-32768, - 3447, 3447, 245, 434, 103, 3286,-32768, 561, 3149, 284, - 284,-32768,-32768,-32768, 344, 91, 202, 220, 91,-32768, - 91, 220, 91, 3355,-32768,-32768,-32768,-32768,-32768, 434, --32768, 103,-32768, 796,-32768,-32768, 3714,-32768,-32768, 1795, --32768,-32768, 436,-32768,-32768,-32768, 91,-32768, 285, 512, - 920, 652, 653, 1140,-32768,-32768,-32768,-32768,-32768, 694, - 270,-32768, 695, 3714, 656, 654,-32768,-32768, 80, 1720, - 225,-32768, 2892,-32768, 685,-32768, 2892, 250, 202, 220, - 91, 294,-32768,-32768, 581,-32768, 675, 449,-32768,-32768, --32768,-32768, 2892, 702, 662,-32768, 662, 633, 573,-32768, - 2329,-32768,-32768,-32768, 342, 344,-32768,-32768,-32768, 336, - 426, 796,-32768,-32768, 1560,-32768,-32768, 2892, 89,-32768, --32768, 270,-32768,-32768,-32768,-32768, 664,-32768,-32768,-32768, --32768, 2410,-32768, 1560,-32768,-32768, 1640,-32768, 1870,-32768, --32768,-32768, 1533,-32768,-32768,-32768,-32768,-32768, 573,-32768, --32768, 683, 81, 81, 3714, 2892, 284, 566, 566,-32768, --32768, 669,-32768,-32768, 677, 3678, 2892,-32768,-32768,-32768, - 2490, 715, 700,-32768,-32768, 701, 705, 2892, 727, 691, - 707, 2838, 170, 780, 222, 233,-32768, 750, 716,-32768, - 717, 3366,-32768, 776, 1220, 87,-32768,-32768,-32768,-32768, --32768, 2652, 720, 1870,-32768,-32768,-32768, 449,-32768,-32768, --32768,-32768,-32768, 3714,-32768,-32768,-32768,-32768, 3678, 2892, - 736,-32768, 2892, 2892, 3655,-32768,-32768,-32768,-32768, 722, - 2892, 729,-32768, 753, 91,-32768,-32768, 434,-32768, 103, - 1400,-32768,-32768,-32768,-32768, 2892,-32768,-32768,-32768, 751, --32768, 739, 2892, 802,-32768, 787, 743, 746, 2892,-32768, --32768, 748,-32768, 2892,-32768, 447,-32768, 172, 462,-32768, - 461,-32768,-32768, 2490, 747,-32768,-32768, 754,-32768,-32768, --32768,-32768, 3696,-32768, 64,-32768, 744,-32768, 744,-32768, --32768,-32768, 752,-32768,-32768, 2892,-32768,-32768, 818, 756, --32768,-32768,-32768,-32768,-32768,-32768, 760,-32768, 779, 79, - 762,-32768,-32768, 338, 338,-32768,-32768, 2892, 818, 771, - 818,-32768,-32768, 2892, 775, 162,-32768,-32768, 781,-32768, - 538, 782,-32768, 315, 257,-32768,-32768, 788, 538,-32768, --32768, 315, 858, 867,-32768 -}; - -static const short yypgoto[] = {-32768, --32768,-32768,-32768, 83, -371,-32768,-32768,-32768,-32768,-32768, --32768,-32768, -14,-32768, -56, 453, -228, 508,-32768,-32768, - -32,-32768, 628,-32768,-32768,-32768,-32768,-32768, 38,-32768, - -297,-32768, -305, 548,-32768,-32768, 215,-32768, 3, -166, - 88, 5, 804,-32768, 249, 12, -29, -170, 613, 47, - -249, -572, -69, -189, -111,-32768,-32768,-32768, 207, 54, - 17,-32768, 480,-32768, 253,-32768, -630,-32768, 152,-32768, - -605,-32768,-32768, 229,-32768,-32768,-32768,-32768,-32768,-32768, - -51, -113, -482, -18,-32768,-32768,-32768, -64,-32768,-32768, --32768,-32768,-32768, 424, -50,-32768, 559, 442, 258, 558, - 443, -59, -99, -169, -173, -198, 260,-32768,-32768, -282, --32768,-32768,-32768, 334, -412,-32768, -223,-32768,-32768,-32768, --32768, -160, -524, -755, 288,-32768, 35,-32768,-32768,-32768, --32768,-32768,-32768,-32768,-32768,-32768,-32768, 71,-32768, -738, - 27,-32768, 26,-32768, 549,-32768, -357,-32768, 541, 543, - 406, -304,-32768,-32768,-32768,-32768, 19,-32768, 934,-32768, --32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, --32768,-32768,-32768, -21, -5, -349,-32768, 425,-32768, 345, - 204,-32768,-32768,-32768,-32768,-32768,-32768,-32768, -286,-32768, --32768,-32768, 208, 438,-32768,-32768,-32768,-32768, -37, 676, --32768,-32768, 459,-32768, 219, 469,-32768, 568, 572, -142, --32768, -132,-32768,-32768, 299, 399,-32768,-32768,-32768,-32768, --32768,-32768, 619,-32768,-32768,-32768 -}; - - -#define YYLAST 3766 - - -static const short yytable[] = { 123, - 139, 63, 72, 86, 67, 68, 32, 32, 71, 363, - 63, 74, 81, 33, 33, 210, 70, 337, 70, 435, - 42, 42, 434, 94, 96, 98, 218, 330, 179, 411, - 459, 207, 298, 461, 83, 85, 464, 327, 400, 334, - 277, 450, 299, 283, 223, 182, 32, 500, 653, 186, - 347, 349, 92, 33, 234, 36, 36, 531, 190, 188, - 42, 70, 53, 54, 55, 70, 211, 720, 627, 92, - 92, 92, 227, 228, 751, 403, 864, 527, 230, 87, - 314, 820, -112, 269, 80, 50, 88, 855, 331, 239, - 558, 451, 229, 369, 775, 36, 92, 413, 183, 402, - 271, 909, 414, 141, 92, 75, 604, 180, -1, 408, - 606, 294, 145, 813, 16, 749, 929, -2, 14, 184, - 14, 59, 60, 56, 99, 337, 777, 900, 181, 287, - 80, 291, 14, 59, 60, 515, 206, 671, 80, 910, - 321, 742, 185, 816, 217, 856, 913, 218, 146, 916, - 549, 918, 76, 649, 930, 293, 651, 821, 57, 926, - 141, 77, 411, -112, 327, 302, 303, 917, 306, 307, - 312, 361, 59, 60, 316, 327, 16, 373, 366, 347, - 349, 327, 377, 190, 378, 61, 400, 618, 187, 282, - 62, 950, 146, 276, 58, 939, 276, 61, 195, 941, - 93, -175, 62, 498, 82, 59, 60, -175, 859, 502, - 355, 401, 95, 144, 218, 781, 455, 141, 407, 841, - 458, 457, 92, 374, 219, 768, 769, 354, 486, 59, - 60, 14, 416, 92, 222, 603, 61, 942, 608, 350, - 224, 62, 80, 191, 701, 206, 80, 192, -175, 14, - 397, 398, -175, 236, 75, 206, 226, 695, 311, -35, - 710, 711, 545, 546, 332, 217, 16, 141, 333, 61, - -34, 195, 59, 60, 62, 876, 719, 16, 196, 197, - 425, 14, 463, 141, 97, 423, 75, 200, 141, 237, - 141, 240, 92, 61, 59, 60, 70, 238, 62, 665, - 471, 76, 473, 196, 197, 241, 573, 556, 573, 594, - 77, 312, 557, 14, 595, 316, 59, 60, 284, 285, - 286, 703, 697, 269, 492, 754, 272, 276, 884, 270, - 241, 482, 948, 201, 638, 340, 61, 949, 141, 192, - 587, 62, 202, 355, 75, 92, 75, 218, 311, 467, - 292, 469, 554, 505, 280, 203, 555, 681, 61, 196, - 197, 731, 522, 62, 300, 732, 688, 304, 350, 298, - 758, 14, 36, 14, 759, 311, 313, 317, 734, 299, - 61, 739, 89, 206, 90, 62, 206, 206, 75, 200, - 343, 630, 311, 630, 724, 282, 141, 310, 14, 287, - 625, 275, 625, 275, 526, 770, 59, 60, 338, 339, - 86, 762, 773, 409, 410, 14, 333, 344, 273, 361, - 70, 666, 513, 563, 352, 456, 403, 274, 275, 514, - 499, 532, 359, 533, 360, 201, 75, 200, 75, 200, - 534, 551, 552, 364, 202, -85, 685, 14, 545, 546, - 708, 629, 633, 375, 681, 276, 715, 203, 36, 709, - 355, 276, 422, 14, 716, 14, 417, 273, 141, 415, - 61, 36, 724, 728, 36, 62, 274, 275, 418, 141, - 338, 339, 36, 201, 86, 201, 87, 195, 51, 52, - -175, 573, 202, 88, 202, 597, -175, 529, 530, 564, - 420, 666, 774, 740, 86, 203, 192, 203, 426, 498, - 502, -475, -477, 613, 431, 600, 498, 502, 803, 196, - 197, 513, 430, 896, 538, 539, 540, 333, 514, 196, - 197, 860, 628, 632, 541, 614, 615, -175, 898, 409, - 410, -175, 192, 460, 195, 210, 102, 620, 621, 447, - 466, -278, -278, 5, 89, 7, 90, 803, 472, 448, - 87, 9, 10, 11, 640, 642, 658, 88, 704, 704, - 36, 454, 721, 699, 700, 75, 623, 13, 468, 218, - 87, 690, 260, 261, 262, 80, 465, 88, 448, 733, - 694, 911, 282, 912, 16, 474, 613, 538, 539, 540, - 480, 729, 14, 475, 626, 631, 190, 610, 36, 643, - 258, 259, 260, 261, 262, 484, 22, 478, 532, 485, - 533, 24, 624, 613, 710, 711, 641, 534, 538, 539, - 540, 625, 275, 243, 245, 75, 623, 488, 702, 311, - 489, 493, 92, 944, 490, 491, 496, 92, 538, 539, - 540, 952, 528, 626, 772, 506, 743, 218, 760, 497, - 803, 501, 14, 510, 524, 141, 550, 206, 80, 36, - 548, 553, 567, 206, 206, 568, 570, 575, 631, 576, - 579, 581, 624, 591, 596, 799, 599, 36, 337, 312, - 316, 625, 275, 206, 593, 80, 312, 316, 555, 605, - 932, 933, 5, 6, 7, 8, 206, 622, 637, 652, - 9, 10, 11, 214, 215, 704, 639, 779, 657, 9, - 10, 11, 683, 696, 799, 684, 13, 798, 14, -315, - 738, -32, 745, 746, 747, 840, 327, 761, 327, 766, - 690, 780, 767, 16, 322, 819, 801, -336, -336, -336, - -336, 826, -33, 802, 827, -336, -336, -336, 830, 833, - 812, 626, 626, 834, 836, 22, 798, 837, 631, 631, - 24, -336, 86, 862, 72, 84, 865, 868, 842, 271, - 879, 654, 655, 838, 872, 656, 843, 845, -336, 70, - 70, 851, 846, 847, 863, 36, 878, 858, 871, 885, - 723, 214, 215, 848, 850, 873, 888, 9, 10, 11, - -336, 874, 626, 886, 887, -336, 801, 895, 889, 891, - 206, 892, 903, 802, 894, -111, 919, 799, 914, 904, - 812, 881, 923, 712, 713, 714, 927, 928, 717, 718, - 263, 264, 931, 265, 266, 267, 268, 937, 87, 865, - 940, 5, 6, 7, 8, 88, 943, 954, 946, 9, - 10, 11, 890, 730, 951, 36, 955, 509, 376, 798, - 866, 935, 452, 379, 380, 13, 735, 865, 385, 386, - 387, 388, 389, 390, 391, 392, 393, 394, 395, 396, - 212, 722, 16, 507, 412, 755, 756, 757, 815, 857, - 580, 206, 726, 80, 213, 214, 215, 750, 470, 727, - 574, 9, 10, 11, 22, 477, 668, 578, 901, 24, - 322, 736, -124, -124, -124, -124, -124, -124, -124, 14, - -124, -124, -124, -124, -124, 778, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, 741, -124, -124, 902, 936, 938, 503, 73, -124, - 636, 520, -124, 521, -124, 707, 619, -124, -124, -124, - 825, 823, 617, -124, -124, 602, 424, 817, -124, -124, - 598, 752, 828, -124, 511, -124, -124, 686, 512, 487, - -124, -124, 0, 0, -124, 0, -124, -124, -124, -124, - 0, -124, 255, 256, 257, 258, 259, 260, 261, 262, - 494, 495, 254, 255, 256, 257, 258, 259, 260, 261, - 262, 322, 0, 0, -115, -115, -115, -115, 0, 0, - -115, 0, -115, -115, -115, 861, 251, 252, 253, 254, - 255, 256, 257, 258, 259, 260, 261, 262, -115, 0, - 0, 875, 0, 0, 0, 0, 660, 0, -336, -336, - -336, -336, -336, -336, -336, -115, -336, -336, -336, -336, - -336, 0, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -115, -336, -336, - 0, 0, -115, 0, 0, -336, 0, 0, -336, 0, - -336, 577, -115, -336, -336, -336, 0, 0, 0, -336, - -336, 0, 0, 0, -336, -336, 0, 0, 0, -336, - 592, -336, -336, 0, 0, 0, -336, -336, 0, 0, - -336, 0, -336, 0, -336, -336, 0, -336, 0, 0, - 322, 0, -336, -336, 0, 0, 0, -336, -336, 0, - -336, 0, 0, 0, -336, 0, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, 0, -336, 0, - -336, 0, -336, -336, 0, 0, 0, 0, 0, -336, - 263, 264, -336, 265, 266, 267, 268, -336, -336, -336, - 0, 0, 647, -336, -336, 0, 0, 0, -336, -336, - 0, 0, 0, -336, 0, -336, -336, 0, 0, 0, - -336, -336, 674, 0, -336, 0, -336, -311, -336, -336, - 852, -336, -336, -336, 0, 0, 0, -336, -336, 0, - -336, 0, 0, 0, -336, 0, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, 0, -336, 0, - -336, 0, -336, -336, 0, 0, 0, 0, 0, -336, - 0, 0, -336, 0, 0, 0, 0, -336, -336, -336, - 0, 0, 0, -336, -336, 0, 0, 647, -336, -336, - 0, 0, 0, -336, 0, -336, -336, 0, 0, 0, - -336, -336, 0, 0, -336, 0, -336, 0, -336, -336, - 0, -336, 0, 0, 0, 0, 194, 674, 0, -28, - -28, -28, -28, 0, 753, 0, 0, -28, -28, -28, - 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, - 765, 0, 195, -28, 0, -175, 0, 0, 0, 0, - 0, -175, 256, 257, 258, 259, 260, 261, 262, 0, - -28, 0, 674, 0, 0, 776, 0, 0, 0, 0, - 0, 0, 0, 0, 196, 197, 0, 0, 0, 0, - 0, 674, -28, 0, 674, 0, 674, -28, 0, 0, - 0, 0, -175, 0, 0, 0, -175, -28, 5, 0, - 7, 281, 0, 824, 0, 0, 9, 10, 11, 0, - 882, 0, -346, -346, 829, 0, 0, -346, -346, 0, - -346, 0, 13, 0, -346, 835, -346, -346, -346, -346, - -346, -346, -346, -346, -346, -346, -346, 0, -346, 16, - -346, 0, -346, -346, 0, 0, 0, 0, 0, -346, - 0, 674, -346, 0, 0, 0, 0, -346, -346, -346, - 0, 22, 0, -346, -346, 0, 24, 0, -346, -346, - 0, -280, -280, -346, 0, -346, -346, 0, 0, 0, - -346, -346, 0, 0, -346, 0, -346, 0, -346, -346, - 231, -346, 100, 5, 0, 7, 138, 101, 102, 0, - 103, 9, 10, 11, 0, 0, 893, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 13, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 16, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 0, 0, 114, 115, - 0, 0, 0, 116, 0, 117, 22, 0, 0, 0, - 118, 24, 0, 0, 119, 0, 0, 0, 120, 121, - 669, -94, 670, 60, 0, 0, 0, 101, 102, 248, - 103, 249, 250, 251, 252, 253, 254, 255, 256, 257, - 258, 259, 260, 261, 262, 0, 0, 0, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 0, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 0, 671, 114, 115, - 0, 0, 0, 116, 0, 117, 61, 0, 0, 0, - 118, 62, 0, 0, 119, 0, 0, -203, 120, 121, - 669, 672, 670, 60, 0, 0, 0, 101, 102, 0, - 103, 250, 251, 252, 253, 254, 255, 256, 257, 258, - 259, 260, 261, 262, 0, 0, 0, 0, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 0, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 0, 671, 114, 115, - 0, 0, 0, 116, 0, 117, 61, 0, 0, 0, - 118, 62, 0, 0, 119, 0, 0, -268, 120, 121, - 669, 672, 100, 0, 0, 0, 0, 101, 102, 0, - 103, 252, 253, 254, 255, 256, 257, 258, 259, 260, - 261, 262, 0, 0, 0, 0, 0, 0, 104, 0, - 15, 0, 105, 106, 0, -216, 0, 0, 0, 107, - 0, 0, 108, 0, 0, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 0, -216, 114, 115, - 0, 0, 0, 116, 0, 117, 0, 0, 0, 0, - 118, 0, 0, 0, 119, 645, 0, 100, 120, 121, - 0, 672, 101, 102, 0, 103, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 104, 0, 15, 0, 105, 106, 0, - 0, 0, 0, 0, 107, 0, 0, 108, 0, 0, - 0, 0, 109, 110, 111, 0, 0, 0, 112, 113, - 0, 0, 0, 114, 115, 0, 0, 0, 116, 0, - 117, 0, 0, 0, 0, 118, 0, 0, 0, 119, - 669, 0, 100, 120, 121, 0, 646, 101, 102, 0, - 103, 345, 0, 0, 5, 0, 7, 138, 0, 0, - 0, 0, 9, 10, 11, 0, 0, 0, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 13, 107, - 0, 15, 108, 0, 0, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 16, 0, 0, 114, 115, - 0, 0, 0, 116, 0, 117, 0, 0, 0, 0, - 118, 0, 0, 0, 119, 0, 0, 22, 120, 121, - 341, 672, 24, -24, -24, -24, -24, 346, -271, 0, - 0, -24, -24, -24, 0, 0, 0, 0, 0, 335, - 0, 0, -20, -20, -20, -20, 195, -24, 0, -175, - -20, -20, -20, 0, 0, -175, 0, 0, 0, 0, - 0, 0, 0, 0, -24, 195, -20, 0, -175, 0, - 0, 0, 0, 0, -175, 0, 0, 0, 196, 197, - 0, 0, 0, -20, 0, 0, -24, 0, 0, 0, - 0, -24, 0, 0, 0, 0, -175, 0, 0, 0, - -175, -24, 0, 0, 0, -20, 0, 0, 0, 0, - -20, 0, 0, 0, 0, -175, 0, 0, 322, -175, - -20, 5, 6, 7, 8, 0, 0, 0, 0, 9, - 10, 11, 0, 0, 0, 0, 0, 322, 0, 0, - -499, -499, -499, -499, 0, 13, 0, 14, -499, -499, - -499, 5, 0, 7, 281, 0, 0, 0, 0, 9, - 10, 11, 16, 0, -499, 100, -499, 0, 0, 0, - 101, 102, 0, 103, 0, 13, 0, 14, 0, 0, - 0, -499, 0, 0, 22, 0, 0, 0, 0, 24, - 0, 104, 16, 15, 0, 105, 106, 273, 0, -497, - 0, 0, 107, -499, 0, 108, 274, 275, -499, 0, - 109, 110, 111, 0, 22, 0, 112, 113, -499, 24, - 0, 114, 115, 0, 100, 0, 116, 0, 117, 101, - 102, 0, 103, 118, 0, 0, 0, 119, 0, 0, - 0, 120, 121, 0, 0, 320, 0, 0, 0, 0, - 104, 0, 15, 0, 105, 106, 0, 0, 0, 0, - 0, 107, 0, 0, 108, 0, 0, 0, 0, 109, - 110, 111, 0, 0, 0, 112, 113, 0, 0, 0, - 114, 115, 0, 100, 0, 116, 0, 117, 101, 102, - 0, 103, 118, 0, 0, 0, 119, 0, 0, 0, - 120, 121, 0, 0, 406, 0, 0, 0, 0, 104, - 0, 15, 0, 105, 106, 0, 0, 0, 0, 0, - 107, 0, 0, 108, 0, 0, 0, 0, 109, 110, - 111, 0, 0, 0, 112, 113, 0, 0, 0, 114, - 115, 0, 100, 0, 116, 0, 117, 101, 102, 0, - 103, 118, 0, 0, 0, 119, 0, 0, 0, 120, - 121, 0, 0, 462, 0, 0, 0, 0, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 0, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 0, 0, 114, 115, - 0, 100, 0, 116, 0, 117, 101, 102, 0, 103, - 118, 0, 0, 0, 119, 0, 0, 0, 120, 121, - 0, 0, 504, 0, 0, 0, 0, 104, 0, 15, - 0, 105, 106, 0, 0, 0, 0, 0, 107, 0, - 0, 108, 0, 0, 0, 0, 109, 110, 111, 0, - 0, 0, 112, 113, 0, 0, 0, 114, 115, 0, - 0, 0, 116, 0, 117, 0, 0, 0, 0, 118, - 0, 0, 0, 119, 0, 0, 0, 120, 121, 0, - 0, 771, 670, 782, 6, 7, 8, 101, 102, 0, - 103, 9, 10, 11, 783, 0, 784, 785, 786, 787, - 788, 789, 790, 791, 792, 793, 794, 13, 104, 14, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 16, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 0, 0, 114, 115, - 0, 0, 0, 116, 0, 117, 795, 0, 0, 0, - 118, 796, 0, 0, 119, 0, 797, 0, 120, 121, - 0, 361, 670, 60, 0, 0, 0, 101, 102, 0, - 103, 0, 0, 0, 783, 0, 784, 785, 786, 787, - 788, 789, 790, 791, 792, 793, 794, 0, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 0, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 100, 0, 114, 115, - 0, 101, 102, 116, 103, 117, 61, 0, 0, 0, - 118, 62, 0, 0, 119, 0, 797, 0, 120, 121, - 0, 361, 104, 0, 15, 0, 105, 106, 0, 0, - 0, 0, 0, 107, 0, 0, 108, 0, 0, 0, - 0, 109, 110, 111, 0, 0, 0, 112, 113, 0, - 0, 0, 114, 115, 0, 0, 0, 116, 0, 117, - 0, 0, 0, 0, 118, 0, 0, 0, 119, 0, - 0, 0, 120, 121, 0, 481, 147, 148, 0, 149, - 150, 0, 0, 0, 151, 152, 153, 154, 155, 156, - 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, - 167, 168, 169, 0, 100, 5, 6, 7, 8, 101, - 102, 170, 103, 9, 10, 11, 5, 6, 7, 8, - 0, 0, 0, 0, 9, 10, 11, 0, 0, 13, - 104, 14, 15, 0, 105, 106, 0, 0, 0, 0, - 13, 107, 14, 0, 108, 172, 16, 0, 0, 109, - 110, 111, 0, 0, 296, 112, 113, 16, 0, 0, - 114, 115, 0, 0, 0, 116, 0, 117, 22, 0, - 0, 0, 118, 24, 0, 0, 119, 0, 0, 22, - 120, 121, 100, 5, 24, 7, 138, 101, 102, 601, - 103, 9, 10, 11, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 13, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 16, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 100, 0, 114, 115, - 0, 101, 102, 116, 103, 117, 22, 0, 0, 0, - 118, 24, 0, 0, 119, 0, 0, 0, 120, 121, - 0, 0, 104, 0, 15, 0, 105, 106, 0, 0, - 0, 0, 0, 107, 0, 0, 108, 0, 0, 0, - 0, 109, 110, 111, 0, 0, 0, 112, 113, 0, - 100, 0, 114, 115, 0, 101, 102, 116, 103, 117, - 365, 0, 0, 0, 118, 0, 0, 0, 119, 0, - 0, 0, 120, 121, 0, 0, 104, 0, 15, 0, - 105, 106, 0, 0, 0, 0, 0, 107, 0, 0, - 108, 0, 0, 0, 0, 109, 110, 111, 0, 0, - 0, 112, 113, 0, 100, 0, 114, 115, 0, 101, - 102, 116, 103, 117, 0, 0, 0, 0, 118, 0, - 0, 0, 119, 0, 839, 0, 120, 121, 0, 0, - 104, 0, 15, 0, 105, 106, 0, 0, 0, 0, - 0, 107, 0, 0, 108, 0, 0, 0, 0, 109, - 110, 111, 0, 0, 0, 112, 113, 0, 100, 0, - 114, 115, 0, 101, 102, 116, 103, 117, 0, 0, - 0, 0, 118, 0, 0, 0, 119, 0, 0, 0, - 120, 121, 0, 0, 104, 0, 15, 0, 105, 106, - 0, 0, 0, 0, 0, 107, 0, 0, 108, 0, - 0, 0, 0, 109, 110, 111, 0, 0, 0, 112, - 113, 0, 100, 0, 242, 115, 0, 101, 102, 116, - 103, 117, 0, 0, 0, 0, 118, 0, 0, 0, - 119, 0, 0, 0, 120, 121, 0, 0, 104, 0, - 15, 0, 105, 106, 0, 0, 0, 0, 0, 107, - 0, 0, 108, 0, 0, 0, 0, 109, 110, 111, - 0, 0, 0, 112, 113, 0, 508, 0, 244, 115, - 0, 101, 102, 116, 103, 117, 0, 0, 0, 0, - 118, 0, 0, 0, 119, 0, 0, 0, 120, 121, - 0, 0, 104, 0, 15, 0, 105, 106, 0, 0, - 0, 0, 0, 107, 0, 0, 108, 0, 0, 0, - 0, 109, 110, 111, 0, 0, 0, 112, 113, 0, - 0, 0, 114, 115, 0, 0, 0, 116, 0, 117, - 0, 0, 0, 0, 118, 0, 0, 0, 119, 0, - 0, 543, 120, 121, 5, 0, 7, 138, 0, 0, - 0, 0, 9, 10, 11, 0, 0, 0, 0, 543, - 0, 0, 5, 0, 7, 138, 0, 0, 13, 0, - 9, 10, 11, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 16, 13, 0, 0, 0, - 0, 0, 0, 4, 0, -128, 5, 6, 7, 8, - 0, 0, 0, 16, 9, 10, 11, 22, -451, -451, - -451, 0, 24, 0, 0, 0, 0, 544, -451, 12, - 13, 0, 14, 15, 0, 22, -450, -450, -450, 0, - 24, 0, 0, 0, 0, 544, -450, 16, 0, 0, - 17, 18, -128, 0, 0, 0, 0, 0, 0, 0, - 0, -128, 0, 19, 20, 21, 0, 0, 0, 22, - 0, 0, 0, 23, 24, 25, 26, 0, 4, 27, - -128, 5, 6, 7, 8, 0, 0, 0, 0, 9, - 10, 11, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 13, 4, 14, -128, 5, - 6, 7, 8, 0, 0, 0, 0, 9, 10, 11, - 0, 0, 16, 0, 0, 529, 530, -128, 0, 0, - 0, 0, 0, 13, 0, 14, -128, 0, 0, 0, - 0, 0, 0, 0, 22, 0, 0, 0, 0, 24, - 16, 0, 0, 0, 27, -128, 436, 0, 437, 5, - 6, 7, 8, 0, -128, 438, 0, 9, 10, 11, - 0, 0, 22, 0, 0, 436, 0, 24, 5, 6, - 7, 8, 27, 13, 438, 14, 9, 10, 11, 5, - 6, 7, 8, 0, 0, 0, 0, 9, 10, 11, - 16, 0, 13, 0, 14, 345, 0, 0, 5, 0, - 7, 138, 0, 13, 0, 14, 9, 10, 11, 16, - 0, 0, 22, 0, 0, 0, 0, 24, 0, 0, - 16, -396, 13, 0, 0, 15, 0, 0, 0, 0, - 0, 22, 0, 0, 0, 0, 24, 0, 0, 16, - -396, 0, 22, 0, 0, 0, 0, 24, 0, 0, - 0, 0, 849, 0, 0, 0, 0, 0, 0, 147, - 148, 22, 149, 150, 0, 0, 24, 151, 152, 153, - 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, - 164, 165, 166, 167, 168, 169, 0, 147, 148, 0, - 149, 150, 0, 0, 170, 151, 152, 153, 154, 155, - 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, - 166, 167, 168, 169, 0, 171, 0, 0, 0, 0, - 0, 0, 368, 147, 148, 0, 149, 150, 172, 0, - 0, 151, 152, 153, 154, 155, 156, 157, 158, 159, - 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, - 0, 147, 148, 0, 149, 150, 172, 0, 170, 151, - 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, - 162, 163, 164, 165, 166, 167, 168, 169, 0, 0, - 0, 5, 6, 7, 8, 0, 586, 438, 0, 9, - 10, 11, 172, 5, 6, 7, 8, 0, 0, 635, - 0, 9, 10, 11, 0, 13, 0, 14, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 13, 0, 14, - 172, 0, 16, 5, 0, 7, 138, 5, 6, 7, - 8, 9, 10, 11, 16, 9, 10, 11, 0, 0, - 0, 0, 0, 0, 22, 0, 0, 13, 0, 24, - 0, 13, 0, 14, 0, 0, 22, 5, 0, 7, - 281, 24, 0, 0, 16, 9, 10, 11, 16, 0, - 0, 0, 0, 0, 869, 0, 0, 0, 0, 0, - 0, 13, 0, 0, 0, 0, 22, 0, 0, 0, - 22, 24, 0, 0, 0, 24, 0, 0, 16, 246, - 247, 248, 870, 249, 250, 251, 252, 253, 254, 255, - 256, 257, 258, 259, 260, 261, 262, 14, 0, 0, - 22, 0, 246, 247, 248, 24, 249, 250, 251, 252, - 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, - 246, 247, 248, 908, 249, 250, 251, 252, 253, 254, - 255, 256, 257, 258, 259, 260, 261, 262, 246, 247, - 248, 0, 249, 250, 251, 252, 253, 254, 255, 256, - 257, 258, 259, 260, 261, 262 -}; - -static const short yycheck[] = { 56, - 57, 16, 24, 33, 19, 20, 2, 3, 23, 233, - 25, 26, 31, 2, 3, 85, 22, 207, 24, 317, - 2, 3, 309, 38, 39, 40, 91, 201, 66, 279, - 336, 83, 175, 338, 32, 33, 342, 198, 267, 206, - 140, 324, 175, 143, 95, 67, 42, 405, 573, 71, - 221, 221, 36, 42, 114, 2, 3, 429, 77, 74, - 42, 67, 9, 10, 11, 71, 85, 640, 551, 53, - 54, 55, 105, 106, 680, 274, 832, 427, 111, 33, - 192, 1, 1, 9, 31, 3, 33, 1, 202, 122, - 1, 10, 107, 236, 725, 42, 80, 76, 38, 273, - 133, 38, 81, 57, 88, 3, 519, 38, 0, 276, - 523, 171, 45, 744, 45, 36, 38, 0, 30, 59, - 30, 3, 4, 59, 42, 315, 38, 883, 59, 144, - 77, 146, 30, 3, 4, 418, 83, 58, 85, 76, - 197, 666, 82, 749, 91, 59, 902, 212, 81, 905, - 76, 907, 50, 566, 76, 170, 569, 77, 59, 915, - 114, 59, 412, 82, 325, 180, 181, 906, 183, 184, - 189, 82, 3, 4, 193, 336, 45, 237, 235, 350, - 350, 342, 242, 202, 244, 67, 415, 537, 77, 143, - 72, 947, 81, 140, 59, 934, 143, 67, 27, 38, - 82, 30, 72, 402, 77, 3, 4, 36, 814, 408, - 225, 268, 82, 59, 279, 740, 330, 171, 275, 50, - 334, 333, 206, 238, 65, 708, 709, 1, 371, 3, - 4, 30, 292, 217, 82, 518, 67, 76, 525, 221, - 82, 72, 189, 77, 616, 192, 193, 81, 77, 30, - 265, 266, 81, 59, 3, 202, 82, 607, 7, 38, - 59, 60, 433, 433, 77, 212, 45, 221, 81, 67, - 38, 27, 3, 4, 72, 848, 634, 45, 59, 60, - 302, 30, 339, 237, 82, 300, 3, 4, 242, 59, - 244, 76, 276, 67, 3, 4, 302, 59, 72, 582, - 351, 50, 353, 59, 60, 81, 467, 76, 469, 76, - 59, 330, 81, 30, 81, 334, 3, 4, 5, 6, - 7, 38, 609, 9, 381, 76, 76, 274, 853, 75, - 81, 364, 76, 50, 558, 77, 67, 81, 292, 81, - 483, 72, 59, 358, 3, 329, 3, 412, 7, 347, - 59, 349, 77, 410, 76, 72, 81, 586, 67, 59, - 60, 77, 422, 72, 38, 81, 595, 82, 350, 512, - 77, 30, 319, 30, 81, 7, 76, 59, 661, 512, - 67, 664, 5, 330, 7, 72, 333, 334, 3, 4, - 59, 50, 7, 50, 644, 349, 350, 77, 30, 414, - 59, 60, 59, 60, 426, 710, 3, 4, 59, 60, - 440, 698, 77, 59, 60, 30, 81, 78, 50, 82, - 426, 582, 418, 453, 78, 76, 625, 59, 60, 418, - 76, 429, 76, 429, 76, 50, 3, 4, 3, 4, - 429, 439, 440, 76, 59, 38, 589, 30, 619, 619, - 624, 551, 552, 77, 683, 402, 630, 72, 405, 626, - 475, 408, 59, 30, 631, 30, 76, 50, 422, 59, - 67, 418, 722, 38, 421, 72, 59, 60, 77, 433, - 59, 60, 429, 50, 514, 50, 440, 27, 77, 78, - 30, 652, 59, 440, 59, 510, 36, 48, 49, 453, - 10, 662, 77, 664, 534, 72, 81, 72, 76, 708, - 709, 63, 63, 532, 76, 513, 715, 716, 742, 59, - 60, 517, 82, 77, 68, 69, 70, 81, 517, 59, - 60, 818, 551, 552, 78, 533, 534, 77, 77, 59, - 60, 81, 81, 337, 27, 615, 9, 545, 546, 83, - 344, 77, 78, 4, 5, 6, 7, 781, 352, 77, - 514, 12, 13, 14, 562, 563, 581, 514, 620, 621, - 517, 36, 642, 611, 612, 3, 4, 28, 77, 644, - 534, 600, 50, 51, 52, 532, 67, 534, 77, 78, - 605, 897, 546, 899, 45, 36, 615, 68, 69, 70, - 76, 653, 30, 81, 551, 552, 625, 78, 555, 563, - 48, 49, 50, 51, 52, 38, 67, 78, 616, 76, - 616, 72, 50, 642, 59, 60, 77, 616, 68, 69, - 70, 59, 60, 126, 127, 3, 4, 76, 78, 7, - 76, 38, 626, 941, 76, 76, 76, 631, 68, 69, - 70, 949, 63, 600, 711, 76, 671, 722, 78, 83, - 884, 83, 30, 76, 82, 619, 76, 614, 615, 616, - 63, 76, 36, 620, 621, 83, 76, 78, 625, 78, - 78, 32, 50, 38, 76, 742, 77, 634, 878, 708, - 709, 59, 60, 640, 83, 642, 715, 716, 81, 76, - 924, 925, 4, 5, 6, 7, 653, 77, 3, 81, - 12, 13, 14, 6, 7, 767, 77, 732, 78, 12, - 13, 14, 38, 63, 781, 83, 28, 742, 30, 78, - 78, 38, 38, 78, 81, 792, 897, 63, 899, 38, - 759, 78, 81, 45, 1, 63, 742, 4, 5, 6, - 7, 83, 38, 742, 78, 12, 13, 14, 59, 59, - 742, 708, 709, 59, 38, 67, 781, 77, 715, 716, - 72, 28, 802, 830, 796, 77, 833, 834, 793, 812, - 850, 575, 576, 77, 841, 579, 7, 38, 45, 795, - 796, 16, 77, 77, 59, 742, 848, 78, 77, 856, - 5, 6, 7, 801, 802, 77, 863, 12, 13, 14, - 67, 59, 759, 63, 76, 72, 812, 874, 17, 77, - 767, 76, 76, 812, 77, 82, 9, 884, 77, 76, - 812, 850, 77, 627, 628, 629, 77, 59, 632, 633, - 54, 55, 81, 57, 58, 59, 60, 77, 802, 906, - 76, 4, 5, 6, 7, 802, 76, 0, 77, 12, - 13, 14, 76, 657, 77, 812, 0, 415, 241, 884, - 833, 928, 325, 246, 247, 28, 662, 934, 251, 252, - 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, - 87, 643, 45, 414, 282, 689, 690, 691, 747, 812, - 477, 848, 650, 850, 5, 6, 7, 679, 350, 652, - 469, 12, 13, 14, 67, 358, 583, 475, 884, 72, - 1, 662, 3, 4, 5, 6, 7, 8, 9, 30, - 11, 12, 13, 14, 15, 729, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, - 31, 664, 33, 34, 884, 929, 931, 409, 25, 40, - 555, 421, 43, 421, 45, 621, 542, 48, 49, 50, - 767, 764, 535, 54, 55, 517, 301, 759, 59, 60, - 512, 683, 776, 64, 417, 66, 67, 589, 417, 371, - 71, 72, -1, -1, 75, -1, 77, 78, 79, 80, - -1, 82, 45, 46, 47, 48, 49, 50, 51, 52, - 383, 384, 44, 45, 46, 47, 48, 49, 50, 51, - 52, 1, -1, -1, 4, 5, 6, 7, -1, -1, - 10, -1, 12, 13, 14, 829, 41, 42, 43, 44, - 45, 46, 47, 48, 49, 50, 51, 52, 28, -1, - -1, 845, -1, -1, -1, -1, 1, -1, 3, 4, - 5, 6, 7, 8, 9, 45, 11, 12, 13, 14, - 15, -1, 17, 18, 19, 20, 21, 22, 23, 24, - 25, 26, 27, 28, 29, 30, 31, 67, 33, 34, - -1, -1, 72, -1, -1, 40, -1, -1, 43, -1, - 45, 474, 82, 48, 49, 50, -1, -1, -1, 54, - 55, -1, -1, -1, 59, 60, -1, -1, -1, 64, - 493, 66, 67, -1, -1, -1, 71, 72, -1, -1, - 75, -1, 77, -1, 79, 80, -1, 82, -1, -1, - 1, -1, 3, 4, -1, -1, -1, 8, 9, -1, - 11, -1, -1, -1, 15, -1, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 27, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - 54, 55, 43, 57, 58, 59, 60, 48, 49, 50, - -1, -1, 565, 54, 55, -1, -1, -1, 59, 60, - -1, -1, -1, 64, -1, 66, 67, -1, -1, -1, - 71, 72, 585, -1, 75, -1, 77, 78, 79, 80, - 1, 82, 3, 4, -1, -1, -1, 8, 9, -1, - 11, -1, -1, -1, 15, -1, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 27, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, -1, 650, 59, 60, - -1, -1, -1, 64, -1, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, 77, -1, 79, 80, - -1, 82, -1, -1, -1, -1, 1, 680, -1, 4, - 5, 6, 7, -1, 687, -1, -1, 12, 13, 14, - 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, - 703, -1, 27, 28, -1, 30, -1, -1, -1, -1, - -1, 36, 46, 47, 48, 49, 50, 51, 52, -1, - 45, -1, 725, -1, -1, 728, -1, -1, -1, -1, - -1, -1, -1, -1, 59, 60, -1, -1, -1, -1, - -1, 744, 67, -1, 747, -1, 749, 72, -1, -1, - -1, -1, 77, -1, -1, -1, 81, 82, 4, -1, - 6, 7, -1, 766, -1, -1, 12, 13, 14, -1, - 1, -1, 3, 4, 777, -1, -1, 8, 9, -1, - 11, -1, 28, -1, 15, 788, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 27, -1, 29, 45, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, 814, 43, -1, -1, -1, -1, 48, 49, 50, - -1, 67, -1, 54, 55, -1, 72, -1, 59, 60, - -1, 77, 78, 64, -1, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, 77, -1, 79, 80, - 1, 82, 3, 4, -1, 6, 7, 8, 9, -1, - 11, 12, 13, 14, -1, -1, 869, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 28, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, 45, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, -1, -1, 59, 60, - -1, -1, -1, 64, -1, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, -1, -1, 79, 80, - 1, 82, 3, 4, -1, -1, -1, 8, 9, 37, - 11, 39, 40, 41, 42, 43, 44, 45, 46, 47, - 48, 49, 50, 51, 52, -1, -1, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, -1, 58, 59, 60, - -1, -1, -1, 64, -1, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, -1, 78, 79, 80, - 1, 82, 3, 4, -1, -1, -1, 8, 9, -1, - 11, 40, 41, 42, 43, 44, 45, 46, 47, 48, - 49, 50, 51, 52, -1, -1, -1, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, -1, 58, 59, 60, - -1, -1, -1, 64, -1, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, -1, 78, 79, 80, - 1, 82, 3, -1, -1, -1, -1, 8, 9, -1, - 11, 42, 43, 44, 45, 46, 47, 48, 49, 50, - 51, 52, -1, -1, -1, -1, -1, -1, 29, -1, - 31, -1, 33, 34, -1, 36, -1, -1, -1, 40, - -1, -1, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, -1, 58, 59, 60, - -1, -1, -1, 64, -1, 66, -1, -1, -1, -1, - 71, -1, -1, -1, 75, 1, -1, 3, 79, 80, - -1, 82, 8, 9, -1, 11, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 29, -1, 31, -1, 33, 34, -1, - -1, -1, -1, -1, 40, -1, -1, 43, -1, -1, - -1, -1, 48, 49, 50, -1, -1, -1, 54, 55, - -1, -1, -1, 59, 60, -1, -1, -1, 64, -1, - 66, -1, -1, -1, -1, 71, -1, -1, -1, 75, - 1, -1, 3, 79, 80, -1, 82, 8, 9, -1, - 11, 1, -1, -1, 4, -1, 6, 7, -1, -1, - -1, -1, 12, 13, 14, -1, -1, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, 28, 40, - -1, 31, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, 45, -1, -1, 59, 60, - -1, -1, -1, 64, -1, 66, -1, -1, -1, -1, - 71, -1, -1, -1, 75, -1, -1, 67, 79, 80, - 1, 82, 72, 4, 5, 6, 7, 77, 78, -1, - -1, 12, 13, 14, -1, -1, -1, -1, -1, 1, - -1, -1, 4, 5, 6, 7, 27, 28, -1, 30, - 12, 13, 14, -1, -1, 36, -1, -1, -1, -1, - -1, -1, -1, -1, 45, 27, 28, -1, 30, -1, - -1, -1, -1, -1, 36, -1, -1, -1, 59, 60, - -1, -1, -1, 45, -1, -1, 67, -1, -1, -1, - -1, 72, -1, -1, -1, -1, 77, -1, -1, -1, - 81, 82, -1, -1, -1, 67, -1, -1, -1, -1, - 72, -1, -1, -1, -1, 77, -1, -1, 1, 81, - 82, 4, 5, 6, 7, -1, -1, -1, -1, 12, - 13, 14, -1, -1, -1, -1, -1, 1, -1, -1, - 4, 5, 6, 7, -1, 28, -1, 30, 12, 13, - 14, 4, -1, 6, 7, -1, -1, -1, -1, 12, - 13, 14, 45, -1, 28, 3, 30, -1, -1, -1, - 8, 9, -1, 11, -1, 28, -1, 30, -1, -1, - -1, 45, -1, -1, 67, -1, -1, -1, -1, 72, - -1, 29, 45, 31, -1, 33, 34, 50, -1, 82, - -1, -1, 40, 67, -1, 43, 59, 60, 72, -1, - 48, 49, 50, -1, 67, -1, 54, 55, 82, 72, - -1, 59, 60, -1, 3, -1, 64, -1, 66, 8, - 9, -1, 11, 71, -1, -1, -1, 75, -1, -1, - -1, 79, 80, -1, -1, 83, -1, -1, -1, -1, - 29, -1, 31, -1, 33, 34, -1, -1, -1, -1, - -1, 40, -1, -1, 43, -1, -1, -1, -1, 48, - 49, 50, -1, -1, -1, 54, 55, -1, -1, -1, - 59, 60, -1, 3, -1, 64, -1, 66, 8, 9, - -1, 11, 71, -1, -1, -1, 75, -1, -1, -1, - 79, 80, -1, -1, 83, -1, -1, -1, -1, 29, - -1, 31, -1, 33, 34, -1, -1, -1, -1, -1, - 40, -1, -1, 43, -1, -1, -1, -1, 48, 49, - 50, -1, -1, -1, 54, 55, -1, -1, -1, 59, - 60, -1, 3, -1, 64, -1, 66, 8, 9, -1, - 11, 71, -1, -1, -1, 75, -1, -1, -1, 79, - 80, -1, -1, 83, -1, -1, -1, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, -1, -1, 59, 60, - -1, 3, -1, 64, -1, 66, 8, 9, -1, 11, - 71, -1, -1, -1, 75, -1, -1, -1, 79, 80, - -1, -1, 83, -1, -1, -1, -1, 29, -1, 31, - -1, 33, 34, -1, -1, -1, -1, -1, 40, -1, - -1, 43, -1, -1, -1, -1, 48, 49, 50, -1, - -1, -1, 54, 55, -1, -1, -1, 59, 60, -1, - -1, -1, 64, -1, 66, -1, -1, -1, -1, 71, - -1, -1, -1, 75, -1, -1, -1, 79, 80, -1, - -1, 83, 3, 4, 5, 6, 7, 8, 9, -1, - 11, 12, 13, 14, 15, -1, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, 45, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, -1, -1, 59, 60, - -1, -1, -1, 64, -1, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, 77, -1, 79, 80, - -1, 82, 3, 4, -1, -1, -1, 8, 9, -1, - 11, -1, -1, -1, 15, -1, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 27, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, 3, -1, 59, 60, - -1, 8, 9, 64, 11, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, 77, -1, 79, 80, - -1, 82, 29, -1, 31, -1, 33, 34, -1, -1, - -1, -1, -1, 40, -1, -1, 43, -1, -1, -1, - -1, 48, 49, 50, -1, -1, -1, 54, 55, -1, - -1, -1, 59, 60, -1, -1, -1, 64, -1, 66, - -1, -1, -1, -1, 71, -1, -1, -1, 75, -1, - -1, -1, 79, 80, -1, 82, 3, 4, -1, 6, - 7, -1, -1, -1, 11, 12, 13, 14, 15, 16, - 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, - 27, 28, 29, -1, 3, 4, 5, 6, 7, 8, - 9, 38, 11, 12, 13, 14, 4, 5, 6, 7, - -1, -1, -1, -1, 12, 13, 14, -1, -1, 28, - 29, 30, 31, -1, 33, 34, -1, -1, -1, -1, - 28, 40, 30, -1, 43, 72, 45, -1, -1, 48, - 49, 50, -1, -1, 81, 54, 55, 45, -1, -1, - 59, 60, -1, -1, -1, 64, -1, 66, 67, -1, - -1, -1, 71, 72, -1, -1, 75, -1, -1, 67, - 79, 80, 3, 4, 72, 6, 7, 8, 9, 77, - 11, 12, 13, 14, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 28, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, 45, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, 3, -1, 59, 60, - -1, 8, 9, 64, 11, 66, 67, -1, -1, -1, - 71, 72, -1, -1, 75, -1, -1, -1, 79, 80, - -1, -1, 29, -1, 31, -1, 33, 34, -1, -1, - -1, -1, -1, 40, -1, -1, 43, -1, -1, -1, - -1, 48, 49, 50, -1, -1, -1, 54, 55, -1, - 3, -1, 59, 60, -1, 8, 9, 64, 11, 66, - 67, -1, -1, -1, 71, -1, -1, -1, 75, -1, - -1, -1, 79, 80, -1, -1, 29, -1, 31, -1, - 33, 34, -1, -1, -1, -1, -1, 40, -1, -1, - 43, -1, -1, -1, -1, 48, 49, 50, -1, -1, - -1, 54, 55, -1, 3, -1, 59, 60, -1, 8, - 9, 64, 11, 66, -1, -1, -1, -1, 71, -1, - -1, -1, 75, -1, 77, -1, 79, 80, -1, -1, - 29, -1, 31, -1, 33, 34, -1, -1, -1, -1, - -1, 40, -1, -1, 43, -1, -1, -1, -1, 48, - 49, 50, -1, -1, -1, 54, 55, -1, 3, -1, - 59, 60, -1, 8, 9, 64, 11, 66, -1, -1, - -1, -1, 71, -1, -1, -1, 75, -1, -1, -1, - 79, 80, -1, -1, 29, -1, 31, -1, 33, 34, - -1, -1, -1, -1, -1, 40, -1, -1, 43, -1, - -1, -1, -1, 48, 49, 50, -1, -1, -1, 54, - 55, -1, 3, -1, 59, 60, -1, 8, 9, 64, - 11, 66, -1, -1, -1, -1, 71, -1, -1, -1, - 75, -1, -1, -1, 79, 80, -1, -1, 29, -1, - 31, -1, 33, 34, -1, -1, -1, -1, -1, 40, - -1, -1, 43, -1, -1, -1, -1, 48, 49, 50, - -1, -1, -1, 54, 55, -1, 3, -1, 59, 60, - -1, 8, 9, 64, 11, 66, -1, -1, -1, -1, - 71, -1, -1, -1, 75, -1, -1, -1, 79, 80, - -1, -1, 29, -1, 31, -1, 33, 34, -1, -1, - -1, -1, -1, 40, -1, -1, 43, -1, -1, -1, - -1, 48, 49, 50, -1, -1, -1, 54, 55, -1, - -1, -1, 59, 60, -1, -1, -1, 64, -1, 66, - -1, -1, -1, -1, 71, -1, -1, -1, 75, -1, - -1, 1, 79, 80, 4, -1, 6, 7, -1, -1, - -1, -1, 12, 13, 14, -1, -1, -1, -1, 1, - -1, -1, 4, -1, 6, 7, -1, -1, 28, -1, - 12, 13, 14, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 45, 28, -1, -1, -1, - -1, -1, -1, 1, -1, 3, 4, 5, 6, 7, - -1, -1, -1, 45, 12, 13, 14, 67, 68, 69, - 70, -1, 72, -1, -1, -1, -1, 77, 78, 27, - 28, -1, 30, 31, -1, 67, 68, 69, 70, -1, - 72, -1, -1, -1, -1, 77, 78, 45, -1, -1, - 48, 49, 50, -1, -1, -1, -1, -1, -1, -1, - -1, 59, -1, 61, 62, 63, -1, -1, -1, 67, - -1, -1, -1, 71, 72, 73, 74, -1, 1, 77, - 3, 4, 5, 6, 7, -1, -1, -1, -1, 12, - 13, 14, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 28, 1, 30, 3, 4, - 5, 6, 7, -1, -1, -1, -1, 12, 13, 14, - -1, -1, 45, -1, -1, 48, 49, 50, -1, -1, - -1, -1, -1, 28, -1, 30, 59, -1, -1, -1, - -1, -1, -1, -1, 67, -1, -1, -1, -1, 72, - 45, -1, -1, -1, 77, 50, 1, -1, 3, 4, - 5, 6, 7, -1, 59, 10, -1, 12, 13, 14, - -1, -1, 67, -1, -1, 1, -1, 72, 4, 5, - 6, 7, 77, 28, 10, 30, 12, 13, 14, 4, - 5, 6, 7, -1, -1, -1, -1, 12, 13, 14, - 45, -1, 28, -1, 30, 1, -1, -1, 4, -1, - 6, 7, -1, 28, -1, 30, 12, 13, 14, 45, - -1, -1, 67, -1, -1, -1, -1, 72, -1, -1, - 45, 76, 28, -1, -1, 31, -1, -1, -1, -1, - -1, 67, -1, -1, -1, -1, 72, -1, -1, 45, - 76, -1, 67, -1, -1, -1, -1, 72, -1, -1, - -1, -1, 77, -1, -1, -1, -1, -1, -1, 3, - 4, 67, 6, 7, -1, -1, 72, 11, 12, 13, - 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, - 24, 25, 26, 27, 28, 29, -1, 3, 4, -1, - 6, 7, -1, -1, 38, 11, 12, 13, 14, 15, - 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, - 26, 27, 28, 29, -1, 59, -1, -1, -1, -1, - -1, -1, 38, 3, 4, -1, 6, 7, 72, -1, - -1, 11, 12, 13, 14, 15, 16, 17, 18, 19, - 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, - -1, 3, 4, -1, 6, 7, 72, -1, 38, 11, - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, - 22, 23, 24, 25, 26, 27, 28, 29, -1, -1, - -1, 4, 5, 6, 7, -1, 38, 10, -1, 12, - 13, 14, 72, 4, 5, 6, 7, -1, -1, 10, - -1, 12, 13, 14, -1, 28, -1, 30, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 28, -1, 30, - 72, -1, 45, 4, -1, 6, 7, 4, 5, 6, - 7, 12, 13, 14, 45, 12, 13, 14, -1, -1, - -1, -1, -1, -1, 67, -1, -1, 28, -1, 72, - -1, 28, -1, 30, -1, -1, 67, 4, -1, 6, - 7, 72, -1, -1, 45, 12, 13, 14, 45, -1, - -1, -1, -1, -1, 10, -1, -1, -1, -1, -1, - -1, 28, -1, -1, -1, -1, 67, -1, -1, -1, - 67, 72, -1, -1, -1, 72, -1, -1, 45, 35, - 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, - 46, 47, 48, 49, 50, 51, 52, 30, -1, -1, - 67, -1, 35, 36, 37, 72, 39, 40, 41, 42, - 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, - 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, - 45, 46, 47, 48, 49, 50, 51, 52, 35, 36, - 37, -1, 39, 40, 41, 42, 43, 44, 45, 46, - 47, 48, 49, 50, 51, 52 -}; -/* -*-C-*- Note some compilers choke on comments on `#line' lines. */ -#line 3 "/usr/lib/bison.simple" - -/* Skeleton output parser for bison, - Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc. - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2, or (at your option) - any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ - -/* As a special exception, when this file is copied by Bison into a - Bison output file, you may use that output file without restriction. - This special exception was added by the Free Software Foundation - in version 1.24 of Bison. */ - -#ifndef alloca -#ifdef __GNUC__ -#define alloca __builtin_alloca -#else /* not GNU C. */ -#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) -#include <alloca.h> -#else /* not sparc */ -#if defined (MSDOS) && !defined (__TURBOC__) -#include <malloc.h> -#else /* not MSDOS, or __TURBOC__ */ -#if defined(_AIX) -#include <malloc.h> - #pragma alloca -#else /* not MSDOS, __TURBOC__, or _AIX */ -#ifdef __hpux -#ifdef __cplusplus -extern "C" { -void *alloca (unsigned int); -}; -#else /* not __cplusplus */ -void *alloca (); -#endif /* not __cplusplus */ -#endif /* __hpux */ -#endif /* not _AIX */ -#endif /* not MSDOS, or __TURBOC__ */ -#endif /* not sparc. */ -#endif /* not GNU C. */ -#endif /* alloca not defined. */ - -/* This is the parser code that is written into each bison parser - when the %semantic_parser declaration is not specified in the grammar. - It was written by Richard Stallman by simplifying the hairy parser - used when %semantic_parser is specified. */ - -/* Note: there must be only one dollar sign in this file. - It is replaced by the list of actions, each action - as one case of the switch. */ - -#define yyerrok (yyerrstatus = 0) -#define yyclearin (yychar = YYEMPTY) -#define YYEMPTY -2 -#define YYEOF 0 -#define YYACCEPT return(0) -#define YYABORT return(1) -#define YYERROR goto yyerrlab1 -/* Like YYERROR except do call yyerror. - This remains here temporarily to ease the - transition to the new meaning of YYERROR, for GCC. - Once GCC version 2 has supplanted version 1, this can go. */ -#define YYFAIL goto yyerrlab -#define YYRECOVERING() (!!yyerrstatus) -#define YYBACKUP(token, value) \ -do \ - if (yychar == YYEMPTY && yylen == 1) \ - { yychar = (token), yylval = (value); \ - yychar1 = YYTRANSLATE (yychar); \ - YYPOPSTACK; \ - goto yybackup; \ - } \ - else \ - { yyerror ("syntax error: cannot back up"); YYERROR; } \ -while (0) - -#define YYTERROR 1 -#define YYERRCODE 256 - -#ifndef YYPURE -#define YYLEX yylex() -#endif - -#ifdef YYPURE -#ifdef YYLSP_NEEDED -#ifdef YYLEX_PARAM -#define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM) -#else -#define YYLEX yylex(&yylval, &yylloc) -#endif -#else /* not YYLSP_NEEDED */ -#ifdef YYLEX_PARAM -#define YYLEX yylex(&yylval, YYLEX_PARAM) -#else -#define YYLEX yylex(&yylval) -#endif -#endif /* not YYLSP_NEEDED */ -#endif - -/* If nonreentrant, generate the variables here */ - -#ifndef YYPURE - -int yychar; /* the lookahead symbol */ -YYSTYPE yylval; /* the semantic value of the */ - /* lookahead symbol */ - -#ifdef YYLSP_NEEDED -YYLTYPE yylloc; /* location data for the lookahead */ - /* symbol */ -#endif - -int yynerrs; /* number of parse errors so far */ -#endif /* not YYPURE */ - -#if YYDEBUG != 0 -int yydebug; /* nonzero means print parse trace */ -/* Since this is uninitialized, it does not stop multiple parsers - from coexisting. */ -#endif - -/* YYINITDEPTH indicates the initial size of the parser's stacks */ - -#ifndef YYINITDEPTH -#define YYINITDEPTH 200 -#endif - -/* YYMAXDEPTH is the maximum size the stacks can grow to - (effective only if the built-in stack extension method is used). */ - -#if YYMAXDEPTH == 0 -#undef YYMAXDEPTH -#endif - -#ifndef YYMAXDEPTH -#define YYMAXDEPTH 10000 -#endif - -/* Prevent warning if -Wstrict-prototypes. */ -#ifdef __GNUC__ -int yyparse (void); -#endif - -#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */ -#define __yy_memcpy(TO,FROM,COUNT) __builtin_memcpy(TO,FROM,COUNT) -#else /* not GNU C or C++ */ -#ifndef __cplusplus - -/* This is the most reliable way to avoid incompatibilities - in available built-in functions on various systems. */ -static void -__yy_memcpy (to, from, count) - char *to; - char *from; - int count; -{ - register char *f = from; - register char *t = to; - register int i = count; - - while (i-- > 0) - *t++ = *f++; -} - -#else /* __cplusplus */ - -/* This is the most reliable way to avoid incompatibilities - in available built-in functions on various systems. */ -static void -__yy_memcpy (char *to, char *from, int count) -{ - register char *f = from; - register char *t = to; - register int i = count; - - while (i-- > 0) - *t++ = *f++; -} - -#endif -#endif - -#line 196 "/usr/lib/bison.simple" - -/* The user can define YYPARSE_PARAM as the name of an argument to be passed - into yyparse. The argument should have type void *. - It should actually point to an object. - Grammar actions can access the variable by casting it - to the proper pointer type. */ - -#ifdef YYPARSE_PARAM -#ifdef __cplusplus -#define YYPARSE_PARAM_ARG void *YYPARSE_PARAM -#define YYPARSE_PARAM_DECL -#else /* not __cplusplus */ -#define YYPARSE_PARAM_ARG YYPARSE_PARAM -#define YYPARSE_PARAM_DECL void *YYPARSE_PARAM; -#endif /* not __cplusplus */ -#else /* not YYPARSE_PARAM */ -#define YYPARSE_PARAM_ARG -#define YYPARSE_PARAM_DECL -#endif /* not YYPARSE_PARAM */ - -int -yyparse(YYPARSE_PARAM_ARG) - YYPARSE_PARAM_DECL -{ - register int yystate; - register int yyn; - register short *yyssp; - register YYSTYPE *yyvsp; - int yyerrstatus; /* number of tokens to shift before error messages enabled */ - int yychar1 = 0; /* lookahead token as an internal (translated) token number */ - - short yyssa[YYINITDEPTH]; /* the state stack */ - YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */ - - short *yyss = yyssa; /* refer to the stacks thru separate pointers */ - YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */ - -#ifdef YYLSP_NEEDED - YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */ - YYLTYPE *yyls = yylsa; - YYLTYPE *yylsp; - -#define YYPOPSTACK (yyvsp--, yyssp--, yylsp--) -#else -#define YYPOPSTACK (yyvsp--, yyssp--) -#endif - - int yystacksize = YYINITDEPTH; - -#ifdef YYPURE - int yychar; - YYSTYPE yylval; - int yynerrs; -#ifdef YYLSP_NEEDED - YYLTYPE yylloc; -#endif -#endif - - YYSTYPE yyval; /* the variable used to return */ - /* semantic values from the action */ - /* routines */ - - int yylen; - -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Starting parse\n"); -#endif - - yystate = 0; - yyerrstatus = 0; - yynerrs = 0; - yychar = YYEMPTY; /* Cause a token to be read. */ - - /* Initialize stack pointers. - Waste one element of value and location stack - so that they stay on the same level as the state stack. - The wasted elements are never initialized. */ - - yyssp = yyss - 1; - yyvsp = yyvs; -#ifdef YYLSP_NEEDED - yylsp = yyls; -#endif - -/* Push a new state, which is found in yystate . */ -/* In all cases, when you get here, the value and location stacks - have just been pushed. so pushing a state here evens the stacks. */ -yynewstate: - - *++yyssp = yystate; - - if (yyssp >= yyss + yystacksize - 1) - { - /* Give user a chance to reallocate the stack */ - /* Use copies of these so that the &'s don't force the real ones into memory. */ - YYSTYPE *yyvs1 = yyvs; - short *yyss1 = yyss; -#ifdef YYLSP_NEEDED - YYLTYPE *yyls1 = yyls; -#endif - - /* Get the current used size of the three stacks, in elements. */ - int size = yyssp - yyss + 1; - -#ifdef yyoverflow - /* Each stack pointer address is followed by the size of - the data in use in that stack, in bytes. */ -#ifdef YYLSP_NEEDED - /* This used to be a conditional around just the two extra args, - but that might be undefined if yyoverflow is a macro. */ - yyoverflow("parser stack overflow", - &yyss1, size * sizeof (*yyssp), - &yyvs1, size * sizeof (*yyvsp), - &yyls1, size * sizeof (*yylsp), - &yystacksize); -#else - yyoverflow("parser stack overflow", - &yyss1, size * sizeof (*yyssp), - &yyvs1, size * sizeof (*yyvsp), - &yystacksize); -#endif - - yyss = yyss1; yyvs = yyvs1; -#ifdef YYLSP_NEEDED - yyls = yyls1; -#endif -#else /* no yyoverflow */ - /* Extend the stack our own way. */ - if (yystacksize >= YYMAXDEPTH) - { - yyerror("parser stack overflow"); - return 2; - } - yystacksize *= 2; - if (yystacksize > YYMAXDEPTH) - yystacksize = YYMAXDEPTH; - yyss = (short *) alloca (yystacksize * sizeof (*yyssp)); - __yy_memcpy ((char *)yyss, (char *)yyss1, size * sizeof (*yyssp)); - yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp)); - __yy_memcpy ((char *)yyvs, (char *)yyvs1, size * sizeof (*yyvsp)); -#ifdef YYLSP_NEEDED - yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp)); - __yy_memcpy ((char *)yyls, (char *)yyls1, size * sizeof (*yylsp)); -#endif -#endif /* no yyoverflow */ - - yyssp = yyss + size - 1; - yyvsp = yyvs + size - 1; -#ifdef YYLSP_NEEDED - yylsp = yyls + size - 1; -#endif - -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Stack size increased to %d\n", yystacksize); -#endif - - if (yyssp >= yyss + yystacksize - 1) - YYABORT; - } - -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Entering state %d\n", yystate); -#endif - - goto yybackup; - yybackup: - -/* Do appropriate processing given the current state. */ -/* Read a lookahead token if we need one and don't already have one. */ -/* yyresume: */ - - /* First try to decide what to do without reference to lookahead token. */ - - yyn = yypact[yystate]; - if (yyn == YYFLAG) - goto yydefault; - - /* Not known => get a lookahead token if don't already have one. */ - - /* yychar is either YYEMPTY or YYEOF - or a valid token in external form. */ - - if (yychar == YYEMPTY) - { -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Reading a token: "); -#endif - yychar = YYLEX; - } - - /* Convert token to internal form (in yychar1) for indexing tables with */ - - if (yychar <= 0) /* This means end of input. */ - { - yychar1 = 0; - yychar = YYEOF; /* Don't call YYLEX any more */ - -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Now at end of input.\n"); -#endif - } - else - { - yychar1 = YYTRANSLATE(yychar); - -#if YYDEBUG != 0 - if (yydebug) - { - fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]); - /* Give the individual parser a way to print the precise meaning - of a token, for further debugging info. */ -#ifdef YYPRINT - YYPRINT (stderr, yychar, yylval); -#endif - fprintf (stderr, ")\n"); - } -#endif - } - - yyn += yychar1; - if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1) - goto yydefault; - - yyn = yytable[yyn]; - - /* yyn is what to do for this token type in this state. - Negative => reduce, -yyn is rule number. - Positive => shift, yyn is new state. - New state is final state => don't bother to shift, - just return success. - 0, or most negative number => error. */ - - if (yyn < 0) - { - if (yyn == YYFLAG) - goto yyerrlab; - yyn = -yyn; - goto yyreduce; - } - else if (yyn == 0) - goto yyerrlab; - - if (yyn == YYFINAL) - YYACCEPT; - - /* Shift the lookahead token. */ - -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]); -#endif - - /* Discard the token being shifted unless it is eof. */ - if (yychar != YYEOF) - yychar = YYEMPTY; - - *++yyvsp = yylval; -#ifdef YYLSP_NEEDED - *++yylsp = yylloc; -#endif - - /* count tokens shifted since error; after three, turn off error status. */ - if (yyerrstatus) yyerrstatus--; - - yystate = yyn; - goto yynewstate; - -/* Do the default action for the current state. */ -yydefault: - - yyn = yydefact[yystate]; - if (yyn == 0) - goto yyerrlab; - -/* Do a reduction. yyn is the number of a rule to reduce with. */ -yyreduce: - yylen = yyr2[yyn]; - if (yylen > 0) - yyval = yyvsp[1-yylen]; /* implement default value of the action */ - -#if YYDEBUG != 0 - if (yydebug) - { - int i; - - fprintf (stderr, "Reducing via rule %d (line %d), ", - yyn, yyrline[yyn]); - - /* Print the symbols being reduced, and their result. */ - for (i = yyprhs[yyn]; yyrhs[i] > 0; i++) - fprintf (stderr, "%s ", yytname[yyrhs[i]]); - fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]); - } -#endif - - - switch (yyn) { - -case 1: -#line 234 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C forbids an empty source file"); - finish_file (); - ; - break;} -case 2: -#line 239 "objc-parse.y" -{ - /* In case there were missing closebraces, - get us back to the global binding level. */ - while (! global_bindings_p ()) - poplevel (0, 0, 0); - finish_file (); - ; - break;} -case 3: -#line 253 "objc-parse.y" -{yyval.ttype = NULL_TREE; ; - break;} -case 5: -#line 254 "objc-parse.y" -{yyval.ttype = NULL_TREE; ; - break;} -case 10: -#line 262 "objc-parse.y" -{ STRIP_NOPS (yyvsp[-2].ttype); - if ((TREE_CODE (yyvsp[-2].ttype) == ADDR_EXPR - && TREE_CODE (TREE_OPERAND (yyvsp[-2].ttype, 0)) == STRING_CST) - || TREE_CODE (yyvsp[-2].ttype) == STRING_CST) - assemble_asm (yyvsp[-2].ttype); - else - error ("argument of `asm' is not a constant string"); ; - break;} -case 11: -#line 270 "objc-parse.y" -{ pedantic = yyvsp[-1].itype; ; - break;} -case 12: -#line 275 "objc-parse.y" -{ if (pedantic) - error ("ANSI C forbids data definition with no type or storage class"); - else if (!flag_traditional) - warning ("data definition has no type or storage class"); - - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 13: -#line 285 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 14: -#line 290 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 15: -#line 295 "objc-parse.y" -{ pedwarn ("empty declaration"); ; - break;} -case 16: -#line 297 "objc-parse.y" -{ shadow_tag (yyvsp[-1].ttype); ; - break;} -case 19: -#line 301 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C does not allow extra `;' outside of a function"); ; - break;} -case 20: -#line 307 "objc-parse.y" -{ if (! start_function (current_declspecs, yyvsp[0].ttype, - prefix_attributes, NULL_TREE, 0)) - YYERROR1; - reinit_parse_for_function (); ; - break;} -case 21: -#line 312 "objc-parse.y" -{ store_parm_decls (); ; - break;} -case 22: -#line 314 "objc-parse.y" -{ finish_function (0); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-5].itype); ; - break;} -case 23: -#line 320 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 24: -#line 325 "objc-parse.y" -{ if (! start_function (current_declspecs, yyvsp[0].ttype, - prefix_attributes, NULL_TREE, 0)) - YYERROR1; - reinit_parse_for_function (); ; - break;} -case 25: -#line 330 "objc-parse.y" -{ store_parm_decls (); ; - break;} -case 26: -#line 332 "objc-parse.y" -{ finish_function (0); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-5].itype); ; - break;} -case 27: -#line 338 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 28: -#line 343 "objc-parse.y" -{ if (! start_function (NULL_TREE, yyvsp[0].ttype, - prefix_attributes, NULL_TREE, 0)) - YYERROR1; - reinit_parse_for_function (); ; - break;} -case 29: -#line 348 "objc-parse.y" -{ store_parm_decls (); ; - break;} -case 30: -#line 350 "objc-parse.y" -{ finish_function (0); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-5].itype); ; - break;} -case 31: -#line 356 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 36: -#line 370 "objc-parse.y" -{ yyval.code = ADDR_EXPR; ; - break;} -case 37: -#line 372 "objc-parse.y" -{ yyval.code = NEGATE_EXPR; ; - break;} -case 38: -#line 374 "objc-parse.y" -{ yyval.code = CONVERT_EXPR; ; - break;} -case 39: -#line 376 "objc-parse.y" -{ yyval.code = PREINCREMENT_EXPR; ; - break;} -case 40: -#line 378 "objc-parse.y" -{ yyval.code = PREDECREMENT_EXPR; ; - break;} -case 41: -#line 380 "objc-parse.y" -{ yyval.code = BIT_NOT_EXPR; ; - break;} -case 42: -#line 382 "objc-parse.y" -{ yyval.code = TRUTH_NOT_EXPR; ; - break;} -case 43: -#line 386 "objc-parse.y" -{ yyval.ttype = build_compound_expr (yyvsp[0].ttype); ; - break;} -case 44: -#line 391 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 46: -#line 397 "objc-parse.y" -{ yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ; - break;} -case 47: -#line 399 "objc-parse.y" -{ chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ; - break;} -case 49: -#line 405 "objc-parse.y" -{ yyval.ttype = build_indirect_ref (yyvsp[0].ttype, "unary *"); ; - break;} -case 50: -#line 408 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - pedantic = yyvsp[-1].itype; ; - break;} -case 51: -#line 411 "objc-parse.y" -{ yyval.ttype = build_unary_op (yyvsp[-1].code, yyvsp[0].ttype, 0); - overflow_warning (yyval.ttype); ; - break;} -case 52: -#line 415 "objc-parse.y" -{ tree label = lookup_label (yyvsp[0].ttype); - if (pedantic) - pedwarn ("ANSI C forbids `&&'"); - if (label == 0) - yyval.ttype = null_pointer_node; - else - { - TREE_USED (label) = 1; - yyval.ttype = build1 (ADDR_EXPR, ptr_type_node, label); - TREE_CONSTANT (yyval.ttype) = 1; - } - ; - break;} -case 53: -#line 443 "objc-parse.y" -{ skip_evaluation--; - if (TREE_CODE (yyvsp[0].ttype) == COMPONENT_REF - && DECL_C_BIT_FIELD (TREE_OPERAND (yyvsp[0].ttype, 1))) - error ("`sizeof' applied to a bit-field"); - yyval.ttype = c_sizeof (TREE_TYPE (yyvsp[0].ttype)); ; - break;} -case 54: -#line 449 "objc-parse.y" -{ skip_evaluation--; - yyval.ttype = c_sizeof (groktypename (yyvsp[-1].ttype)); ; - break;} -case 55: -#line 452 "objc-parse.y" -{ skip_evaluation--; - yyval.ttype = c_alignof_expr (yyvsp[0].ttype); ; - break;} -case 56: -#line 455 "objc-parse.y" -{ skip_evaluation--; - yyval.ttype = c_alignof (groktypename (yyvsp[-1].ttype)); ; - break;} -case 57: -#line 458 "objc-parse.y" -{ yyval.ttype = build_unary_op (REALPART_EXPR, yyvsp[0].ttype, 0); ; - break;} -case 58: -#line 460 "objc-parse.y" -{ yyval.ttype = build_unary_op (IMAGPART_EXPR, yyvsp[0].ttype, 0); ; - break;} -case 59: -#line 464 "objc-parse.y" -{ skip_evaluation++; ; - break;} -case 60: -#line 468 "objc-parse.y" -{ skip_evaluation++; ; - break;} -case 62: -#line 474 "objc-parse.y" -{ tree type = groktypename (yyvsp[-2].ttype); - yyval.ttype = build_c_cast (type, yyvsp[0].ttype); ; - break;} -case 63: -#line 477 "objc-parse.y" -{ start_init (NULL_TREE, NULL, 0); - yyvsp[-2].ttype = groktypename (yyvsp[-2].ttype); - really_start_incremental_init (yyvsp[-2].ttype); ; - break;} -case 64: -#line 481 "objc-parse.y" -{ char *name; - tree result = pop_init_level (0); - tree type = yyvsp[-5].ttype; - finish_init (); - - if (pedantic && ! flag_isoc9x) - pedwarn ("ANSI C forbids constructor expressions"); - if (TYPE_NAME (type) != 0) - { - if (TREE_CODE (TYPE_NAME (type)) == IDENTIFIER_NODE) - name = IDENTIFIER_POINTER (TYPE_NAME (type)); - else - name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))); - } - else - name = ""; - yyval.ttype = result; - if (TREE_CODE (type) == ARRAY_TYPE && TYPE_SIZE (type) == 0) - { - int failure = complete_array_type (type, yyval.ttype, 1); - if (failure) - abort (); - } - ; - break;} -case 66: -#line 510 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 67: -#line 512 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 68: -#line 514 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 69: -#line 516 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 70: -#line 518 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 71: -#line 520 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 72: -#line 522 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 73: -#line 524 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 74: -#line 526 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 75: -#line 528 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 76: -#line 530 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 77: -#line 532 "objc-parse.y" -{ yyval.ttype = parser_build_binary_op (yyvsp[-1].code, yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 78: -#line 534 "objc-parse.y" -{ yyvsp[-1].ttype = truthvalue_conversion (default_conversion (yyvsp[-1].ttype)); - skip_evaluation += yyvsp[-1].ttype == boolean_false_node; ; - break;} -case 79: -#line 537 "objc-parse.y" -{ skip_evaluation -= yyvsp[-3].ttype == boolean_false_node; - yyval.ttype = parser_build_binary_op (TRUTH_ANDIF_EXPR, yyvsp[-3].ttype, yyvsp[0].ttype); ; - break;} -case 80: -#line 540 "objc-parse.y" -{ yyvsp[-1].ttype = truthvalue_conversion (default_conversion (yyvsp[-1].ttype)); - skip_evaluation += yyvsp[-1].ttype == boolean_true_node; ; - break;} -case 81: -#line 543 "objc-parse.y" -{ skip_evaluation -= yyvsp[-3].ttype == boolean_true_node; - yyval.ttype = parser_build_binary_op (TRUTH_ORIF_EXPR, yyvsp[-3].ttype, yyvsp[0].ttype); ; - break;} -case 82: -#line 546 "objc-parse.y" -{ yyvsp[-1].ttype = truthvalue_conversion (default_conversion (yyvsp[-1].ttype)); - skip_evaluation += yyvsp[-1].ttype == boolean_false_node; ; - break;} -case 83: -#line 549 "objc-parse.y" -{ skip_evaluation += ((yyvsp[-4].ttype == boolean_true_node) - - (yyvsp[-4].ttype == boolean_false_node)); ; - break;} -case 84: -#line 552 "objc-parse.y" -{ skip_evaluation -= yyvsp[-6].ttype == boolean_true_node; - yyval.ttype = build_conditional_expr (yyvsp[-6].ttype, yyvsp[-3].ttype, yyvsp[0].ttype); ; - break;} -case 85: -#line 555 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C forbids omitting the middle term of a ?: expression"); - /* Make sure first operand is calculated only once. */ - yyvsp[0].ttype = save_expr (yyvsp[-1].ttype); - yyvsp[-1].ttype = truthvalue_conversion (default_conversion (yyvsp[0].ttype)); - skip_evaluation += yyvsp[-1].ttype == boolean_true_node; ; - break;} -case 86: -#line 562 "objc-parse.y" -{ skip_evaluation -= yyvsp[-4].ttype == boolean_true_node; - yyval.ttype = build_conditional_expr (yyvsp[-4].ttype, yyvsp[-3].ttype, yyvsp[0].ttype); ; - break;} -case 87: -#line 565 "objc-parse.y" -{ char class; - yyval.ttype = build_modify_expr (yyvsp[-2].ttype, NOP_EXPR, yyvsp[0].ttype); - class = TREE_CODE_CLASS (TREE_CODE (yyval.ttype)); - if (class == 'e' || class == '1' - || class == '2' || class == '<') - C_SET_EXP_ORIGINAL_CODE (yyval.ttype, MODIFY_EXPR); - ; - break;} -case 88: -#line 573 "objc-parse.y" -{ char class; - yyval.ttype = build_modify_expr (yyvsp[-2].ttype, yyvsp[-1].code, yyvsp[0].ttype); - /* This inhibits warnings in truthvalue_conversion. */ - class = TREE_CODE_CLASS (TREE_CODE (yyval.ttype)); - if (class == 'e' || class == '1' - || class == '2' || class == '<') - C_SET_EXP_ORIGINAL_CODE (yyval.ttype, ERROR_MARK); - ; - break;} -case 89: -#line 585 "objc-parse.y" -{ - yyval.ttype = lastiddecl; - if (!yyval.ttype || yyval.ttype == error_mark_node) - { - if (yychar == YYEMPTY) - yychar = YYLEX; - if (yychar == '(') - { - tree decl; - - if (objc_receiver_context - && ! (objc_receiver_context - && strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "super"))) - /* we have a message to super */ - yyval.ttype = get_super_receiver (); - else if (objc_method_context - && (decl = is_ivar (objc_ivar_chain, yyvsp[0].ttype))) - { - if (is_private (decl)) - yyval.ttype = error_mark_node; - else - yyval.ttype = build_ivar_reference (yyvsp[0].ttype); - } - else - { - /* Ordinary implicit function declaration. */ - yyval.ttype = implicitly_declare (yyvsp[0].ttype); - assemble_external (yyval.ttype); - TREE_USED (yyval.ttype) = 1; - } - } - else if (current_function_decl == 0) - { - error ("`%s' undeclared here (not in a function)", - IDENTIFIER_POINTER (yyvsp[0].ttype)); - yyval.ttype = error_mark_node; - } - else - { - tree decl; - - if (objc_receiver_context - && ! strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "super")) - /* we have a message to super */ - yyval.ttype = get_super_receiver (); - else if (objc_method_context - && (decl = is_ivar (objc_ivar_chain, yyvsp[0].ttype))) - { - if (is_private (decl)) - yyval.ttype = error_mark_node; - else - yyval.ttype = build_ivar_reference (yyvsp[0].ttype); - } - else - { - if (IDENTIFIER_GLOBAL_VALUE (yyvsp[0].ttype) != error_mark_node - || IDENTIFIER_ERROR_LOCUS (yyvsp[0].ttype) != current_function_decl) - { - error ("`%s' undeclared (first use in this function)", - IDENTIFIER_POINTER (yyvsp[0].ttype)); - - if (! undeclared_variable_notice) - { - error ("(Each undeclared identifier is reported only once"); - error ("for each function it appears in.)"); - undeclared_variable_notice = 1; - } - } - yyval.ttype = error_mark_node; - /* Prevent repeated error messages. */ - IDENTIFIER_GLOBAL_VALUE (yyvsp[0].ttype) = error_mark_node; - IDENTIFIER_ERROR_LOCUS (yyvsp[0].ttype) = current_function_decl; - } - } - } - else if (TREE_TYPE (yyval.ttype) == error_mark_node) - yyval.ttype = error_mark_node; - else if (C_DECL_ANTICIPATED (yyval.ttype)) - { - /* The first time we see a build-in function used, - if it has not been declared. */ - C_DECL_ANTICIPATED (yyval.ttype) = 0; - if (yychar == YYEMPTY) - yychar = YYLEX; - if (yychar == '(') - { - /* Omit the implicit declaration we - would ordinarily do, so we don't lose - the actual built in type. - But print a diagnostic for the mismatch. */ - if (objc_method_context - && is_ivar (objc_ivar_chain, yyvsp[0].ttype)) - error ("Instance variable `%s' implicitly declared as function", - IDENTIFIER_POINTER (DECL_NAME (yyval.ttype))); - else - if (TREE_CODE (yyval.ttype) != FUNCTION_DECL) - error ("`%s' implicitly declared as function", - IDENTIFIER_POINTER (DECL_NAME (yyval.ttype))); - else if ((TYPE_MODE (TREE_TYPE (TREE_TYPE (yyval.ttype))) - != TYPE_MODE (integer_type_node)) - && (TREE_TYPE (TREE_TYPE (yyval.ttype)) - != void_type_node)) - pedwarn ("type mismatch in implicit declaration for built-in function `%s'", - IDENTIFIER_POINTER (DECL_NAME (yyval.ttype))); - /* If it really returns void, change that to int. */ - if (TREE_TYPE (TREE_TYPE (yyval.ttype)) == void_type_node) - TREE_TYPE (yyval.ttype) - = build_function_type (integer_type_node, - TYPE_ARG_TYPES (TREE_TYPE (yyval.ttype))); - } - else - pedwarn ("built-in function `%s' used without declaration", - IDENTIFIER_POINTER (DECL_NAME (yyval.ttype))); - - /* Do what we would ordinarily do when a fn is used. */ - assemble_external (yyval.ttype); - TREE_USED (yyval.ttype) = 1; - } - else - { - assemble_external (yyval.ttype); - TREE_USED (yyval.ttype) = 1; - /* we have a definition - still check if iVariable */ - - if (!objc_receiver_context - || (objc_receiver_context - && strcmp (IDENTIFIER_POINTER (yyvsp[0].ttype), "super"))) - { - tree decl; - - if (objc_method_context - && (decl = is_ivar (objc_ivar_chain, yyvsp[0].ttype))) - { - if (IDENTIFIER_LOCAL_VALUE (yyvsp[0].ttype)) - warning ("local declaration of `%s' hides instance variable", - IDENTIFIER_POINTER (yyvsp[0].ttype)); - else - { - if (is_private (decl)) - yyval.ttype = error_mark_node; - else - yyval.ttype = build_ivar_reference (yyvsp[0].ttype); - } - } - } - else /* we have a message to super */ - yyval.ttype = get_super_receiver (); - } - - if (TREE_CODE (yyval.ttype) == CONST_DECL) - { - yyval.ttype = DECL_INITIAL (yyval.ttype); - /* This is to prevent an enum whose value is 0 - from being considered a null pointer constant. */ - yyval.ttype = build1 (NOP_EXPR, TREE_TYPE (yyval.ttype), yyval.ttype); - TREE_CONSTANT (yyval.ttype) = 1; - } - ; - break;} -case 91: -#line 745 "objc-parse.y" -{ yyval.ttype = combine_strings (yyvsp[0].ttype); ; - break;} -case 92: -#line 747 "objc-parse.y" -{ char class = TREE_CODE_CLASS (TREE_CODE (yyvsp[-1].ttype)); - if (class == 'e' || class == '1' - || class == '2' || class == '<') - C_SET_EXP_ORIGINAL_CODE (yyvsp[-1].ttype, ERROR_MARK); - yyval.ttype = yyvsp[-1].ttype; ; - break;} -case 93: -#line 753 "objc-parse.y" -{ yyval.ttype = error_mark_node; ; - break;} -case 94: -#line 755 "objc-parse.y" -{ if (current_function_decl == 0) - { - error ("braced-group within expression allowed only inside a function"); - YYERROR; - } - /* We must force a BLOCK for this level - so that, if it is not expanded later, - there is a way to turn off the entire subtree of blocks - that are contained in it. */ - keep_next_level (); - push_iterator_stack (); - push_label_level (); - yyval.ttype = expand_start_stmt_expr (); ; - break;} -case 95: -#line 769 "objc-parse.y" -{ tree rtl_exp; - if (pedantic) - pedwarn ("ANSI C forbids braced-groups within expressions"); - pop_iterator_stack (); - pop_label_level (); - rtl_exp = expand_end_stmt_expr (yyvsp[-2].ttype); - /* The statements have side effects, so the group does. */ - TREE_SIDE_EFFECTS (rtl_exp) = 1; - - if (TREE_CODE (yyvsp[-1].ttype) == BLOCK) - { - /* Make a BIND_EXPR for the BLOCK already made. */ - yyval.ttype = build (BIND_EXPR, TREE_TYPE (rtl_exp), - NULL_TREE, rtl_exp, yyvsp[-1].ttype); - /* Remove the block from the tree at this point. - It gets put back at the proper place - when the BIND_EXPR is expanded. */ - delete_block (yyvsp[-1].ttype); - } - else - yyval.ttype = yyvsp[-1].ttype; - ; - break;} -case 96: -#line 792 "objc-parse.y" -{ yyval.ttype = build_function_call (yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 97: -#line 794 "objc-parse.y" -{ yyval.ttype = build_array_ref (yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 98: -#line 796 "objc-parse.y" -{ - if (doing_objc_thang) - { - if (is_public (yyvsp[-2].ttype, yyvsp[0].ttype)) - yyval.ttype = build_component_ref (yyvsp[-2].ttype, yyvsp[0].ttype); - else - yyval.ttype = error_mark_node; - } - else - yyval.ttype = build_component_ref (yyvsp[-2].ttype, yyvsp[0].ttype); - ; - break;} -case 99: -#line 808 "objc-parse.y" -{ - tree expr = build_indirect_ref (yyvsp[-2].ttype, "->"); - - if (doing_objc_thang) - { - if (is_public (expr, yyvsp[0].ttype)) - yyval.ttype = build_component_ref (expr, yyvsp[0].ttype); - else - yyval.ttype = error_mark_node; - } - else - yyval.ttype = build_component_ref (expr, yyvsp[0].ttype); - ; - break;} -case 100: -#line 822 "objc-parse.y" -{ yyval.ttype = build_unary_op (POSTINCREMENT_EXPR, yyvsp[-1].ttype, 0); ; - break;} -case 101: -#line 824 "objc-parse.y" -{ yyval.ttype = build_unary_op (POSTDECREMENT_EXPR, yyvsp[-1].ttype, 0); ; - break;} -case 102: -#line 826 "objc-parse.y" -{ yyval.ttype = build_message_expr (yyvsp[0].ttype); ; - break;} -case 103: -#line 828 "objc-parse.y" -{ yyval.ttype = build_selector_expr (yyvsp[0].ttype); ; - break;} -case 104: -#line 830 "objc-parse.y" -{ yyval.ttype = build_protocol_expr (yyvsp[0].ttype); ; - break;} -case 105: -#line 832 "objc-parse.y" -{ yyval.ttype = build_encode_expr (yyvsp[0].ttype); ; - break;} -case 106: -#line 834 "objc-parse.y" -{ yyval.ttype = build_objc_string_object (yyvsp[0].ttype); ; - break;} -case 108: -#line 841 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 110: -#line 849 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 113: -#line 857 "objc-parse.y" -{ c_mark_varargs (); - if (pedantic) - pedwarn ("ANSI C does not permit use of `varargs.h'"); ; - break;} -case 114: -#line 867 "objc-parse.y" -{ ; - break;} -case 119: -#line 883 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 120: -#line 888 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 121: -#line 893 "objc-parse.y" -{ shadow_tag_warned (yyvsp[-1].ttype, 1); - pedwarn ("empty declaration"); ; - break;} -case 122: -#line 896 "objc-parse.y" -{ pedwarn ("empty declaration"); ; - break;} -case 123: -#line 905 "objc-parse.y" -{ ; - break;} -case 128: -#line 920 "objc-parse.y" -{ yyval.itype = suspend_momentary (); - pending_xref_error (); - declspec_stack = tree_cons (prefix_attributes, - current_declspecs, - declspec_stack); - split_specs_attrs (yyvsp[0].ttype, - ¤t_declspecs, &prefix_attributes); ; - break;} -case 129: -#line 931 "objc-parse.y" -{ prefix_attributes = chainon (prefix_attributes, yyvsp[0].ttype); ; - break;} -case 130: -#line 936 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 131: -#line 941 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 132: -#line 946 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-1].itype); ; - break;} -case 133: -#line 951 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-1].itype); ; - break;} -case 134: -#line 956 "objc-parse.y" -{ shadow_tag (yyvsp[-1].ttype); ; - break;} -case 135: -#line 958 "objc-parse.y" -{ pedwarn ("empty declaration"); ; - break;} -case 136: -#line 960 "objc-parse.y" -{ pedantic = yyvsp[-1].itype; ; - break;} -case 137: -#line 970 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 138: -#line 972 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[0].ttype, tree_cons (NULL_TREE, yyvsp[-1].ttype, yyvsp[-2].ttype)); ; - break;} -case 139: -#line 976 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 140: -#line 978 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 141: -#line 980 "objc-parse.y" -{ if (extra_warnings) - warning ("`%s' is not at beginning of declaration", - IDENTIFIER_POINTER (yyvsp[0].ttype)); - yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 142: -#line 985 "objc-parse.y" -{ yyval.ttype = tree_cons (yyvsp[0].ttype, NULL_TREE, yyvsp[-1].ttype); ; - break;} -case 143: -#line 990 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 144: -#line 992 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[0].ttype, tree_cons (NULL_TREE, yyvsp[-1].ttype, yyvsp[-2].ttype)); ; - break;} -case 145: -#line 997 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 146: -#line 999 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 147: -#line 1001 "objc-parse.y" -{ if (extra_warnings) - warning ("`%s' is not at beginning of declaration", - IDENTIFIER_POINTER (yyvsp[0].ttype)); - yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 148: -#line 1014 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 149: -#line 1016 "objc-parse.y" -{ yyval.ttype = tree_cons (yyvsp[0].ttype, NULL_TREE, NULL_TREE); ; - break;} -case 150: -#line 1018 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 151: -#line 1020 "objc-parse.y" -{ yyval.ttype = tree_cons (yyvsp[0].ttype, NULL_TREE, yyvsp[-1].ttype); ; - break;} -case 152: -#line 1025 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, NULL_TREE); - TREE_STATIC (yyval.ttype) = 1; ; - break;} -case 153: -#line 1028 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, NULL_TREE); ; - break;} -case 154: -#line 1030 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); - TREE_STATIC (yyval.ttype) = 1; ; - break;} -case 155: -#line 1033 "objc-parse.y" -{ if (extra_warnings && TREE_STATIC (yyvsp[-1].ttype)) - warning ("`%s' is not at beginning of declaration", - IDENTIFIER_POINTER (yyvsp[0].ttype)); - yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); - TREE_STATIC (yyval.ttype) = TREE_STATIC (yyvsp[-1].ttype); ; - break;} -case 156: -#line 1047 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 157: -#line 1049 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[0].ttype, tree_cons (NULL_TREE, yyvsp[-1].ttype, yyvsp[-2].ttype)); ; - break;} -case 158: -#line 1053 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 159: -#line 1055 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 162: -#line 1065 "objc-parse.y" -{ /* For a typedef name, record the meaning, not the name. - In case of `foo foo, bar;'. */ - yyval.ttype = lookup_name (yyvsp[0].ttype); ; - break;} -case 163: -#line 1069 "objc-parse.y" -{ yyval.ttype = get_static_reference (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 164: -#line 1071 "objc-parse.y" -{ yyval.ttype = get_object_reference (yyvsp[0].ttype); ; - break;} -case 165: -#line 1076 "objc-parse.y" -{ yyval.ttype = get_object_reference (yyvsp[0].ttype); ; - break;} -case 166: -#line 1078 "objc-parse.y" -{ yyval.ttype = TREE_TYPE (yyvsp[-1].ttype); ; - break;} -case 167: -#line 1080 "objc-parse.y" -{ yyval.ttype = groktypename (yyvsp[-1].ttype); ; - break;} -case 175: -#line 1102 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 176: -#line 1104 "objc-parse.y" -{ if (TREE_CHAIN (yyvsp[-1].ttype)) yyvsp[-1].ttype = combine_strings (yyvsp[-1].ttype); - yyval.ttype = yyvsp[-1].ttype; - ; - break;} -case 177: -#line 1111 "objc-parse.y" -{ yyval.ttype = start_decl (yyvsp[-3].ttype, current_declspecs, 1, - yyvsp[-1].ttype, prefix_attributes); - start_init (yyval.ttype, yyvsp[-2].ttype, global_bindings_p ()); ; - break;} -case 178: -#line 1116 "objc-parse.y" -{ finish_init (); - finish_decl (yyvsp[-1].ttype, yyvsp[0].ttype, yyvsp[-4].ttype); ; - break;} -case 179: -#line 1119 "objc-parse.y" -{ tree d = start_decl (yyvsp[-2].ttype, current_declspecs, 0, - yyvsp[0].ttype, prefix_attributes); - finish_decl (d, NULL_TREE, yyvsp[-1].ttype); - ; - break;} -case 180: -#line 1127 "objc-parse.y" -{ yyval.ttype = start_decl (yyvsp[-3].ttype, current_declspecs, 1, - yyvsp[-1].ttype, prefix_attributes); - start_init (yyval.ttype, yyvsp[-2].ttype, global_bindings_p ()); ; - break;} -case 181: -#line 1132 "objc-parse.y" -{ finish_init (); - decl_attributes (yyvsp[-1].ttype, yyvsp[-3].ttype, prefix_attributes); - finish_decl (yyvsp[-1].ttype, yyvsp[0].ttype, yyvsp[-4].ttype); ; - break;} -case 182: -#line 1136 "objc-parse.y" -{ tree d = start_decl (yyvsp[-2].ttype, current_declspecs, 0, - yyvsp[0].ttype, prefix_attributes); - finish_decl (d, NULL_TREE, yyvsp[-1].ttype); ; - break;} -case 183: -#line 1144 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 184: -#line 1146 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 185: -#line 1151 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 186: -#line 1153 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 187: -#line 1158 "objc-parse.y" -{ yyval.ttype = yyvsp[-2].ttype; ; - break;} -case 188: -#line 1163 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 189: -#line 1165 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 190: -#line 1170 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 191: -#line 1172 "objc-parse.y" -{ yyval.ttype = build_tree_list (yyvsp[0].ttype, NULL_TREE); ; - break;} -case 192: -#line 1174 "objc-parse.y" -{ yyval.ttype = build_tree_list (yyvsp[-3].ttype, build_tree_list (NULL_TREE, yyvsp[-1].ttype)); ; - break;} -case 193: -#line 1176 "objc-parse.y" -{ yyval.ttype = build_tree_list (yyvsp[-5].ttype, tree_cons (NULL_TREE, yyvsp[-3].ttype, yyvsp[-1].ttype)); ; - break;} -case 194: -#line 1178 "objc-parse.y" -{ yyval.ttype = build_tree_list (yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 200: -#line 1196 "objc-parse.y" -{ really_start_incremental_init (NULL_TREE); - /* Note that the call to clear_momentary - is in process_init_element. */ - push_momentary (); ; - break;} -case 201: -#line 1201 "objc-parse.y" -{ yyval.ttype = pop_init_level (0); - if (yyval.ttype == error_mark_node - && ! (yychar == STRING || yychar == CONSTANT)) - pop_momentary (); - else - pop_momentary_nofree (); ; - break;} -case 202: -#line 1209 "objc-parse.y" -{ yyval.ttype = error_mark_node; ; - break;} -case 203: -#line 1215 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C forbids empty initializer braces"); ; - break;} -case 209: -#line 1231 "objc-parse.y" -{ set_init_label (yyvsp[-1].ttype); ; - break;} -case 212: -#line 1238 "objc-parse.y" -{ push_init_level (0); ; - break;} -case 213: -#line 1240 "objc-parse.y" -{ process_init_element (pop_init_level (0)); ; - break;} -case 214: -#line 1242 "objc-parse.y" -{ process_init_element (yyvsp[0].ttype); ; - break;} -case 218: -#line 1253 "objc-parse.y" -{ set_init_label (yyvsp[0].ttype); ; - break;} -case 219: -#line 1261 "objc-parse.y" -{ push_c_function_context (); - if (! start_function (current_declspecs, yyvsp[0].ttype, - prefix_attributes, NULL_TREE, 1)) - { - pop_c_function_context (); - YYERROR1; - } - reinit_parse_for_function (); ; - break;} -case 220: -#line 1270 "objc-parse.y" -{ store_parm_decls (); ; - break;} -case 221: -#line 1278 "objc-parse.y" -{ finish_function (1); - pop_c_function_context (); ; - break;} -case 222: -#line 1284 "objc-parse.y" -{ push_c_function_context (); - if (! start_function (current_declspecs, yyvsp[0].ttype, - prefix_attributes, NULL_TREE, 1)) - { - pop_c_function_context (); - YYERROR1; - } - reinit_parse_for_function (); ; - break;} -case 223: -#line 1293 "objc-parse.y" -{ store_parm_decls (); ; - break;} -case 224: -#line 1301 "objc-parse.y" -{ finish_function (1); - pop_c_function_context (); ; - break;} -case 227: -#line 1317 "objc-parse.y" -{ yyval.ttype = yyvsp[-1].ttype; ; - break;} -case 228: -#line 1319 "objc-parse.y" -{ yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ; - break;} -case 229: -#line 1324 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 230: -#line 1326 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ; - break;} -case 231: -#line 1328 "objc-parse.y" -{ yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 232: -#line 1335 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 235: -#line 1347 "objc-parse.y" -{ yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ; - break;} -case 236: -#line 1352 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 237: -#line 1354 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ; - break;} -case 238: -#line 1356 "objc-parse.y" -{ yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 239: -#line 1363 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 241: -#line 1372 "objc-parse.y" -{ yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ; - break;} -case 242: -#line 1377 "objc-parse.y" -{ yyval.ttype = yyvsp[-1].ttype; ; - break;} -case 243: -#line 1379 "objc-parse.y" -{ yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 244: -#line 1381 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 245: -#line 1383 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ; - break;} -case 246: -#line 1390 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 248: -#line 1396 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 249: -#line 1398 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 250: -#line 1403 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 251: -#line 1405 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 252: -#line 1410 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 253: -#line 1412 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 254: -#line 1417 "objc-parse.y" -{ yyval.ttype = start_struct (RECORD_TYPE, yyvsp[-1].ttype); - /* Start scope of tag before parsing components. */ - ; - break;} -case 255: -#line 1421 "objc-parse.y" -{ yyval.ttype = finish_struct (yyvsp[-3].ttype, yyvsp[-2].ttype, chainon (yyvsp[-6].ttype, yyvsp[0].ttype)); ; - break;} -case 256: -#line 1423 "objc-parse.y" -{ yyval.ttype = finish_struct (start_struct (RECORD_TYPE, NULL_TREE), - yyvsp[-2].ttype, chainon (yyvsp[-4].ttype, yyvsp[0].ttype)); - ; - break;} -case 257: -#line 1427 "objc-parse.y" -{ yyval.ttype = xref_tag (RECORD_TYPE, yyvsp[0].ttype); ; - break;} -case 258: -#line 1429 "objc-parse.y" -{ yyval.ttype = start_struct (UNION_TYPE, yyvsp[-1].ttype); ; - break;} -case 259: -#line 1431 "objc-parse.y" -{ yyval.ttype = finish_struct (yyvsp[-3].ttype, yyvsp[-2].ttype, chainon (yyvsp[-6].ttype, yyvsp[0].ttype)); ; - break;} -case 260: -#line 1433 "objc-parse.y" -{ yyval.ttype = finish_struct (start_struct (UNION_TYPE, NULL_TREE), - yyvsp[-2].ttype, chainon (yyvsp[-4].ttype, yyvsp[0].ttype)); - ; - break;} -case 261: -#line 1437 "objc-parse.y" -{ yyval.ttype = xref_tag (UNION_TYPE, yyvsp[0].ttype); ; - break;} -case 262: -#line 1439 "objc-parse.y" -{ yyvsp[0].itype = suspend_momentary (); - yyval.ttype = start_enum (yyvsp[-1].ttype); ; - break;} -case 263: -#line 1442 "objc-parse.y" -{ yyval.ttype= finish_enum (yyvsp[-4].ttype, nreverse (yyvsp[-3].ttype), chainon (yyvsp[-7].ttype, yyvsp[0].ttype)); - resume_momentary (yyvsp[-5].itype); ; - break;} -case 264: -#line 1445 "objc-parse.y" -{ yyvsp[0].itype = suspend_momentary (); - yyval.ttype = start_enum (NULL_TREE); ; - break;} -case 265: -#line 1448 "objc-parse.y" -{ yyval.ttype= finish_enum (yyvsp[-4].ttype, nreverse (yyvsp[-3].ttype), chainon (yyvsp[-6].ttype, yyvsp[0].ttype)); - resume_momentary (yyvsp[-5].itype); ; - break;} -case 266: -#line 1451 "objc-parse.y" -{ yyval.ttype = xref_tag (ENUMERAL_TYPE, yyvsp[0].ttype); ; - break;} -case 270: -#line 1462 "objc-parse.y" -{ if (pedantic && ! flag_isoc9x) - pedwarn ("comma at end of enumerator list"); ; - break;} -case 271: -#line 1468 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 272: -#line 1470 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype); - pedwarn ("no semicolon at end of struct or union"); ; - break;} -case 273: -#line 1475 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 274: -#line 1477 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[-1].ttype); ; - break;} -case 275: -#line 1479 "objc-parse.y" -{ if (pedantic) - pedwarn ("extra semicolon in struct or union specified"); ; - break;} -case 276: -#line 1483 "objc-parse.y" -{ - tree interface = lookup_interface (yyvsp[-1].ttype); - - if (interface) - yyval.ttype = get_class_ivars (interface); - else - { - error ("Cannot find interface declaration for `%s'", - IDENTIFIER_POINTER (yyvsp[-1].ttype)); - yyval.ttype = NULL_TREE; - } - ; - break;} -case 277: -#line 1508 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-1].itype); ; - break;} -case 278: -#line 1514 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C forbids member declarations with no members"); - shadow_tag(yyvsp[0].ttype); - yyval.ttype = NULL_TREE; ; - break;} -case 279: -#line 1519 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-1].itype); ; - break;} -case 280: -#line 1525 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C forbids member declarations with no members"); - shadow_tag(yyvsp[0].ttype); - yyval.ttype = NULL_TREE; ; - break;} -case 281: -#line 1530 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 282: -#line 1532 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - pedantic = yyvsp[-1].itype; ; - break;} -case 284: -#line 1539 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 285: -#line 1544 "objc-parse.y" -{ yyval.ttype = grokfield (yyvsp[-3].filename, yyvsp[-2].lineno, yyvsp[-1].ttype, current_declspecs, NULL_TREE); - decl_attributes (yyval.ttype, yyvsp[0].ttype, prefix_attributes); ; - break;} -case 286: -#line 1548 "objc-parse.y" -{ yyval.ttype = grokfield (yyvsp[-5].filename, yyvsp[-4].lineno, yyvsp[-3].ttype, current_declspecs, yyvsp[-1].ttype); - decl_attributes (yyval.ttype, yyvsp[0].ttype, prefix_attributes); ; - break;} -case 287: -#line 1551 "objc-parse.y" -{ yyval.ttype = grokfield (yyvsp[-4].filename, yyvsp[-3].lineno, NULL_TREE, current_declspecs, yyvsp[-1].ttype); - decl_attributes (yyval.ttype, yyvsp[0].ttype, prefix_attributes); ; - break;} -case 289: -#line 1563 "objc-parse.y" -{ if (yyvsp[-2].ttype == error_mark_node) - yyval.ttype = yyvsp[-2].ttype; - else - yyval.ttype = chainon (yyvsp[0].ttype, yyvsp[-2].ttype); ; - break;} -case 290: -#line 1568 "objc-parse.y" -{ yyval.ttype = error_mark_node; ; - break;} -case 291: -#line 1574 "objc-parse.y" -{ yyval.ttype = build_enumerator (yyvsp[0].ttype, NULL_TREE); ; - break;} -case 292: -#line 1576 "objc-parse.y" -{ yyval.ttype = build_enumerator (yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 293: -#line 1581 "objc-parse.y" -{ yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 294: -#line 1583 "objc-parse.y" -{ yyval.ttype = build_tree_list (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 295: -#line 1588 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 297: -#line 1594 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, NULL_TREE); ; - break;} -case 298: -#line 1596 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 299: -#line 1601 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 300: -#line 1603 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, yyvsp[0].ttype, yyvsp[-1].ttype); ; - break;} -case 301: -#line 1608 "objc-parse.y" -{ yyval.ttype = yyvsp[-1].ttype; ; - break;} -case 302: -#line 1611 "objc-parse.y" -{ yyval.ttype = make_pointer_declarator (yyvsp[-1].ttype, yyvsp[0].ttype); ; - break;} -case 303: -#line 1613 "objc-parse.y" -{ yyval.ttype = make_pointer_declarator (yyvsp[0].ttype, NULL_TREE); ; - break;} -case 304: -#line 1615 "objc-parse.y" -{ yyval.ttype = build_nt (CALL_EXPR, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); ; - break;} -case 305: -#line 1617 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 306: -#line 1619 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, yyvsp[-2].ttype, NULL_TREE); ; - break;} -case 307: -#line 1621 "objc-parse.y" -{ yyval.ttype = build_nt (CALL_EXPR, NULL_TREE, yyvsp[0].ttype, NULL_TREE); ; - break;} -case 308: -#line 1623 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, yyvsp[-1].ttype); ; - break;} -case 309: -#line 1625 "objc-parse.y" -{ yyval.ttype = build_nt (ARRAY_REF, NULL_TREE, NULL_TREE); ; - break;} -case 310: -#line 1629 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 311: -#line 1638 "objc-parse.y" -{ - if (pedantic && yyvsp[0].ends_in_label) - pedwarn ("ANSI C forbids label at end of compound statement"); - ; - break;} -case 313: -#line 1647 "objc-parse.y" -{ yyval.ends_in_label = yyvsp[0].ends_in_label; ; - break;} -case 314: -#line 1649 "objc-parse.y" -{ yyval.ends_in_label = 0; ; - break;} -case 318: -#line 1661 "objc-parse.y" -{ emit_line_note (input_filename, lineno); - pushlevel (0); - clear_last_expr (); - push_momentary (); - expand_start_bindings (0); - if (objc_method_context) - add_objc_decls (); - ; - break;} -case 320: -#line 1676 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C forbids label declarations"); ; - break;} -case 323: -#line 1687 "objc-parse.y" -{ tree link; - for (link = yyvsp[-1].ttype; link; link = TREE_CHAIN (link)) - { - tree label = shadow_label (TREE_VALUE (link)); - C_DECLARED_LABEL_FLAG (label) = 1; - declare_nonlocal_label (label); - } - ; - break;} -case 324: -#line 1701 "objc-parse.y" -{; - break;} -case 326: -#line 1705 "objc-parse.y" -{ compstmt_count++; ; - break;} -case 327: -#line 1708 "objc-parse.y" -{ yyval.ttype = convert (void_type_node, integer_zero_node); ; - break;} -case 328: -#line 1710 "objc-parse.y" -{ emit_line_note (input_filename, lineno); - expand_end_bindings (getdecls (), 1, 0); - yyval.ttype = poplevel (1, 1, 0); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); ; - break;} -case 329: -#line 1718 "objc-parse.y" -{ emit_line_note (input_filename, lineno); - expand_end_bindings (getdecls (), kept_level_p (), 0); - yyval.ttype = poplevel (kept_level_p (), 0, 0); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); ; - break;} -case 330: -#line 1726 "objc-parse.y" -{ emit_line_note (input_filename, lineno); - expand_end_bindings (getdecls (), kept_level_p (), 0); - yyval.ttype = poplevel (kept_level_p (), 0, 0); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); ; - break;} -case 333: -#line 1746 "objc-parse.y" -{ emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno); - c_expand_start_cond (truthvalue_conversion (yyvsp[-1].ttype), 0, - compstmt_count); - yyval.itype = stmt_count; - if_stmt_file = yyvsp[-5].filename; - if_stmt_line = yyvsp[-4].lineno; - position_after_white_space (); ; - break;} -case 334: -#line 1760 "objc-parse.y" -{ stmt_count++; - compstmt_count++; - emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno); - /* See comment in `while' alternative, above. */ - emit_nop (); - expand_start_loop_continue_elsewhere (1); - position_after_white_space (); ; - break;} -case 335: -#line 1768 "objc-parse.y" -{ expand_loop_continue_here (); ; - break;} -case 336: -#line 1772 "objc-parse.y" -{ yyval.filename = input_filename; ; - break;} -case 337: -#line 1776 "objc-parse.y" -{ yyval.lineno = lineno; ; - break;} -case 338: -#line 1781 "objc-parse.y" -{ ; - break;} -case 339: -#line 1786 "objc-parse.y" -{ ; - break;} -case 340: -#line 1791 "objc-parse.y" -{ yyval.ends_in_label = yyvsp[0].ends_in_label; ; - break;} -case 341: -#line 1796 "objc-parse.y" -{ yyval.ends_in_label = 0; ; - break;} -case 342: -#line 1798 "objc-parse.y" -{ yyval.ends_in_label = 1; ; - break;} -case 343: -#line 1804 "objc-parse.y" -{ stmt_count++; ; - break;} -case 345: -#line 1807 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno); -/* It appears that this should not be done--that a non-lvalue array - shouldn't get an error if the value isn't used. - Section 3.2.2.1 says that an array lvalue gets converted to a pointer - if it appears as a top-level expression, - but says nothing about non-lvalue arrays. */ -#if 0 - /* Call default_conversion to get an error - on referring to a register array if pedantic. */ - if (TREE_CODE (TREE_TYPE (yyvsp[-1].ttype)) == ARRAY_TYPE - || TREE_CODE (TREE_TYPE (yyvsp[-1].ttype)) == FUNCTION_TYPE) - yyvsp[-1].ttype = default_conversion (yyvsp[-1].ttype); -#endif - iterator_expand (yyvsp[-1].ttype); - clear_momentary (); ; - break;} -case 346: -#line 1824 "objc-parse.y" -{ c_expand_start_else (); - yyvsp[-1].itype = stmt_count; - position_after_white_space (); ; - break;} -case 347: -#line 1828 "objc-parse.y" -{ c_expand_end_cond (); - if (extra_warnings && stmt_count == yyvsp[-3].itype) - warning ("empty body in an else-statement"); ; - break;} -case 348: -#line 1832 "objc-parse.y" -{ c_expand_end_cond (); - /* This warning is here instead of in simple_if, because we - do not want a warning if an empty if is followed by an - else statement. Increment stmt_count so we don't - give a second error if this is a nested `if'. */ - if (extra_warnings && stmt_count++ == yyvsp[0].itype) - warning_with_file_and_line (if_stmt_file, if_stmt_line, - "empty body in an if-statement"); ; - break;} -case 349: -#line 1844 "objc-parse.y" -{ c_expand_end_cond (); ; - break;} -case 350: -#line 1846 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-2].filename, yyvsp[-1].lineno); - /* The emit_nop used to come before emit_line_note, - but that made the nop seem like part of the preceding line. - And that was confusing when the preceding line was - inside of an if statement and was not really executed. - I think it ought to work to put the nop after the line number. - We will see. --rms, July 15, 1991. */ - emit_nop (); ; - break;} -case 351: -#line 1856 "objc-parse.y" -{ /* Don't start the loop till we have succeeded - in parsing the end test. This is to make sure - that we end every loop we start. */ - expand_start_loop (1); - emit_line_note (input_filename, lineno); - expand_exit_loop_if_false (NULL_PTR, - truthvalue_conversion (yyvsp[-1].ttype)); - position_after_white_space (); ; - break;} -case 352: -#line 1865 "objc-parse.y" -{ expand_end_loop (); ; - break;} -case 353: -#line 1868 "objc-parse.y" -{ emit_line_note (input_filename, lineno); - expand_exit_loop_if_false (NULL_PTR, - truthvalue_conversion (yyvsp[-2].ttype)); - expand_end_loop (); - clear_momentary (); ; - break;} -case 354: -#line 1875 "objc-parse.y" -{ expand_end_loop (); - clear_momentary (); ; - break;} -case 355: -#line 1879 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno); - /* See comment in `while' alternative, above. */ - emit_nop (); - if (yyvsp[-1].ttype) c_expand_expr_stmt (yyvsp[-1].ttype); - /* Next step is to call expand_start_loop_continue_elsewhere, - but wait till after we parse the entire for (...). - Otherwise, invalid input might cause us to call that - fn without calling expand_end_loop. */ - ; - break;} -case 356: -#line 1891 "objc-parse.y" -{ yyvsp[0].lineno = lineno; - yyval.filename = input_filename; ; - break;} -case 357: -#line 1894 "objc-parse.y" -{ - /* Start the loop. Doing this after parsing - all the expressions ensures we will end the loop. */ - expand_start_loop_continue_elsewhere (1); - /* Emit the end-test, with a line number. */ - emit_line_note (yyvsp[-2].filename, yyvsp[-3].lineno); - if (yyvsp[-4].ttype) - expand_exit_loop_if_false (NULL_PTR, - truthvalue_conversion (yyvsp[-4].ttype)); - /* Don't let the tree nodes for $9 be discarded by - clear_momentary during the parsing of the next stmt. */ - push_momentary (); - yyvsp[-3].lineno = lineno; - yyvsp[-2].filename = input_filename; - position_after_white_space (); ; - break;} -case 358: -#line 1910 "objc-parse.y" -{ /* Emit the increment expression, with a line number. */ - emit_line_note (yyvsp[-4].filename, yyvsp[-5].lineno); - expand_loop_continue_here (); - if (yyvsp[-3].ttype) - c_expand_expr_stmt (yyvsp[-3].ttype); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); - expand_end_loop (); ; - break;} -case 359: -#line 1921 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno); - c_expand_start_case (yyvsp[-1].ttype); - /* Don't let the tree nodes for $3 be discarded by - clear_momentary during the parsing of the next stmt. */ - push_momentary (); - position_after_white_space (); ; - break;} -case 360: -#line 1929 "objc-parse.y" -{ expand_end_case (yyvsp[-3].ttype); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); ; - break;} -case 361: -#line 1935 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno); - if ( ! expand_exit_something ()) - error ("break statement not within loop or switch"); ; - break;} -case 362: -#line 1940 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno); - if (! expand_continue_loop (NULL_PTR)) - error ("continue statement not within a loop"); ; - break;} -case 363: -#line 1945 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-3].filename, yyvsp[-2].lineno); - c_expand_return (NULL_TREE); ; - break;} -case 364: -#line 1949 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno); - c_expand_return (yyvsp[-1].ttype); ; - break;} -case 365: -#line 1953 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-7].filename, yyvsp[-6].lineno); - STRIP_NOPS (yyvsp[-2].ttype); - if ((TREE_CODE (yyvsp[-2].ttype) == ADDR_EXPR - && TREE_CODE (TREE_OPERAND (yyvsp[-2].ttype, 0)) == STRING_CST) - || TREE_CODE (yyvsp[-2].ttype) == STRING_CST) - expand_asm (yyvsp[-2].ttype); - else - error ("argument of `asm' is not a constant string"); ; - break;} -case 366: -#line 1964 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-9].filename, yyvsp[-8].lineno); - c_expand_asm_operands (yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE, NULL_TREE, - yyvsp[-6].ttype == ridpointers[(int)RID_VOLATILE], - input_filename, lineno); ; - break;} -case 367: -#line 1971 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-11].filename, yyvsp[-10].lineno); - c_expand_asm_operands (yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype, NULL_TREE, - yyvsp[-8].ttype == ridpointers[(int)RID_VOLATILE], - input_filename, lineno); ; - break;} -case 368: -#line 1979 "objc-parse.y" -{ stmt_count++; - emit_line_note (yyvsp[-13].filename, yyvsp[-12].lineno); - c_expand_asm_operands (yyvsp[-8].ttype, yyvsp[-6].ttype, yyvsp[-4].ttype, yyvsp[-2].ttype, - yyvsp[-10].ttype == ridpointers[(int)RID_VOLATILE], - input_filename, lineno); ; - break;} -case 369: -#line 1985 "objc-parse.y" -{ tree decl; - stmt_count++; - emit_line_note (yyvsp[-4].filename, yyvsp[-3].lineno); - decl = lookup_label (yyvsp[-1].ttype); - if (decl != 0) - { - TREE_USED (decl) = 1; - expand_goto (decl); - } - ; - break;} -case 370: -#line 1996 "objc-parse.y" -{ if (pedantic) - pedwarn ("ANSI C forbids `goto *expr;'"); - stmt_count++; - emit_line_note (yyvsp[-5].filename, yyvsp[-4].lineno); - expand_computed_goto (convert (ptr_type_node, yyvsp[-1].ttype)); ; - break;} -case 373: -#line 2011 "objc-parse.y" -{ - /* The value returned by this action is */ - /* 1 if everything is OK */ - /* 0 in case of error or already bound iterator */ - - yyval.itype = 0; - if (TREE_CODE (yyvsp[-1].ttype) != VAR_DECL) - error ("invalid `for (ITERATOR)' syntax"); - else if (! ITERATOR_P (yyvsp[-1].ttype)) - error ("`%s' is not an iterator", - IDENTIFIER_POINTER (DECL_NAME (yyvsp[-1].ttype))); - else if (ITERATOR_BOUND_P (yyvsp[-1].ttype)) - error ("`for (%s)' inside expansion of same iterator", - IDENTIFIER_POINTER (DECL_NAME (yyvsp[-1].ttype))); - else - { - yyval.itype = 1; - iterator_for_loop_start (yyvsp[-1].ttype); - } - ; - break;} -case 374: -#line 2032 "objc-parse.y" -{ - if (yyvsp[-1].itype) - iterator_for_loop_end (yyvsp[-3].ttype); - ; - break;} -case 375: -#line 2067 "objc-parse.y" -{ register tree value = check_case_value (yyvsp[-1].ttype); - register tree label - = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); - - stmt_count++; - - if (value != error_mark_node) - { - tree duplicate; - int success; - - if (pedantic && ! INTEGRAL_TYPE_P (TREE_TYPE (value))) - pedwarn ("label must have integral type in ANSI C"); - - success = pushcase (value, convert_and_check, - label, &duplicate); - - if (success == 1) - error ("case label not within a switch statement"); - else if (success == 2) - { - error ("duplicate case value"); - error_with_decl (duplicate, "this is the first entry for that value"); - } - else if (success == 3) - warning ("case value out of range"); - else if (success == 5) - error ("case label within scope of cleanup or variable array"); - } - position_after_white_space (); ; - break;} -case 376: -#line 2098 "objc-parse.y" -{ register tree value1 = check_case_value (yyvsp[-3].ttype); - register tree value2 = check_case_value (yyvsp[-1].ttype); - register tree label - = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); - - if (pedantic) - pedwarn ("ANSI C forbids case ranges"); - stmt_count++; - - if (value1 != error_mark_node && value2 != error_mark_node) - { - tree duplicate; - int success = pushcase_range (value1, value2, - convert_and_check, label, - &duplicate); - if (success == 1) - error ("case label not within a switch statement"); - else if (success == 2) - { - error ("duplicate case value"); - error_with_decl (duplicate, "this is the first entry for that value"); - } - else if (success == 3) - warning ("case value out of range"); - else if (success == 4) - warning ("empty case range"); - else if (success == 5) - error ("case label within scope of cleanup or variable array"); - } - position_after_white_space (); ; - break;} -case 377: -#line 2129 "objc-parse.y" -{ - tree duplicate; - register tree label - = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); - int success = pushcase (NULL_TREE, 0, label, &duplicate); - stmt_count++; - if (success == 1) - error ("default label not within a switch statement"); - else if (success == 2) - { - error ("multiple default labels in one switch"); - error_with_decl (duplicate, "this is the first default label"); - } - position_after_white_space (); ; - break;} -case 378: -#line 2144 "objc-parse.y" -{ tree label = define_label (input_filename, lineno, yyvsp[-2].ttype); - stmt_count++; - emit_nop (); - if (label) - { - expand_label (label); - decl_attributes (label, yyvsp[0].ttype, NULL_TREE); - } - position_after_white_space (); ; - break;} -case 379: -#line 2159 "objc-parse.y" -{ emit_line_note (input_filename, lineno); - yyval.ttype = NULL_TREE; ; - break;} -case 380: -#line 2162 "objc-parse.y" -{ emit_line_note (input_filename, lineno); ; - break;} -case 381: -#line 2167 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 383: -#line 2174 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 386: -#line 2181 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-2].ttype, yyvsp[0].ttype); ; - break;} -case 387: -#line 2186 "objc-parse.y" -{ yyval.ttype = build_tree_list (yyvsp[-3].ttype, yyvsp[-1].ttype); ; - break;} -case 388: -#line 2191 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), NULL_TREE); ; - break;} -case 389: -#line 2193 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, combine_strings (yyvsp[0].ttype), yyvsp[-2].ttype); ; - break;} -case 390: -#line 2199 "objc-parse.y" -{ pushlevel (0); - clear_parm_order (); - declare_parm_level (0); ; - break;} -case 391: -#line 2203 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - parmlist_tags_warning (); - poplevel (0, 0, 0); ; - break;} -case 393: -#line 2211 "objc-parse.y" -{ tree parm; - if (pedantic) - pedwarn ("ANSI C forbids forward parameter declarations"); - /* Mark the forward decls as such. */ - for (parm = getdecls (); parm; parm = TREE_CHAIN (parm)) - TREE_ASM_WRITTEN (parm) = 1; - clear_parm_order (); ; - break;} -case 394: -#line 2219 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; ; - break;} -case 395: -#line 2221 "objc-parse.y" -{ yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE); ; - break;} -case 396: -#line 2227 "objc-parse.y" -{ yyval.ttype = get_parm_info (0); ; - break;} -case 397: -#line 2229 "objc-parse.y" -{ yyval.ttype = get_parm_info (0); - /* Gcc used to allow this as an extension. However, it does - not work for all targets, and thus has been disabled. - Also, since func (...) and func () are indistinguishable, - it caused problems with the code in expand_builtin which - tries to verify that BUILT_IN_NEXT_ARG is being used - correctly. */ - error ("ANSI C requires a named argument before `...'"); - ; - break;} -case 398: -#line 2239 "objc-parse.y" -{ yyval.ttype = get_parm_info (1); ; - break;} -case 399: -#line 2241 "objc-parse.y" -{ yyval.ttype = get_parm_info (0); ; - break;} -case 400: -#line 2246 "objc-parse.y" -{ push_parm_decl (yyvsp[0].ttype); ; - break;} -case 401: -#line 2248 "objc-parse.y" -{ push_parm_decl (yyvsp[0].ttype); ; - break;} -case 402: -#line 2255 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 403: -#line 2264 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 404: -#line 2273 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 405: -#line 2282 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 406: -#line 2292 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 407: -#line 2306 "objc-parse.y" -{ pushlevel (0); - clear_parm_order (); - declare_parm_level (1); ; - break;} -case 408: -#line 2310 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - parmlist_tags_warning (); - poplevel (0, 0, 0); ; - break;} -case 410: -#line 2318 "objc-parse.y" -{ tree t; - for (t = yyvsp[-1].ttype; t; t = TREE_CHAIN (t)) - if (TREE_VALUE (t) == NULL_TREE) - error ("`...' in old-style identifier list"); - yyval.ttype = tree_cons (NULL_TREE, NULL_TREE, yyvsp[-1].ttype); ; - break;} -case 411: -#line 2328 "objc-parse.y" -{ yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ; - break;} -case 412: -#line 2330 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ; - break;} -case 413: -#line 2336 "objc-parse.y" -{ yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ; - break;} -case 414: -#line 2338 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ; - break;} -case 415: -#line 2343 "objc-parse.y" -{ yyval.itype = pedantic; - pedantic = 0; ; - break;} -case 421: -#line 2356 "objc-parse.y" -{ - if (objc_implementation_context) - { - finish_class (objc_implementation_context); - objc_ivar_chain = NULL_TREE; - objc_implementation_context = NULL_TREE; - } - else - warning ("`@end' must appear in an implementation context"); - ; - break;} -case 422: -#line 2371 "objc-parse.y" -{ yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); ; - break;} -case 423: -#line 2373 "objc-parse.y" -{ yyval.ttype = chainon (yyvsp[-2].ttype, build_tree_list (NULL_TREE, yyvsp[0].ttype)); ; - break;} -case 424: -#line 2378 "objc-parse.y" -{ - objc_declare_class (yyvsp[-1].ttype); - ; - break;} -case 425: -#line 2384 "objc-parse.y" -{ - objc_declare_alias (yyvsp[-2].ttype, yyvsp[-1].ttype); - ; - break;} -case 426: -#line 2390 "objc-parse.y" -{ - objc_interface_context = objc_ivar_context - = start_class (CLASS_INTERFACE_TYPE, yyvsp[-2].ttype, NULL_TREE, yyvsp[-1].ttype); - objc_public_flag = 0; - ; - break;} -case 427: -#line 2396 "objc-parse.y" -{ - continue_class (objc_interface_context); - ; - break;} -case 428: -#line 2401 "objc-parse.y" -{ - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - ; - break;} -case 429: -#line 2407 "objc-parse.y" -{ - objc_interface_context - = start_class (CLASS_INTERFACE_TYPE, yyvsp[-1].ttype, NULL_TREE, yyvsp[0].ttype); - continue_class (objc_interface_context); - ; - break;} -case 430: -#line 2414 "objc-parse.y" -{ - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - ; - break;} -case 431: -#line 2420 "objc-parse.y" -{ - objc_interface_context = objc_ivar_context - = start_class (CLASS_INTERFACE_TYPE, yyvsp[-4].ttype, yyvsp[-2].ttype, yyvsp[-1].ttype); - objc_public_flag = 0; - ; - break;} -case 432: -#line 2426 "objc-parse.y" -{ - continue_class (objc_interface_context); - ; - break;} -case 433: -#line 2431 "objc-parse.y" -{ - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - ; - break;} -case 434: -#line 2437 "objc-parse.y" -{ - objc_interface_context - = start_class (CLASS_INTERFACE_TYPE, yyvsp[-3].ttype, yyvsp[-1].ttype, yyvsp[0].ttype); - continue_class (objc_interface_context); - ; - break;} -case 435: -#line 2444 "objc-parse.y" -{ - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - ; - break;} -case 436: -#line 2450 "objc-parse.y" -{ - objc_implementation_context = objc_ivar_context - = start_class (CLASS_IMPLEMENTATION_TYPE, yyvsp[-1].ttype, NULL_TREE, NULL_TREE); - objc_public_flag = 0; - ; - break;} -case 437: -#line 2456 "objc-parse.y" -{ - objc_ivar_chain - = continue_class (objc_implementation_context); - ; - break;} -case 438: -#line 2462 "objc-parse.y" -{ - objc_implementation_context - = start_class (CLASS_IMPLEMENTATION_TYPE, yyvsp[0].ttype, NULL_TREE, NULL_TREE); - objc_ivar_chain - = continue_class (objc_implementation_context); - ; - break;} -case 439: -#line 2470 "objc-parse.y" -{ - objc_implementation_context = objc_ivar_context - = start_class (CLASS_IMPLEMENTATION_TYPE, yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); - objc_public_flag = 0; - ; - break;} -case 440: -#line 2476 "objc-parse.y" -{ - objc_ivar_chain - = continue_class (objc_implementation_context); - ; - break;} -case 441: -#line 2482 "objc-parse.y" -{ - objc_implementation_context - = start_class (CLASS_IMPLEMENTATION_TYPE, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); - objc_ivar_chain - = continue_class (objc_implementation_context); - ; - break;} -case 442: -#line 2490 "objc-parse.y" -{ - objc_interface_context - = start_class (CATEGORY_INTERFACE_TYPE, yyvsp[-4].ttype, yyvsp[-2].ttype, yyvsp[0].ttype); - continue_class (objc_interface_context); - ; - break;} -case 443: -#line 2497 "objc-parse.y" -{ - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - ; - break;} -case 444: -#line 2503 "objc-parse.y" -{ - objc_implementation_context - = start_class (CATEGORY_IMPLEMENTATION_TYPE, yyvsp[-3].ttype, yyvsp[-1].ttype, NULL_TREE); - objc_ivar_chain - = continue_class (objc_implementation_context); - ; - break;} -case 445: -#line 2513 "objc-parse.y" -{ - remember_protocol_qualifiers (); - objc_interface_context - = start_protocol(PROTOCOL_INTERFACE_TYPE, yyvsp[-1].ttype, yyvsp[0].ttype); - ; - break;} -case 446: -#line 2519 "objc-parse.y" -{ - forget_protocol_qualifiers(); - finish_protocol(objc_interface_context); - objc_interface_context = NULL_TREE; - ; - break;} -case 447: -#line 2528 "objc-parse.y" -{ - yyval.ttype = NULL_TREE; - ; - break;} -case 449: -#line 2536 "objc-parse.y" -{ - if (yyvsp[-2].code == LT_EXPR && yyvsp[0].code == GT_EXPR) - yyval.ttype = yyvsp[-1].ttype; - else - YYERROR1; - ; - break;} -case 452: -#line 2550 "objc-parse.y" -{ objc_public_flag = 2; ; - break;} -case 453: -#line 2551 "objc-parse.y" -{ objc_public_flag = 0; ; - break;} -case 454: -#line 2552 "objc-parse.y" -{ objc_public_flag = 1; ; - break;} -case 455: -#line 2557 "objc-parse.y" -{ - yyval.ttype = NULL_TREE; - ; - break;} -case 457: -#line 2562 "objc-parse.y" -{ - if (pedantic) - pedwarn ("extra semicolon in struct or union specified"); - ; - break;} -case 458: -#line 2580 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-1].itype); ; - break;} -case 459: -#line 2586 "objc-parse.y" -{ yyval.ttype = yyvsp[0].ttype; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-1].itype); ; - break;} -case 460: -#line 2592 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 461: -#line 2597 "objc-parse.y" -{ yyval.ttype = NULL_TREE; ; - break;} -case 464: -#line 2604 "objc-parse.y" -{ - yyval.ttype = add_instance_variable (objc_ivar_context, - objc_public_flag, - yyvsp[0].ttype, current_declspecs, - NULL_TREE); - ; - break;} -case 465: -#line 2611 "objc-parse.y" -{ - yyval.ttype = add_instance_variable (objc_ivar_context, - objc_public_flag, - yyvsp[-2].ttype, current_declspecs, yyvsp[0].ttype); - ; - break;} -case 466: -#line 2617 "objc-parse.y" -{ - yyval.ttype = add_instance_variable (objc_ivar_context, - objc_public_flag, - NULL_TREE, - current_declspecs, yyvsp[0].ttype); - ; - break;} -case 467: -#line 2627 "objc-parse.y" -{ - remember_protocol_qualifiers (); - if (objc_implementation_context) - objc_inherit_code = CLASS_METHOD_DECL; - else - fatal ("method definition not in class context"); - ; - break;} -case 468: -#line 2635 "objc-parse.y" -{ - forget_protocol_qualifiers (); - add_class_method (objc_implementation_context, yyvsp[0].ttype); - start_method_def (yyvsp[0].ttype); - objc_method_context = yyvsp[0].ttype; - ; - break;} -case 469: -#line 2642 "objc-parse.y" -{ - continue_method_def (); - ; - break;} -case 470: -#line 2646 "objc-parse.y" -{ - finish_method_def (); - objc_method_context = NULL_TREE; - ; - break;} -case 471: -#line 2652 "objc-parse.y" -{ - remember_protocol_qualifiers (); - if (objc_implementation_context) - objc_inherit_code = INSTANCE_METHOD_DECL; - else - fatal ("method definition not in class context"); - ; - break;} -case 472: -#line 2660 "objc-parse.y" -{ - forget_protocol_qualifiers (); - add_instance_method (objc_implementation_context, yyvsp[0].ttype); - start_method_def (yyvsp[0].ttype); - objc_method_context = yyvsp[0].ttype; - ; - break;} -case 473: -#line 2667 "objc-parse.y" -{ - continue_method_def (); - ; - break;} -case 474: -#line 2671 "objc-parse.y" -{ - finish_method_def (); - objc_method_context = NULL_TREE; - ; - break;} -case 476: -#line 2683 "objc-parse.y" -{yyval.ttype = NULL_TREE; ; - break;} -case 481: -#line 2690 "objc-parse.y" -{yyval.ttype = NULL_TREE; ; - break;} -case 485: -#line 2700 "objc-parse.y" -{ - /* Remember protocol qualifiers in prototypes. */ - remember_protocol_qualifiers (); - objc_inherit_code = CLASS_METHOD_DECL; - ; - break;} -case 486: -#line 2706 "objc-parse.y" -{ - /* Forget protocol qualifiers here. */ - forget_protocol_qualifiers (); - add_class_method (objc_interface_context, yyvsp[0].ttype); - ; - break;} -case 488: -#line 2714 "objc-parse.y" -{ - /* Remember protocol qualifiers in prototypes. */ - remember_protocol_qualifiers (); - objc_inherit_code = INSTANCE_METHOD_DECL; - ; - break;} -case 489: -#line 2720 "objc-parse.y" -{ - /* Forget protocol qualifiers here. */ - forget_protocol_qualifiers (); - add_instance_method (objc_interface_context, yyvsp[0].ttype); - ; - break;} -case 491: -#line 2730 "objc-parse.y" -{ - yyval.ttype = build_method_decl (objc_inherit_code, yyvsp[-2].ttype, yyvsp[0].ttype, NULL_TREE); - ; - break;} -case 492: -#line 2735 "objc-parse.y" -{ - yyval.ttype = build_method_decl (objc_inherit_code, NULL_TREE, yyvsp[0].ttype, NULL_TREE); - ; - break;} -case 493: -#line 2740 "objc-parse.y" -{ - yyval.ttype = build_method_decl (objc_inherit_code, yyvsp[-3].ttype, yyvsp[-1].ttype, yyvsp[0].ttype); - ; - break;} -case 494: -#line 2745 "objc-parse.y" -{ - yyval.ttype = build_method_decl (objc_inherit_code, NULL_TREE, yyvsp[-1].ttype, yyvsp[0].ttype); - ; - break;} -case 503: -#line 2775 "objc-parse.y" -{ current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary (yyvsp[-2].itype); ; - break;} -case 504: -#line 2780 "objc-parse.y" -{ shadow_tag (yyvsp[-1].ttype); ; - break;} -case 505: -#line 2782 "objc-parse.y" -{ pedwarn ("empty declaration"); ; - break;} -case 506: -#line 2787 "objc-parse.y" -{ push_parm_decl (yyvsp[0].ttype); ; - break;} -case 507: -#line 2789 "objc-parse.y" -{ push_parm_decl (yyvsp[0].ttype); ; - break;} -case 508: -#line 2797 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); ; - break;} -case 509: -#line 2802 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); ; - break;} -case 510: -#line 2807 "objc-parse.y" -{ yyval.ttype = build_tree_list (build_tree_list (current_declspecs, - yyvsp[-1].ttype), - build_tree_list (prefix_attributes, - yyvsp[0].ttype)); ; - break;} -case 511: -#line 2815 "objc-parse.y" -{ - yyval.ttype = NULL_TREE; - ; - break;} -case 512: -#line 2819 "objc-parse.y" -{ - /* oh what a kludge! */ - yyval.ttype = (tree)1; - ; - break;} -case 513: -#line 2824 "objc-parse.y" -{ - pushlevel (0); - ; - break;} -case 514: -#line 2828 "objc-parse.y" -{ - /* returns a tree list node generated by get_parm_info */ - yyval.ttype = yyvsp[0].ttype; - poplevel (0, 0, 0); - ; - break;} -case 517: -#line 2843 "objc-parse.y" -{ - yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype); - ; - break;} -case 522: -#line 2856 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 523: -#line 2857 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 524: -#line 2858 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 525: -#line 2859 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 526: -#line 2860 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 527: -#line 2861 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 528: -#line 2862 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 529: -#line 2863 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 530: -#line 2864 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 531: -#line 2865 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 532: -#line 2866 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 533: -#line 2867 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 534: -#line 2868 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 535: -#line 2869 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 536: -#line 2870 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 537: -#line 2871 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 538: -#line 2872 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 539: -#line 2873 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 540: -#line 2874 "objc-parse.y" -{ yyval.ttype = get_identifier (token_buffer); ; - break;} -case 543: -#line 2880 "objc-parse.y" -{ - yyval.ttype = build_keyword_decl (yyvsp[-5].ttype, yyvsp[-2].ttype, yyvsp[0].ttype); - ; - break;} -case 544: -#line 2885 "objc-parse.y" -{ - yyval.ttype = build_keyword_decl (yyvsp[-2].ttype, NULL_TREE, yyvsp[0].ttype); - ; - break;} -case 545: -#line 2890 "objc-parse.y" -{ - yyval.ttype = build_keyword_decl (NULL_TREE, yyvsp[-2].ttype, yyvsp[0].ttype); - ; - break;} -case 546: -#line 2895 "objc-parse.y" -{ - yyval.ttype = build_keyword_decl (NULL_TREE, NULL_TREE, yyvsp[0].ttype); - ; - break;} -case 550: -#line 2908 "objc-parse.y" -{ - yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype); - ; - break;} -case 551: -#line 2916 "objc-parse.y" -{ - if (TREE_CHAIN (yyvsp[0].ttype) == NULL_TREE) - /* just return the expr., remove a level of indirection */ - yyval.ttype = TREE_VALUE (yyvsp[0].ttype); - else - /* we have a comma expr., we will collapse later */ - yyval.ttype = yyvsp[0].ttype; - ; - break;} -case 552: -#line 2928 "objc-parse.y" -{ - yyval.ttype = build_tree_list (yyvsp[-2].ttype, yyvsp[0].ttype); - ; - break;} -case 553: -#line 2932 "objc-parse.y" -{ - yyval.ttype = build_tree_list (NULL_TREE, yyvsp[0].ttype); - ; - break;} -case 555: -#line 2940 "objc-parse.y" -{ - yyval.ttype = get_class_reference (yyvsp[0].ttype); - ; - break;} -case 556: -#line 2947 "objc-parse.y" -{ objc_receiver_context = 1; ; - break;} -case 557: -#line 2949 "objc-parse.y" -{ objc_receiver_context = 0; ; - break;} -case 558: -#line 2951 "objc-parse.y" -{ - yyval.ttype = build_tree_list (yyvsp[-3].ttype, yyvsp[-1].ttype); - ; - break;} -case 562: -#line 2964 "objc-parse.y" -{ - yyval.ttype = chainon (yyvsp[-1].ttype, yyvsp[0].ttype); - ; - break;} -case 563: -#line 2971 "objc-parse.y" -{ - yyval.ttype = build_tree_list (yyvsp[-1].ttype, NULL_TREE); - ; - break;} -case 564: -#line 2975 "objc-parse.y" -{ - yyval.ttype = build_tree_list (NULL_TREE, NULL_TREE); - ; - break;} -case 565: -#line 2982 "objc-parse.y" -{ - yyval.ttype = yyvsp[-1].ttype; - ; - break;} -case 566: -#line 2989 "objc-parse.y" -{ - yyval.ttype = yyvsp[-1].ttype; - ; - break;} -case 567: -#line 2998 "objc-parse.y" -{ - yyval.ttype = groktypename (yyvsp[-1].ttype); - ; - break;} -} - /* the action file gets copied in in place of this dollarsign */ -#line 498 "/usr/lib/bison.simple" - - yyvsp -= yylen; - yyssp -= yylen; -#ifdef YYLSP_NEEDED - yylsp -= yylen; -#endif - -#if YYDEBUG != 0 - if (yydebug) - { - short *ssp1 = yyss - 1; - fprintf (stderr, "state stack now"); - while (ssp1 != yyssp) - fprintf (stderr, " %d", *++ssp1); - fprintf (stderr, "\n"); - } -#endif - - *++yyvsp = yyval; - -#ifdef YYLSP_NEEDED - yylsp++; - if (yylen == 0) - { - yylsp->first_line = yylloc.first_line; - yylsp->first_column = yylloc.first_column; - yylsp->last_line = (yylsp-1)->last_line; - yylsp->last_column = (yylsp-1)->last_column; - yylsp->text = 0; - } - else - { - yylsp->last_line = (yylsp+yylen-1)->last_line; - yylsp->last_column = (yylsp+yylen-1)->last_column; - } -#endif - - /* Now "shift" the result of the reduction. - Determine what state that goes to, - based on the state we popped back to - and the rule number reduced by. */ - - yyn = yyr1[yyn]; - - yystate = yypgoto[yyn - YYNTBASE] + *yyssp; - if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp) - yystate = yytable[yystate]; - else - yystate = yydefgoto[yyn - YYNTBASE]; - - goto yynewstate; - -yyerrlab: /* here on detecting error */ - - if (! yyerrstatus) - /* If not already recovering from an error, report this error. */ - { - ++yynerrs; - -#ifdef YYERROR_VERBOSE - yyn = yypact[yystate]; - - if (yyn > YYFLAG && yyn < YYLAST) - { - int size = 0; - char *msg; - int x, count; - - count = 0; - /* Start X at -yyn if nec to avoid negative indexes in yycheck. */ - for (x = (yyn < 0 ? -yyn : 0); - x < (sizeof(yytname) / sizeof(char *)); x++) - if (yycheck[x + yyn] == x) - size += strlen(yytname[x]) + 15, count++; - msg = (char *) malloc(size + 15); - if (msg != 0) - { - strcpy(msg, "parse error"); - - if (count < 5) - { - count = 0; - for (x = (yyn < 0 ? -yyn : 0); - x < (sizeof(yytname) / sizeof(char *)); x++) - if (yycheck[x + yyn] == x) - { - strcat(msg, count == 0 ? ", expecting `" : " or `"); - strcat(msg, yytname[x]); - strcat(msg, "'"); - count++; - } - } - yyerror(msg); - free(msg); - } - else - yyerror ("parse error; also virtual memory exceeded"); - } - else -#endif /* YYERROR_VERBOSE */ - yyerror("parse error"); - } - - goto yyerrlab1; -yyerrlab1: /* here on error raised explicitly by an action */ - - if (yyerrstatus == 3) - { - /* if just tried and failed to reuse lookahead token after an error, discard it. */ - - /* return failure if at end of input */ - if (yychar == YYEOF) - YYABORT; - -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]); -#endif - - yychar = YYEMPTY; - } - - /* Else will try to reuse lookahead token - after shifting the error token. */ - - yyerrstatus = 3; /* Each real token shifted decrements this */ - - goto yyerrhandle; - -yyerrdefault: /* current state does not do anything special for the error token. */ - -#if 0 - /* This is wrong; only states that explicitly want error tokens - should shift them. */ - yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/ - if (yyn) goto yydefault; -#endif - -yyerrpop: /* pop the current state because it cannot handle the error token */ - - if (yyssp == yyss) YYABORT; - yyvsp--; - yystate = *--yyssp; -#ifdef YYLSP_NEEDED - yylsp--; -#endif - -#if YYDEBUG != 0 - if (yydebug) - { - short *ssp1 = yyss - 1; - fprintf (stderr, "Error: state stack now"); - while (ssp1 != yyssp) - fprintf (stderr, " %d", *++ssp1); - fprintf (stderr, "\n"); - } -#endif - -yyerrhandle: - - yyn = yypact[yystate]; - if (yyn == YYFLAG) - goto yyerrdefault; - - yyn += YYTERROR; - if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR) - goto yyerrdefault; - - yyn = yytable[yyn]; - if (yyn < 0) - { - if (yyn == YYFLAG) - goto yyerrpop; - yyn = -yyn; - goto yyreduce; - } - else if (yyn == 0) - goto yyerrpop; - - if (yyn == YYFINAL) - YYACCEPT; - -#if YYDEBUG != 0 - if (yydebug) - fprintf(stderr, "Shifting error token, "); -#endif - - *++yyvsp = yylval; -#ifdef YYLSP_NEEDED - *++yylsp = yylloc; -#endif - - yystate = yyn; - goto yynewstate; -} -#line 3003 "objc-parse.y" - diff --git a/gnu/egcs/gcc/objc/objc-parse.y b/gnu/egcs/gcc/objc/objc-parse.y deleted file mode 100644 index 1ad13219c4d..00000000000 --- a/gnu/egcs/gcc/objc/objc-parse.y +++ /dev/null @@ -1,3003 +0,0 @@ -/*WARNING: This file is automatically generated!*/ -/* YACC parser for C syntax and for Objective C. -*-c-*- - Copyright (C) 1987, 88, 89, 92-98, 1999 Free Software Foundation, Inc. - -This file is part of GNU CC. - -GNU CC is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -GNU CC is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU CC; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - -/* This file defines the grammar of C and that of Objective C. - ifobjc ... end ifobjc conditionals contain code for Objective C only. - ifc ... end ifc conditionals contain code for C only. - Sed commands in Makefile.in are used to convert this file into - c-parse.y and into objc-parse.y. */ - -/* To whomever it may concern: I have heard that such a thing was once - written by AT&T, but I have never seen it. */ - -%expect 66 - -%{ -#include "config.h" -#include "system.h" -#include <setjmp.h> - -#include "tree.h" -#include "input.h" -#include "c-lex.h" -#include "c-tree.h" -#include "flags.h" -#include "output.h" -#include "toplev.h" - -#ifdef MULTIBYTE_CHARS -#include <locale.h> -#endif - -#include "objc-act.h" - -/* Since parsers are distinct for each language, put the language string - definition here. */ -char *language_string = "GNU Obj-C"; - -/* Like YYERROR but do call yyerror. */ -#define YYERROR1 { yyerror ("syntax error"); YYERROR; } - -/* Cause the `yydebug' variable to be defined. */ -#define YYDEBUG 1 -%} - -%start program - -%union {long itype; tree ttype; enum tree_code code; - char *filename; int lineno; int ends_in_label; } - -/* All identifiers that are not reserved words - and are not declared typedefs in the current block */ -%token IDENTIFIER - -/* All identifiers that are declared typedefs in the current block. - In some contexts, they are treated just like IDENTIFIER, - but they can also serve as typespecs in declarations. */ -%token TYPENAME - -/* Reserved words that specify storage class. - yylval contains an IDENTIFIER_NODE which indicates which one. */ -%token SCSPEC - -/* Reserved words that specify type. - yylval contains an IDENTIFIER_NODE which indicates which one. */ -%token TYPESPEC - -/* Reserved words that qualify type: "const", "volatile", or "restrict". - yylval contains an IDENTIFIER_NODE which indicates which one. */ -%token TYPE_QUAL - -/* Character or numeric constants. - yylval is the node for the constant. */ -%token CONSTANT - -/* String constants in raw form. - yylval is a STRING_CST node. */ -%token STRING - -/* "...", used for functions with variable arglists. */ -%token ELLIPSIS - -/* the reserved words */ -/* SCO include files test "ASM", so use something else. */ -%token SIZEOF ENUM STRUCT UNION IF ELSE WHILE DO FOR SWITCH CASE DEFAULT -%token BREAK CONTINUE RETURN GOTO ASM_KEYWORD TYPEOF ALIGNOF -%token ATTRIBUTE EXTENSION LABEL -%token REALPART IMAGPART - -/* Add precedence rules to solve dangling else s/r conflict */ -%nonassoc IF -%nonassoc ELSE - -/* Define the operator tokens and their precedences. - The value is an integer because, if used, it is the tree code - to use in the expression made from the operator. */ - -%right <code> ASSIGN '=' -%right <code> '?' ':' -%left <code> OROR -%left <code> ANDAND -%left <code> '|' -%left <code> '^' -%left <code> '&' -%left <code> EQCOMPARE -%left <code> ARITHCOMPARE -%left <code> LSHIFT RSHIFT -%left <code> '+' '-' -%left <code> '*' '/' '%' -%right <code> UNARY PLUSPLUS MINUSMINUS -%left HYPERUNARY -%left <code> POINTSAT '.' '(' '[' - -/* The Objective-C keywords. These are included in C and in - Objective C, so that the token codes are the same in both. */ -%token INTERFACE IMPLEMENTATION END SELECTOR DEFS ENCODE -%token CLASSNAME PUBLIC PRIVATE PROTECTED PROTOCOL OBJECTNAME CLASS ALIAS - -/* Objective-C string constants in raw form. - yylval is an OBJC_STRING_CST node. */ -%token OBJC_STRING - - -%type <code> unop - -%type <ttype> identifier IDENTIFIER TYPENAME CONSTANT expr nonnull_exprlist exprlist -%type <ttype> expr_no_commas cast_expr unary_expr primary string STRING -%type <ttype> typed_declspecs reserved_declspecs -%type <ttype> typed_typespecs reserved_typespecquals -%type <ttype> declmods typespec typespecqual_reserved -%type <ttype> typed_declspecs_no_prefix_attr reserved_declspecs_no_prefix_attr -%type <ttype> declmods_no_prefix_attr -%type <ttype> SCSPEC TYPESPEC TYPE_QUAL nonempty_type_quals maybe_type_qual -%type <ttype> initdecls notype_initdecls initdcl notype_initdcl -%type <ttype> init maybeasm -%type <ttype> asm_operands nonnull_asm_operands asm_operand asm_clobbers -%type <ttype> maybe_attribute attributes attribute attribute_list attrib -%type <ttype> any_word - -%type <ttype> compstmt - -%type <ttype> declarator -%type <ttype> notype_declarator after_type_declarator -%type <ttype> parm_declarator - -%type <ttype> structsp component_decl_list component_decl_list2 -%type <ttype> component_decl components component_declarator -%type <ttype> enumlist enumerator -%type <ttype> struct_head union_head enum_head -%type <ttype> typename absdcl absdcl1 type_quals -%type <ttype> xexpr parms parm identifiers - -%type <ttype> parmlist parmlist_1 parmlist_2 -%type <ttype> parmlist_or_identifiers parmlist_or_identifiers_1 -%type <ttype> identifiers_or_typenames - -%type <itype> setspecs - -%type <ends_in_label> lineno_stmt_or_label lineno_stmt_or_labels stmt_or_label - -%type <filename> save_filename -%type <lineno> save_lineno - -/* the Objective-C nonterminals */ - -%type <ttype> ivar_decl_list ivar_decls ivar_decl ivars ivar_declarator -%type <ttype> methoddecl unaryselector keywordselector selector -%type <ttype> keyworddecl receiver objcmessageexpr messageargs -%type <ttype> keywordexpr keywordarglist keywordarg -%type <ttype> myparms myparm optparmlist reservedwords objcselectorexpr -%type <ttype> selectorarg keywordnamelist keywordname objcencodeexpr -%type <ttype> objc_string non_empty_protocolrefs protocolrefs identifier_list objcprotocolexpr - -%type <ttype> CLASSNAME OBJC_STRING OBJECTNAME - -%{ -/* Number of statements (loosely speaking) and compound statements - seen so far. */ -static int stmt_count; -static int compstmt_count; - -/* Input file and line number of the end of the body of last simple_if; - used by the stmt-rule immediately after simple_if returns. */ -static char *if_stmt_file; -static int if_stmt_line; - -/* List of types and structure classes of the current declaration. */ -static tree current_declspecs = NULL_TREE; -static tree prefix_attributes = NULL_TREE; - -/* Stack of saved values of current_declspecs and prefix_attributes. */ -static tree declspec_stack; - -/* 1 if we explained undeclared var errors. */ -static int undeclared_variable_notice; - -/* Objective-C specific information */ - -tree objc_interface_context; -tree objc_implementation_context; -tree objc_method_context; -tree objc_ivar_chain; -tree objc_ivar_context; -enum tree_code objc_inherit_code; -int objc_receiver_context; -int objc_public_flag; - - -/* Tell yyparse how to print a token's value, if yydebug is set. */ - -#define YYPRINT(FILE,YYCHAR,YYLVAL) yyprint(FILE,YYCHAR,YYLVAL) -extern void yyprint PROTO ((FILE *, int, YYSTYPE)); -%} - -%% -program: /* empty */ - { if (pedantic) - pedwarn ("ANSI C forbids an empty source file"); - finish_file (); - } - | extdefs - { - /* In case there were missing closebraces, - get us back to the global binding level. */ - while (! global_bindings_p ()) - poplevel (0, 0, 0); - finish_file (); - } - ; - -/* the reason for the strange actions in this rule - is so that notype_initdecls when reached via datadef - can find a valid list of type and sc specs in $0. */ - -extdefs: - {$<ttype>$ = NULL_TREE; } extdef - | extdefs {$<ttype>$ = NULL_TREE; } extdef - ; - -extdef: - fndef - | datadef - | objcdef - | ASM_KEYWORD '(' expr ')' ';' - { STRIP_NOPS ($3); - if ((TREE_CODE ($3) == ADDR_EXPR - && TREE_CODE (TREE_OPERAND ($3, 0)) == STRING_CST) - || TREE_CODE ($3) == STRING_CST) - assemble_asm ($3); - else - error ("argument of `asm' is not a constant string"); } - | extension extdef - { pedantic = $<itype>1; } - ; - -datadef: - setspecs notype_initdecls ';' - { if (pedantic) - error ("ANSI C forbids data definition with no type or storage class"); - else if (!flag_traditional) - warning ("data definition has no type or storage class"); - - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($1); } - | declmods setspecs notype_initdecls ';' - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs setspecs initdecls ';' - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | declmods ';' - { pedwarn ("empty declaration"); } - | typed_declspecs ';' - { shadow_tag ($1); } - | error ';' - | error '}' - | ';' - { if (pedantic) - pedwarn ("ANSI C does not allow extra `;' outside of a function"); } - ; - -fndef: - typed_declspecs setspecs declarator - { if (! start_function (current_declspecs, $3, - prefix_attributes, NULL_TREE, 0)) - YYERROR1; - reinit_parse_for_function (); } - old_style_parm_decls - { store_parm_decls (); } - compstmt_or_error - { finish_function (0); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs setspecs declarator error - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | declmods setspecs notype_declarator - { if (! start_function (current_declspecs, $3, - prefix_attributes, NULL_TREE, 0)) - YYERROR1; - reinit_parse_for_function (); } - old_style_parm_decls - { store_parm_decls (); } - compstmt_or_error - { finish_function (0); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | declmods setspecs notype_declarator error - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | setspecs notype_declarator - { if (! start_function (NULL_TREE, $2, - prefix_attributes, NULL_TREE, 0)) - YYERROR1; - reinit_parse_for_function (); } - old_style_parm_decls - { store_parm_decls (); } - compstmt_or_error - { finish_function (0); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($1); } - | setspecs notype_declarator error - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($1); } - ; - -identifier: - IDENTIFIER - | TYPENAME - | OBJECTNAME - | CLASSNAME - ; - -unop: '&' - { $$ = ADDR_EXPR; } - | '-' - { $$ = NEGATE_EXPR; } - | '+' - { $$ = CONVERT_EXPR; } - | PLUSPLUS - { $$ = PREINCREMENT_EXPR; } - | MINUSMINUS - { $$ = PREDECREMENT_EXPR; } - | '~' - { $$ = BIT_NOT_EXPR; } - | '!' - { $$ = TRUTH_NOT_EXPR; } - ; - -expr: nonnull_exprlist - { $$ = build_compound_expr ($1); } - ; - -exprlist: - /* empty */ - { $$ = NULL_TREE; } - | nonnull_exprlist - ; - -nonnull_exprlist: - expr_no_commas - { $$ = build_tree_list (NULL_TREE, $1); } - | nonnull_exprlist ',' expr_no_commas - { chainon ($1, build_tree_list (NULL_TREE, $3)); } - ; - -unary_expr: - primary - | '*' cast_expr %prec UNARY - { $$ = build_indirect_ref ($2, "unary *"); } - /* __extension__ turns off -pedantic for following primary. */ - | extension cast_expr %prec UNARY - { $$ = $2; - pedantic = $<itype>1; } - | unop cast_expr %prec UNARY - { $$ = build_unary_op ($1, $2, 0); - overflow_warning ($$); } - /* Refer to the address of a label as a pointer. */ - | ANDAND identifier - { tree label = lookup_label ($2); - if (pedantic) - pedwarn ("ANSI C forbids `&&'"); - if (label == 0) - $$ = null_pointer_node; - else - { - TREE_USED (label) = 1; - $$ = build1 (ADDR_EXPR, ptr_type_node, label); - TREE_CONSTANT ($$) = 1; - } - } -/* This seems to be impossible on some machines, so let's turn it off. - You can use __builtin_next_arg to find the anonymous stack args. - | '&' ELLIPSIS - { tree types = TYPE_ARG_TYPES (TREE_TYPE (current_function_decl)); - $$ = error_mark_node; - if (TREE_VALUE (tree_last (types)) == void_type_node) - error ("`&...' used in function with fixed number of arguments"); - else - { - if (pedantic) - pedwarn ("ANSI C forbids `&...'"); - $$ = tree_last (DECL_ARGUMENTS (current_function_decl)); - $$ = build_unary_op (ADDR_EXPR, $$, 0); - } } -*/ - | sizeof unary_expr %prec UNARY - { skip_evaluation--; - if (TREE_CODE ($2) == COMPONENT_REF - && DECL_C_BIT_FIELD (TREE_OPERAND ($2, 1))) - error ("`sizeof' applied to a bit-field"); - $$ = c_sizeof (TREE_TYPE ($2)); } - | sizeof '(' typename ')' %prec HYPERUNARY - { skip_evaluation--; - $$ = c_sizeof (groktypename ($3)); } - | alignof unary_expr %prec UNARY - { skip_evaluation--; - $$ = c_alignof_expr ($2); } - | alignof '(' typename ')' %prec HYPERUNARY - { skip_evaluation--; - $$ = c_alignof (groktypename ($3)); } - | REALPART cast_expr %prec UNARY - { $$ = build_unary_op (REALPART_EXPR, $2, 0); } - | IMAGPART cast_expr %prec UNARY - { $$ = build_unary_op (IMAGPART_EXPR, $2, 0); } - ; - -sizeof: - SIZEOF { skip_evaluation++; } - ; - -alignof: - ALIGNOF { skip_evaluation++; } - ; - -cast_expr: - unary_expr - | '(' typename ')' cast_expr %prec UNARY - { tree type = groktypename ($2); - $$ = build_c_cast (type, $4); } - | '(' typename ')' '{' - { start_init (NULL_TREE, NULL, 0); - $2 = groktypename ($2); - really_start_incremental_init ($2); } - initlist_maybe_comma '}' %prec UNARY - { char *name; - tree result = pop_init_level (0); - tree type = $2; - finish_init (); - - if (pedantic && ! flag_isoc9x) - pedwarn ("ANSI C forbids constructor expressions"); - if (TYPE_NAME (type) != 0) - { - if (TREE_CODE (TYPE_NAME (type)) == IDENTIFIER_NODE) - name = IDENTIFIER_POINTER (TYPE_NAME (type)); - else - name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))); - } - else - name = ""; - $$ = result; - if (TREE_CODE (type) == ARRAY_TYPE && TYPE_SIZE (type) == 0) - { - int failure = complete_array_type (type, $$, 1); - if (failure) - abort (); - } - } - ; - -expr_no_commas: - cast_expr - | expr_no_commas '+' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas '-' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas '*' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas '/' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas '%' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas LSHIFT expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas RSHIFT expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas ARITHCOMPARE expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas EQCOMPARE expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas '&' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas '|' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas '^' expr_no_commas - { $$ = parser_build_binary_op ($2, $1, $3); } - | expr_no_commas ANDAND - { $1 = truthvalue_conversion (default_conversion ($1)); - skip_evaluation += $1 == boolean_false_node; } - expr_no_commas - { skip_evaluation -= $1 == boolean_false_node; - $$ = parser_build_binary_op (TRUTH_ANDIF_EXPR, $1, $4); } - | expr_no_commas OROR - { $1 = truthvalue_conversion (default_conversion ($1)); - skip_evaluation += $1 == boolean_true_node; } - expr_no_commas - { skip_evaluation -= $1 == boolean_true_node; - $$ = parser_build_binary_op (TRUTH_ORIF_EXPR, $1, $4); } - | expr_no_commas '?' - { $1 = truthvalue_conversion (default_conversion ($1)); - skip_evaluation += $1 == boolean_false_node; } - expr ':' - { skip_evaluation += (($1 == boolean_true_node) - - ($1 == boolean_false_node)); } - expr_no_commas - { skip_evaluation -= $1 == boolean_true_node; - $$ = build_conditional_expr ($1, $4, $7); } - | expr_no_commas '?' - { if (pedantic) - pedwarn ("ANSI C forbids omitting the middle term of a ?: expression"); - /* Make sure first operand is calculated only once. */ - $<ttype>2 = save_expr ($1); - $1 = truthvalue_conversion (default_conversion ($<ttype>2)); - skip_evaluation += $1 == boolean_true_node; } - ':' expr_no_commas - { skip_evaluation -= $1 == boolean_true_node; - $$ = build_conditional_expr ($1, $<ttype>2, $5); } - | expr_no_commas '=' expr_no_commas - { char class; - $$ = build_modify_expr ($1, NOP_EXPR, $3); - class = TREE_CODE_CLASS (TREE_CODE ($$)); - if (class == 'e' || class == '1' - || class == '2' || class == '<') - C_SET_EXP_ORIGINAL_CODE ($$, MODIFY_EXPR); - } - | expr_no_commas ASSIGN expr_no_commas - { char class; - $$ = build_modify_expr ($1, $2, $3); - /* This inhibits warnings in truthvalue_conversion. */ - class = TREE_CODE_CLASS (TREE_CODE ($$)); - if (class == 'e' || class == '1' - || class == '2' || class == '<') - C_SET_EXP_ORIGINAL_CODE ($$, ERROR_MARK); - } - ; - -primary: - IDENTIFIER - { - $$ = lastiddecl; - if (!$$ || $$ == error_mark_node) - { - if (yychar == YYEMPTY) - yychar = YYLEX; - if (yychar == '(') - { - tree decl; - - if (objc_receiver_context - && ! (objc_receiver_context - && strcmp (IDENTIFIER_POINTER ($1), "super"))) - /* we have a message to super */ - $$ = get_super_receiver (); - else if (objc_method_context - && (decl = is_ivar (objc_ivar_chain, $1))) - { - if (is_private (decl)) - $$ = error_mark_node; - else - $$ = build_ivar_reference ($1); - } - else - { - /* Ordinary implicit function declaration. */ - $$ = implicitly_declare ($1); - assemble_external ($$); - TREE_USED ($$) = 1; - } - } - else if (current_function_decl == 0) - { - error ("`%s' undeclared here (not in a function)", - IDENTIFIER_POINTER ($1)); - $$ = error_mark_node; - } - else - { - tree decl; - - if (objc_receiver_context - && ! strcmp (IDENTIFIER_POINTER ($1), "super")) - /* we have a message to super */ - $$ = get_super_receiver (); - else if (objc_method_context - && (decl = is_ivar (objc_ivar_chain, $1))) - { - if (is_private (decl)) - $$ = error_mark_node; - else - $$ = build_ivar_reference ($1); - } - else - { - if (IDENTIFIER_GLOBAL_VALUE ($1) != error_mark_node - || IDENTIFIER_ERROR_LOCUS ($1) != current_function_decl) - { - error ("`%s' undeclared (first use in this function)", - IDENTIFIER_POINTER ($1)); - - if (! undeclared_variable_notice) - { - error ("(Each undeclared identifier is reported only once"); - error ("for each function it appears in.)"); - undeclared_variable_notice = 1; - } - } - $$ = error_mark_node; - /* Prevent repeated error messages. */ - IDENTIFIER_GLOBAL_VALUE ($1) = error_mark_node; - IDENTIFIER_ERROR_LOCUS ($1) = current_function_decl; - } - } - } - else if (TREE_TYPE ($$) == error_mark_node) - $$ = error_mark_node; - else if (C_DECL_ANTICIPATED ($$)) - { - /* The first time we see a build-in function used, - if it has not been declared. */ - C_DECL_ANTICIPATED ($$) = 0; - if (yychar == YYEMPTY) - yychar = YYLEX; - if (yychar == '(') - { - /* Omit the implicit declaration we - would ordinarily do, so we don't lose - the actual built in type. - But print a diagnostic for the mismatch. */ - if (objc_method_context - && is_ivar (objc_ivar_chain, $1)) - error ("Instance variable `%s' implicitly declared as function", - IDENTIFIER_POINTER (DECL_NAME ($$))); - else - if (TREE_CODE ($$) != FUNCTION_DECL) - error ("`%s' implicitly declared as function", - IDENTIFIER_POINTER (DECL_NAME ($$))); - else if ((TYPE_MODE (TREE_TYPE (TREE_TYPE ($$))) - != TYPE_MODE (integer_type_node)) - && (TREE_TYPE (TREE_TYPE ($$)) - != void_type_node)) - pedwarn ("type mismatch in implicit declaration for built-in function `%s'", - IDENTIFIER_POINTER (DECL_NAME ($$))); - /* If it really returns void, change that to int. */ - if (TREE_TYPE (TREE_TYPE ($$)) == void_type_node) - TREE_TYPE ($$) - = build_function_type (integer_type_node, - TYPE_ARG_TYPES (TREE_TYPE ($$))); - } - else - pedwarn ("built-in function `%s' used without declaration", - IDENTIFIER_POINTER (DECL_NAME ($$))); - - /* Do what we would ordinarily do when a fn is used. */ - assemble_external ($$); - TREE_USED ($$) = 1; - } - else - { - assemble_external ($$); - TREE_USED ($$) = 1; - /* we have a definition - still check if iVariable */ - - if (!objc_receiver_context - || (objc_receiver_context - && strcmp (IDENTIFIER_POINTER ($1), "super"))) - { - tree decl; - - if (objc_method_context - && (decl = is_ivar (objc_ivar_chain, $1))) - { - if (IDENTIFIER_LOCAL_VALUE ($1)) - warning ("local declaration of `%s' hides instance variable", - IDENTIFIER_POINTER ($1)); - else - { - if (is_private (decl)) - $$ = error_mark_node; - else - $$ = build_ivar_reference ($1); - } - } - } - else /* we have a message to super */ - $$ = get_super_receiver (); - } - - if (TREE_CODE ($$) == CONST_DECL) - { - $$ = DECL_INITIAL ($$); - /* This is to prevent an enum whose value is 0 - from being considered a null pointer constant. */ - $$ = build1 (NOP_EXPR, TREE_TYPE ($$), $$); - TREE_CONSTANT ($$) = 1; - } - } - | CONSTANT - | string - { $$ = combine_strings ($1); } - | '(' expr ')' - { char class = TREE_CODE_CLASS (TREE_CODE ($2)); - if (class == 'e' || class == '1' - || class == '2' || class == '<') - C_SET_EXP_ORIGINAL_CODE ($2, ERROR_MARK); - $$ = $2; } - | '(' error ')' - { $$ = error_mark_node; } - | '(' - { if (current_function_decl == 0) - { - error ("braced-group within expression allowed only inside a function"); - YYERROR; - } - /* We must force a BLOCK for this level - so that, if it is not expanded later, - there is a way to turn off the entire subtree of blocks - that are contained in it. */ - keep_next_level (); - push_iterator_stack (); - push_label_level (); - $<ttype>$ = expand_start_stmt_expr (); } - compstmt ')' - { tree rtl_exp; - if (pedantic) - pedwarn ("ANSI C forbids braced-groups within expressions"); - pop_iterator_stack (); - pop_label_level (); - rtl_exp = expand_end_stmt_expr ($<ttype>2); - /* The statements have side effects, so the group does. */ - TREE_SIDE_EFFECTS (rtl_exp) = 1; - - if (TREE_CODE ($3) == BLOCK) - { - /* Make a BIND_EXPR for the BLOCK already made. */ - $$ = build (BIND_EXPR, TREE_TYPE (rtl_exp), - NULL_TREE, rtl_exp, $3); - /* Remove the block from the tree at this point. - It gets put back at the proper place - when the BIND_EXPR is expanded. */ - delete_block ($3); - } - else - $$ = $3; - } - | primary '(' exprlist ')' %prec '.' - { $$ = build_function_call ($1, $3); } - | primary '[' expr ']' %prec '.' - { $$ = build_array_ref ($1, $3); } - | primary '.' identifier - { - if (doing_objc_thang) - { - if (is_public ($1, $3)) - $$ = build_component_ref ($1, $3); - else - $$ = error_mark_node; - } - else - $$ = build_component_ref ($1, $3); - } - | primary POINTSAT identifier - { - tree expr = build_indirect_ref ($1, "->"); - - if (doing_objc_thang) - { - if (is_public (expr, $3)) - $$ = build_component_ref (expr, $3); - else - $$ = error_mark_node; - } - else - $$ = build_component_ref (expr, $3); - } - | primary PLUSPLUS - { $$ = build_unary_op (POSTINCREMENT_EXPR, $1, 0); } - | primary MINUSMINUS - { $$ = build_unary_op (POSTDECREMENT_EXPR, $1, 0); } - | objcmessageexpr - { $$ = build_message_expr ($1); } - | objcselectorexpr - { $$ = build_selector_expr ($1); } - | objcprotocolexpr - { $$ = build_protocol_expr ($1); } - | objcencodeexpr - { $$ = build_encode_expr ($1); } - | objc_string - { $$ = build_objc_string_object ($1); } - ; - -/* Produces a STRING_CST with perhaps more STRING_CSTs chained onto it. */ -string: - STRING - | string STRING - { $$ = chainon ($1, $2); } - ; - -/* Produces an OBJC_STRING_CST with perhaps more OBJC_STRING_CSTs chained - onto it. */ -objc_string: - OBJC_STRING - | objc_string OBJC_STRING - { $$ = chainon ($1, $2); } - ; - -old_style_parm_decls: - /* empty */ - | datadecls - | datadecls ELLIPSIS - /* ... is used here to indicate a varargs function. */ - { c_mark_varargs (); - if (pedantic) - pedwarn ("ANSI C does not permit use of `varargs.h'"); } - ; - -/* The following are analogous to lineno_decl, decls and decl - except that they do not allow nested functions. - They are used for old-style parm decls. */ -lineno_datadecl: - save_filename save_lineno datadecl - { } - ; - -datadecls: - lineno_datadecl - | errstmt - | datadecls lineno_datadecl - | lineno_datadecl errstmt - ; - -/* We don't allow prefix attributes here because they cause reduce/reduce - conflicts: we can't know whether we're parsing a function decl with - attribute suffix, or function defn with attribute prefix on first old - style parm. */ -datadecl: - typed_declspecs_no_prefix_attr setspecs initdecls ';' - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | declmods_no_prefix_attr setspecs notype_initdecls ';' - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs_no_prefix_attr ';' - { shadow_tag_warned ($1, 1); - pedwarn ("empty declaration"); } - | declmods_no_prefix_attr ';' - { pedwarn ("empty declaration"); } - ; - -/* This combination which saves a lineno before a decl - is the normal thing to use, rather than decl itself. - This is to avoid shift/reduce conflicts in contexts - where statement labels are allowed. */ -lineno_decl: - save_filename save_lineno decl - { } - ; - -decls: - lineno_decl - | errstmt - | decls lineno_decl - | lineno_decl errstmt - ; - -/* records the type and storage class specs to use for processing - the declarators that follow. - Maintains a stack of outer-level values of current_declspecs, - for the sake of parm declarations nested in function declarators. */ -setspecs: /* empty */ - { $$ = suspend_momentary (); - pending_xref_error (); - declspec_stack = tree_cons (prefix_attributes, - current_declspecs, - declspec_stack); - split_specs_attrs ($<ttype>0, - ¤t_declspecs, &prefix_attributes); } - ; - -/* ??? Yuck. See after_type_declarator. */ -setattrs: /* empty */ - { prefix_attributes = chainon (prefix_attributes, $<ttype>0); } - ; - -decl: - typed_declspecs setspecs initdecls ';' - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | declmods setspecs notype_initdecls ';' - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs setspecs nested_function - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | declmods setspecs notype_nested_function - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs ';' - { shadow_tag ($1); } - | declmods ';' - { pedwarn ("empty declaration"); } - | extension decl - { pedantic = $<itype>1; } - ; - -/* Declspecs which contain at least one type specifier or typedef name. - (Just `const' or `volatile' is not enough.) - A typedef'd name following these is taken as a name to be declared. - Declspecs have a non-NULL TREE_VALUE, attributes do not. */ - -typed_declspecs: - typespec reserved_declspecs - { $$ = tree_cons (NULL_TREE, $1, $2); } - | declmods typespec reserved_declspecs - { $$ = chainon ($3, tree_cons (NULL_TREE, $2, $1)); } - ; - -reserved_declspecs: /* empty */ - { $$ = NULL_TREE; } - | reserved_declspecs typespecqual_reserved - { $$ = tree_cons (NULL_TREE, $2, $1); } - | reserved_declspecs SCSPEC - { if (extra_warnings) - warning ("`%s' is not at beginning of declaration", - IDENTIFIER_POINTER ($2)); - $$ = tree_cons (NULL_TREE, $2, $1); } - | reserved_declspecs attributes - { $$ = tree_cons ($2, NULL_TREE, $1); } - ; - -typed_declspecs_no_prefix_attr: - typespec reserved_declspecs_no_prefix_attr - { $$ = tree_cons (NULL_TREE, $1, $2); } - | declmods_no_prefix_attr typespec reserved_declspecs_no_prefix_attr - { $$ = chainon ($3, tree_cons (NULL_TREE, $2, $1)); } - ; - -reserved_declspecs_no_prefix_attr: - /* empty */ - { $$ = NULL_TREE; } - | reserved_declspecs_no_prefix_attr typespecqual_reserved - { $$ = tree_cons (NULL_TREE, $2, $1); } - | reserved_declspecs_no_prefix_attr SCSPEC - { if (extra_warnings) - warning ("`%s' is not at beginning of declaration", - IDENTIFIER_POINTER ($2)); - $$ = tree_cons (NULL_TREE, $2, $1); } - ; - -/* List of just storage classes, type modifiers, and prefix attributes. - A declaration can start with just this, but then it cannot be used - to redeclare a typedef-name. - Declspecs have a non-NULL TREE_VALUE, attributes do not. */ - -declmods: - declmods_no_prefix_attr - { $$ = $1; } - | attributes - { $$ = tree_cons ($1, NULL_TREE, NULL_TREE); } - | declmods declmods_no_prefix_attr - { $$ = chainon ($2, $1); } - | declmods attributes - { $$ = tree_cons ($2, NULL_TREE, $1); } - ; - -declmods_no_prefix_attr: - TYPE_QUAL - { $$ = tree_cons (NULL_TREE, $1, NULL_TREE); - TREE_STATIC ($$) = 1; } - | SCSPEC - { $$ = tree_cons (NULL_TREE, $1, NULL_TREE); } - | declmods_no_prefix_attr TYPE_QUAL - { $$ = tree_cons (NULL_TREE, $2, $1); - TREE_STATIC ($$) = 1; } - | declmods_no_prefix_attr SCSPEC - { if (extra_warnings && TREE_STATIC ($1)) - warning ("`%s' is not at beginning of declaration", - IDENTIFIER_POINTER ($2)); - $$ = tree_cons (NULL_TREE, $2, $1); - TREE_STATIC ($$) = TREE_STATIC ($1); } - ; - - -/* Used instead of declspecs where storage classes are not allowed - (that is, for typenames and structure components). - Don't accept a typedef-name if anything but a modifier precedes it. */ - -typed_typespecs: - typespec reserved_typespecquals - { $$ = tree_cons (NULL_TREE, $1, $2); } - | nonempty_type_quals typespec reserved_typespecquals - { $$ = chainon ($3, tree_cons (NULL_TREE, $2, $1)); } - ; - -reserved_typespecquals: /* empty */ - { $$ = NULL_TREE; } - | reserved_typespecquals typespecqual_reserved - { $$ = tree_cons (NULL_TREE, $2, $1); } - ; - -/* A typespec (but not a type qualifier). - Once we have seen one of these in a declaration, - if a typedef name appears then it is being redeclared. */ - -typespec: TYPESPEC - | structsp - | TYPENAME - { /* For a typedef name, record the meaning, not the name. - In case of `foo foo, bar;'. */ - $$ = lookup_name ($1); } - | CLASSNAME protocolrefs - { $$ = get_static_reference ($1, $2); } - | OBJECTNAME protocolrefs - { $$ = get_object_reference ($2); } - -/* Make "<SomeProtocol>" equivalent to "id <SomeProtocol>" - - nisse@lysator.liu.se */ - | non_empty_protocolrefs - { $$ = get_object_reference ($1); } - | TYPEOF '(' expr ')' - { $$ = TREE_TYPE ($3); } - | TYPEOF '(' typename ')' - { $$ = groktypename ($3); } - ; - -/* A typespec that is a reserved word, or a type qualifier. */ - -typespecqual_reserved: TYPESPEC - | TYPE_QUAL - | structsp - ; - -initdecls: - initdcl - | initdecls ',' initdcl - ; - -notype_initdecls: - notype_initdcl - | notype_initdecls ',' initdcl - ; - -maybeasm: - /* empty */ - { $$ = NULL_TREE; } - | ASM_KEYWORD '(' string ')' - { if (TREE_CHAIN ($3)) $3 = combine_strings ($3); - $$ = $3; - } - ; - -initdcl: - declarator maybeasm maybe_attribute '=' - { $<ttype>$ = start_decl ($1, current_declspecs, 1, - $3, prefix_attributes); - start_init ($<ttype>$, $2, global_bindings_p ()); } - init -/* Note how the declaration of the variable is in effect while its init is parsed! */ - { finish_init (); - finish_decl ($<ttype>5, $6, $2); } - | declarator maybeasm maybe_attribute - { tree d = start_decl ($1, current_declspecs, 0, - $3, prefix_attributes); - finish_decl (d, NULL_TREE, $2); - } - ; - -notype_initdcl: - notype_declarator maybeasm maybe_attribute '=' - { $<ttype>$ = start_decl ($1, current_declspecs, 1, - $3, prefix_attributes); - start_init ($<ttype>$, $2, global_bindings_p ()); } - init -/* Note how the declaration of the variable is in effect while its init is parsed! */ - { finish_init (); - decl_attributes ($<ttype>5, $3, prefix_attributes); - finish_decl ($<ttype>5, $6, $2); } - | notype_declarator maybeasm maybe_attribute - { tree d = start_decl ($1, current_declspecs, 0, - $3, prefix_attributes); - finish_decl (d, NULL_TREE, $2); } - ; -/* the * rules are dummies to accept the Apollo extended syntax - so that the header files compile. */ -maybe_attribute: - /* empty */ - { $$ = NULL_TREE; } - | attributes - { $$ = $1; } - ; - -attributes: - attribute - { $$ = $1; } - | attributes attribute - { $$ = chainon ($1, $2); } - ; - -attribute: - ATTRIBUTE '(' '(' attribute_list ')' ')' - { $$ = $4; } - ; - -attribute_list: - attrib - { $$ = $1; } - | attribute_list ',' attrib - { $$ = chainon ($1, $3); } - ; - -attrib: - /* empty */ - { $$ = NULL_TREE; } - | any_word - { $$ = build_tree_list ($1, NULL_TREE); } - | any_word '(' IDENTIFIER ')' - { $$ = build_tree_list ($1, build_tree_list (NULL_TREE, $3)); } - | any_word '(' IDENTIFIER ',' nonnull_exprlist ')' - { $$ = build_tree_list ($1, tree_cons (NULL_TREE, $3, $5)); } - | any_word '(' exprlist ')' - { $$ = build_tree_list ($1, $3); } - ; - -/* This still leaves out most reserved keywords, - shouldn't we include them? */ - -any_word: - identifier - | SCSPEC - | TYPESPEC - | TYPE_QUAL - ; - -/* Initializers. `init' is the entry point. */ - -init: - expr_no_commas - | '{' - { really_start_incremental_init (NULL_TREE); - /* Note that the call to clear_momentary - is in process_init_element. */ - push_momentary (); } - initlist_maybe_comma '}' - { $$ = pop_init_level (0); - if ($$ == error_mark_node - && ! (yychar == STRING || yychar == CONSTANT)) - pop_momentary (); - else - pop_momentary_nofree (); } - - | error - { $$ = error_mark_node; } - ; - -/* `initlist_maybe_comma' is the guts of an initializer in braces. */ -initlist_maybe_comma: - /* empty */ - { if (pedantic) - pedwarn ("ANSI C forbids empty initializer braces"); } - | initlist1 maybecomma - ; - -initlist1: - initelt - | initlist1 ',' initelt - ; - -/* `initelt' is a single element of an initializer. - It may use braces. */ -initelt: - designator_list '=' initval - | designator initval - | identifier ':' - { set_init_label ($1); } - initval - | initval - ; - -initval: - '{' - { push_init_level (0); } - initlist_maybe_comma '}' - { process_init_element (pop_init_level (0)); } - | expr_no_commas - { process_init_element ($1); } - | error - ; - -designator_list: - designator - | designator_list designator - ; - -designator: - '.' identifier - { set_init_label ($2); } - /* These are for labeled elements. The syntax for an array element - initializer conflicts with the syntax for an Objective-C message, - so don't include these productions in the Objective-C grammar. */ - ; - -nested_function: - declarator - { push_c_function_context (); - if (! start_function (current_declspecs, $1, - prefix_attributes, NULL_TREE, 1)) - { - pop_c_function_context (); - YYERROR1; - } - reinit_parse_for_function (); } - old_style_parm_decls - { store_parm_decls (); } -/* This used to use compstmt_or_error. - That caused a bug with input `f(g) int g {}', - where the use of YYERROR1 above caused an error - which then was handled by compstmt_or_error. - There followed a repeated execution of that same rule, - which called YYERROR1 again, and so on. */ - compstmt - { finish_function (1); - pop_c_function_context (); } - ; - -notype_nested_function: - notype_declarator - { push_c_function_context (); - if (! start_function (current_declspecs, $1, - prefix_attributes, NULL_TREE, 1)) - { - pop_c_function_context (); - YYERROR1; - } - reinit_parse_for_function (); } - old_style_parm_decls - { store_parm_decls (); } -/* This used to use compstmt_or_error. - That caused a bug with input `f(g) int g {}', - where the use of YYERROR1 above caused an error - which then was handled by compstmt_or_error. - There followed a repeated execution of that same rule, - which called YYERROR1 again, and so on. */ - compstmt - { finish_function (1); - pop_c_function_context (); } - ; - -/* Any kind of declarator (thus, all declarators allowed - after an explicit typespec). */ - -declarator: - after_type_declarator - | notype_declarator - ; - -/* A declarator that is allowed only after an explicit typespec. */ - -after_type_declarator: - '(' after_type_declarator ')' - { $$ = $2; } - | after_type_declarator '(' parmlist_or_identifiers %prec '.' - { $$ = build_nt (CALL_EXPR, $1, $3, NULL_TREE); } -/* | after_type_declarator '(' error ')' %prec '.' - { $$ = build_nt (CALL_EXPR, $1, NULL_TREE, NULL_TREE); - poplevel (0, 0, 0); } */ - | after_type_declarator '[' expr ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, $3); } - | after_type_declarator '[' ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, NULL_TREE); } - | '*' type_quals after_type_declarator %prec UNARY - { $$ = make_pointer_declarator ($2, $3); } - /* ??? Yuck. setattrs is a quick hack. We can't use - prefix_attributes because $1 only applies to this - declarator. We assume setspecs has already been done. - setattrs also avoids 5 reduce/reduce conflicts (otherwise multiple - attributes could be recognized here or in `attributes'). */ - | attributes setattrs after_type_declarator - { $$ = $3; } - | TYPENAME - | OBJECTNAME - ; - -/* Kinds of declarator that can appear in a parameter list - in addition to notype_declarator. This is like after_type_declarator - but does not allow a typedef name in parentheses as an identifier - (because it would conflict with a function with that typedef as arg). */ - -parm_declarator: - parm_declarator '(' parmlist_or_identifiers %prec '.' - { $$ = build_nt (CALL_EXPR, $1, $3, NULL_TREE); } -/* | parm_declarator '(' error ')' %prec '.' - { $$ = build_nt (CALL_EXPR, $1, NULL_TREE, NULL_TREE); - poplevel (0, 0, 0); } */ - | parm_declarator '[' expr ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, $3); } - | parm_declarator '[' ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, NULL_TREE); } - | '*' type_quals parm_declarator %prec UNARY - { $$ = make_pointer_declarator ($2, $3); } - /* ??? Yuck. setattrs is a quick hack. We can't use - prefix_attributes because $1 only applies to this - declarator. We assume setspecs has already been done. - setattrs also avoids 5 reduce/reduce conflicts (otherwise multiple - attributes could be recognized here or in `attributes'). */ - | attributes setattrs parm_declarator - { $$ = $3; } - | TYPENAME - ; - -/* A declarator allowed whether or not there has been - an explicit typespec. These cannot redeclare a typedef-name. */ - -notype_declarator: - notype_declarator '(' parmlist_or_identifiers %prec '.' - { $$ = build_nt (CALL_EXPR, $1, $3, NULL_TREE); } -/* | notype_declarator '(' error ')' %prec '.' - { $$ = build_nt (CALL_EXPR, $1, NULL_TREE, NULL_TREE); - poplevel (0, 0, 0); } */ - | '(' notype_declarator ')' - { $$ = $2; } - | '*' type_quals notype_declarator %prec UNARY - { $$ = make_pointer_declarator ($2, $3); } - | notype_declarator '[' expr ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, $3); } - | notype_declarator '[' ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, NULL_TREE); } - /* ??? Yuck. setattrs is a quick hack. We can't use - prefix_attributes because $1 only applies to this - declarator. We assume setspecs has already been done. - setattrs also avoids 5 reduce/reduce conflicts (otherwise multiple - attributes could be recognized here or in `attributes'). */ - | attributes setattrs notype_declarator - { $$ = $3; } - | IDENTIFIER - ; - -struct_head: - STRUCT - { $$ = NULL_TREE; } - | STRUCT attributes - { $$ = $2; } - ; - -union_head: - UNION - { $$ = NULL_TREE; } - | UNION attributes - { $$ = $2; } - ; - -enum_head: - ENUM - { $$ = NULL_TREE; } - | ENUM attributes - { $$ = $2; } - ; - -structsp: - struct_head identifier '{' - { $$ = start_struct (RECORD_TYPE, $2); - /* Start scope of tag before parsing components. */ - } - component_decl_list '}' maybe_attribute - { $$ = finish_struct ($<ttype>4, $5, chainon ($1, $7)); } - | struct_head '{' component_decl_list '}' maybe_attribute - { $$ = finish_struct (start_struct (RECORD_TYPE, NULL_TREE), - $3, chainon ($1, $5)); - } - | struct_head identifier - { $$ = xref_tag (RECORD_TYPE, $2); } - | union_head identifier '{' - { $$ = start_struct (UNION_TYPE, $2); } - component_decl_list '}' maybe_attribute - { $$ = finish_struct ($<ttype>4, $5, chainon ($1, $7)); } - | union_head '{' component_decl_list '}' maybe_attribute - { $$ = finish_struct (start_struct (UNION_TYPE, NULL_TREE), - $3, chainon ($1, $5)); - } - | union_head identifier - { $$ = xref_tag (UNION_TYPE, $2); } - | enum_head identifier '{' - { $<itype>3 = suspend_momentary (); - $$ = start_enum ($2); } - enumlist maybecomma_warn '}' maybe_attribute - { $$= finish_enum ($<ttype>4, nreverse ($5), chainon ($1, $8)); - resume_momentary ($<itype>3); } - | enum_head '{' - { $<itype>2 = suspend_momentary (); - $$ = start_enum (NULL_TREE); } - enumlist maybecomma_warn '}' maybe_attribute - { $$= finish_enum ($<ttype>3, nreverse ($4), chainon ($1, $7)); - resume_momentary ($<itype>2); } - | enum_head identifier - { $$ = xref_tag (ENUMERAL_TYPE, $2); } - ; - -maybecomma: - /* empty */ - | ',' - ; - -maybecomma_warn: - /* empty */ - | ',' - { if (pedantic && ! flag_isoc9x) - pedwarn ("comma at end of enumerator list"); } - ; - -component_decl_list: - component_decl_list2 - { $$ = $1; } - | component_decl_list2 component_decl - { $$ = chainon ($1, $2); - pedwarn ("no semicolon at end of struct or union"); } - ; - -component_decl_list2: /* empty */ - { $$ = NULL_TREE; } - | component_decl_list2 component_decl ';' - { $$ = chainon ($1, $2); } - | component_decl_list2 ';' - { if (pedantic) - pedwarn ("extra semicolon in struct or union specified"); } - /* foo(sizeof(struct{ @defs(ClassName)})); */ - | DEFS '(' CLASSNAME ')' - { - tree interface = lookup_interface ($3); - - if (interface) - $$ = get_class_ivars (interface); - else - { - error ("Cannot find interface declaration for `%s'", - IDENTIFIER_POINTER ($3)); - $$ = NULL_TREE; - } - } - ; - -/* There is a shift-reduce conflict here, because `components' may - start with a `typename'. It happens that shifting (the default resolution) - does the right thing, because it treats the `typename' as part of - a `typed_typespecs'. - - It is possible that this same technique would allow the distinction - between `notype_initdecls' and `initdecls' to be eliminated. - But I am being cautious and not trying it. */ - -component_decl: - typed_typespecs setspecs components - { $$ = $3; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_typespecs - { if (pedantic) - pedwarn ("ANSI C forbids member declarations with no members"); - shadow_tag($1); - $$ = NULL_TREE; } - | nonempty_type_quals setspecs components - { $$ = $3; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | nonempty_type_quals - { if (pedantic) - pedwarn ("ANSI C forbids member declarations with no members"); - shadow_tag($1); - $$ = NULL_TREE; } - | error - { $$ = NULL_TREE; } - | extension component_decl - { $$ = $2; - pedantic = $<itype>1; } - ; - -components: - component_declarator - | components ',' component_declarator - { $$ = chainon ($1, $3); } - ; - -component_declarator: - save_filename save_lineno declarator maybe_attribute - { $$ = grokfield ($1, $2, $3, current_declspecs, NULL_TREE); - decl_attributes ($$, $4, prefix_attributes); } - | save_filename save_lineno - declarator ':' expr_no_commas maybe_attribute - { $$ = grokfield ($1, $2, $3, current_declspecs, $5); - decl_attributes ($$, $6, prefix_attributes); } - | save_filename save_lineno ':' expr_no_commas maybe_attribute - { $$ = grokfield ($1, $2, NULL_TREE, current_declspecs, $4); - decl_attributes ($$, $5, prefix_attributes); } - ; - -/* We chain the enumerators in reverse order. - They are put in forward order where enumlist is used. - (The order used to be significant, but no longer is so. - However, we still maintain the order, just to be clean.) */ - -enumlist: - enumerator - | enumlist ',' enumerator - { if ($1 == error_mark_node) - $$ = $1; - else - $$ = chainon ($3, $1); } - | error - { $$ = error_mark_node; } - ; - - -enumerator: - identifier - { $$ = build_enumerator ($1, NULL_TREE); } - | identifier '=' expr_no_commas - { $$ = build_enumerator ($1, $3); } - ; - -typename: - typed_typespecs absdcl - { $$ = build_tree_list ($1, $2); } - | nonempty_type_quals absdcl - { $$ = build_tree_list ($1, $2); } - ; - -absdcl: /* an absolute declarator */ - /* empty */ - { $$ = NULL_TREE; } - | absdcl1 - ; - -nonempty_type_quals: - TYPE_QUAL - { $$ = tree_cons (NULL_TREE, $1, NULL_TREE); } - | nonempty_type_quals TYPE_QUAL - { $$ = tree_cons (NULL_TREE, $2, $1); } - ; - -type_quals: - /* empty */ - { $$ = NULL_TREE; } - | type_quals TYPE_QUAL - { $$ = tree_cons (NULL_TREE, $2, $1); } - ; - -absdcl1: /* a nonempty absolute declarator */ - '(' absdcl1 ')' - { $$ = $2; } - /* `(typedef)1' is `int'. */ - | '*' type_quals absdcl1 %prec UNARY - { $$ = make_pointer_declarator ($2, $3); } - | '*' type_quals %prec UNARY - { $$ = make_pointer_declarator ($2, NULL_TREE); } - | absdcl1 '(' parmlist %prec '.' - { $$ = build_nt (CALL_EXPR, $1, $3, NULL_TREE); } - | absdcl1 '[' expr ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, $3); } - | absdcl1 '[' ']' %prec '.' - { $$ = build_nt (ARRAY_REF, $1, NULL_TREE); } - | '(' parmlist %prec '.' - { $$ = build_nt (CALL_EXPR, NULL_TREE, $2, NULL_TREE); } - | '[' expr ']' %prec '.' - { $$ = build_nt (ARRAY_REF, NULL_TREE, $2); } - | '[' ']' %prec '.' - { $$ = build_nt (ARRAY_REF, NULL_TREE, NULL_TREE); } - /* ??? It appears we have to support attributes here, however - using prefix_attributes is wrong. */ - | attributes setattrs absdcl1 - { $$ = $3; } - ; - -/* at least one statement, the first of which parses without error. */ -/* stmts is used only after decls, so an invalid first statement - is actually regarded as an invalid decl and part of the decls. */ - -stmts: - lineno_stmt_or_labels - { - if (pedantic && $1) - pedwarn ("ANSI C forbids label at end of compound statement"); - } - ; - -lineno_stmt_or_labels: - lineno_stmt_or_label - | lineno_stmt_or_labels lineno_stmt_or_label - { $$ = $2; } - | lineno_stmt_or_labels errstmt - { $$ = 0; } - ; - -xstmts: - /* empty */ - | stmts - ; - -errstmt: error ';' - ; - -pushlevel: /* empty */ - { emit_line_note (input_filename, lineno); - pushlevel (0); - clear_last_expr (); - push_momentary (); - expand_start_bindings (0); - if (objc_method_context) - add_objc_decls (); - } - ; - -/* Read zero or more forward-declarations for labels - that nested functions can jump to. */ -maybe_label_decls: - /* empty */ - | label_decls - { if (pedantic) - pedwarn ("ANSI C forbids label declarations"); } - ; - -label_decls: - label_decl - | label_decls label_decl - ; - -label_decl: - LABEL identifiers_or_typenames ';' - { tree link; - for (link = $2; link; link = TREE_CHAIN (link)) - { - tree label = shadow_label (TREE_VALUE (link)); - C_DECLARED_LABEL_FLAG (label) = 1; - declare_nonlocal_label (label); - } - } - ; - -/* This is the body of a function definition. - It causes syntax errors to ignore to the next openbrace. */ -compstmt_or_error: - compstmt - {} - | error compstmt - ; - -compstmt_start: '{' { compstmt_count++; } - -compstmt: compstmt_start '}' - { $$ = convert (void_type_node, integer_zero_node); } - | compstmt_start pushlevel maybe_label_decls decls xstmts '}' - { emit_line_note (input_filename, lineno); - expand_end_bindings (getdecls (), 1, 0); - $$ = poplevel (1, 1, 0); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); } - | compstmt_start pushlevel maybe_label_decls error '}' - { emit_line_note (input_filename, lineno); - expand_end_bindings (getdecls (), kept_level_p (), 0); - $$ = poplevel (kept_level_p (), 0, 0); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); } - | compstmt_start pushlevel maybe_label_decls stmts '}' - { emit_line_note (input_filename, lineno); - expand_end_bindings (getdecls (), kept_level_p (), 0); - $$ = poplevel (kept_level_p (), 0, 0); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); } - ; - -/* Value is number of statements counted as of the closeparen. */ -simple_if: - if_prefix lineno_labeled_stmt -/* Make sure c_expand_end_cond is run once - for each call to c_expand_start_cond. - Otherwise a crash is likely. */ - | if_prefix error - ; - -if_prefix: - IF '(' expr ')' - { emit_line_note ($<filename>-1, $<lineno>0); - c_expand_start_cond (truthvalue_conversion ($3), 0, - compstmt_count); - $<itype>$ = stmt_count; - if_stmt_file = $<filename>-1; - if_stmt_line = $<lineno>0; - position_after_white_space (); } - ; - -/* This is a subroutine of stmt. - It is used twice, once for valid DO statements - and once for catching errors in parsing the end test. */ -do_stmt_start: - DO - { stmt_count++; - compstmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - /* See comment in `while' alternative, above. */ - emit_nop (); - expand_start_loop_continue_elsewhere (1); - position_after_white_space (); } - lineno_labeled_stmt WHILE - { expand_loop_continue_here (); } - ; - -save_filename: - { $$ = input_filename; } - ; - -save_lineno: - { $$ = lineno; } - ; - -lineno_labeled_stmt: - save_filename save_lineno stmt - { } -/* | save_filename save_lineno error - { } -*/ - | save_filename save_lineno label lineno_labeled_stmt - { } - ; - -lineno_stmt_or_label: - save_filename save_lineno stmt_or_label - { $$ = $3; } - ; - -stmt_or_label: - stmt - { $$ = 0; } - | label - { $$ = 1; } - ; - -/* Parse a single real statement, not including any labels. */ -stmt: - compstmt - { stmt_count++; } - | all_iter_stmt - | expr ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); -/* It appears that this should not be done--that a non-lvalue array - shouldn't get an error if the value isn't used. - Section 3.2.2.1 says that an array lvalue gets converted to a pointer - if it appears as a top-level expression, - but says nothing about non-lvalue arrays. */ -#if 0 - /* Call default_conversion to get an error - on referring to a register array if pedantic. */ - if (TREE_CODE (TREE_TYPE ($1)) == ARRAY_TYPE - || TREE_CODE (TREE_TYPE ($1)) == FUNCTION_TYPE) - $1 = default_conversion ($1); -#endif - iterator_expand ($1); - clear_momentary (); } - | simple_if ELSE - { c_expand_start_else (); - $<itype>1 = stmt_count; - position_after_white_space (); } - lineno_labeled_stmt - { c_expand_end_cond (); - if (extra_warnings && stmt_count == $<itype>1) - warning ("empty body in an else-statement"); } - | simple_if %prec IF - { c_expand_end_cond (); - /* This warning is here instead of in simple_if, because we - do not want a warning if an empty if is followed by an - else statement. Increment stmt_count so we don't - give a second error if this is a nested `if'. */ - if (extra_warnings && stmt_count++ == $<itype>1) - warning_with_file_and_line (if_stmt_file, if_stmt_line, - "empty body in an if-statement"); } -/* Make sure c_expand_end_cond is run once - for each call to c_expand_start_cond. - Otherwise a crash is likely. */ - | simple_if ELSE error - { c_expand_end_cond (); } - | WHILE - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - /* The emit_nop used to come before emit_line_note, - but that made the nop seem like part of the preceding line. - And that was confusing when the preceding line was - inside of an if statement and was not really executed. - I think it ought to work to put the nop after the line number. - We will see. --rms, July 15, 1991. */ - emit_nop (); } - '(' expr ')' - { /* Don't start the loop till we have succeeded - in parsing the end test. This is to make sure - that we end every loop we start. */ - expand_start_loop (1); - emit_line_note (input_filename, lineno); - expand_exit_loop_if_false (NULL_PTR, - truthvalue_conversion ($4)); - position_after_white_space (); } - lineno_labeled_stmt - { expand_end_loop (); } - | do_stmt_start - '(' expr ')' ';' - { emit_line_note (input_filename, lineno); - expand_exit_loop_if_false (NULL_PTR, - truthvalue_conversion ($3)); - expand_end_loop (); - clear_momentary (); } -/* This rule is needed to make sure we end every loop we start. */ - | do_stmt_start error - { expand_end_loop (); - clear_momentary (); } - | FOR - '(' xexpr ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - /* See comment in `while' alternative, above. */ - emit_nop (); - if ($3) c_expand_expr_stmt ($3); - /* Next step is to call expand_start_loop_continue_elsewhere, - but wait till after we parse the entire for (...). - Otherwise, invalid input might cause us to call that - fn without calling expand_end_loop. */ - } - xexpr ';' - /* Can't emit now; wait till after expand_start_loop... */ - { $<lineno>7 = lineno; - $<filename>$ = input_filename; } - xexpr ')' - { - /* Start the loop. Doing this after parsing - all the expressions ensures we will end the loop. */ - expand_start_loop_continue_elsewhere (1); - /* Emit the end-test, with a line number. */ - emit_line_note ($<filename>8, $<lineno>7); - if ($6) - expand_exit_loop_if_false (NULL_PTR, - truthvalue_conversion ($6)); - /* Don't let the tree nodes for $9 be discarded by - clear_momentary during the parsing of the next stmt. */ - push_momentary (); - $<lineno>7 = lineno; - $<filename>8 = input_filename; - position_after_white_space (); } - lineno_labeled_stmt - { /* Emit the increment expression, with a line number. */ - emit_line_note ($<filename>8, $<lineno>7); - expand_loop_continue_here (); - if ($9) - c_expand_expr_stmt ($9); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); - expand_end_loop (); } - | SWITCH '(' expr ')' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - c_expand_start_case ($3); - /* Don't let the tree nodes for $3 be discarded by - clear_momentary during the parsing of the next stmt. */ - push_momentary (); - position_after_white_space (); } - lineno_labeled_stmt - { expand_end_case ($3); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); } - | BREAK ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - if ( ! expand_exit_something ()) - error ("break statement not within loop or switch"); } - | CONTINUE ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - if (! expand_continue_loop (NULL_PTR)) - error ("continue statement not within a loop"); } - | RETURN ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - c_expand_return (NULL_TREE); } - | RETURN expr ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - c_expand_return ($2); } - | ASM_KEYWORD maybe_type_qual '(' expr ')' ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - STRIP_NOPS ($4); - if ((TREE_CODE ($4) == ADDR_EXPR - && TREE_CODE (TREE_OPERAND ($4, 0)) == STRING_CST) - || TREE_CODE ($4) == STRING_CST) - expand_asm ($4); - else - error ("argument of `asm' is not a constant string"); } - /* This is the case with just output operands. */ - | ASM_KEYWORD maybe_type_qual '(' expr ':' asm_operands ')' ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - c_expand_asm_operands ($4, $6, NULL_TREE, NULL_TREE, - $2 == ridpointers[(int)RID_VOLATILE], - input_filename, lineno); } - /* This is the case with input operands as well. */ - | ASM_KEYWORD maybe_type_qual '(' expr ':' asm_operands ':' asm_operands ')' ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - c_expand_asm_operands ($4, $6, $8, NULL_TREE, - $2 == ridpointers[(int)RID_VOLATILE], - input_filename, lineno); } - /* This is the case with clobbered registers as well. */ - | ASM_KEYWORD maybe_type_qual '(' expr ':' asm_operands ':' - asm_operands ':' asm_clobbers ')' ';' - { stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - c_expand_asm_operands ($4, $6, $8, $10, - $2 == ridpointers[(int)RID_VOLATILE], - input_filename, lineno); } - | GOTO identifier ';' - { tree decl; - stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - decl = lookup_label ($2); - if (decl != 0) - { - TREE_USED (decl) = 1; - expand_goto (decl); - } - } - | GOTO '*' expr ';' - { if (pedantic) - pedwarn ("ANSI C forbids `goto *expr;'"); - stmt_count++; - emit_line_note ($<filename>-1, $<lineno>0); - expand_computed_goto (convert (ptr_type_node, $3)); } - | ';' - ; - -all_iter_stmt: - all_iter_stmt_simple -/* | all_iter_stmt_with_decl */ - ; - -all_iter_stmt_simple: - FOR '(' primary ')' - { - /* The value returned by this action is */ - /* 1 if everything is OK */ - /* 0 in case of error or already bound iterator */ - - $<itype>$ = 0; - if (TREE_CODE ($3) != VAR_DECL) - error ("invalid `for (ITERATOR)' syntax"); - else if (! ITERATOR_P ($3)) - error ("`%s' is not an iterator", - IDENTIFIER_POINTER (DECL_NAME ($3))); - else if (ITERATOR_BOUND_P ($3)) - error ("`for (%s)' inside expansion of same iterator", - IDENTIFIER_POINTER (DECL_NAME ($3))); - else - { - $<itype>$ = 1; - iterator_for_loop_start ($3); - } - } - lineno_labeled_stmt - { - if ($<itype>5) - iterator_for_loop_end ($3); - } - -/* This really should allow any kind of declaration, - for generality. Fix it before turning it back on. - -all_iter_stmt_with_decl: - FOR '(' ITERATOR pushlevel setspecs iterator_spec ')' - { -*/ /* The value returned by this action is */ - /* 1 if everything is OK */ - /* 0 in case of error or already bound iterator */ -/* - iterator_for_loop_start ($6); - } - lineno_labeled_stmt - { - iterator_for_loop_end ($6); - emit_line_note (input_filename, lineno); - expand_end_bindings (getdecls (), 1, 0); - $<ttype>$ = poplevel (1, 1, 0); - if (yychar == CONSTANT || yychar == STRING) - pop_momentary_nofree (); - else - pop_momentary (); - } -*/ - -/* Any kind of label, including jump labels and case labels. - ANSI C accepts labels only before statements, but we allow them - also at the end of a compound statement. */ - -label: CASE expr_no_commas ':' - { register tree value = check_case_value ($2); - register tree label - = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); - - stmt_count++; - - if (value != error_mark_node) - { - tree duplicate; - int success; - - if (pedantic && ! INTEGRAL_TYPE_P (TREE_TYPE (value))) - pedwarn ("label must have integral type in ANSI C"); - - success = pushcase (value, convert_and_check, - label, &duplicate); - - if (success == 1) - error ("case label not within a switch statement"); - else if (success == 2) - { - error ("duplicate case value"); - error_with_decl (duplicate, "this is the first entry for that value"); - } - else if (success == 3) - warning ("case value out of range"); - else if (success == 5) - error ("case label within scope of cleanup or variable array"); - } - position_after_white_space (); } - | CASE expr_no_commas ELLIPSIS expr_no_commas ':' - { register tree value1 = check_case_value ($2); - register tree value2 = check_case_value ($4); - register tree label - = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); - - if (pedantic) - pedwarn ("ANSI C forbids case ranges"); - stmt_count++; - - if (value1 != error_mark_node && value2 != error_mark_node) - { - tree duplicate; - int success = pushcase_range (value1, value2, - convert_and_check, label, - &duplicate); - if (success == 1) - error ("case label not within a switch statement"); - else if (success == 2) - { - error ("duplicate case value"); - error_with_decl (duplicate, "this is the first entry for that value"); - } - else if (success == 3) - warning ("case value out of range"); - else if (success == 4) - warning ("empty case range"); - else if (success == 5) - error ("case label within scope of cleanup or variable array"); - } - position_after_white_space (); } - | DEFAULT ':' - { - tree duplicate; - register tree label - = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); - int success = pushcase (NULL_TREE, 0, label, &duplicate); - stmt_count++; - if (success == 1) - error ("default label not within a switch statement"); - else if (success == 2) - { - error ("multiple default labels in one switch"); - error_with_decl (duplicate, "this is the first default label"); - } - position_after_white_space (); } - | identifier ':' maybe_attribute - { tree label = define_label (input_filename, lineno, $1); - stmt_count++; - emit_nop (); - if (label) - { - expand_label (label); - decl_attributes (label, $3, NULL_TREE); - } - position_after_white_space (); } - ; - -/* Either a type-qualifier or nothing. First thing in an `asm' statement. */ - -maybe_type_qual: - /* empty */ - { emit_line_note (input_filename, lineno); - $$ = NULL_TREE; } - | TYPE_QUAL - { emit_line_note (input_filename, lineno); } - ; - -xexpr: - /* empty */ - { $$ = NULL_TREE; } - | expr - ; - -/* These are the operands other than the first string and colon - in asm ("addextend %2,%1": "=dm" (x), "0" (y), "g" (*x)) */ -asm_operands: /* empty */ - { $$ = NULL_TREE; } - | nonnull_asm_operands - ; - -nonnull_asm_operands: - asm_operand - | nonnull_asm_operands ',' asm_operand - { $$ = chainon ($1, $3); } - ; - -asm_operand: - STRING '(' expr ')' - { $$ = build_tree_list ($1, $3); } - ; - -asm_clobbers: - string - { $$ = tree_cons (NULL_TREE, combine_strings ($1), NULL_TREE); } - | asm_clobbers ',' string - { $$ = tree_cons (NULL_TREE, combine_strings ($3), $1); } - ; - -/* This is what appears inside the parens in a function declarator. - Its value is a list of ..._TYPE nodes. */ -parmlist: - { pushlevel (0); - clear_parm_order (); - declare_parm_level (0); } - parmlist_1 - { $$ = $2; - parmlist_tags_warning (); - poplevel (0, 0, 0); } - ; - -parmlist_1: - parmlist_2 ')' - | parms ';' - { tree parm; - if (pedantic) - pedwarn ("ANSI C forbids forward parameter declarations"); - /* Mark the forward decls as such. */ - for (parm = getdecls (); parm; parm = TREE_CHAIN (parm)) - TREE_ASM_WRITTEN (parm) = 1; - clear_parm_order (); } - parmlist_1 - { $$ = $4; } - | error ')' - { $$ = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE); } - ; - -/* This is what appears inside the parens in a function declarator. - Is value is represented in the format that grokdeclarator expects. */ -parmlist_2: /* empty */ - { $$ = get_parm_info (0); } - | ELLIPSIS - { $$ = get_parm_info (0); - /* Gcc used to allow this as an extension. However, it does - not work for all targets, and thus has been disabled. - Also, since func (...) and func () are indistinguishable, - it caused problems with the code in expand_builtin which - tries to verify that BUILT_IN_NEXT_ARG is being used - correctly. */ - error ("ANSI C requires a named argument before `...'"); - } - | parms - { $$ = get_parm_info (1); } - | parms ',' ELLIPSIS - { $$ = get_parm_info (0); } - ; - -parms: - parm - { push_parm_decl ($1); } - | parms ',' parm - { push_parm_decl ($3); } - ; - -/* A single parameter declaration or parameter type name, - as found in a parmlist. */ -parm: - typed_declspecs setspecs parm_declarator maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $3), - build_tree_list (prefix_attributes, - $4)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs setspecs notype_declarator maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $3), - build_tree_list (prefix_attributes, - $4)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs setspecs absdcl maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $3), - build_tree_list (prefix_attributes, - $4)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | declmods setspecs notype_declarator maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $3), - build_tree_list (prefix_attributes, - $4)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - - | declmods setspecs absdcl maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $3), - build_tree_list (prefix_attributes, - $4)); - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - ; - -/* This is used in a function definition - where either a parmlist or an identifier list is ok. - Its value is a list of ..._TYPE nodes or a list of identifiers. */ -parmlist_or_identifiers: - { pushlevel (0); - clear_parm_order (); - declare_parm_level (1); } - parmlist_or_identifiers_1 - { $$ = $2; - parmlist_tags_warning (); - poplevel (0, 0, 0); } - ; - -parmlist_or_identifiers_1: - parmlist_1 - | identifiers ')' - { tree t; - for (t = $1; t; t = TREE_CHAIN (t)) - if (TREE_VALUE (t) == NULL_TREE) - error ("`...' in old-style identifier list"); - $$ = tree_cons (NULL_TREE, NULL_TREE, $1); } - ; - -/* A nonempty list of identifiers. */ -identifiers: - IDENTIFIER - { $$ = build_tree_list (NULL_TREE, $1); } - | identifiers ',' IDENTIFIER - { $$ = chainon ($1, build_tree_list (NULL_TREE, $3)); } - ; - -/* A nonempty list of identifiers, including typenames. */ -identifiers_or_typenames: - identifier - { $$ = build_tree_list (NULL_TREE, $1); } - | identifiers_or_typenames ',' identifier - { $$ = chainon ($1, build_tree_list (NULL_TREE, $3)); } - ; - -extension: - EXTENSION - { $<itype>$ = pedantic; - pedantic = 0; } - ; - -/* Objective-C productions. */ - -objcdef: - classdef - | classdecl - | aliasdecl - | protocoldef - | methoddef - | END - { - if (objc_implementation_context) - { - finish_class (objc_implementation_context); - objc_ivar_chain = NULL_TREE; - objc_implementation_context = NULL_TREE; - } - else - warning ("`@end' must appear in an implementation context"); - } - ; - -/* A nonempty list of identifiers. */ -identifier_list: - identifier - { $$ = build_tree_list (NULL_TREE, $1); } - | identifier_list ',' identifier - { $$ = chainon ($1, build_tree_list (NULL_TREE, $3)); } - ; - -classdecl: - CLASS identifier_list ';' - { - objc_declare_class ($2); - } - -aliasdecl: - ALIAS identifier identifier ';' - { - objc_declare_alias ($2, $3); - } - -classdef: - INTERFACE identifier protocolrefs '{' - { - objc_interface_context = objc_ivar_context - = start_class (CLASS_INTERFACE_TYPE, $2, NULL_TREE, $3); - objc_public_flag = 0; - } - ivar_decl_list '}' - { - continue_class (objc_interface_context); - } - methodprotolist - END - { - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - } - - | INTERFACE identifier protocolrefs - { - objc_interface_context - = start_class (CLASS_INTERFACE_TYPE, $2, NULL_TREE, $3); - continue_class (objc_interface_context); - } - methodprotolist - END - { - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - } - - | INTERFACE identifier ':' identifier protocolrefs '{' - { - objc_interface_context = objc_ivar_context - = start_class (CLASS_INTERFACE_TYPE, $2, $4, $5); - objc_public_flag = 0; - } - ivar_decl_list '}' - { - continue_class (objc_interface_context); - } - methodprotolist - END - { - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - } - - | INTERFACE identifier ':' identifier protocolrefs - { - objc_interface_context - = start_class (CLASS_INTERFACE_TYPE, $2, $4, $5); - continue_class (objc_interface_context); - } - methodprotolist - END - { - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - } - - | IMPLEMENTATION identifier '{' - { - objc_implementation_context = objc_ivar_context - = start_class (CLASS_IMPLEMENTATION_TYPE, $2, NULL_TREE, NULL_TREE); - objc_public_flag = 0; - } - ivar_decl_list '}' - { - objc_ivar_chain - = continue_class (objc_implementation_context); - } - - | IMPLEMENTATION identifier - { - objc_implementation_context - = start_class (CLASS_IMPLEMENTATION_TYPE, $2, NULL_TREE, NULL_TREE); - objc_ivar_chain - = continue_class (objc_implementation_context); - } - - | IMPLEMENTATION identifier ':' identifier '{' - { - objc_implementation_context = objc_ivar_context - = start_class (CLASS_IMPLEMENTATION_TYPE, $2, $4, NULL_TREE); - objc_public_flag = 0; - } - ivar_decl_list '}' - { - objc_ivar_chain - = continue_class (objc_implementation_context); - } - - | IMPLEMENTATION identifier ':' identifier - { - objc_implementation_context - = start_class (CLASS_IMPLEMENTATION_TYPE, $2, $4, NULL_TREE); - objc_ivar_chain - = continue_class (objc_implementation_context); - } - - | INTERFACE identifier '(' identifier ')' protocolrefs - { - objc_interface_context - = start_class (CATEGORY_INTERFACE_TYPE, $2, $4, $6); - continue_class (objc_interface_context); - } - methodprotolist - END - { - finish_class (objc_interface_context); - objc_interface_context = NULL_TREE; - } - - | IMPLEMENTATION identifier '(' identifier ')' - { - objc_implementation_context - = start_class (CATEGORY_IMPLEMENTATION_TYPE, $2, $4, NULL_TREE); - objc_ivar_chain - = continue_class (objc_implementation_context); - } - ; - -protocoldef: - PROTOCOL identifier protocolrefs - { - remember_protocol_qualifiers (); - objc_interface_context - = start_protocol(PROTOCOL_INTERFACE_TYPE, $2, $3); - } - methodprotolist END - { - forget_protocol_qualifiers(); - finish_protocol(objc_interface_context); - objc_interface_context = NULL_TREE; - } - ; - -protocolrefs: - /* empty */ - { - $$ = NULL_TREE; - } - | non_empty_protocolrefs - ; - -non_empty_protocolrefs: - ARITHCOMPARE identifier_list ARITHCOMPARE - { - if ($1 == LT_EXPR && $3 == GT_EXPR) - $$ = $2; - else - YYERROR1; - } - ; - -ivar_decl_list: - ivar_decl_list visibility_spec ivar_decls - | ivar_decls - ; - -visibility_spec: - PRIVATE { objc_public_flag = 2; } - | PROTECTED { objc_public_flag = 0; } - | PUBLIC { objc_public_flag = 1; } - ; - -ivar_decls: - /* empty */ - { - $$ = NULL_TREE; - } - | ivar_decls ivar_decl ';' - | ivar_decls ';' - { - if (pedantic) - pedwarn ("extra semicolon in struct or union specified"); - } - ; - - -/* There is a shift-reduce conflict here, because `components' may - start with a `typename'. It happens that shifting (the default resolution) - does the right thing, because it treats the `typename' as part of - a `typed_typespecs'. - - It is possible that this same technique would allow the distinction - between `notype_initdecls' and `initdecls' to be eliminated. - But I am being cautious and not trying it. */ - -ivar_decl: - typed_typespecs setspecs ivars - { $$ = $3; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | nonempty_type_quals setspecs ivars - { $$ = $3; - current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | error - { $$ = NULL_TREE; } - ; - -ivars: - /* empty */ - { $$ = NULL_TREE; } - | ivar_declarator - | ivars ',' ivar_declarator - ; - -ivar_declarator: - declarator - { - $$ = add_instance_variable (objc_ivar_context, - objc_public_flag, - $1, current_declspecs, - NULL_TREE); - } - | declarator ':' expr_no_commas - { - $$ = add_instance_variable (objc_ivar_context, - objc_public_flag, - $1, current_declspecs, $3); - } - | ':' expr_no_commas - { - $$ = add_instance_variable (objc_ivar_context, - objc_public_flag, - NULL_TREE, - current_declspecs, $2); - } - ; - -methoddef: - '+' - { - remember_protocol_qualifiers (); - if (objc_implementation_context) - objc_inherit_code = CLASS_METHOD_DECL; - else - fatal ("method definition not in class context"); - } - methoddecl - { - forget_protocol_qualifiers (); - add_class_method (objc_implementation_context, $3); - start_method_def ($3); - objc_method_context = $3; - } - optarglist - { - continue_method_def (); - } - compstmt_or_error - { - finish_method_def (); - objc_method_context = NULL_TREE; - } - - | '-' - { - remember_protocol_qualifiers (); - if (objc_implementation_context) - objc_inherit_code = INSTANCE_METHOD_DECL; - else - fatal ("method definition not in class context"); - } - methoddecl - { - forget_protocol_qualifiers (); - add_instance_method (objc_implementation_context, $3); - start_method_def ($3); - objc_method_context = $3; - } - optarglist - { - continue_method_def (); - } - compstmt_or_error - { - finish_method_def (); - objc_method_context = NULL_TREE; - } - ; - -/* the reason for the strange actions in this rule - is so that notype_initdecls when reached via datadef - can find a valid list of type and sc specs in $0. */ - -methodprotolist: - /* empty */ - | {$<ttype>$ = NULL_TREE; } methodprotolist2 - ; - -methodprotolist2: /* eliminates a shift/reduce conflict */ - methodproto - | datadef - | methodprotolist2 methodproto - | methodprotolist2 {$<ttype>$ = NULL_TREE; } datadef - ; - -semi_or_error: - ';' - | error - ; - -methodproto: - '+' - { - /* Remember protocol qualifiers in prototypes. */ - remember_protocol_qualifiers (); - objc_inherit_code = CLASS_METHOD_DECL; - } - methoddecl - { - /* Forget protocol qualifiers here. */ - forget_protocol_qualifiers (); - add_class_method (objc_interface_context, $3); - } - semi_or_error - - | '-' - { - /* Remember protocol qualifiers in prototypes. */ - remember_protocol_qualifiers (); - objc_inherit_code = INSTANCE_METHOD_DECL; - } - methoddecl - { - /* Forget protocol qualifiers here. */ - forget_protocol_qualifiers (); - add_instance_method (objc_interface_context, $3); - } - semi_or_error - ; - -methoddecl: - '(' typename ')' unaryselector - { - $$ = build_method_decl (objc_inherit_code, $2, $4, NULL_TREE); - } - - | unaryselector - { - $$ = build_method_decl (objc_inherit_code, NULL_TREE, $1, NULL_TREE); - } - - | '(' typename ')' keywordselector optparmlist - { - $$ = build_method_decl (objc_inherit_code, $2, $4, $5); - } - - | keywordselector optparmlist - { - $$ = build_method_decl (objc_inherit_code, NULL_TREE, $1, $2); - } - ; - -/* "optarglist" assumes that start_method_def has already been called... - if it is not, the "xdecls" will not be placed in the proper scope */ - -optarglist: - /* empty */ - | ';' myxdecls - ; - -/* to get around the following situation: "int foo (int a) int b; {}" that - is synthesized when parsing "- a:a b:b; id c; id d; { ... }" */ - -myxdecls: - /* empty */ - | mydecls - ; - -mydecls: - mydecl - | errstmt - | mydecls mydecl - | mydecl errstmt - ; - -mydecl: - typed_declspecs setspecs myparms ';' - { current_declspecs = TREE_VALUE (declspec_stack); - prefix_attributes = TREE_PURPOSE (declspec_stack); - declspec_stack = TREE_CHAIN (declspec_stack); - resume_momentary ($2); } - | typed_declspecs ';' - { shadow_tag ($1); } - | declmods ';' - { pedwarn ("empty declaration"); } - ; - -myparms: - myparm - { push_parm_decl ($1); } - | myparms ',' myparm - { push_parm_decl ($3); } - ; - -/* A single parameter declaration or parameter type name, - as found in a parmlist. DOES NOT ALLOW AN INITIALIZER OR ASMSPEC */ - -myparm: - parm_declarator maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $1), - build_tree_list (prefix_attributes, - $2)); } - | notype_declarator maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $1), - build_tree_list (prefix_attributes, - $2)); } - | absdcl maybe_attribute - { $$ = build_tree_list (build_tree_list (current_declspecs, - $1), - build_tree_list (prefix_attributes, - $2)); } - ; - -optparmlist: - /* empty */ - { - $$ = NULL_TREE; - } - | ',' ELLIPSIS - { - /* oh what a kludge! */ - $$ = (tree)1; - } - | ',' - { - pushlevel (0); - } - parmlist_2 - { - /* returns a tree list node generated by get_parm_info */ - $$ = $3; - poplevel (0, 0, 0); - } - ; - -unaryselector: - selector - ; - -keywordselector: - keyworddecl - - | keywordselector keyworddecl - { - $$ = chainon ($1, $2); - } - ; - -selector: - IDENTIFIER - | TYPENAME - | OBJECTNAME - | reservedwords - ; - -reservedwords: - ENUM { $$ = get_identifier (token_buffer); } - | STRUCT { $$ = get_identifier (token_buffer); } - | UNION { $$ = get_identifier (token_buffer); } - | IF { $$ = get_identifier (token_buffer); } - | ELSE { $$ = get_identifier (token_buffer); } - | WHILE { $$ = get_identifier (token_buffer); } - | DO { $$ = get_identifier (token_buffer); } - | FOR { $$ = get_identifier (token_buffer); } - | SWITCH { $$ = get_identifier (token_buffer); } - | CASE { $$ = get_identifier (token_buffer); } - | DEFAULT { $$ = get_identifier (token_buffer); } - | BREAK { $$ = get_identifier (token_buffer); } - | CONTINUE { $$ = get_identifier (token_buffer); } - | RETURN { $$ = get_identifier (token_buffer); } - | GOTO { $$ = get_identifier (token_buffer); } - | ASM_KEYWORD { $$ = get_identifier (token_buffer); } - | SIZEOF { $$ = get_identifier (token_buffer); } - | TYPEOF { $$ = get_identifier (token_buffer); } - | ALIGNOF { $$ = get_identifier (token_buffer); } - | TYPESPEC | TYPE_QUAL - ; - -keyworddecl: - selector ':' '(' typename ')' identifier - { - $$ = build_keyword_decl ($1, $4, $6); - } - - | selector ':' identifier - { - $$ = build_keyword_decl ($1, NULL_TREE, $3); - } - - | ':' '(' typename ')' identifier - { - $$ = build_keyword_decl (NULL_TREE, $3, $5); - } - - | ':' identifier - { - $$ = build_keyword_decl (NULL_TREE, NULL_TREE, $2); - } - ; - -messageargs: - selector - | keywordarglist - ; - -keywordarglist: - keywordarg - | keywordarglist keywordarg - { - $$ = chainon ($1, $2); - } - ; - - -keywordexpr: - nonnull_exprlist - { - if (TREE_CHAIN ($1) == NULL_TREE) - /* just return the expr., remove a level of indirection */ - $$ = TREE_VALUE ($1); - else - /* we have a comma expr., we will collapse later */ - $$ = $1; - } - ; - -keywordarg: - selector ':' keywordexpr - { - $$ = build_tree_list ($1, $3); - } - | ':' keywordexpr - { - $$ = build_tree_list (NULL_TREE, $2); - } - ; - -receiver: - expr - | CLASSNAME - { - $$ = get_class_reference ($1); - } - ; - -objcmessageexpr: - '[' - { objc_receiver_context = 1; } - receiver - { objc_receiver_context = 0; } - messageargs ']' - { - $$ = build_tree_list ($3, $5); - } - ; - -selectorarg: - selector - | keywordnamelist - ; - -keywordnamelist: - keywordname - | keywordnamelist keywordname - { - $$ = chainon ($1, $2); - } - ; - -keywordname: - selector ':' - { - $$ = build_tree_list ($1, NULL_TREE); - } - | ':' - { - $$ = build_tree_list (NULL_TREE, NULL_TREE); - } - ; - -objcselectorexpr: - SELECTOR '(' selectorarg ')' - { - $$ = $3; - } - ; - -objcprotocolexpr: - PROTOCOL '(' identifier ')' - { - $$ = $3; - } - ; - -/* extension to support C-structures in the archiver */ - -objcencodeexpr: - ENCODE '(' typename ')' - { - $$ = groktypename ($3); - } - ; - -%% |