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