![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to y.tab.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / cfront / ocfront|
Return to y.tab.c CVS log | Up to [Research Unix] / researchv10no / cmd / cfront / ocfront |
1.1 ! root 1: ! 2: # line 24 "gram.y" ! 3: #include "cfront.h" ! 4: #include "size.h" ! 5: // include tqueue.h after YYSTYPE is defined ... ! 6: ! 7: #define YYMAXDEPTH 600 ! 8: ! 9: #ifdef DBG ! 10: #ifndef YYDEBUG ! 11: #define YYDEBUG 1 ! 12: #endif ! 13: #endif ! 14: ! 15: static init_seen = 0; ! 16: static cdi = 0; ! 17: static Pnlist cd = 0, cd_vec[BLMAX]; ! 18: static char stmt_seen = 0, stmt_vec[BLMAX]; ! 19: ! 20: //local class ! 21: static Plist tn_vec[BLMAX], lcl_tn_vec[BLMAX], lcl_blk_vec[BLMAX]; ! 22: extern void local_restore(); ! 23: extern void local_name(); ! 24: ! 25: //nested class ! 26: static Plist nested_tn_vec[BLMAX], nested_type_vec[BLMAX]; ! 27: extern void nested_restore(); ! 28: extern char *class_typedef; ! 29: ! 30: static Pname err_name = 0; ! 31: ! 32: // fcts put into norm2.c just to get them out of gram.y ! 33: void sig_name(Pname); ! 34: Ptype tok_to_type(TOK); ! 35: void memptrdcl(Pname, Pname, Ptype, Pname); ! 36: ! 37: static Pptr doptr(TOK p, TOK t) ! 38: { ! 39: Pptr r = new ptr(p,0); ! 40: switch (t) { ! 41: case CONST: ! 42: r->rdo = 1; ! 43: // if (p == RPTR) error('w',"redundant `const' after &"); ! 44: break; ! 45: case VOLATILE: ! 46: error('w',"\"volatile\" not implemented (ignored)"); ! 47: break; ! 48: default: ! 49: error("syntax error: *%k",t); ! 50: } ! 51: return r; ! 52: } ! 53: ! 54: static Pbcl dobase(TOK pr, Pname n, TOK v = 0) ! 55: { ! 56: Pbcl b = new basecl(0,0); ! 57: ! 58: if (pr == PROTECTED) { ! 59: pr = PUBLIC; ! 60: error("protectedBC"); ! 61: } ! 62: b->ppp = pr; // save protection indicator ! 63: ! 64: if (n) { ! 65: if (n->base != TNAME) { ! 66: error("BN%n not aTN",n); ! 67: return 0; ! 68: } ! 69: ! 70: Pbase bt = Pbase(n->tp); ! 71: while (bt->base == TYPE) bt = Pbase(bt->b_name->tp); ! 72: ! 73: if (bt->base != COBJ) { ! 74: error("BN%n not aCN",n); ! 75: return 0; ! 76: } ! 77: ! 78: if (v) { ! 79: if (v != VIRTUAL) error("syntax error:%k inBCD",v); ! 80: b->base = VIRTUAL; ! 81: } ! 82: else ! 83: b->base = NAME; ! 84: ! 85: b->bclass = Pclass(bt->b_name->tp); ! 86: } ! 87: ! 88: return b; ! 89: } ! 90: ! 91: ! 92: #define Ndata(a,b) b->normalize(Pbase(a),0,0) ! 93: #define Ncast(a,b) b->normalize(Pbase(a),0,1) ! 94: #define Nfct(a,b,c) b->normalize(Pbase(a),Pblock(c),0) ! 95: #define Ncopy(n) (n->base==TNAME)?new name(n->string):n ! 96: ! 97: #define Finit(p) Pfct(p)->f_init ! 98: #define Fargdcl(p,q,r) Pfct(p)->argdcl(q,r) ! 99: #define Freturns(p) Pfct(p)->returns ! 100: #define Vtype(v) Pvec(v)->typ ! 101: #define Ptyp(p) Pptr(p)->typ ! 102: ! 103: /* avoid redefinitions */ ! 104: #undef EOFTOK ! 105: #undef ASM ! 106: #undef BREAK ! 107: #undef CASE ! 108: #undef CONTINUE ! 109: #undef DEFAULT ! 110: #undef DELETE ! 111: #undef DO ! 112: #undef ELSE ! 113: #undef ENUM ! 114: #undef FOR ! 115: #undef FORTRAN ! 116: #undef GOTO ! 117: #undef IF ! 118: #undef NEW ! 119: #undef OPERATOR ! 120: #undef RETURN ! 121: #undef SIZEOF ! 122: #undef SWITCH ! 123: #undef THIS ! 124: #undef WHILE ! 125: #undef LP ! 126: #undef RP ! 127: #undef LB ! 128: #undef RB ! 129: #undef REF ! 130: #undef DOT ! 131: #undef NOT ! 132: #undef COMPL ! 133: #undef MUL ! 134: #undef AND ! 135: #undef PLUS ! 136: #undef MINUS ! 137: #undef ER ! 138: #undef OR ! 139: #undef ANDAND ! 140: #undef OROR ! 141: #undef QUEST ! 142: #undef COLON ! 143: #undef ASSIGN ! 144: #undef CM ! 145: #undef SM ! 146: #undef LC ! 147: #undef RC ! 148: #undef ID ! 149: #undef STRING ! 150: #undef ICON ! 151: #undef FCON ! 152: #undef CCON ! 153: #undef ZERO ! 154: #undef ASOP ! 155: #undef RELOP ! 156: #undef EQUOP ! 157: #undef DIVOP ! 158: #undef SHIFTOP ! 159: #undef ICOP ! 160: #undef TYPE ! 161: #undef TNAME ! 162: #undef EMPTY ! 163: #undef NO_ID ! 164: #undef NO_EXPR ! 165: #undef FDEF ! 166: #undef ELLIPSIS ! 167: #undef AGGR ! 168: #undef MEM ! 169: #undef MEMPTR ! 170: #undef PR ! 171: #undef TSCOPE ! 172: #undef DECL_MARKER ! 173: #undef REFMUL ! 174: #undef LDOUBLE ! 175: #undef LINKAGE ! 176: #undef LOCAL ! 177: #undef NESTED ! 178: ! 179: # line 201 "gram.y" ! 180: typedef union { ! 181: char* s; ! 182: TOK t; ! 183: int i; ! 184: loc l; ! 185: Pname pn; ! 186: Ptype pt; ! 187: Pexpr pe; ! 188: Pstmt ps; ! 189: Pbase pb; ! 190: Pnlist nl; ! 191: Pslist sl; ! 192: Pelist el; ! 193: Pbcl pbc; ! 194: Pptr pp; ! 195: PP p; // fudge: pointer to all class node objects ! 196: Plist pl; ! 197: toknode* q; // token queue ! 198: } YYSTYPE; ! 199: ! 200: # line 221 "gram.y" ! 201: #include "tqueue.h" ! 202: extern YYSTYPE yylval, yyval; ! 203: extern int yyparse(); ! 204: ! 205: // in_typedef should allow for nested in_typedef ! 206: extern int declTag; // !1: inline, virtual mod permitted ! 207: int in_sizeof = 0; ! 208: Ptype in_typedef = 0; // catch redefinition of TNAME ! 209: Pname in_tag = 0; // handle complex typedefs: int (*)() ! 210: extern int defer_check; // redefinition typedef check delay ! 211: Pname curr_scope; ! 212: ! 213: extern int must_be_id; // !0, TNAME => ID, i.e., int X ! 214: int DECL_TYPE = 0; // lalex() wants this set for global x(*fp)() ! 215: int in_arg_list=0; // !0 when parsing argument list ! 216: static int in_binit_list=0; ! 217: int in_class_decl=0; // !0 when processing class definition ! 218: int parsing_class_members=0; // !0 when parsing class def but not member function body ! 219: int in_mem_fct=0; // !0 when parsing member function definition ! 220: ! 221: #define yylex lalex ! 222: #define NEXTTOK() ( (yychar==-1) ? (yychar=yylex(),yychar) : yychar ) ! 223: #define EXPECT_ID() must_be_id = 1 ! 224: #define NOT_EXPECT_ID() must_be_id = 0 ! 225: ! 226: Pname syn() ! 227: { ! 228: ll: ! 229: switch (yyparse()) { ! 230: case 0: return 0; // EOF ! 231: case 1: goto ll; // no action needed ! 232: default: return yyval.pn; ! 233: } ! 234: } ! 235: ! 236: # define EOFTOK 0 ! 237: # define ASM 1 ! 238: # define BREAK 3 ! 239: # define CASE 4 ! 240: # define CONTINUE 7 ! 241: # define DEFAULT 8 ! 242: # define DELETE 9 ! 243: # define DO 10 ! 244: # define ELSE 12 ! 245: # define ENUM 13 ! 246: # define FOR 16 ! 247: # define FORTRAN 17 ! 248: # define GOTO 19 ! 249: # define IF 20 ! 250: # define NEW 23 ! 251: # define OPERATOR 24 ! 252: # define RETURN 28 ! 253: # define SIZEOF 30 ! 254: # define SWITCH 33 ! 255: # define THIS 34 ! 256: # define WHILE 39 ! 257: # define LP 40 ! 258: # define RP 41 ! 259: # define LB 42 ! 260: # define RB 43 ! 261: # define REF 44 ! 262: # define DOT 45 ! 263: # define NOT 46 ! 264: # define COMPL 47 ! 265: # define MUL 50 ! 266: # define AND 52 ! 267: # define PLUS 54 ! 268: # define MINUS 55 ! 269: # define ER 64 ! 270: # define OR 65 ! 271: # define ANDAND 66 ! 272: # define OROR 67 ! 273: # define QUEST 68 ! 274: # define COLON 69 ! 275: # define ASSIGN 70 ! 276: # define CM 71 ! 277: # define SM 72 ! 278: # define LC 73 ! 279: # define RC 74 ! 280: # define MEMPTR 173 ! 281: # define ID 80 ! 282: # define STRING 81 ! 283: # define ICON 82 ! 284: # define FCON 83 ! 285: # define CCON 84 ! 286: # define ZERO 86 ! 287: # define ASOP 90 ! 288: # define RELOP 91 ! 289: # define EQUOP 92 ! 290: # define DIVOP 93 ! 291: # define SHIFTOP 94 ! 292: # define ICOP 95 ! 293: # define TYPE 97 ! 294: # define TNAME 123 ! 295: # define EMPTY 124 ! 296: # define NO_ID 125 ! 297: # define NO_EXPR 126 ! 298: # define FDEF 127 ! 299: # define ELLIPSIS 155 ! 300: # define AGGR 156 ! 301: # define MEM 160 ! 302: # define PR 175 ! 303: # define TSCOPE 178 ! 304: # define DECL_MARKER 179 ! 305: # define REFMUL 180 ! 306: # define LDOUBLE 181 ! 307: # define LINKAGE 182 ! 308: # define LOCAL 183 ! 309: # define NESTED 190 ! 310: #define yyclearin yychar = -1 ! 311: #define yyerrok yyerrflag = 0 ! 312: extern int yychar; ! 313: extern short yyerrflag; ! 314: #ifndef YYMAXDEPTH ! 315: #define YYMAXDEPTH 150 ! 316: #endif ! 317: YYSTYPE yylval, yyval; ! 318: # define YYERRCODE 256 ! 319: ! 320: # line 1947 "gram.y" ! 321: ! 322: ! 323: static void ! 324: check_tag() ! 325: /* ! 326: Allow the case of inline/virtual/overload as ! 327: modifiers of return type of form struct/class/union x foo() ! 328: SM, COLON, LC ==> real class declaration, not return type ! 329: */ ! 330: { ! 331: switch ( NEXTTOK() ) { ! 332: case SM: case COLON: case LC: ! 333: declTag = 1; ! 334: break; ! 335: default: ! 336: declTag = 0; ! 337: break; ! 338: } ! 339: } ! 340: ! 341: static void ! 342: end_al( Plist mtn, int rst ) ! 343: // unhide type names hidden by arg names ! 344: // mtn == saved modified_tn ! 345: { ! 346: if ( rst == 0 ) { ! 347: // not really an arg list, or we are entering a function def ! 348: // merge modified_tn and don't restore ! 349: if ( modified_tn == 0 ) modified_tn = mtn; ! 350: else { ! 351: for ( Plist l = modified_tn; l->l; l = l->l ) ; ! 352: l->l = mtn; ! 353: } ! 354: } else { ! 355: restore(); ! 356: modified_tn = mtn; ! 357: } ! 358: } ! 359: static void ! 360: arg_redec( Pname fn ) ! 361: { ! 362: if ( fn==0 || fn->tp->base != FCT ) ! 363: error('i',"bad inline rewrite!"); ! 364: Pname al = Pfct(fn->tp)->argtype; ! 365: Pname n = 0; ! 366: for ( ; al; al = al->n_list ) { ! 367: DB( if(Ydebug>=1)error('d',"arg_redec: %n %d",al,al->lex_level); ); ! 368: // nested function args should have lex_level >= 1 ! 369: if ( al->lex_level==1 && (n=ktbl->look(al->string,0)) ) ! 370: n->hide(); ! 371: else if ( al->lex_level>1 && (n=ktbl->look(al->string,LOCAL)) ) ! 372: n->hide(); ! 373: DB( if(Ydebug>=1)error('d'," %n",n); ); ! 374: } ! 375: } ! 376: ! 377: ! 378: short yyexca[] ={ ! 379: -1, 1, ! 380: 0, -1, ! 381: -2, 0, ! 382: -1, 40, ! 383: 71, 31, ! 384: 72, 31, ! 385: -2, 30, ! 386: -1, 57, ! 387: 155, 307, ! 388: -2, 245, ! 389: -1, 62, ! 390: 13, 302, ! 391: 97, 302, ! 392: 123, 302, ! 393: 155, 302, ! 394: 156, 302, ! 395: 160, 302, ! 396: 178, 302, ! 397: 179, 302, ! 398: 182, 302, ! 399: -2, 245, ! 400: -1, 111, ! 401: 73, 69, ! 402: -2, 64, ! 403: -1, 346, ! 404: 1, 164, ! 405: 3, 164, ! 406: 4, 164, ! 407: 7, 164, ! 408: 8, 164, ! 409: 9, 164, ! 410: 10, 164, ! 411: 13, 164, ! 412: 16, 164, ! 413: 19, 164, ! 414: 20, 164, ! 415: 23, 164, ! 416: 24, 164, ! 417: 28, 164, ! 418: 30, 164, ! 419: 33, 164, ! 420: 34, 164, ! 421: 39, 164, ! 422: 40, 164, ! 423: 46, 164, ! 424: 47, 164, ! 425: 50, 164, ! 426: 52, 164, ! 427: 54, 164, ! 428: 55, 164, ! 429: 72, 164, ! 430: 73, 164, ! 431: 80, 164, ! 432: 81, 164, ! 433: 82, 164, ! 434: 83, 164, ! 435: 84, 164, ! 436: 86, 164, ! 437: 95, 164, ! 438: 97, 164, ! 439: 123, 164, ! 440: 156, 164, ! 441: 160, 164, ! 442: 178, 164, ! 443: 179, 164, ! 444: 182, 164, ! 445: -2, 0, ! 446: }; ! 447: # define YYNPROD 320 ! 448: # define YYLAST 2463 ! 449: short yyact[]={ ! 450: ! 451: 129, 423, 8, 461, 165, 345, 159, 7, 238, 391, ! 452: 266, 58, 262, 291, 333, 336, 273, 201, 168, 169, ! 453: 388, 55, 140, 200, 188, 292, 131, 63, 400, 142, ! 454: 236, 114, 232, 16, 233, 235, 28, 61, 35, 77, ! 455: 68, 78, 76, 240, 12, 22, 269, 27, 294, 23, ! 456: 158, 50, 69, 9, 156, 67, 63, 348, 45, 254, ! 457: 111, 118, 46, 32, 19, 154, 61, 177, 109, 108, ! 458: 26, 10, 155, 29, 25, 30, 29, 37, 30, 446, ! 459: 107, 114, 255, 69, 63, 231, 67, 63, 473, 27, ! 460: 338, 521, 51, 27, 61, 36, 66, 61, 160, 180, ! 461: 29, 171, 30, 48, 68, 29, 126, 30, 171, 32, ! 462: 120, 37, 26, 193, 175, 253, 26, 192, 265, 29, ! 463: 213, 30, 21, 73, 25, 486, 293, 202, 226, 36, ! 464: 270, 479, 241, 242, 243, 244, 245, 246, 247, 248, ! 465: 249, 37, 206, 67, 346, 70, 25, 73, 25, 17, ! 466: 424, 473, 186, 27, 12, 471, 472, 237, 68, 36, ! 467: 239, 37, 261, 219, 194, 160, 250, 258, 189, 413, ! 468: 234, 344, 205, 301, 302, 207, 26, 242, 25, 36, ! 469: 209, 34, 195, 37, 289, 37, 252, 67, 68, 280, ! 470: 265, 256, 25, 257, 479, 37, 31, 251, 203, 31, ! 471: 67, 36, 389, 36, 24, 38, 45, 161, 460, 70, ! 472: 46, 67, 492, 36, 283, 37, 282, 45, 300, 296, ! 473: 35, 46, 370, 31, 362, 37, 299, 298, 31, 37, ! 474: 320, 288, 286, 36, 67, 328, 275, 296, 338, 323, ! 475: 295, 331, 31, 36, 332, 263, 264, 36, 29, 285, ! 476: 30, 241, 68, 260, 189, 414, 326, 322, 329, 363, ! 477: 324, 123, 124, 342, 343, 303, 304, 305, 306, 307, ! 478: 308, 309, 310, 311, 312, 313, 314, 315, 316, 317, ! 479: 318, 341, 319, 252, 271, 353, 45, 325, 350, 37, ! 480: 46, 352, 357, 358, 339, 354, 340, 297, 45, 469, ! 481: 467, 27, 46, 466, 21, 334, 371, 36, 66, 265, ! 482: 27, 65, 287, 171, 368, 32, 199, 337, 213, 364, ! 483: 366, 182, 211, 212, 26, 29, 32, 30, 65, 375, ! 484: 25, 185, 392, 26, 534, 125, 29, 32, 30, 59, ! 485: 275, 275, 455, 60, 62, 379, 59, 427, 381, 380, ! 486: 60, 116, 369, 383, 384, 274, 407, 181, 114, 386, ! 487: 394, 219, 351, 34, 385, 378, 17, 37, 252, 353, ! 488: 353, 31, 114, 393, 405, 395, 374, 401, 377, 354, ! 489: 354, 397, 398, 73, 359, 36, 24, 409, 254, 161, ! 490: 349, 402, 379, 403, 151, 381, 381, 415, 56, 334, ! 491: 59, 25, 337, 337, 60, 408, 279, 418, 410, 25, ! 492: 59, 255, 411, 59, 60, 25, 420, 60, 114, 267, ! 493: 204, 428, 184, 422, 426, 164, 454, 404, 436, 462, ! 494: 429, 437, 435, 421, 419, 456, 488, 410, 37, 464, ! 495: 393, 416, 32, 463, 253, 465, 37, 259, 31, 54, ! 496: 149, 258, 37, 489, 252, 39, 36, 119, 533, 31, ! 497: 230, 25, 525, 495, 36, 497, 494, 499, 503, 12, ! 498: 36, 454, 454, 454, 454, 454, 454, 454, 454, 454, ! 499: 454, 454, 454, 454, 454, 454, 454, 68, 459, 520, ! 500: 121, 35, 523, 25, 64, 20, 382, 59, 37, 468, ! 501: 527, 60, 528, 529, 491, 531, 501, 20, 57, 500, ! 502: 498, 458, 229, 367, 20, 20, 36, 496, 230, 32, ! 503: 396, 59, 457, 502, 37, 60, 230, 537, 487, 387, ! 504: 37, 361, 539, 454, 473, 57, 542, 541, 471, 472, ! 505: 113, 284, 36, 66, 545, 522, 347, 114, 36, 548, ! 506: 504, 505, 506, 507, 508, 509, 510, 511, 512, 513, ! 507: 514, 515, 516, 517, 518, 519, 57, 153, 15, 57, ! 508: 32, 417, 59, 290, 198, 21, 60, 479, 477, 536, ! 509: 44, 114, 538, 56, 360, 59, 399, 72, 75, 60, ! 510: 25, 268, 473, 150, 18, 105, 471, 472, 365, 546, ! 511: 355, 25, 115, 115, 166, 20, 49, 170, 103, 141, ! 512: 167, 431, 540, 49, 49, 35, 430, 56, 20, 59, ! 513: 425, 106, 162, 60, 25, 173, 27, 37, 106, 106, ! 514: 412, 41, 162, 480, 34, 479, 477, 191, 37, 236, ! 515: 110, 232, 32, 233, 235, 36, 112, 122, 163, 26, ! 516: 33, 174, 29, 35, 30, 20, 36, 24, 163, 117, ! 517: 161, 37, 14, 213, 27, 1, 276, 211, 212, 390, ! 518: 2, 187, 0, 0, 20, 13, 190, 0, 15, 36, ! 519: 32, 0, 17, 0, 0, 0, 0, 26, 40, 162, ! 520: 29, 75, 30, 0, 231, 71, 74, 106, 162, 21, ! 521: 0, 0, 0, 57, 197, 0, 219, 217, 0, 51, ! 522: 173, 35, 42, 0, 0, 163, 0, 49, 0, 105, ! 523: 48, 56, 0, 59, 163, 25, 0, 60, 44, 56, ! 524: 183, 59, 32, 0, 0, 60, 174, 43, 32, 272, ! 525: 0, 0, 29, 0, 30, 106, 0, 75, 29, 0, ! 526: 30, 52, 0, 53, 49, 0, 0, 0, 34, 0, ! 527: 0, 0, 37, 25, 0, 106, 0, 115, 0, 0, ! 528: 276, 276, 274, 49, 0, 31, 57, 196, 274, 0, ! 529: 36, 24, 0, 0, 161, 0, 473, 0, 474, 73, ! 530: 471, 472, 0, 106, 0, 43, 34, 0, 162, 208, ! 531: 37, 327, 0, 330, 0, 0, 0, 173, 272, 0, ! 532: 0, 0, 0, 31, 0, 25, 0, 0, 36, 47, ! 533: 272, 25, 105, 115, 163, 0, 0, 480, 478, 479, ! 534: 477, 0, 0, 174, 106, 0, 208, 162, 0, 0, ! 535: 0, 0, 0, 356, 0, 0, 106, 0, 106, 106, ! 536: 0, 0, 37, 0, 34, 281, 0, 0, 37, 0, ! 537: 0, 115, 115, 163, 0, 31, 0, 99, 0, 106, ! 538: 36, 31, 0, 0, 0, 0, 36, 47, 0, 0, ! 539: 0, 98, 0, 0, 0, 0, 0, 106, 106, 0, ! 540: 0, 0, 173, 0, 0, 0, 0, 0, 91, 0, ! 541: 92, 0, 100, 0, 93, 94, 0, 0, 81, 0, ! 542: 82, 0, 79, 80, 0, 115, 0, 0, 174, 0, ! 543: 0, 0, 84, 83, 89, 90, 0, 0, 97, 101, ! 544: 0, 115, 0, 115, 0, 115, 0, 0, 0, 0, ! 545: 0, 106, 0, 0, 0, 0, 162, 0, 96, 88, ! 546: 86, 87, 85, 95, 0, 104, 0, 106, 0, 106, ! 547: 0, 106, 0, 0, 0, 0, 0, 0, 0, 0, ! 548: 0, 0, 163, 0, 0, 162, 0, 0, 162, 0, ! 549: 0, 25, 115, 0, 0, 0, 0, 0, 451, 0, ! 550: 447, 444, 0, 173, 448, 445, 452, 450, 0, 0, ! 551: 35, 163, 0, 440, 163, 0, 449, 438, 106, 0, ! 552: 130, 151, 0, 0, 0, 433, 0, 139, 37, 174, ! 553: 441, 148, 0, 0, 0, 0, 439, 154, 0, 0, ! 554: 0, 0, 0, 136, 137, 0, 36, 132, 102, 133, ! 555: 0, 135, 134, 0, 0, 0, 0, 473, 0, 474, ! 556: 0, 471, 472, 213, 0, 214, 0, 211, 212, 432, ! 557: 346, 476, 127, 0, 0, 0, 35, 442, 146, 144, ! 558: 145, 147, 0, 143, 0, 0, 130, 151, 0, 0, ! 559: 0, 0, 138, 139, 434, 0, 0, 148, 480, 478, ! 560: 479, 477, 0, 154, 220, 218, 219, 217, 0, 136, ! 561: 137, 0, 0, 132, 0, 133, 0, 135, 134, 0, ! 562: 443, 213, 0, 0, 0, 211, 212, 473, 0, 474, ! 563: 0, 471, 472, 0, 0, 0, 157, 0, 0, 0, ! 564: 0, 476, 475, 149, 146, 144, 145, 147, 0, 143, ! 565: 0, 0, 0, 34, 0, 0, 0, 453, 138, 0, ! 566: 172, 0, 220, 127, 219, 217, 0, 35, 480, 478, ! 567: 479, 477, 0, 0, 0, 36, 24, 130, 151, 161, ! 568: 0, 0, 0, 0, 139, 0, 25, 0, 148, 0, ! 569: 0, 0, 0, 0, 154, 0, 0, 0, 0, 0, ! 570: 136, 137, 0, 0, 132, 0, 133, 0, 135, 134, ! 571: 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, ! 572: 473, 0, 0, 128, 471, 472, 0, 0, 0, 127, ! 573: 0, 0, 0, 0, 149, 146, 144, 145, 147, 0, ! 574: 143, 36, 24, 130, 151, 161, 0, 0, 213, 138, ! 575: 139, 172, 211, 212, 148, 0, 0, 0, 0, 0, ! 576: 154, 480, 478, 479, 477, 0, 136, 137, 35, 0, ! 577: 132, 0, 133, 0, 135, 134, 0, 25, 0, 0, ! 578: 0, 0, 473, 0, 474, 0, 471, 472, 0, 220, ! 579: 218, 219, 217, 157, 0, 338, 476, 475, 481, 0, ! 580: 149, 146, 144, 145, 147, 29, 143, 30, 0, 0, ! 581: 34, 0, 0, 127, 128, 138, 0, 152, 0, 0, ! 582: 0, 0, 0, 480, 478, 479, 477, 130, 151, 0, ! 583: 0, 0, 36, 24, 139, 0, 161, 0, 148, 0, ! 584: 0, 0, 0, 25, 154, 0, 0, 0, 0, 0, ! 585: 136, 137, 43, 0, 132, 0, 133, 0, 135, 134, ! 586: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 587: 0, 0, 0, 0, 0, 0, 0, 0, 25, 452, ! 588: 128, 0, 0, 0, 149, 146, 144, 145, 147, 0, ! 589: 143, 0, 0, 130, 151, 0, 0, 0, 36, 138, ! 590: 139, 152, 0, 0, 148, 0, 0, 0, 35, 0, ! 591: 154, 34, 130, 151, 0, 37, 136, 137, 0, 139, ! 592: 132, 0, 133, 148, 135, 134, 0, 25, 31, 154, ! 593: 0, 524, 0, 36, 47, 136, 137, 0, 0, 132, ! 594: 0, 133, 0, 135, 134, 29, 0, 30, 0, 0, ! 595: 149, 146, 144, 145, 147, 0, 143, 0, 0, 0, ! 596: 0, 0, 0, 0, 128, 138, 0, 152, 0, 149, ! 597: 146, 144, 145, 147, 0, 143, 0, 0, 130, 151, ! 598: 0, 0, 36, 0, 138, 139, 152, 0, 0, 148, ! 599: 0, 0, 43, 25, 0, 154, 0, 490, 0, 0, ! 600: 0, 136, 137, 0, 0, 132, 0, 133, 0, 135, ! 601: 134, 0, 25, 0, 0, 213, 0, 214, 25, 211, ! 602: 212, 0, 0, 0, 0, 0, 0, 0, 0, 216, ! 603: 453, 0, 0, 0, 0, 149, 146, 144, 145, 147, ! 604: 0, 143, 0, 0, 0, 0, 0, 0, 36, 228, ! 605: 138, 34, 152, 130, 151, 37, 220, 218, 219, 217, ! 606: 139, 0, 0, 0, 148, 0, 0, 36, 31, 0, ! 607: 154, 0, 321, 36, 47, 0, 136, 137, 25, 0, ! 608: 132, 0, 133, 0, 135, 134, 0, 0, 0, 0, ! 609: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 610: 0, 0, 0, 0, 0, 0, 0, 4, 11, 0, ! 611: 149, 146, 144, 145, 147, 228, 143, 130, 151, 0, ! 612: 35, 0, 0, 0, 139, 138, 0, 152, 148, 0, ! 613: 0, 27, 0, 36, 154, 0, 227, 0, 0, 0, ! 614: 136, 137, 0, 0, 132, 0, 133, 32, 135, 134, ! 615: 0, 0, 0, 25, 26, 0, 0, 29, 0, 30, ! 616: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 617: 0, 0, 0, 0, 149, 146, 144, 145, 147, 3, ! 618: 143, 6, 0, 0, 0, 0, 0, 17, 0, 138, ! 619: 228, 152, 130, 151, 0, 0, 473, 0, 474, 139, ! 620: 471, 472, 0, 148, 21, 0, 0, 0, 36, 154, ! 621: 476, 475, 481, 482, 485, 136, 137, 25, 0, 132, ! 622: 0, 133, 0, 135, 134, 0, 0, 213, 0, 214, ! 623: 25, 211, 212, 0, 0, 0, 0, 480, 478, 479, ! 624: 477, 216, 215, 221, 222, 225, 0, 0, 0, 149, ! 625: 146, 144, 145, 147, 228, 143, 0, 0, 0, 0, ! 626: 0, 0, 0, 34, 138, 0, 152, 37, 220, 218, ! 627: 219, 217, 36, 0, 0, 0, 130, 151, 0, 0, ! 628: 31, 0, 0, 139, 0, 36, 24, 148, 0, 5, ! 629: 0, 0, 25, 154, 0, 130, 151, 0, 0, 136, ! 630: 137, 0, 139, 132, 0, 133, 148, 135, 134, 0, ! 631: 0, 0, 154, 0, 0, 0, 0, 0, 136, 137, ! 632: 0, 0, 0, 0, 0, 0, 0, 0, 0, 228, ! 633: 0, 0, 0, 278, 146, 144, 145, 147, 0, 143, ! 634: 0, 0, 0, 0, 0, 0, 0, 36, 138, 0, ! 635: 152, 0, 149, 146, 144, 145, 147, 213, 143, 214, ! 636: 0, 211, 212, 0, 0, 127, 0, 138, 0, 152, ! 637: 0, 216, 215, 221, 0, 0, 25, 0, 0, 130, ! 638: 151, 0, 0, 0, 0, 0, 139, 0, 0, 0, ! 639: 148, 0, 0, 0, 0, 25, 154, 178, 220, 218, ! 640: 219, 217, 136, 137, 0, 0, 176, 0, 133, 0, ! 641: 135, 134, 213, 228, 214, 0, 211, 212, 0, 0, ! 642: 0, 0, 0, 0, 0, 0, 216, 215, 0, 157, ! 643: 0, 36, 228, 0, 547, 0, 149, 146, 144, 145, ! 644: 147, 0, 143, 213, 0, 214, 0, 211, 212, 0, ! 645: 36, 138, 0, 220, 218, 219, 217, 216, 215, 221, ! 646: 222, 225, 0, 210, 224, 0, 0, 0, 0, 0, ! 647: 0, 0, 0, 0, 213, 0, 214, 0, 211, 212, ! 648: 0, 0, 0, 223, 220, 218, 219, 217, 216, 215, ! 649: 221, 222, 225, 0, 210, 224, 544, 0, 543, 0, ! 650: 0, 0, 0, 0, 0, 213, 0, 214, 0, 211, ! 651: 212, 0, 0, 0, 223, 220, 218, 219, 217, 216, ! 652: 215, 221, 222, 225, 0, 210, 224, 0, 0, 179, ! 653: 535, 0, 0, 0, 0, 0, 0, 213, 0, 214, ! 654: 0, 211, 212, 0, 0, 223, 220, 218, 219, 217, ! 655: 0, 216, 215, 221, 222, 225, 0, 210, 224, 0, ! 656: 0, 0, 0, 0, 0, 0, 0, 0, 473, 0, ! 657: 474, 0, 471, 472, 0, 0, 0, 223, 220, 218, ! 658: 219, 217, 476, 475, 481, 482, 485, 532, 470, 484, ! 659: 0, 0, 0, 0, 0, 0, 0, 0, 0, 213, ! 660: 0, 214, 0, 211, 212, 0, 0, 0, 483, 480, ! 661: 478, 479, 477, 216, 215, 221, 222, 225, 530, 210, ! 662: 224, 526, 0, 0, 0, 0, 0, 0, 0, 0, ! 663: 213, 0, 214, 0, 211, 212, 0, 0, 0, 223, ! 664: 220, 218, 219, 217, 216, 215, 221, 222, 225, 0, ! 665: 210, 224, 0, 0, 0, 0, 0, 0, 0, 0, ! 666: 0, 213, 0, 214, 0, 211, 212, 0, 0, 0, ! 667: 223, 220, 218, 219, 217, 216, 215, 221, 222, 225, ! 668: 0, 210, 224, 493, 0, 406, 0, 0, 0, 0, ! 669: 0, 0, 213, 0, 214, 0, 211, 212, 0, 0, ! 670: 0, 223, 220, 218, 219, 217, 216, 215, 221, 222, ! 671: 225, 0, 210, 224, 0, 0, 376, 0, 0, 0, ! 672: 0, 0, 0, 213, 0, 214, 0, 211, 212, 0, ! 673: 0, 0, 223, 220, 218, 219, 217, 216, 215, 221, ! 674: 222, 225, 0, 210, 224, 0, 0, 373, 0, 0, ! 675: 0, 0, 0, 0, 213, 0, 214, 0, 211, 212, ! 676: 0, 0, 0, 223, 220, 218, 219, 217, 216, 215, ! 677: 221, 222, 225, 0, 210, 224, 0, 0, 0, 0, ! 678: 0, 0, 0, 0, 0, 213, 0, 214, 0, 211, ! 679: 212, 0, 0, 0, 223, 220, 218, 219, 217, 216, ! 680: 215, 221, 222, 225, 372, 210, 224, 335, 0, 0, ! 681: 0, 0, 0, 0, 0, 0, 213, 0, 214, 0, ! 682: 211, 212, 0, 0, 0, 223, 220, 218, 219, 217, ! 683: 216, 215, 221, 222, 225, 0, 210, 224, 0, 0, ! 684: 277, 0, 0, 0, 0, 0, 0, 213, 0, 214, ! 685: 0, 211, 212, 0, 0, 0, 223, 220, 218, 219, ! 686: 217, 216, 215, 221, 222, 225, 0, 210, 224, 0, ! 687: 0, 0, 0, 0, 0, 0, 0, 0, 473, 0, ! 688: 474, 0, 471, 472, 0, 0, 0, 223, 220, 218, ! 689: 219, 217, 476, 475, 481, 482, 485, 0, 470, 484, ! 690: 0, 0, 0, 0, 0, 0, 0, 0, 0, 473, ! 691: 0, 474, 0, 471, 472, 0, 0, 0, 483, 480, ! 692: 478, 479, 477, 476, 475, 481, 482, 485, 213, 470, ! 693: 214, 0, 211, 212, 0, 0, 0, 0, 0, 0, ! 694: 0, 0, 216, 215, 221, 222, 225, 0, 210, 483, ! 695: 480, 478, 479, 477, 0, 0, 0, 0, 0, 0, ! 696: 0, 0, 0, 0, 0, 0, 0, 0, 223, 220, ! 697: 218, 219, 217 }; ! 698: short yypact[]={ ! 699: ! 700: 1597,-1000,-1000,-1000,-1000, 132,-1000,-1000,-1000,-1000, ! 701: -1000, 415, 640, 681,-1000, 304,-1000, 283, 129, 286, ! 702: 69,-1000,-1000,-1000,-1000,-1000, -81, 858,-1000, -17, ! 703: -28, -29,-1000,-1000, 467, 278,-1000,-1000,-1000, 29, ! 704: 577, 190,-1000,-1000, 304,-1000,-1000,-1000, 266, 65, ! 705: -1000,1294,1210,-1000, 478,-1000, 384,1053,-1000,1294, ! 706: -1000,-1000,1846,-1000, 478, 277,-1000,-1000,-1000,-1000, ! 707: 276, 358, 304,-1000, 689, 304,-1000,-1000,-1000,-1000, ! 708: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, ! 709: -1000, 381, 288,-1000,-1000,-1000,-1000,-1000,-1000,-1000, ! 710: -1000,-1000,-1000, 55,-1000,-1000, -19,-1000,-1000,-1000, ! 711: 602, 247,-1000,-1000,-1000,-1000, 47, 125,-1000,-1000, ! 712: 379, 478,1210, 23,-1000,1294,2368,1584, 503, -10, ! 713: 25,1659,1659,1659,1659,1659,1659,1659,1659,1659, ! 714: -1000,-1000,1144,-1000,-1000,-1000,-1000,-1000,-1000,-1000, ! 715: 35, 858, 411, 407,-1000, 181,2368,1210, 121,-1000, ! 716: 640,-1000,-1000, -83,-1000, 378, -25, 213,-1000,-1000, ! 717: -1000, 698, 411, 407, 364,2287,1743, 365,-1000, 69, ! 718: -1000,-1000, 277,-1000,-1000,-1000,-1000,-1000,-1000, 26, ! 719: -1000,-1000,-1000, 177, 160,-1000, 243, 129, 111, -49, ! 720: 166,-1000, 227, 47, 154, 49,-1000,-1000, 577,2368, ! 721: 1294,1294,1294,1294,1294,1294,1294,1294,1294,1294, ! 722: 1294,1294,1294,1294,1294,1294, -10,1294, 437,1520, ! 723: 25,-1000,1294, 370,1659, 370,1210,-1000,-1000,1053, ! 724: 1385, 599, -10, -10, -10, -10, 599, 599, 599, 599, ! 725: 1762,2256,1245,-1000, 858, 1,-1000,-1000,1210,1210, ! 726: -1000, 97, 71,-1000,-1000,-1000, -40,-1000, 349, 207, ! 727: -1000,1210,-1000, 530,-1000, 692, 275,-1000, 343,-1000, ! 728: -40, 543,-1000,-1000,-1000,-1000,-1000,-1000, 152,-1000, ! 729: 188,-1000,-1000, 501, 338,-1000, 47,1294, 148,-1000, ! 730: 71,-1000,-1000,2368, 70, 70,-1000,1188,1455,1003, ! 731: 268,1061,-1000, 613,1852,1797,2368,2368,2225,2194, ! 732: -10,1294,-1000,-1000,1053,2163,-1000,-1000, 599,-1000, ! 733: -1000, 337, 324, 368, 26,-1000, 455, 50, 198,-1000, ! 734: -1000,-1000, 323, 318,-1000,-1000, -54, 292,-1000,-1000, ! 735: -1000,-1000,-1000,-1000,-1000,1210,-1000, 297, 479, 402, ! 736: 402, -99,-1000, -49,-1000, 1,-1000, 1,-1000,2368, ! 737: -1000,-1000,1294,1659,2132, 315,-1000,-1000, 25,-1000, ! 738: 368,-1000,-1000, 368, 371,-1000,-1000,-1000,-1000, 95, ! 739: 184,-1000,1210, 401, -40,-1000,-1000,-1000,-1000,-1000, ! 740: -1000,-1000,-1000,-1000,1667, -10,1659, 25,-1000,-1000, ! 741: 478, 297, 76,-1000, 292, 306,1210, 240, -10,-1000, ! 742: -1000,-1000,-1000,-1000,-1000, 987,-1000,-1000, 301, 71, ! 743: -1000,-1000,-1000,1294, 127,-1000,-1000,-1000, 389, 389, ! 744: 399, 389, 234, 231,-1000, 230,2318,-1000,-1000, 45, ! 745: -1000, 396,1445, 495, -10,-1000,-1000,-1000, 140,2101, ! 746: 71,-1000,1294,-1000,-1000,-1000,-1000,-1000,1294,-1000, ! 747: 1360,1360,1360,1360,1360,1360,1360,1360,1360,1360, ! 748: 1360,1360,1360,1360,1360,1360,-1000,-1000, 10, -10, ! 749: 1294,1379,-1000,-1000,-1000, 450,2070,-1000,-1000,-1000, ! 750: -1000,-1000,2039,-1000,2349, 38, 38,-1000,1160, 997, ! 751: 736, 101, 542,-1000, 484,1067,1222,2349,2349,2008, ! 752: 419, 293,1977, -10,1294,-1000,-1000,1294,-1000,-1000, ! 753: -1000,-1000,1360, 389,-1000,1659,1945,-1000,1914,-1000, ! 754: 1636,-1000, -10,1659,1294, -10,1883,-1000,-1000 }; ! 755: short yypgo[]={ ! 756: ! 757: 0, 670, 71, 53, 2, 449, 12, 669, 9, 6, ! 758: 665, 11, 64, 43, 662, 49, 23, 17, 25, 659, ! 759: 650, 45, 640, 637, 51, 631, 33, 675, 19, 630, ! 760: 1, 620, 5, 616, 611, 610, 4, 54, 79, 0, ! 761: 22, 609, 15, 26, 24, 41, 608, 16, 18, 607, ! 762: 21, 604, 14, 8, 3, 36, 593, 567, 39, 591, ! 763: 586, 574, 573, 13, 10, 494, 50, 571, 546, 541, ! 764: 531, 529, 528, 522, 511, 510, 509, 506, 499, 468, ! 765: 29 }; ! 766: short yyr1[]={ ! 767: ! 768: 0, 10, 10, 10, 10, 10, 1, 1, 1, 1, ! 769: 1, 2, 2, 4, 4, 4, 3, 3, 3, 67, ! 770: 60, 66, 68, 6, 6, 7, 7, 8, 8, 5, ! 771: 5, 24, 24, 24, 24, 25, 25, 9, 9, 14, ! 772: 14, 14, 14, 14, 14, 14, 13, 13, 13, 13, ! 773: 13, 13, 19, 19, 15, 15, 15, 16, 16, 17, ! 774: 17, 17, 69, 21, 21, 21, 70, 70, 61, 61, ! 775: 62, 62, 63, 63, 63, 63, 63, 20, 20, 18, ! 776: 18, 22, 22, 23, 23, 23, 23, 23, 23, 23, ! 777: 23, 26, 26, 26, 26, 58, 58, 58, 58, 58, ! 778: 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, ! 779: 58, 58, 58, 58, 58, 58, 58, 58, 58, 56, ! 780: 56, 57, 57, 64, 64, 27, 27, 27, 27, 27, ! 781: 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, ! 782: 27, 27, 47, 47, 47, 47, 47, 47, 47, 52, ! 783: 52, 52, 42, 42, 42, 42, 42, 44, 44, 29, ! 784: 29, 30, 31, 54, 71, 32, 32, 32, 34, 34, ! 785: 34, 34, 72, 34, 34, 74, 73, 33, 33, 33, ! 786: 33, 33, 33, 33, 33, 33, 33, 75, 33, 33, ! 787: 76, 33, 77, 33, 78, 33, 79, 33, 36, 35, ! 788: 35, 28, 28, 38, 38, 38, 38, 38, 38, 38, ! 789: 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, ! 790: 38, 38, 38, 38, 37, 37, 37, 37, 37, 37, ! 791: 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, ! 792: 37, 37, 37, 37, 37, 37, 39, 39, 39, 39, ! 793: 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, ! 794: 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, ! 795: 39, 39, 39, 39, 39, 39, 41, 41, 41, 41, ! 796: 41, 41, 41, 55, 55, 40, 40, 40, 40, 40, ! 797: 40, 40, 43, 80, 46, 46, 46, 46, 45, 53, ! 798: 49, 49, 65, 50, 51, 51, 48, 48, 59, 59, ! 799: 59, 12, 12, 12, 12, 12, 12, 12, 11, 11 }; ! 800: short yyr2[]={ ! 801: ! 802: 0, 1, 1, 1, 2, 1, 1, 1, 1, 1, ! 803: 5, 4, 2, 6, 5, 5, 5, 4, 4, 0, ! 804: 4, 0, 0, 3, 0, 1, 3, 3, 4, 2, ! 805: 0, 1, 3, 2, 3, 1, 3, 3, 2, 1, ! 806: 1, 1, 2, 1, 1, 1, 1, 2, 2, 2, ! 807: 2, 2, 1, 1, 4, 5, 2, 1, 3, 1, ! 808: 3, 0, 0, 5, 2, 2, 0, 2, 2, 0, ! 809: 1, 3, 1, 2, 2, 3, 3, 2, 4, 1, ! 810: 1, 2, 0, 1, 2, 2, 1, 1, 1, 2, ! 811: 3, 1, 2, 2, 2, 1, 1, 1, 1, 1, ! 812: 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, ! 813: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ! 814: 2, 2, 1, 0, 2, 2, 4, 2, 4, 6, ! 815: 4, 4, 6, 1, 3, 2, 4, 2, 2, 2, ! 816: 2, 3, 1, 2, 0, 2, 2, 2, 3, 0, ! 817: 2, 2, 0, 2, 2, 4, 4, 0, 2, 0, ! 818: 2, 2, 0, 3, 0, 4, 2, 3, 1, 1, ! 819: 1, 2, 0, 5, 4, 0, 2, 2, 1, 3, ! 820: 3, 1, 1, 1, 3, 5, 3, 0, 9, 3, ! 821: 0, 4, 0, 4, 0, 5, 0, 4, 1, 1, ! 822: 3, 1, 3, 3, 3, 3, 3, 3, 3, 3, ! 823: 3, 3, 3, 3, 3, 3, 3, 3, 5, 2, ! 824: 5, 3, 6, 1, 3, 3, 3, 3, 3, 3, ! 825: 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, ! 826: 2, 5, 3, 6, 1, 0, 2, 2, 3, 3, ! 827: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, ! 828: 2, 4, 3, 3, 3, 3, 3, 1, 1, 3, ! 829: 1, 1, 1, 1, 1, 1, 4, 4, 5, 5, ! 830: 6, 6, 4, 1, 1, 1, 2, 2, 3, 2, ! 831: 3, 3, 4, 1, 1, 1, 2, 2, 2, 2, ! 832: 2, 4, 1, 5, 3, 1, 1, 0, 0, 1, ! 833: 2, 1, 1, 2, 2, 2, 1, 2, 3, 1 }; ! 834: short yychk[]={ ! 835: ! 836: -1000, -10, -1, 72, 0, 182, 74, -9, -4, -3, ! 837: -2, 1, -13, -27, -14, -57, -26, 80, -56, -12, ! 838: -65, 97, -21, -15, 179, 123, 47, 24, -55, 50, ! 839: 52, 173, 40, -20, 156, 13, 178, 160, 73, 40, ! 840: -27, -25, 72, 97, -57, -21, -15, 179, 80, -56, ! 841: -24, 69, 70, 72, -5, -50, 40, -65, -11, 42, ! 842: 46, -50, 40, -11, -65, 45, 179, -55, 123, -26, ! 843: 80, -27, -57, 97, -27, -57, 123, -58, -45, 54, ! 844: 55, 50, 52, 65, 64, 94, 92, 93, 91, 66, ! 845: 67, 40, 42, 46, 47, 95, 90, 70, 23, 9, ! 846: 44, 71, 180, -46, 97, -57, -56, 97, 97, 97, ! 847: -22, -18, 179, 73, 80, -57, 73, -19, -18, 179, ! 848: 81, -5, 70, 71, 72, 69, -37, 9, 160, -39, ! 849: 23, -43, 50, 52, 55, 54, 46, 47, 95, 30, ! 850: -40, -41, -80, 86, 82, 83, 81, 84, 34, 80, ! 851: -56, 24, 97, -57, 40, -28, -37, 73, -66, -9, ! 852: -13, 182, -57, -56, 41, -36, -51, -35, -48, -28, ! 853: -49, -13, 97, -57, -56, -37, 50, -36, 41, 173, ! 854: -26, 80, 45, 41, 41, 43, 97, -57, -44, -12, ! 855: 74, -23, -9, -4, -3, -2, 175, -56, -61, 69, ! 856: -16, -17, 80, 73, 41, -66, -28, -24, -27, -37, ! 857: 70, 54, 55, 50, 52, 65, 64, 94, 92, 93, ! 858: 91, 66, 67, 90, 71, 68, -39, 42, 160, 9, ! 859: 23, 95, 42, 44, 180, 45, 40, -43, -53, -80, ! 860: -13, -39, -39, -39, -39, -39, -39, -39, -39, -39, ! 861: -43, -37, -13, 80, 24, 47, -58, -45, 40, 40, ! 862: 72, -36, -6, 124, 125, 69, -64, 41, -59, 71, ! 863: 155, 71, -57, -47, 80, -12, -65, 43, 80, 41, ! 864: -64, -27, -26, -44, -69, 72, 72, 69, -26, 73, ! 865: -62, -63, -18, 175, 97, 74, 71, 70, -16, 72, ! 866: -6, 124, 125, -37, -37, -37, -37, -37, -37, -37, ! 867: -37, -37, -37, -37, -37, -37, -37, -37, -37, -37, ! 868: -39, 42, -43, -53, -80, -37, -40, -57, -39, -40, ! 869: -57, -36, -36, -52, -12, 41, -42, -12, 40, -58, ! 870: -45, -18, -36, -36, 74, -32, 73, -68, 97, 41, ! 871: -48, 155, -28, -11, -50, 70, -57, -47, -47, 41, ! 872: 41, -70, 72, 71, -18, 97, -18, 175, -17, -37, ! 873: 74, -32, 69, 43, -37, -36, 43, 41, 41, -11, ! 874: -52, -11, 41, -42, -42, 41, 41, -71, 74, 256, ! 875: -7, -8, 40, -18, -64, -28, 41, -50, -50, -60, ! 876: 127, -63, -18, -18, -37, -39, 43, 41, -43, -53, ! 877: -80, 41, -29, 74, 71, -36, 40, -67, -39, -43, ! 878: -53, -50, -11, -30, 74, -31, -8, 41, -36, -6, ! 879: -33, -34, 72, 28, 97, -9, -4, -32, 20, 39, ! 880: 16, 33, 80, 123, 4, 8, -38, 3, 7, 19, ! 881: 10, 1, 9, 160, -39, 41, -32, -73, -74, -37, ! 882: 81, -54, 40, -54, 40, -54, 69, 69, -78, 69, ! 883: 70, 54, 55, 50, 52, 65, 64, 94, 92, 93, ! 884: 91, 66, 67, 90, 71, 68, 80, -72, 40, -39, ! 885: 42, 9, 72, 72, -32, -30, -37, -30, -75, -30, ! 886: -76, -77, -37, -79, -38, -38, -38, -38, -38, -38, ! 887: -38, -38, -38, -38, -38, -38, -38, -38, -38, -38, ! 888: -30, 81, -37, -39, 42, 12, 41, -30, -30, -30, ! 889: 69, -30, 69, 39, 41, 43, -37, -30, -37, -30, ! 890: -38, -54, -39, 43, 72, -39, -37, 41, -30 }; ! 891: short yydef[]={ ! 892: ! 893: 0, -2, 1, 2, 3, 40, 5, 6, 7, 8, ! 894: 9, 0, 0, 30, 46, 41, 133, 91, 0, 0, ! 895: 0, 39, 43, 44, 45, 122, 0, 0, 119, 311, ! 896: 312, 316, 302, 82, 0, 0, 283, 284, 4, 0, ! 897: -2, 0, 38, 47, 48, 49, 50, 51, 91, 0, ! 898: 35, 245, 245, 12, 21, 125, 302, -2, 140, 245, ! 899: 319, 127, -2, 139, 307, 0, 42, 120, 121, 135, ! 900: 91, 137, 138, 314, 0, 0, 92, 93, 94, 95, ! 901: 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, ! 902: 106, 0, 0, 109, 110, 111, 112, 113, 114, 115, ! 903: 116, 117, 118, 157, 294, 295, 0, 313, 315, 317, ! 904: 0, -2, 65, 77, 79, 80, 61, 56, 52, 53, ! 905: 0, 21, 245, 0, 37, 245, 33, 0, 284, 244, ! 906: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 907: 267, 268, 245, 270, 271, 272, 273, 274, 275, 285, ! 908: 0, 0, 0, 0, 293, 0, 201, 245, 24, 29, ! 909: 0, 40, 41, 0, 123, 0, 308, 198, 305, 199, ! 910: 306, 144, 39, 41, 0, 0, 0, 0, 123, 0, ! 911: 134, 91, 0, 141, 107, 108, 296, 297, 298, 157, ! 912: 62, 81, 83, 87, 86, 88, 0, 0, 0, 0, ! 913: 0, 57, 59, 61, 0, 24, 34, 36, 31, 32, ! 914: 245, 245, 245, 245, 245, 245, 245, 245, 245, 245, ! 915: 245, 245, 245, 245, 245, 245, 240, 245, 284, 0, ! 916: 0, 250, 245, 0, 0, 0, 245, 246, 247, 245, ! 917: 149, 251, 252, 253, 254, 255, 256, 257, 258, 259, ! 918: 260, 0, 152, 286, 0, 0, 287, 289, 245, 245, ! 919: 11, 0, 0, 17, 18, 22, 126, 128, 0, 307, ! 920: 309, 245, 48, 300, 142, 144, 144, 318, 285, 130, ! 921: 131, 0, 136, 158, 66, 84, 85, 89, 135, 78, ! 922: 68, 70, 72, 0, 0, 54, 61, 245, 0, 10, ! 923: 0, 14, 15, 224, 225, 226, 227, 228, 229, 230, ! 924: 231, 232, 233, 234, 235, 236, 237, 238, 0, 0, ! 925: 242, 245, 248, 249, 245, 0, 262, 264, 263, 265, ! 926: 266, 0, 0, 299, 149, 269, 0, 152, 152, 288, ! 927: 290, 291, 0, 0, 202, 16, -2, 0, 124, 123, ! 928: 304, 310, 200, 146, 147, 245, 143, 145, 0, 0, ! 929: 0, 63, 90, 0, 73, 0, 74, 0, 58, 60, ! 930: 55, 13, 245, 0, 0, 0, 261, 282, 0, 151, ! 931: 150, 154, 292, 153, 0, 276, 277, 159, 166, 0, ! 932: 23, 25, 245, 0, 303, 301, 148, 129, 132, 67, ! 933: 19, 71, 75, 76, 239, 241, 0, 0, 278, 279, ! 934: 0, 0, 162, 167, 0, 0, 245, 24, 243, 280, ! 935: 281, 155, 156, 160, 165, 0, 26, 27, 0, 0, ! 936: 161, 175, 178, 245, 39, 181, 182, 183, 0, 0, ! 937: 0, 0, 285, 122, 194, 0, 168, 169, 170, 0, ! 938: 172, 0, 0, 284, 223, 28, 20, 177, 0, 0, ! 939: 0, 162, 245, 162, 187, 162, 190, 192, 245, 196, ! 940: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ! 941: 0, 0, 0, 0, 0, 0, 171, 162, 0, 219, ! 942: 245, 0, 176, 179, 180, 184, 0, 186, 162, 189, ! 943: 162, 162, 0, 162, 203, 204, 205, 206, 207, 208, ! 944: 209, 210, 211, 212, 213, 214, 215, 216, 217, 0, ! 945: 0, 0, 0, 221, 245, 162, 163, 245, 191, 193, ! 946: 162, 197, 0, 0, 174, 0, 0, 185, 0, 195, ! 947: 218, 173, 220, 0, 245, 222, 0, 162, 188 }; ! 948: # ifdef YYDEBUG ! 949: # include "y.debug" ! 950: # endif ! 951: ! 952: # define YYFLAG -1000 ! 953: # define YYERROR goto yyerrlab ! 954: # define YYACCEPT return(0) ! 955: # define YYABORT return(1) ! 956: ! 957: /* parser for yacc output */ ! 958: ! 959: #ifdef YYDEBUG ! 960: int yydebug = 0; /* 1 for debugging */ ! 961: #endif ! 962: YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */ ! 963: int yychar = -1; /* current input token number */ ! 964: int yynerrs = 0; /* number of errors */ ! 965: short yyerrflag = 0; /* error recovery flag */ ! 966: ! 967: yyparse() ! 968: { short yys[YYMAXDEPTH]; ! 969: int yyj, yym; ! 970: register YYSTYPE *yypvt; ! 971: register int yystate, yyn; ! 972: register short *yyps; ! 973: register YYSTYPE *yypv; ! 974: register short *yyxi; ! 975: ! 976: yystate = 0; ! 977: yychar = -1; ! 978: yynerrs = 0; ! 979: yyerrflag = 0; ! 980: yyps= &yys[-1]; ! 981: yypv= &yyv[-1]; ! 982: ! 983: yystack: /* put a state and value onto the stack */ ! 984: #ifdef YYDEBUG ! 985: if(yydebug >= 3) ! 986: if(yychar < 0 || yytoknames[yychar] == 0) ! 987: printf("char %d in %s", yychar, yystates[yystate]); ! 988: else ! 989: printf("%s in %s", yytoknames[yychar], yystates[yystate]); ! 990: #endif ! 991: if( ++yyps >= &yys[YYMAXDEPTH] ) { ! 992: yyerror( "yacc stack overflow" ); ! 993: return(1); ! 994: } ! 995: *yyps = yystate; ! 996: ++yypv; ! 997: *yypv = yyval; ! 998: yynewstate: ! 999: yyn = yypact[yystate]; ! 1000: if(yyn <= YYFLAG) goto yydefault; /* simple state */ ! 1001: if(yychar<0) { ! 1002: yychar = yylex(); ! 1003: #ifdef YYDEBUG ! 1004: if(yydebug >= 2) { ! 1005: if(yychar <= 0) ! 1006: printf("lex EOF\n"); ! 1007: else if(yytoknames[yychar]) ! 1008: printf("lex %s\n", yytoknames[yychar]); ! 1009: else ! 1010: printf("lex (%c)\n", yychar); ! 1011: } ! 1012: #endif ! 1013: if(yychar < 0) ! 1014: yychar = 0; ! 1015: } ! 1016: if((yyn += yychar) < 0 || yyn >= YYLAST) ! 1017: goto yydefault; ! 1018: if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */ ! 1019: yychar = -1; ! 1020: yyval = yylval; ! 1021: yystate = yyn; ! 1022: if( yyerrflag > 0 ) --yyerrflag; ! 1023: goto yystack; ! 1024: } ! 1025: yydefault: ! 1026: /* default state action */ ! 1027: if( (yyn=yydef[yystate]) == -2 ) { ! 1028: if(yychar < 0) { ! 1029: yychar = yylex(); ! 1030: #ifdef YYDEBUG ! 1031: if(yydebug >= 2) ! 1032: if(yychar < 0) ! 1033: printf("lex EOF\n"); ! 1034: else ! 1035: printf("lex %s\n", yytoknames[yychar]); ! 1036: #endif ! 1037: if(yychar < 0) ! 1038: yychar = 0; ! 1039: } ! 1040: /* look through exception table */ ! 1041: for(yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate); ! 1042: yyxi += 2 ) ; /* VOID */ ! 1043: while( *(yyxi+=2) >= 0 ){ ! 1044: if( *yyxi == yychar ) break; ! 1045: } ! 1046: if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */ ! 1047: } ! 1048: if( yyn == 0 ){ /* error */ ! 1049: /* error ... attempt to resume parsing */ ! 1050: switch( yyerrflag ){ ! 1051: case 0: /* brand new error */ ! 1052: #ifdef YYDEBUG ! 1053: yyerror("syntax error\n%s", yystates[yystate]); ! 1054: if(yytoknames[yychar]) ! 1055: yyerror("saw %s\n", yytoknames[yychar]); ! 1056: else if(yychar >= ' ' && yychar < '\177') ! 1057: yyerror("saw `%c'\n", yychar); ! 1058: else if(yychar == 0) ! 1059: yyerror("saw EOF\n"); ! 1060: else ! 1061: yyerror("saw char 0%o\n", yychar); ! 1062: #else ! 1063: yyerror( "syntax error" ); ! 1064: #endif ! 1065: yyerrlab: ! 1066: ++yynerrs; ! 1067: case 1: ! 1068: case 2: /* incompletely recovered error ... try again */ ! 1069: yyerrflag = 3; ! 1070: /* find a state where "error" is a legal shift action */ ! 1071: while ( yyps >= yys ) { ! 1072: yyn = yypact[*yyps] + YYERRCODE; ! 1073: if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){ ! 1074: yystate = yyact[yyn]; /* simulate a shift of "error" */ ! 1075: goto yystack; ! 1076: } ! 1077: yyn = yypact[*yyps]; ! 1078: /* the current yyps has no shift onn "error", pop stack */ ! 1079: #ifdef YYDEBUG ! 1080: if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] ); ! 1081: #endif ! 1082: --yyps; ! 1083: --yypv; ! 1084: } ! 1085: /* there is no state on the stack with an error shift ... abort */ ! 1086: yyabort: ! 1087: return(1); ! 1088: case 3: /* no shift yet; clobber input char */ ! 1089: #ifdef YYDEBUG ! 1090: if( yydebug ) { ! 1091: printf("error recovery discards "); ! 1092: if(yytoknames[yychar]) ! 1093: printf("%s\n", yytoknames[yychar]); ! 1094: else if(yychar >= ' ' && yychar < '\177') ! 1095: printf("`%c'\n", yychar); ! 1096: else if(yychar == 0) ! 1097: printf("EOF\n"); ! 1098: else ! 1099: printf("char 0%o\n", yychar); ! 1100: } ! 1101: #endif ! 1102: if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */ ! 1103: yychar = -1; ! 1104: goto yynewstate; /* try again in the same state */ ! 1105: } ! 1106: } ! 1107: /* reduction by production yyn */ ! 1108: #ifdef YYDEBUG ! 1109: if(yydebug) { char *s; ! 1110: printf("reduce %d in:\n\t", yyn); ! 1111: for(s = yystates[yystate]; *s; s++) { ! 1112: putchar(*s); ! 1113: if(*s == '\n' && *(s+1)) ! 1114: putchar('\t'); ! 1115: } ! 1116: } ! 1117: #endif ! 1118: yyps -= yyr2[yyn]; ! 1119: yypvt = yypv; ! 1120: yypv -= yyr2[yyn]; ! 1121: yyval = yypv[1]; ! 1122: yym=yyn; ! 1123: /* consult goto table to find next state */ ! 1124: yyn = yyr1[yyn]; ! 1125: yyj = yypgo[yyn] + *yyps + 1; ! 1126: if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]]; ! 1127: switch(yym){ ! 1128: ! 1129: case 1: ! 1130: # line 415 "gram.y" ! 1131: { return 2; } break; ! 1132: case 2: ! 1133: # line 416 "gram.y" ! 1134: { return 1; } break; ! 1135: case 3: ! 1136: # line 417 "gram.y" ! 1137: { return 0; } break; ! 1138: case 4: ! 1139: # line 419 "gram.y" ! 1140: { ! 1141: set_linkage(yypvt[-1].s); ! 1142: bl_level--; ! 1143: return 1; ! 1144: } break; ! 1145: case 5: ! 1146: # line 425 "gram.y" ! 1147: { ! 1148: set_linkage(0); ! 1149: bl_level++; ! 1150: return 1; ! 1151: } break; ! 1152: case 6: ! 1153: # line 433 "gram.y" ! 1154: { ! 1155: /* if function declartion with arguments ! 1156: * need to make sure modified_tn is traversed */ ! 1157: if ( yypvt[-0].pn != 0 ! 1158: && yypvt[-0].pn->tp->base == FCT ! 1159: && Pfct(yypvt[-0].pn->tp)->nargs !=0 ) ! 1160: goto mod; ! 1161: else { ! 1162: modified_tn = 0; ! 1163: curr_scope = 0; ! 1164: if (yypvt[-0].pn==0) yyval.i = 1; ! 1165: } ! 1166: } break; ! 1167: case 7: ! 1168: # line 447 "gram.y" ! 1169: { goto mod; } break; ! 1170: case 8: ! 1171: # line 449 "gram.y" ! 1172: { goto mod; } break; ! 1173: case 9: ! 1174: # line 451 "gram.y" ! 1175: { mod: if (modified_tn) { ! 1176: restore(); ! 1177: modified_tn = 0; ! 1178: } ! 1179: local_blk = 0; ! 1180: curr_scope = 0; ! 1181: if (local_tn) { ! 1182: local_restore(); ! 1183: local_tn = 0; ! 1184: } ! 1185: ! 1186: if (nested_tn) { // x::f(){} ! 1187: nested_restore(); ! 1188: nested_tn = 0; ! 1189: nested_type = 0; ! 1190: } ! 1191: } break; ! 1192: case 10: ! 1193: # line 469 "gram.y" ! 1194: { Pname n = new name(make_name('A')); ! 1195: n->tp = new basetype(ASM,0); ! 1196: Pbase(n->tp)->b_name = Pname(yypvt[-2].s); ! 1197: yyval.p = n; ! 1198: } break; ! 1199: case 11: ! 1200: # line 477 "gram.y" ! 1201: { ! 1202: err_name = yypvt[-3].pn; ! 1203: if(err_name) err_name->n_initializer = yypvt[-1].pe; ! 1204: goto fix; ! 1205: } break; ! 1206: case 12: ! 1207: # line 483 "gram.y" ! 1208: { ! 1209: Ptype t; ! 1210: err_name = yypvt[-1].pn; ! 1211: fix: ! 1212: if (err_name == 0) { ! 1213: error("syntax error:TX"); ! 1214: yyval.p = Ndata(defa_type,err_name); ! 1215: } ! 1216: else if ((t=err_name->tp) == 0) { ! 1217: error("TX for%n",err_name); ! 1218: yyval.p = Ndata(defa_type,err_name); ! 1219: } ! 1220: else if (t->base==FCT) { ! 1221: if (Pfct(t)->returns==0) ! 1222: yyval.p = Nfct(defa_type,err_name,0); ! 1223: else ! 1224: yyval.p = Ndata(0,err_name); ! 1225: } ! 1226: else { ! 1227: error("syntax error:TX for%k%n",t->base,err_name); ! 1228: yyval.p = Ndata(defa_type,err_name); ! 1229: } ! 1230: } break; ! 1231: case 13: ! 1232: # line 509 "gram.y" ! 1233: { Pname n = Nfct(yypvt[-5].p,yypvt[-4].pn,yypvt[-0].p); ! 1234: Fargdcl(n->tp,name_unlist(yypvt[-3].nl),n); ! 1235: Finit(n->tp) = yypvt[-1].pn; ! 1236: yyval.p = n; ! 1237: NOT_EXPECT_ID(); ! 1238: } break; ! 1239: case 14: ! 1240: # line 516 "gram.y" ! 1241: { ! 1242: Pname n = Nfct(yypvt[-4].p,yypvt[-3].pn,dummy); ! 1243: Fargdcl(n->tp,name_unlist(yypvt[-2].nl),n); ! 1244: yypvt[-0].q->retval.pn = n; ! 1245: yyval.p = n; ! 1246: NOT_EXPECT_ID(); ! 1247: } break; ! 1248: case 15: ! 1249: # line 524 "gram.y" ! 1250: { ! 1251: error(&yypvt[-3].pn->where,"syntax error -- did you forget a ';'?"); ! 1252: Pname n = Nfct(yypvt[-4].p,yypvt[-3].pn,0); ! 1253: yyval.p = n; ! 1254: NOT_EXPECT_ID(); ! 1255: } break; ! 1256: case 16: ! 1257: # line 533 "gram.y" ! 1258: { Pname n = Nfct(defa_type,yypvt[-4].pn,yypvt[-0].p); ! 1259: Fargdcl(n->tp,name_unlist(yypvt[-3].nl),n); ! 1260: if ( yypvt[-1].pn && yypvt[-1].pn->n_list && ! 1261: ccl && ccl->csu == UNION ) ! 1262: error( "multiple initializers in unionK %s::%n", yypvt[-4].pn->string, yypvt[-4].pn ); ! 1263: Finit(n->tp) = yypvt[-1].pn; ! 1264: yyval.p = n; ! 1265: NOT_EXPECT_ID(); ! 1266: } break; ! 1267: case 17: ! 1268: # line 543 "gram.y" ! 1269: { ! 1270: Pname n = Nfct(defa_type,yypvt[-3].pn,dummy); ! 1271: Fargdcl(n->tp,name_unlist(yypvt[-2].nl),n); ! 1272: yypvt[-0].q->retval.pn = n; ! 1273: yyval.p = n; ! 1274: NOT_EXPECT_ID(); ! 1275: } break; ! 1276: case 18: ! 1277: # line 551 "gram.y" ! 1278: { ! 1279: error(&yypvt[-3].pn->where,"badD of%n -- did you forget a ';'?",yypvt[-3].pn); ! 1280: Pname n = Nfct(defa_type,yypvt[-3].pn,0); ! 1281: yyval.p = n; ! 1282: NOT_EXPECT_ID(); ! 1283: } break; ! 1284: case 19: ! 1285: # line 559 "gram.y" ! 1286: { arg_redec(yypvt[-0].pn); } break; ! 1287: case 20: ! 1288: # line 561 "gram.y" ! 1289: { ! 1290: Finit(yypvt[-3].pn->tp) = yypvt[-1].pn; ! 1291: Pfct(yypvt[-3].pn->tp)->body = Pblock(yypvt[-0].p); ! 1292: yyval.pn = yypvt[-3].pn; ! 1293: NOT_EXPECT_ID(); ! 1294: } break; ! 1295: case 21: ! 1296: # line 571 "gram.y" ! 1297: { ! 1298: // if parsing implicit inline def, save body ! 1299: // of function for parsing after class def ! 1300: switch ( NEXTTOK() ) { ! 1301: case LC: case COLON: ! 1302: if ( in_class_decl ) { ! 1303: // mem or friend inline def ! 1304: // save text of mem_init & ftn ! 1305: la_backup(yychar,yylval); ! 1306: // yylval used as dummy... ! 1307: la_backup(FDEF, yylval); ! 1308: if ( yylval.q = save_text() ) ! 1309: yychar = EMPTY; ! 1310: else { // syntax error ! 1311: // just parse in place ! 1312: yylex(); // FDEF ! 1313: yychar = yylex(); ! 1314: } ! 1315: } // if in_class_decl ! 1316: break; ! 1317: default: ! 1318: la_backup(yychar,yylval); ! 1319: yychar = NO_ID; // 'graceful' recovery ! 1320: break; ! 1321: } ! 1322: } break; ! 1323: case 22: ! 1324: # line 599 "gram.y" ! 1325: { ++in_binit_list; } break; ! 1326: case 23: ! 1327: # line 600 "gram.y" ! 1328: { ! 1329: yyval.p = yypvt[-0].p; ! 1330: in_arg_list = 0; ! 1331: --in_binit_list; ! 1332: } break; ! 1333: case 24: ! 1334: # line 606 "gram.y" ! 1335: { yyval.p = 0; } break; ! 1336: case 25: ! 1337: # line 610 "gram.y" ! 1338: { yyval.p = yypvt[-0].p; } break; ! 1339: case 26: ! 1340: # line 612 "gram.y" ! 1341: { yyval.pn = yypvt[-0].pn; yyval.pn->n_list = yypvt[-2].pn; } break; ! 1342: case 27: ! 1343: # line 616 "gram.y" ! 1344: { ! 1345: yyval.pn = new name; ! 1346: yyval.pn->n_initializer = yypvt[-1].pe; ! 1347: } break; ! 1348: case 28: ! 1349: # line 621 "gram.y" ! 1350: { ! 1351: Pname n = Ncopy(yypvt[-3].pn); ! 1352: n->base = yypvt[-3].pn->base; ! 1353: n->tp = yypvt[-3].pn->tp; ! 1354: n->n_initializer = yypvt[-1].pe; ! 1355: yyval.pn = n; ! 1356: } break; ! 1357: case 29: ! 1358: # line 645 "gram.y" ! 1359: { if (yypvt[-0].pn == 0) ! 1360: error("badAD"); ! 1361: else if (yypvt[-0].pn->tp->base == FCT) ! 1362: error("FD inAL (%n)",yypvt[-0].pn); ! 1363: else if (yypvt[-1].p) ! 1364: yypvt[-1].nl->add_list(yypvt[-0].pn); ! 1365: else ! 1366: yyval.nl = new nlist(yypvt[-0].pn); ! 1367: } break; ! 1368: case 30: ! 1369: # line 655 "gram.y" ! 1370: { ! 1371: yyval.p = 0; ! 1372: } break; ! 1373: case 32: ! 1374: # line 662 "gram.y" ! 1375: { yyval.p = yypvt[-2].pn; ! 1376: yyval.pn->tp = new basetype(FIELD,yypvt[-0].pn); ! 1377: } break; ! 1378: case 33: ! 1379: # line 666 "gram.y" ! 1380: { yyval.p = new name; ! 1381: yyval.pn->tp = new basetype(FIELD,yypvt[-0].pn); ! 1382: } break; ! 1383: case 34: ! 1384: # line 670 "gram.y" ! 1385: { Pexpr e = yypvt[-0].pe; ! 1386: if (e == dummy) error("emptyIr"); ! 1387: yypvt[-2].pn->n_initializer = e; ! 1388: init_seen = 0; ! 1389: } break; ! 1390: case 35: ! 1391: # line 678 "gram.y" ! 1392: { ! 1393: if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn); ! 1394: if ( NEXTTOK() == CM && la_look() == TNAME ) ! 1395: EXPECT_ID(); ! 1396: } break; ! 1397: case 36: ! 1398: # line 684 "gram.y" ! 1399: { if (yypvt[-2].p) ! 1400: if (yypvt[-0].p) ! 1401: yypvt[-2].nl->add(yypvt[-0].pn); ! 1402: else ! 1403: error("DL syntax"); ! 1404: else { ! 1405: if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn); ! 1406: error("DL syntax"); ! 1407: } ! 1408: if ( NEXTTOK() == CM && la_look() == TNAME ) ! 1409: EXPECT_ID(); ! 1410: } break; ! 1411: case 37: ! 1412: # line 699 "gram.y" ! 1413: { ! 1414: extern int co_hack; ! 1415: co_hack = 1; ! 1416: /*$$ = Ndata($1,name_unlist($<nl>2));*/ ! 1417: Pname n = Ndata(yypvt[-2].p,name_unlist(yypvt[-1].nl)); ! 1418: if ( in_typedef && in_tag ) { ! 1419: if ( n->tp->check( in_tag->tp, 0 )) ! 1420: error("%nredefined: previous: %t now: %t", in_tag, in_tag->tp, n->tp ); ! 1421: } ! 1422: in_typedef = 0; ! 1423: class_typedef = 0; ! 1424: in_tag = 0; ! 1425: co_hack = 0; ! 1426: DECL_TYPE = 0; ! 1427: yyval.p = n; ! 1428: } break; ! 1429: case 38: ! 1430: # line 716 "gram.y" ! 1431: { ! 1432: yyval.p = yypvt[-1].pb->aggr(); ! 1433: in_typedef = 0; ! 1434: class_typedef = 0; ! 1435: in_tag = 0; ! 1436: DECL_TYPE = 0; ! 1437: } break; ! 1438: case 39: ! 1439: # line 727 "gram.y" ! 1440: { ! 1441: yyval.p = new basetype(yypvt[-0].t,0); ! 1442: if ( yypvt[-0].t == TYPEDEF ) in_typedef = yyval.pt; ! 1443: if (DECL_TYPE == -1) DECL_TYPE = 0; ! 1444: } break; ! 1445: case 40: ! 1446: # line 733 "gram.y" ! 1447: { yyval.p = new basetype(EXTERN,0); ! 1448: yyval.pb->b_linkage = yypvt[-0].s; ! 1449: if (DECL_TYPE == -1) DECL_TYPE = 0; ! 1450: } break; ! 1451: case 41: ! 1452: # line 738 "gram.y" ! 1453: { ! 1454: yyval.p = new basetype(TYPE,yypvt[-0].pn); ! 1455: if (DECL_TYPE == -1) DECL_TYPE = 0; ! 1456: } break; ! 1457: case 42: ! 1458: # line 743 "gram.y" ! 1459: { // modified tn_list TNAME ! 1460: yyval.p = new basetype(TYPE,yypvt[-0].pn); ! 1461: //xxx qualifier currently ignored... ! 1462: if (DECL_TYPE == -1) DECL_TYPE = 0; ! 1463: } break; ! 1464: case 45: ! 1465: # line 751 "gram.y" ! 1466: { ! 1467: if (DECL_TYPE == TNAME) ! 1468: yyval.p = new basetype(TYPE,yypvt[-0].pn); ! 1469: // else if (DECL_TYPE == TSCOPE) ! 1470: // yyval.p = 0; ! 1471: else ! 1472: if (DECL_TYPE == 0 && ! 1473: yypvt[-0].p->base == TNAME) ! 1474: yyval.p = new basetype(TYPE,yypvt[-0].pn); ! 1475: else ! 1476: yyval.p = new basetype(yypvt[-0].t,0); ! 1477: DECL_TYPE = -1; ! 1478: } break; ! 1479: case 47: ! 1480: # line 768 "gram.y" ! 1481: { ! 1482: if ( DECL_TYPE != -1 ) ! 1483: yyval.p = yypvt[-1].pb->type_adj(yypvt[-0].t); ! 1484: DECL_TYPE = 0; ! 1485: } break; ! 1486: case 48: ! 1487: # line 774 "gram.y" ! 1488: { ! 1489: //error('d',"decl_type: %d $1: %t $2: %n",DECL_TYPE,yypvt[-1].pb,yypvt[-0].pn); ! 1490: if ( DECL_TYPE != -1 ) ! 1491: yyval.p = yypvt[-1].pb->name_adj(yypvt[-0].pn); ! 1492: /*XXX*/ else if(yypvt[-1].pb==0) yyval.p=new basetype(TYPE,yypvt[-0].pn); ! 1493: DECL_TYPE = 0; ! 1494: } break; ! 1495: case 49: ! 1496: # line 781 "gram.y" ! 1497: { yyval.p = yypvt[-1].pb->base_adj(yypvt[-0].pb); } break; ! 1498: case 50: ! 1499: # line 782 "gram.y" ! 1500: { yyval.p = yypvt[-1].pb->base_adj(yypvt[-0].pb); } break; ! 1501: case 51: ! 1502: # line 784 "gram.y" ! 1503: { ! 1504: if (DECL_TYPE == TYPE) ! 1505: yyval.p = yypvt[-1].pb->type_adj(yypvt[-0].t); ! 1506: /*XXX*/ else if (DECL_TYPE == TSCOPE) { ! 1507: /*XXX*/ error('i',"type decl_marker(tscope)"); ! 1508: /*XXX*/ // yyval.p = yypvt[-1].p;//ignore(?) ! 1509: /*XXX*/ } ! 1510: else ! 1511: yyval.p = yypvt[-1].pb->name_adj(yypvt[-0].pn); ! 1512: DECL_TYPE = -1; ! 1513: } break; ! 1514: case 52: ! 1515: # line 800 "gram.y" ! 1516: { enumcheck: ! 1517: Ptype tx = yypvt[-0].pn->tp; ! 1518: yyval.p = yypvt[-0].p; ! 1519: if ( tx->base == TYPE ) { ! 1520: yyval.p = Pbase(tx)->b_name; ! 1521: tx = yyval.pn->tp; ! 1522: if ( tx->base != EOBJ ! 1523: || strcmp(yyval.pn->string,yypvt[-0].pn->string) ! 1524: ) ! 1525: error("%n of type%t redeclared as enum.",yypvt[-0].pn,tx); ! 1526: } else if ( tx->base != EOBJ ) ! 1527: error("%n of type%t redeclared as enum",yypvt[-0].pn,tx); ! 1528: } break; ! 1529: case 53: ! 1530: # line 813 "gram.y" ! 1531: { goto enumcheck; } break; ! 1532: case 54: ! 1533: # line 816 "gram.y" ! 1534: { yyval.p = end_enum(0,yypvt[-1].pn); } break; ! 1535: case 55: ! 1536: # line 817 "gram.y" ! 1537: { yyval.p = end_enum(yypvt[-3].pn,yypvt[-1].pn); } break; ! 1538: case 56: ! 1539: # line 818 "gram.y" ! 1540: { yyval.pb = (Pbase)yypvt[-0].pn->tp; } break; ! 1541: case 57: ! 1542: # line 822 "gram.y" ! 1543: { if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn); } break; ! 1544: case 58: ! 1545: # line 824 "gram.y" ! 1546: { if( yypvt[-0].p) ! 1547: if (yypvt[-2].p) ! 1548: yypvt[-2].nl->add(yypvt[-0].pn); ! 1549: else ! 1550: yyval.nl = new nlist(yypvt[-0].pn); ! 1551: } break; ! 1552: case 59: ! 1553: # line 833 "gram.y" ! 1554: { yyval.p = yypvt[-0].pn; yyval.pn->tp = moe_type; } break; ! 1555: case 60: ! 1556: # line 835 "gram.y" ! 1557: { yyval.p = yypvt[-2].pn; ! 1558: yyval.pn->tp = moe_type; ! 1559: yyval.pn->n_initializer = yypvt[-0].pe; ! 1560: } break; ! 1561: case 61: ! 1562: # line 840 "gram.y" ! 1563: { yyval.p = 0; } break; ! 1564: case 62: ! 1565: # line 844 "gram.y" ! 1566: { parsing_class_members = 0; ! 1567: switch ( NEXTTOK() ) { ! 1568: case TYPE: case AGGR: case ENUM: case EOFTOK: ! 1569: error("`;' or declaratorX afterCD"); ! 1570: la_backup(yychar,yylval); ! 1571: yychar = SM; ! 1572: break; ! 1573: } ! 1574: la_backup(yychar,yylval); ! 1575: yychar = -1; ! 1576: restore_text(); ! 1577: ++bl_level; // scope weirdness! ! 1578: ++in_mem_fct; ! 1579: } break; ! 1580: case 63: ! 1581: # line 859 "gram.y" ! 1582: { ! 1583: --in_mem_fct; ! 1584: --bl_level; // scope weirdness! ! 1585: if ( yychar == ID ) { ! 1586: // (yuk!) adjust lex level ! 1587: --yylval.pn->lex_level; ! 1588: } ! 1589: ccl->mem_list = name_unlist(yypvt[-3].nl); ! 1590: if ( --in_class_decl ) // nested class ! 1591: // continue to parse enclosing class ! 1592: parsing_class_members = 1; ! 1593: ccl->nest_list = nested_type; ! 1594: if ( nested_tn ) nested_restore(); ! 1595: nested_type = nested_type_vec[in_class_decl]; ! 1596: nested_tn = nested_tn_vec[in_class_decl]; ! 1597: end_cl(); ! 1598: declTag = 1; ! 1599: } break; ! 1600: case 64: ! 1601: # line 878 "gram.y" ! 1602: { aggrcheck: ! 1603: yyval.pb = (Pbase)yypvt[-0].pn->tp; ! 1604: if ( yyval.p->base == TYPE ) { ! 1605: Pname nx = yyval.pb->b_name; ! 1606: yyval.pb = (Pbase)nx->tp; ! 1607: if ( yyval.p->base != COBJ ! 1608: || strcmp(nx->string,yypvt[-0].pn->string) ! 1609: ) ! 1610: error("%n of type%t redeclared as%k.",yypvt[-0].pn,yyval.pb,yypvt[-1].t); ! 1611: } else if ( yyval.p->base != COBJ ) ! 1612: error("%n of type%t redeclared as%k",yypvt[-0].pn,yyval.pb,yypvt[-1].t); ! 1613: check_tag(); ! 1614: } break; ! 1615: case 65: ! 1616: # line 893 "gram.y" ! 1617: { ! 1618: goto aggrcheck; ! 1619: } break; ! 1620: case 68: ! 1621: # line 903 "gram.y" ! 1622: { yyval.pbc = yypvt[-0].pbc; } break; ! 1623: case 69: ! 1624: # line 904 "gram.y" ! 1625: { yyval.pbc = 0; } break; ! 1626: case 71: ! 1627: # line 909 "gram.y" ! 1628: { if (yypvt[-0].pbc) { yyval.pbc = yypvt[-0].pbc; yyval.pbc->next = yypvt[-2].pbc; } } break; ! 1629: case 72: ! 1630: # line 912 "gram.y" ! 1631: { yyval.pbc = dobase(0,yypvt[-0].pn); } break; ! 1632: case 73: ! 1633: # line 913 "gram.y" ! 1634: { yyval.pbc = dobase(yypvt[-1].t,yypvt[-0].pn); } break; ! 1635: case 74: ! 1636: # line 914 "gram.y" ! 1637: { yyval.pbc = dobase(0,yypvt[-0].pn,yypvt[-1].t); } break; ! 1638: case 75: ! 1639: # line 915 "gram.y" ! 1640: { yyval.pbc = dobase(yypvt[-2].t,yypvt[-0].pn,yypvt[-1].t); } break; ! 1641: case 76: ! 1642: # line 916 "gram.y" ! 1643: { yyval.pbc = dobase(yypvt[-1].t,yypvt[-0].pn,yypvt[-2].t); } break; ! 1644: case 77: ! 1645: # line 920 "gram.y" ! 1646: { parsing_class_members = 1; ! 1647: yyval.p = start_cl(yypvt[-1].t,0,0); ! 1648: nested_tn_vec[in_class_decl] = nested_tn; ! 1649: nested_type_vec[in_class_decl++] = nested_type; ! 1650: nested_tn = nested_type = 0; ! 1651: } break; ! 1652: case 78: ! 1653: # line 928 "gram.y" ! 1654: { parsing_class_members = 1; ! 1655: yyval.p = start_cl(yypvt[-3].t,yypvt[-2].pn,yypvt[-1].pbc); ! 1656: nested_tn_vec[in_class_decl] = nested_tn; ! 1657: nested_type_vec[in_class_decl++] = nested_type; ! 1658: nested_tn = nested_type = 0; ! 1659: } break; ! 1660: case 79: ! 1661: # line 936 "gram.y" ! 1662: { yyval.p = yypvt[-0].pn; } break; ! 1663: case 80: ! 1664: # line 937 "gram.y" ! 1665: { yyval.p=yypvt[-0].p; } break; ! 1666: case 81: ! 1667: # line 941 "gram.y" ! 1668: { ! 1669: if (yypvt[-0].p) { ! 1670: if (yypvt[-1].p) ! 1671: yypvt[-1].nl->add_list(yypvt[-0].pn); ! 1672: else ! 1673: yyval.nl = new nlist(yypvt[-0].pn); ! 1674: } ! 1675: } break; ! 1676: case 82: ! 1677: # line 950 "gram.y" ! 1678: { yyval.p = 0; } break; ! 1679: case 89: ! 1680: # line 960 "gram.y" ! 1681: { yyval.p = new name; ! 1682: yyval.pn->base = yypvt[-1].t; ! 1683: } break; ! 1684: case 90: ! 1685: # line 970 "gram.y" ! 1686: { Pname n = Ncopy(yypvt[-1].pn); ! 1687: if (n->n_oper == TYPE) { ! 1688: error('s',"visibilityD for conversion operator"); ! 1689: // n->tp = Ptype(n->n_initializer); ! 1690: n->tp = Ptype(n->cond); ! 1691: n->cond = 0; ! 1692: // n->n_initializer = 0; ! 1693: n->n_oper = 0; ! 1694: sig_name(n); ! 1695: } ! 1696: n->n_qualifier = yypvt[-2].pn; ! 1697: n->base = PR; ! 1698: yyval.p = n; ! 1699: } break; ! 1700: case 91: ! 1701: # line 999 "gram.y" ! 1702: { yyval.p = yypvt[-0].pn; } break; ! 1703: case 92: ! 1704: # line 1001 "gram.y" ! 1705: { yyval.p = Ncopy(yypvt[-0].pn); ! 1706: yyval.pn->n_oper = DTOR; ! 1707: } break; ! 1708: case 93: ! 1709: # line 1005 "gram.y" ! 1710: { yyval.p = new name(oper_name(yypvt[-0].t)); ! 1711: yyval.pn->n_oper = yypvt[-0].t; ! 1712: } break; ! 1713: case 94: ! 1714: # line 1009 "gram.y" ! 1715: { Pname n = yypvt[-0].pn; ! 1716: n->string = "_type"; ! 1717: n->n_oper = TYPE; ! 1718: n->cond = Pexpr(n->tp); ! 1719: // n->n_initializer = Pexpr(n->tp); ! 1720: n->tp = 0; ! 1721: yyval.p = n; ! 1722: } break; ! 1723: case 107: ! 1724: # line 1031 "gram.y" ! 1725: { yyval.t = CALL; } break; ! 1726: case 108: ! 1727: # line 1032 "gram.y" ! 1728: { yyval.t = DEREF; } break; ! 1729: case 114: ! 1730: # line 1038 "gram.y" ! 1731: { yyval.t = NEW; } break; ! 1732: case 115: ! 1733: # line 1039 "gram.y" ! 1734: { yyval.t = DELETE; } break; ! 1735: case 116: ! 1736: # line 1040 "gram.y" ! 1737: { yyval.t = REF; } break; ! 1738: case 117: ! 1739: # line 1041 "gram.y" ! 1740: { yyval.t = CM; } break; ! 1741: case 118: ! 1742: # line 1042 "gram.y" ! 1743: { yyval.t = REFMUL; ! 1744: if (yypvt[-0].t == DOT) error(".* cannot be overloaded"); ! 1745: } break; ! 1746: case 119: ! 1747: # line 1048 "gram.y" ! 1748: { if ( yypvt[-0].pn != sta_name ) { ! 1749: // error('d',"tn_list: tscope: pn1: %s", yypvt[-0].pn->string); ! 1750: Ptype t = yypvt[-0].pn->tp; ! 1751: while ( t->base == TYPE ) ! 1752: t = Pbase(t)->b_name->tp; ! 1753: Pname n = Pbase(t)->b_name; ! 1754: if (NEXTTOK() == TNAME ! 1755: && strcmp(n->string,yylval.pn->string)==0){ ! 1756: // ctor -- change to ID to avoid ! 1757: // parsing as type spec ! 1758: yychar = ID; ! 1759: yylval.pn = Ncopy(yylval.pn); ! 1760: yylval.pn->n_oper = TNAME; ! 1761: } ! 1762: } ! 1763: yyval.pn = yypvt[-0].pn; ! 1764: } break; ! 1765: case 120: ! 1766: # line 1066 "gram.y" ! 1767: { error('s', "CNs do not nest, use typedef x::y y_in_x"); } break; ! 1768: case 121: ! 1769: # line 1071 "gram.y" ! 1770: { yyval.pn = yypvt[-0].pn; ! 1771: //xxx qualifier currently ignored... ! 1772: // yyval.pn = Ncopy( yypvt[-0].pn ); ! 1773: // yyval.pn->n_oper = TNAME; ! 1774: // yyval.pn->n_qualifier = yypvt[-1].pn; ! 1775: } break; ! 1776: case 122: ! 1777: # line 1078 "gram.y" ! 1778: { yyval.pn = yypvt[-0].pn; ! 1779: // yyval.pn = Ncopy( yypvt[-0].pn ); ! 1780: // yyval.pn->n_oper = TNAME; ! 1781: } break; ! 1782: case 123: ! 1783: # line 1085 "gram.y" ! 1784: { yyval.i = 0; } break; ! 1785: case 124: ! 1786: # line 1087 "gram.y" ! 1787: { /* const/volatile function */ ! 1788: switch ( yypvt[-0].t ) { ! 1789: case VOLATILE: ! 1790: error('s',"volatile functions"); ! 1791: break; ! 1792: case CONST: ! 1793: yyval.i = (yypvt[-1].i | 1); ! 1794: break; ! 1795: default: ! 1796: if ( NEXTTOK() != SM ! 1797: && yychar != COLON ! 1798: && yychar != LC ) { ! 1799: la_backup(yychar,yylval); ! 1800: yylval.t = yypvt[-0].t; ! 1801: la_backup(TYPE,yylval); ! 1802: yylval.t = SM; ! 1803: yychar = SM; ! 1804: error("syntax error: unexpected%k (did you forget a `;'?)",yypvt[-0].t); ! 1805: } else error("FD syntax: unexpected%k",yypvt[-0].t); ! 1806: break; ! 1807: } ! 1808: } break; ! 1809: case 125: ! 1810: # line 1112 "gram.y" ! 1811: { Freturns(yypvt[-0].p) = yypvt[-1].pn->tp; ! 1812: yypvt[-1].pn->tp = yypvt[-0].pt; ! 1813: } break; ! 1814: case 126: ! 1815: # line 1116 "gram.y" ! 1816: { /* function with no argument */ ! 1817: yypvt[-3].pn->tp = new fct(yypvt[-3].pn->tp,0,1); ! 1818: Pfct(yypvt[-3].pn->tp)->f_const = (yypvt[-0].i & 1); ! 1819: } break; ! 1820: case 127: ! 1821: # line 1121 "gram.y" ! 1822: { Pname n = yypvt[-1].pn; ! 1823: yyval.p = Ncopy(n); ! 1824: if (ccl && strcmp(n->string,ccl->string)) n->hide(); ! 1825: yyval.pn->n_oper = TNAME; ! 1826: Freturns(yypvt[-0].p) = yyval.pn->tp; ! 1827: yyval.pn->tp = yypvt[-0].pt; ! 1828: } break; ! 1829: case 128: ! 1830: # line 1133 "gram.y" ! 1831: { ! 1832: yypvt[-3].pn->tp = new fct(yypvt[-3].pn->tp,yypvt[-1].pn,1); ! 1833: in_arg_list = 0; ! 1834: end_al(yypvt[-2].pl,0); ! 1835: } break; ! 1836: case 129: ! 1837: # line 1139 "gram.y" ! 1838: { ! 1839: Pptr p = new ptr( PTR, 0 ); ! 1840: Ptyp(p) = new basetype(TYPE,yypvt[-5].pn); ! 1841: Freturns( yypvt[-0].p ) = Ptype(p); ! 1842: yypvt[-2].pn->tp = yypvt[-0].pt; ! 1843: yyval.p = yypvt[-2].pn; ! 1844: if (DECL_TYPE == -1) DECL_TYPE = 0; ! 1845: } break; ! 1846: case 130: ! 1847: # line 1148 "gram.y" ! 1848: { yyval.p = Ncopy(yypvt[-3].pn); ! 1849: yyval.pn->n_oper = TNAME; ! 1850: yyval.pn->tp = new fct(0,yypvt[-1].pn,1); ! 1851: } break; ! 1852: case 131: ! 1853: # line 1153 "gram.y" ! 1854: { /* function with no argument */ ! 1855: yyval.p = Ncopy(yypvt[-3].pn); ! 1856: yyval.pn->n_oper = TNAME; ! 1857: yyval.pn->tp = new fct(0,0,1); ! 1858: Pfct(yypvt[-3].pn->tp)->f_const = (yypvt[-0].i & 1); ! 1859: } break; ! 1860: case 132: ! 1861: # line 1160 "gram.y" ! 1862: { memptrdcl(yypvt[-3].pn,yypvt[-5].pn,yypvt[-0].pt,yypvt[-2].pn); ! 1863: yyval.p = yypvt[-2].p; ! 1864: } break; ! 1865: case 134: ! 1866: # line 1165 "gram.y" ! 1867: { yyval.p = Ncopy(yypvt[-0].pn); ! 1868: yyval.pn->n_qualifier = yypvt[-2].pn; ! 1869: error(strict_opt?0:'w',"`.' used for qualification; please use `::' (anachronism)"); ! 1870: } break; ! 1871: case 135: ! 1872: # line 1170 "gram.y" ! 1873: { yyval.p = yypvt[-0].p; ! 1874: if ( yypvt[-1].pn != sta_name ) { ! 1875: set_scope(yypvt[-1].pn); ! 1876: yyval.pn->n_qualifier = yypvt[-1].pn; ! 1877: } ! 1878: } break; ! 1879: case 136: ! 1880: # line 1177 "gram.y" ! 1881: { yyval.p = Ncopy(yypvt[-0].pn); ! 1882: yyval.pn->n_qualifier = yypvt[-2].pn; ! 1883: error(ansi_opt?0:'w',"anachronism `.' used for qualification; please use `::'"); ! 1884: if ( yypvt[-3].pn != sta_name ) { ! 1885: set_scope(yypvt[-3].pn); ! 1886: yypvt[-2].pn->n_qualifier = yypvt[-3].pn; ! 1887: } ! 1888: } break; ! 1889: case 137: ! 1890: # line 1195 "gram.y" ! 1891: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp; ! 1892: yypvt[-0].pn->tp = yypvt[-1].pt; ! 1893: yyval.p = yypvt[-0].p; ! 1894: } break; ! 1895: case 138: ! 1896: # line 1200 "gram.y" ! 1897: { yyval.p = Ncopy(yypvt[-0].pn); ! 1898: yyval.pn->n_oper = TNAME; ! 1899: // cannot evaluate at this point: defer until data_dcl ! 1900: if ( in_typedef ) { ! 1901: defer_check = 1; ! 1902: in_tag = yypvt[-0].pn; ! 1903: } ! 1904: yypvt[-0].pn->hide(); ! 1905: defer_check = 0; ! 1906: yyval.pn->tp = yypvt[-1].pt; ! 1907: } break; ! 1908: case 139: ! 1909: # line 1212 "gram.y" ! 1910: { yyval.p = Ncopy(yypvt[-1].pn); ! 1911: yyval.pn->n_oper = TNAME; ! 1912: if ( in_typedef ) { ! 1913: defer_check = 1; ! 1914: in_tag = yypvt[-0].pn; ! 1915: } ! 1916: yypvt[-1].pn->hide(); ! 1917: defer_check = 0; ! 1918: yyval.pn->tp = yypvt[-0].pt; ! 1919: } break; ! 1920: case 140: ! 1921: # line 1223 "gram.y" ! 1922: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp; ! 1923: yypvt[-1].pn->tp = yypvt[-0].pt; ! 1924: } break; ! 1925: case 141: ! 1926: # line 1240 "gram.y" ! 1927: { ! 1928: yyval.p = yypvt[-1].p; ! 1929: in_arg_list = 0; ! 1930: end_al(yypvt[-2].pl,0); ! 1931: } break; ! 1932: case 142: ! 1933: # line 1248 "gram.y" ! 1934: { yyval.p = yypvt[-0].pn; } break; ! 1935: case 143: ! 1936: # line 1250 "gram.y" ! 1937: { yyval.p = Ncopy(yypvt[-0].pn); ! 1938: yyval.pn->n_oper = TNAME; ! 1939: yypvt[-0].pn->hide(); ! 1940: yyval.pn->tp = yypvt[-1].pt; ! 1941: } break; ! 1942: case 144: ! 1943: # line 1256 "gram.y" ! 1944: { ! 1945: yyval.p = new name; ! 1946: NOT_EXPECT_ID(); ! 1947: } break; ! 1948: case 145: ! 1949: # line 1261 "gram.y" ! 1950: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp; ! 1951: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p; ! 1952: yyval.p = yypvt[-0].p; ! 1953: } break; ! 1954: case 146: ! 1955: # line 1266 "gram.y" ! 1956: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp; ! 1957: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p; ! 1958: } break; ! 1959: case 147: ! 1960: # line 1270 "gram.y" ! 1961: { Freturns(yypvt[-0].p) = yypvt[-1].pn->tp; ! 1962: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p; ! 1963: } break; ! 1964: case 148: ! 1965: # line 1286 "gram.y" ! 1966: { ! 1967: // error('d', "arg_lp arg_decl rp in_arg_list: %d", in_arg_list ); ! 1968: yyval.p = yypvt[-1].p; ! 1969: in_arg_list = 0; ! 1970: end_al(yypvt[-2].pl,0); ! 1971: } break; ! 1972: case 149: ! 1973: # line 1295 "gram.y" ! 1974: { yyval.p = new name; } break; ! 1975: case 150: ! 1976: # line 1297 "gram.y" ! 1977: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp; ! 1978: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p; ! 1979: yyval.p = yypvt[-0].p; ! 1980: NOT_EXPECT_ID(); ! 1981: } break; ! 1982: case 151: ! 1983: # line 1303 "gram.y" ! 1984: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp; ! 1985: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p; ! 1986: } break; ! 1987: case 152: ! 1988: # line 1308 "gram.y" ! 1989: { yyval.p = new name; } break; ! 1990: case 153: ! 1991: # line 1310 "gram.y" ! 1992: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp; ! 1993: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p; ! 1994: yyval.p = yypvt[-0].p; ! 1995: NOT_EXPECT_ID(); ! 1996: } break; ! 1997: case 154: ! 1998: # line 1316 "gram.y" ! 1999: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp; ! 2000: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p; ! 2001: } break; ! 2002: case 155: ! 2003: # line 1320 "gram.y" ! 2004: { Freturns(yypvt[-0].p) = yypvt[-2].pn->tp; ! 2005: yypvt[-2].pn->tp = yypvt[-0].pt; ! 2006: yyval.p = yypvt[-2].p; ! 2007: } break; ! 2008: case 156: ! 2009: # line 1325 "gram.y" ! 2010: { Vtype(yypvt[-0].p) = yypvt[-2].pn->tp; ! 2011: yypvt[-2].pn->tp = yypvt[-0].pt; ! 2012: yyval.p = yypvt[-2].p; ! 2013: } break; ! 2014: case 157: ! 2015: # line 1332 "gram.y" ! 2016: { yyval.p = new name; } break; ! 2017: case 158: ! 2018: # line 1334 "gram.y" ! 2019: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp; ! 2020: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p; ! 2021: yyval.p = yypvt[-0].p; ! 2022: } break; ! 2023: case 159: ! 2024: # line 1344 "gram.y" ! 2025: { ! 2026: yyval.p = 0; ! 2027: } break; ! 2028: case 160: ! 2029: # line 1348 "gram.y" ! 2030: { ! 2031: if (yypvt[-0].p) ! 2032: if (yypvt[-1].p) ! 2033: yypvt[-1].sl->add(yypvt[-0].ps); ! 2034: else { ! 2035: yyval.sl = new slist(yypvt[-0].ps); ! 2036: stmt_seen = 1; ! 2037: } ! 2038: } break; ! 2039: case 161: ! 2040: # line 1359 "gram.y" ! 2041: { ! 2042: yyval.p = yypvt[-0].p; ! 2043: if (yypvt[-0].p) stmt_seen = 1; ! 2044: } break; ! 2045: case 162: ! 2046: # line 1366 "gram.y" ! 2047: { ! 2048: yyval.p = 0; ! 2049: check_decl(); ! 2050: } break; ! 2051: case 163: ! 2052: # line 1373 "gram.y" ! 2053: { yyval.p = yypvt[-1].p; ! 2054: /* if ($<pe>$ == dummy) error("empty condition");*/ ! 2055: stmt_seen = 1; ! 2056: } break; ! 2057: case 164: ! 2058: # line 1380 "gram.y" ! 2059: { cd_vec[cdi] = cd; ! 2060: stmt_vec[cdi] = stmt_seen; ! 2061: tn_vec[cdi] = modified_tn; ! 2062: lcl_blk_vec[cdi++] = local_blk; ! 2063: lcl_tn_vec[cdi] = local_tn; ! 2064: local_blk = 0; ! 2065: local_tn = 0; ! 2066: cd = 0; ! 2067: stmt_seen = 0; ! 2068: modified_tn = 0; ! 2069: } break; ! 2070: case 165: ! 2071: # line 1392 "gram.y" ! 2072: { Pname n = name_unlist(cd); ! 2073: Pstmt ss = stmt_unlist(yypvt[-1].sl); ! 2074: yyval.p = new block(yypvt[-3].l,n,ss,yypvt[-0].l); ! 2075: if ( local_tn ) local_restore(); ! 2076: if ( local_blk ) local_name(); ! 2077: if (modified_tn) restore(); ! 2078: cd = cd_vec[--cdi]; ! 2079: stmt_seen = stmt_vec[cdi]; ! 2080: modified_tn = tn_vec[cdi]; ! 2081: local_tn = lcl_tn_vec[cdi]; ! 2082: local_blk = lcl_blk_vec[cdi]; ! 2083: if (cdi < 0) error('i',"block level(%d)",cdi); ! 2084: NOT_EXPECT_ID(); ! 2085: } break; ! 2086: case 166: ! 2087: # line 1407 "gram.y" ! 2088: { yyval.p = new block(yypvt[-1].l,0,0,yypvt[-0].l); NOT_EXPECT_ID();} break; ! 2089: case 167: ! 2090: # line 1409 "gram.y" ! 2091: { yyval.p = new block(yypvt[-2].l,0,0,yypvt[-0].l); NOT_EXPECT_ID();} break; ! 2092: case 168: ! 2093: # line 1413 "gram.y" ! 2094: { yyval.p = new estmt(SM,curloc,yypvt[-0].pe,0); } break; ! 2095: case 169: ! 2096: # line 1415 "gram.y" ! 2097: { yyval.p = new stmt(BREAK,yypvt[-0].l,0); } break; ! 2098: case 170: ! 2099: # line 1417 "gram.y" ! 2100: { yyval.p = new stmt(CONTINUE,yypvt[-0].l,0); } break; ! 2101: case 171: ! 2102: # line 1419 "gram.y" ! 2103: { yyval.p = new lstmt(GOTO,yypvt[-1].l,yypvt[-0].pn,0); } break; ! 2104: case 172: ! 2105: # line 1420 "gram.y" ! 2106: { stmt_seen=1; } break; ! 2107: case 173: ! 2108: # line 1421 "gram.y" ! 2109: { yyval.p = new estmt(DO,yypvt[-4].l,yypvt[-0].pe,yypvt[-2].ps); } break; ! 2110: case 174: ! 2111: # line 1423 "gram.y" ! 2112: { ! 2113: if (stmt_seen) ! 2114: yyval.p = new estmt(ASM,curloc,(Pexpr)yypvt[-1].s,0); ! 2115: else { ! 2116: Pname n = new name(make_name('A')); ! 2117: n->tp = new basetype(ASM,(Pname)yypvt[-1].s); ! 2118: if (cd) ! 2119: cd->add_list(n); ! 2120: else ! 2121: cd = new nlist(n); ! 2122: yyval.p = 0; ! 2123: } ! 2124: } break; ! 2125: case 175: ! 2126: # line 1438 "gram.y" ! 2127: { ! 2128: if ( NEXTTOK() != SM ) { ! 2129: error("`;' missing afterS"); ! 2130: la_backup(yychar,yylval); ! 2131: yychar = SM; ! 2132: } ! 2133: } break; ! 2134: case 178: ! 2135: # line 1449 "gram.y" ! 2136: { yyval.p = new estmt(SM,yypvt[-0].l,dummy,0); } break; ! 2137: case 179: ! 2138: # line 1451 "gram.y" ! 2139: { yyval.p = new estmt(RETURN,yypvt[-2].l,yypvt[-1].pe,0); } break; ! 2140: case 180: ! 2141: # line 1453 "gram.y" ! 2142: { ! 2143: error("local linkage specification"); ! 2144: yyval.p = yypvt[-0].pn; ! 2145: } break; ! 2146: case 181: ! 2147: # line 1458 "gram.y" ! 2148: { Pname n = yypvt[-0].pn; ! 2149: if (n) ! 2150: if (stmt_seen) { ! 2151: yyval.p = new block(n->where,n,0); ! 2152: yyval.ps->base = DCL; ! 2153: } ! 2154: else { ! 2155: if (cd) ! 2156: cd->add_list(n); ! 2157: else ! 2158: cd = new nlist(n); ! 2159: yyval.p = 0; ! 2160: } ! 2161: } break; ! 2162: case 182: ! 2163: # line 1473 "gram.y" ! 2164: { ! 2165: Pname n = yypvt[-0].pn; ! 2166: error(&n->where,"%n's definition is nested (did you forget a ``}''?)",n); ! 2167: if (cd) ! 2168: cd->add_list(n); ! 2169: else ! 2170: cd = new nlist(n); ! 2171: yyval.p = 0; ! 2172: } break; ! 2173: case 184: ! 2174: # line 1484 "gram.y" ! 2175: { yyval.p = new ifstmt(yypvt[-2].l,yypvt[-1].pe,yypvt[-0].ps,0); } break; ! 2176: case 185: ! 2177: # line 1486 "gram.y" ! 2178: { yyval.p = new ifstmt(yypvt[-4].l,yypvt[-3].pe,yypvt[-2].ps,yypvt[-0].ps); } break; ! 2179: case 186: ! 2180: # line 1488 "gram.y" ! 2181: { yyval.p = new estmt(WHILE,yypvt[-2].l,yypvt[-1].pe,yypvt[-0].ps); } break; ! 2182: case 187: ! 2183: # line 1489 "gram.y" ! 2184: { stmt_seen=1; } break; ! 2185: case 188: ! 2186: # line 1490 "gram.y" ! 2187: { yyval.p = new forstmt(yypvt[-8].l,yypvt[-5].ps,yypvt[-4].pe,yypvt[-2].pe,yypvt[-0].ps); } break; ! 2188: case 189: ! 2189: # line 1492 "gram.y" ! 2190: { yyval.p = new estmt(SWITCH,yypvt[-2].l,yypvt[-1].pe,yypvt[-0].ps); } break; ! 2191: case 190: ! 2192: # line 1493 "gram.y" ! 2193: { yyval.p = yypvt[-1].pn; stmt_seen=1; } break; ! 2194: case 191: ! 2195: # line 1494 "gram.y" ! 2196: { Pname n = yypvt[-1].pn; ! 2197: yyval.p = new lstmt(LABEL,n->where,n,yypvt[-0].ps); ! 2198: } break; ! 2199: case 192: ! 2200: # line 1497 "gram.y" ! 2201: { yyval.p = new name(yypvt[-1].pn->string); stmt_seen=1; } break; ! 2202: case 193: ! 2203: # line 1498 "gram.y" ! 2204: { Pname n = yypvt[-1].pn; ! 2205: yyval.p = new lstmt(LABEL,n->where,n,yypvt[-0].ps); ! 2206: } break; ! 2207: case 194: ! 2208: # line 1501 "gram.y" ! 2209: { stmt_seen=1; } break; ! 2210: case 195: ! 2211: # line 1502 "gram.y" ! 2212: { if (yypvt[-2].pe == dummy) error("empty case label"); ! 2213: yyval.p = new estmt(CASE,yypvt[-4].l,yypvt[-2].pe,yypvt[-0].ps); ! 2214: } break; ! 2215: case 196: ! 2216: # line 1505 "gram.y" ! 2217: { stmt_seen=1; } break; ! 2218: case 197: ! 2219: # line 1506 "gram.y" ! 2220: { yyval.p = new stmt(DEFAULT,yypvt[-3].l,yypvt[-0].ps); } break; ! 2221: case 198: ! 2222: # line 1513 "gram.y" ! 2223: { Pexpr e = expr_unlist(yypvt[-0].el); ! 2224: while (e && e->e1==dummy) { ! 2225: register Pexpr ee2 = e->e2; ! 2226: if (ee2) error("EX inEL"); ! 2227: delete e; ! 2228: e = ee2; ! 2229: } ! 2230: yyval.p = e; ! 2231: } break; ! 2232: case 199: ! 2233: # line 1525 "gram.y" ! 2234: { yyval.el = new elist(new expr(ELIST,yypvt[-0].pe,0)); } break; ! 2235: case 200: ! 2236: # line 1527 "gram.y" ! 2237: { yypvt[-2].el->add(new expr(ELIST,yypvt[-0].pe,0)); } break; ! 2238: case 202: ! 2239: # line 1532 "gram.y" ! 2240: { ! 2241: if ( in_arg_list ) ! 2242: error( "syntax error: IrL not permitted in AL" ); ! 2243: else if ( in_binit_list ) ! 2244: error( "syntax error: IrL not permitted inMIr" ); ! 2245: else ! 2246: init_seen = 1; ! 2247: Pexpr e; ! 2248: if (yypvt[-1].p) ! 2249: e = yypvt[-1].pe; ! 2250: else ! 2251: e = new expr(ELIST,dummy,0); ! 2252: yyval.p = new expr(ILIST,e,0); ! 2253: } break; ! 2254: case 203: ! 2255: # line 1549 "gram.y" ! 2256: { bbinop: yyval.p = new expr(yypvt[-1].t,yypvt[-2].pe,yypvt[-0].pe); } break; ! 2257: case 204: ! 2258: # line 1550 "gram.y" ! 2259: { goto bbinop; } break; ! 2260: case 205: ! 2261: # line 1551 "gram.y" ! 2262: { goto bbinop; } break; ! 2263: case 206: ! 2264: # line 1552 "gram.y" ! 2265: { goto bbinop; } break; ! 2266: case 207: ! 2267: # line 1553 "gram.y" ! 2268: { goto bbinop; } break; ! 2269: case 208: ! 2270: # line 1554 "gram.y" ! 2271: { goto bbinop; } break; ! 2272: case 209: ! 2273: # line 1555 "gram.y" ! 2274: { goto bbinop; } break; ! 2275: case 210: ! 2276: # line 1556 "gram.y" ! 2277: { goto bbinop; } break; ! 2278: case 211: ! 2279: # line 1557 "gram.y" ! 2280: { goto bbinop; } break; ! 2281: case 212: ! 2282: # line 1558 "gram.y" ! 2283: { goto bbinop; } break; ! 2284: case 213: ! 2285: # line 1559 "gram.y" ! 2286: { goto bbinop; } break; ! 2287: case 214: ! 2288: # line 1560 "gram.y" ! 2289: { goto bbinop; } break; ! 2290: case 215: ! 2291: # line 1561 "gram.y" ! 2292: { goto bbinop; } break; ! 2293: case 216: ! 2294: # line 1562 "gram.y" ! 2295: { goto bbinop; } break; ! 2296: case 217: ! 2297: # line 1563 "gram.y" ! 2298: { goto bbinop; } break; ! 2299: case 218: ! 2300: # line 1565 "gram.y" ! 2301: { yyval.p = new qexpr(yypvt[-4].pe,yypvt[-2].pe,yypvt[-0].pe); } break; ! 2302: case 219: ! 2303: # line 1567 "gram.y" ! 2304: { yyval.p = new expr(DELETE,yypvt[-0].pe,0); } break; ! 2305: case 220: ! 2306: # line 1569 "gram.y" ! 2307: { ! 2308: if(yypvt[-2].pe != dummy) { ! 2309: if ( warning_opt || strict_opt ) ! 2310: error(strict_opt?0:'w',"v in `delete[v]' is redundant; use `delete[] instead (anachronism)"); ! 2311: } ! 2312: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe); ! 2313: } break; ! 2314: case 221: ! 2315: # line 1577 "gram.y" ! 2316: { yyval.p = new expr(GDELETE,yypvt[-0].pe,0); } break; ! 2317: case 222: ! 2318: # line 1579 "gram.y" ! 2319: { ! 2320: if(yypvt[-2].pe != dummy) { ! 2321: if ( warning_opt || strict_opt ) ! 2322: error(strict_opt?0:'w',"v in `::delete[v]' is redundant; use `::delete[] instead (anachronism)"); ! 2323: } ! 2324: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe); ! 2325: } break; ! 2326: case 224: ! 2327: # line 1590 "gram.y" ! 2328: { binop: yyval.p = new expr(yypvt[-1].t,yypvt[-2].pe,yypvt[-0].pe); } break; ! 2329: case 225: ! 2330: # line 1591 "gram.y" ! 2331: { goto binop; } break; ! 2332: case 226: ! 2333: # line 1592 "gram.y" ! 2334: { goto binop; } break; ! 2335: case 227: ! 2336: # line 1593 "gram.y" ! 2337: { goto binop; } break; ! 2338: case 228: ! 2339: # line 1594 "gram.y" ! 2340: { goto binop; } break; ! 2341: case 229: ! 2342: # line 1595 "gram.y" ! 2343: { goto binop; } break; ! 2344: case 230: ! 2345: # line 1596 "gram.y" ! 2346: { goto binop; } break; ! 2347: case 231: ! 2348: # line 1597 "gram.y" ! 2349: { goto binop; } break; ! 2350: case 232: ! 2351: # line 1598 "gram.y" ! 2352: { goto binop; } break; ! 2353: case 233: ! 2354: # line 1599 "gram.y" ! 2355: { goto binop; } break; ! 2356: case 234: ! 2357: # line 1600 "gram.y" ! 2358: { goto binop; } break; ! 2359: case 235: ! 2360: # line 1601 "gram.y" ! 2361: { goto binop; } break; ! 2362: case 236: ! 2363: # line 1602 "gram.y" ! 2364: { goto binop; } break; ! 2365: case 237: ! 2366: # line 1603 "gram.y" ! 2367: { goto binop; } break; ! 2368: case 238: ! 2369: # line 1604 "gram.y" ! 2370: { goto binop; } break; ! 2371: case 239: ! 2372: # line 1606 "gram.y" ! 2373: { yyval.p = new qexpr(yypvt[-4].pe,yypvt[-2].pe,yypvt[-0].pe); } break; ! 2374: case 240: ! 2375: # line 1608 "gram.y" ! 2376: { yyval.p = new expr(DELETE,yypvt[-0].pe,0); } break; ! 2377: case 241: ! 2378: # line 1610 "gram.y" ! 2379: { ! 2380: if(yypvt[-2].pe != dummy) { ! 2381: if ( warning_opt || strict_opt ) ! 2382: error(strict_opt?0:'w',"v in `delete[v]' is redundant; use `delete[] instead (anachronism)"); ! 2383: } ! 2384: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe); ! 2385: } break; ! 2386: case 242: ! 2387: # line 1618 "gram.y" ! 2388: { yyval.p = new expr(GDELETE,yypvt[-0].pe,0); } break; ! 2389: case 243: ! 2390: # line 1620 "gram.y" ! 2391: { ! 2392: if(yypvt[-2].pe != dummy) { ! 2393: if ( warning_opt || strict_opt ) ! 2394: error(strict_opt?0:'w',"v in `::delete[v]' is redundant; use `::delete[] instead (anachronism)"); ! 2395: } ! 2396: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe); ! 2397: } break; ! 2398: case 244: ! 2399: # line 1627 "gram.y" ! 2400: { ! 2401: init_seen = 0; ! 2402: } break; ! 2403: case 245: ! 2404: # line 1631 "gram.y" ! 2405: { yyval.p = dummy; } break; ! 2406: case 246: ! 2407: # line 1634 "gram.y" ! 2408: { goto new1; } break; ! 2409: case 247: ! 2410: # line 1636 "gram.y" ! 2411: { new1: ! 2412: Ptype t = yypvt[-0].pn->tp; ! 2413: yyval.p = new texpr(NEW,t,0); ! 2414: } break; ! 2415: case 248: ! 2416: # line 1640 "gram.y" ! 2417: { goto new3; } break; ! 2418: case 249: ! 2419: # line 1642 "gram.y" ! 2420: { new3: ! 2421: Ptype t = yypvt[-0].pn->tp; ! 2422: yyval.p = new texpr(GNEW,t,0); ! 2423: } break; ! 2424: case 250: ! 2425: # line 1647 "gram.y" ! 2426: { yyval.p = new expr(yypvt[-0].t,yypvt[-1].pe,0); } break; ! 2427: case 251: ! 2428: # line 1649 "gram.y" ! 2429: { yyval.p = new texpr(CAST,yypvt[-1].pn->tp,yypvt[-0].pe); } break; ! 2430: case 252: ! 2431: # line 1651 "gram.y" ! 2432: { yyval.p = new expr(DEREF,yypvt[-0].pe,0); } break; ! 2433: case 253: ! 2434: # line 1653 "gram.y" ! 2435: { yyval.p = new expr(ADDROF,0,yypvt[-0].pe); } break; ! 2436: case 254: ! 2437: # line 1655 "gram.y" ! 2438: { yyval.p = new expr(UMINUS,0,yypvt[-0].pe); } break; ! 2439: case 255: ! 2440: # line 1657 "gram.y" ! 2441: { yyval.p = new expr(UPLUS,0,yypvt[-0].pe); } break; ! 2442: case 256: ! 2443: # line 1659 "gram.y" ! 2444: { yyval.p = new expr(NOT,0,yypvt[-0].pe); } break; ! 2445: case 257: ! 2446: # line 1661 "gram.y" ! 2447: { yyval.p = new expr(COMPL,0,yypvt[-0].pe); } break; ! 2448: case 258: ! 2449: # line 1663 "gram.y" ! 2450: { yyval.p = new expr(yypvt[-1].t,0,yypvt[-0].pe); } break; ! 2451: case 259: ! 2452: # line 1665 "gram.y" ! 2453: { ! 2454: yyval.p = new texpr(SIZEOF,0,yypvt[-0].pe); ! 2455: in_sizeof = 0; ! 2456: } break; ! 2457: case 260: ! 2458: # line 1670 "gram.y" ! 2459: { ! 2460: yyval.p = new texpr(SIZEOF,yypvt[-0].pn->tp,0); ! 2461: in_sizeof = 0; ! 2462: } break; ! 2463: case 261: ! 2464: # line 1675 "gram.y" ! 2465: { yyval.p = new expr(DEREF,yypvt[-3].pe,yypvt[-1].pe); } break; ! 2466: case 262: ! 2467: # line 1677 "gram.y" ! 2468: { yyval.p = new ref(REF,yypvt[-2].pe,yypvt[-0].pn); } break; ! 2469: case 263: ! 2470: # line 1679 "gram.y" ! 2471: { yyval.p = new expr(yypvt[-1].t,yypvt[-2].pe,yypvt[-0].pe); } break; ! 2472: case 264: ! 2473: # line 1681 "gram.y" ! 2474: { yyval.p = new ref(REF,yypvt[-2].pe,Ncopy(yypvt[-0].pn)); } break; ! 2475: case 265: ! 2476: # line 1683 "gram.y" ! 2477: { yyval.p = new ref(DOT,yypvt[-2].pe,yypvt[-0].pn); } break; ! 2478: case 266: ! 2479: # line 1685 "gram.y" ! 2480: { yyval.p = new ref(DOT,yypvt[-2].pe,Ncopy(yypvt[-0].pn)); } break; ! 2481: case 268: ! 2482: # line 1688 "gram.y" ! 2483: { ! 2484: if ( init_seen ) ! 2485: error( "syntax error:IrL illegal within ()"); ! 2486: } break; ! 2487: case 269: ! 2488: # line 1694 "gram.y" ! 2489: { ! 2490: if ( yypvt[-1].p == dummy ) ! 2491: error("syntax error: nullE"); ! 2492: yyval.p = yypvt[-1].p; ! 2493: } break; ! 2494: case 270: ! 2495: # line 1700 "gram.y" ! 2496: { yyval.p = zero; } break; ! 2497: case 271: ! 2498: # line 1702 "gram.y" ! 2499: { yyval.p = new expr(ICON,0,0); ! 2500: yyval.pe->string = yypvt[-0].s; ! 2501: } break; ! 2502: case 272: ! 2503: # line 1706 "gram.y" ! 2504: { yyval.p = new expr(FCON,0,0); ! 2505: yyval.pe->string = yypvt[-0].s; ! 2506: } break; ! 2507: case 273: ! 2508: # line 1710 "gram.y" ! 2509: { yyval.p = new expr(STRING,0,0); ! 2510: yyval.pe->string = yypvt[-0].s; ! 2511: } break; ! 2512: case 274: ! 2513: # line 1714 "gram.y" ! 2514: { yyval.p = new expr(CCON,0,0); ! 2515: yyval.pe->string = yypvt[-0].s; ! 2516: } break; ! 2517: case 275: ! 2518: # line 1718 "gram.y" ! 2519: { yyval.p = new expr(THIS,0,0); } break; ! 2520: case 276: ! 2521: # line 1722 "gram.y" ! 2522: { yyval.p = new texpr(VALUE,tok_to_type(yypvt[-3].t),yypvt[-1].pe); } break; ! 2523: case 277: ! 2524: # line 1724 "gram.y" ! 2525: { yyval.p = new texpr(VALUE,yypvt[-3].pn->tp,yypvt[-1].pe); } break; ! 2526: case 278: ! 2527: # line 1725 "gram.y" ! 2528: { goto new2; } break; ! 2529: case 279: ! 2530: # line 1727 "gram.y" ! 2531: { new2: ! 2532: Ptype t = yypvt[-0].pn->tp; ! 2533: yyval.p=new texpr(NEW,t,0); ! 2534: yyval.pe->e2 = yypvt[-2].pe; ! 2535: } break; ! 2536: case 280: ! 2537: # line 1732 "gram.y" ! 2538: { goto new4; } break; ! 2539: case 281: ! 2540: # line 1734 "gram.y" ! 2541: { new4: ! 2542: Ptype t = yypvt[-0].pn->tp; ! 2543: yyval.p = new texpr(GNEW,t,0); ! 2544: yyval.pe->e2 = yypvt[-2].pe; ! 2545: } break; ! 2546: case 282: ! 2547: # line 1740 "gram.y" ! 2548: { ! 2549: Pexpr ee = yypvt[-1].pe; ! 2550: Pexpr e = yypvt[-3].pe; ! 2551: if (e->base==NEW || e->base==GNEW) ! 2552: e->e1 = ee; ! 2553: else ! 2554: yyval.p = new call(e,ee); ! 2555: } break; ! 2556: case 283: ! 2557: # line 1751 "gram.y" ! 2558: { ! 2559: yyval.pn = yypvt[-0].pn; ! 2560: curr_scope = yypvt[-0].pn; ! 2561: } break; ! 2562: case 284: ! 2563: # line 1756 "gram.y" ! 2564: { yyval.pn = sta_name; } break; ! 2565: case 285: ! 2566: # line 1761 "gram.y" ! 2567: { yyval.p = yypvt[-0].pn; } break; ! 2568: case 286: ! 2569: # line 1763 "gram.y" ! 2570: { yyval.p = Ncopy(yypvt[-0].pn); ! 2571: yyval.pn->n_qualifier = yypvt[-1].pn; ! 2572: } break; ! 2573: case 287: ! 2574: # line 1767 "gram.y" ! 2575: { yyval.p = new name(oper_name(yypvt[-0].t)); ! 2576: yyval.pn->n_oper = yypvt[-0].t; ! 2577: } break; ! 2578: case 288: ! 2579: # line 1771 "gram.y" ! 2580: { yyval.p = new name(oper_name(yypvt[-0].t)); ! 2581: yyval.pn->n_oper = yypvt[-0].t; ! 2582: yyval.pn->n_qualifier = yypvt[-2].pn; ! 2583: } break; ! 2584: case 289: ! 2585: # line 1776 "gram.y" ! 2586: { yyval.p = yypvt[-0].p; ! 2587: sig_name(yyval.pn); ! 2588: } break; ! 2589: case 290: ! 2590: # line 1780 "gram.y" ! 2591: { yyval.p = yypvt[-0].p; ! 2592: sig_name(yyval.pn); ! 2593: yyval.pn->n_qualifier = yypvt[-2].pn; ! 2594: } break; ! 2595: case 291: ! 2596: # line 1785 "gram.y" ! 2597: { ! 2598: if (strcmp(yypvt[-2].pn->string,yypvt[-0].pn->string)) error("syntax error: inconsistent destructor notation"); ! 2599: yyval.p = new name(oper_name(DTOR)); ! 2600: yyval.pn->n_oper = DTOR; ! 2601: yyval.pn->n_qualifier = yypvt[-2].pn; ! 2602: } break; ! 2603: case 292: ! 2604: # line 1797 "gram.y" ! 2605: { yyval.p = Ncast(yypvt[-2].p,yypvt[-1].pn); } break; ! 2606: case 293: ! 2607: # line 1800 "gram.y" ! 2608: { check_cast(); } break; ! 2609: case 294: ! 2610: # line 1804 "gram.y" ! 2611: { ! 2612: TOK t = yypvt[-0].t; ! 2613: ! 2614: switch (t) { ! 2615: case FRIEND: ! 2616: case OVERLOAD: ! 2617: case REGISTER: ! 2618: case STATIC: ! 2619: case EXTERN: ! 2620: case AUTO: ! 2621: case VIRTUAL: ! 2622: error("%k in operatorT",t); ! 2623: t = INT; ! 2624: ! 2625: } ! 2626: ! 2627: yyval.p = new basetype(t,0); ! 2628: ! 2629: } break; ! 2630: case 295: ! 2631: # line 1823 "gram.y" ! 2632: { yyval.p = new basetype(TYPE,yypvt[-0].pn); } break; ! 2633: case 296: ! 2634: # line 1825 "gram.y" ! 2635: { ! 2636: if ( DECL_TYPE != -1 ) ! 2637: yyval.p = yypvt[-1].pb->type_adj(yypvt[-0].t); ! 2638: DECL_TYPE = 0; ! 2639: } break; ! 2640: case 297: ! 2641: # line 1831 "gram.y" ! 2642: { ! 2643: if ( DECL_TYPE != -1 ) ! 2644: yyval.p = yypvt[-1].pb->name_adj(yypvt[-0].pn); ! 2645: DECL_TYPE = 0; ! 2646: } break; ! 2647: case 298: ! 2648: # line 1838 "gram.y" ! 2649: { yyval.p = Ncast(yypvt[-1].p,yypvt[-0].pn); } break; ! 2650: case 299: ! 2651: # line 1841 "gram.y" ! 2652: { yyval.p = Ncast(yypvt[-1].p,yypvt[-0].pn); } break; ! 2653: case 300: ! 2654: # line 1844 "gram.y" ! 2655: { yyval.p = Ndata(yypvt[-1].p,yypvt[-0].pn); } break; ! 2656: case 301: ! 2657: # line 1846 "gram.y" ! 2658: { yyval.p = Ndata(yypvt[-3].p,yypvt[-2].pn); ! 2659: yyval.pn->n_initializer = yypvt[-0].pe; ! 2660: } break; ! 2661: case 302: ! 2662: # line 1852 "gram.y" ! 2663: { ! 2664: check_decl(); ! 2665: in_arg_list=1; ! 2666: yyval.pl = modified_tn; ! 2667: modified_tn = 0; ! 2668: } break; ! 2669: case 303: ! 2670: # line 1861 "gram.y" ! 2671: { ! 2672: yyval.p = new fct(0,name_unlist(yypvt[-3].nl),yypvt[-2].t); ! 2673: if ( NEXTTOK() != COLON ) in_arg_list=0; ! 2674: //in_arg_list=0; ! 2675: Pfct(yyval.pt)->f_const = (yypvt[-0].i & 1); ! 2676: if ( parsing_class_members ! 2677: || (NEXTTOK()!=LC && yychar!=COLON)) ! 2678: end_al(yypvt[-4].pl,1); ! 2679: else ! 2680: end_al(yypvt[-4].pl,0); ! 2681: } break; ! 2682: case 304: ! 2683: # line 1875 "gram.y" ! 2684: { ! 2685: if (yypvt[-0].p) ! 2686: if (yypvt[-2].p) ! 2687: yypvt[-2].nl->add(yypvt[-0].pn); ! 2688: else { ! 2689: error("AD syntax"); ! 2690: yyval.nl = new nlist(yypvt[-0].pn); ! 2691: } ! 2692: else ! 2693: error("AD syntax"); ! 2694: } break; ! 2695: case 305: ! 2696: # line 1887 "gram.y" ! 2697: { ! 2698: if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn); ! 2699: } break; ! 2700: case 307: ! 2701: # line 1893 "gram.y" ! 2702: { yyval.p = 0; } break; ! 2703: case 308: ! 2704: # line 1897 "gram.y" ! 2705: { yyval.t = 1; } break; ! 2706: case 309: ! 2707: # line 1899 "gram.y" ! 2708: { yyval.t = ELLIPSIS; } break; ! 2709: case 310: ! 2710: # line 1901 "gram.y" ! 2711: { yyval.t = ELLIPSIS; } break; ! 2712: case 311: ! 2713: # line 1905 "gram.y" ! 2714: { ! 2715: yyval.p = new ptr(PTR,0); ! 2716: EXPECT_ID(); ! 2717: } break; ! 2718: case 312: ! 2719: # line 1910 "gram.y" ! 2720: { ! 2721: yyval.p = new ptr(RPTR,0); ! 2722: EXPECT_ID(); ! 2723: } break; ! 2724: case 313: ! 2725: # line 1915 "gram.y" ! 2726: { yyval.p = doptr(PTR,yypvt[-0].t); } break; ! 2727: case 314: ! 2728: # line 1917 "gram.y" ! 2729: { ! 2730: switch ( yypvt[-0].t ) { ! 2731: case CONST: ! 2732: yypvt[-1].pp->rdo = 1; break; ! 2733: case VOLATILE: ! 2734: error('w',"\"volatile\" not implemented (ignored)"); ! 2735: break; ! 2736: default: ! 2737: error( "syntax error: *%k", yypvt[-0].t ); ! 2738: } ! 2739: yyval.p = yypvt[-1].pp; ! 2740: } break; ! 2741: case 315: ! 2742: # line 1930 "gram.y" ! 2743: { yyval.p = doptr(RPTR,yypvt[-0].t); } break; ! 2744: case 316: ! 2745: # line 1932 "gram.y" ! 2746: { ! 2747: yyval.p = new ptr(PTR,0); ! 2748: yyval.pp->memof = Pclass(Pbase(yypvt[-0].pn->tp)->b_name->tp); ! 2749: EXPECT_ID(); ! 2750: } break; ! 2751: case 317: ! 2752: # line 1938 "gram.y" ! 2753: { yyval.p = doptr(PTR,yypvt[-0].t); ! 2754: yyval.pp->memof = Pclass(Pbase(yypvt[-1].pn->tp)->b_name->tp); ! 2755: } break; ! 2756: case 318: ! 2757: # line 1943 "gram.y" ! 2758: { yyval.p = new vec(0,yypvt[-1].pe!=dummy?yypvt[-1].pe:0 ); } break; ! 2759: case 319: ! 2760: # line 1944 "gram.y" ! 2761: { yyval.p = new vec(0,0); } break; ! 2762: } ! 2763: goto yystack; /* stack new state and value */ ! 2764: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.