-/* A Bison parser, made from ../expread.y */
+/* A Bison parser, made from ./expread.y */
#define INT 258
#define CHAR 259
#define DECREMENT 295
#define ARROW 296
-#line 29 "../expread.y"
+#line 29 "./expread.y"
#include <stdio.h>
#include "defs.h"
An array should be preceded in the list by the size of the array. */
enum type_pieces
{tp_end = -1, tp_pointer, tp_reference, tp_array, tp_function};
-static enum type_pieces *type_stack;
+/* The stack can contain either an enum type_pieces or an int. */
+union type_stack_elt {
+ enum type_pieces piece;
+ int int_val;
+};
+static union type_stack_elt *type_stack;
static int type_stack_depth, type_stack_size;
static void push_type ();
+static void push_type_int ();
static enum type_pieces pop_type ();
+static int pop_type_int ();
/* Allow debugging of parsing. */
#define YYDEBUG 1
-#line 125 "../expread.y"
+#line 132 "./expread.y"
typedef union
{
LONGEST lval;
-#define YYFINAL 189
+#define YYFINAL 197
#define YYFLAG -32768
#define YYNTBASE 66
44, 45, 52, 53, 54, 55
};
-static const short yyrline[] = { 0,
- 218, 222, 223, 228, 231, 234, 238, 242, 246, 250,
- 254, 258, 262, 266, 272, 276, 282, 286, 290, 294,
- 300, 303, 307, 311, 317, 323, 329, 333, 337, 341,
- 345, 349, 353, 357, 361, 365, 369, 373, 377, 381,
- 385, 389, 393, 397, 401, 405, 409, 413, 419, 429,
- 442, 454, 467, 474, 481, 484, 490, 496, 502, 509,
- 516, 523, 540, 550, 562, 575, 621, 695, 696, 731,
- 733, 735, 738, 740, 745, 751, 753, 757, 759, 763,
- 767, 768, 770, 772, 775, 782, 784, 786, 788, 790,
- 792, 794, 796, 798, 801, 804, 807, 809, 811, 813,
- 817, 818, 824, 830, 839, 844, 851, 852, 853, 854,
- 855, 858, 859, 860, 861
+static const short yyprhs[] = { 0,
+ 0, 2, 4, 8, 11, 14, 17, 20, 23, 26,
+ 29, 32, 35, 38, 42, 47, 51, 56, 61, 62,
+ 68, 69, 71, 75, 80, 85, 89, 93, 97, 101,
+ 105, 109, 113, 117, 121, 125, 129, 133, 137, 141,
+ 145, 149, 153, 157, 161, 165, 171, 175, 179, 181,
+ 183, 185, 187, 189, 191, 193, 195, 197, 199, 204,
+ 206, 208, 210, 214, 218, 222, 227, 230, 232, 234,
+ 237, 239, 242, 244, 247, 249, 253, 256, 258, 261,
+ 263, 266, 270, 273, 275, 279, 286, 295, 305, 307,
+ 309, 311, 313, 316, 320, 323, 327, 331, 336, 339,
+ 343, 346, 349, 352, 355, 357, 360, 362, 364, 366,
+ 368, 370, 372, 376, 378, 380, 382, 384, 386, 388
+};
+
+static const short yyrhs[] = { 67,
+ 0, 68, 0, 67, 29, 68, 0, 49, 68, 0,
+ 37, 68, 0, 48, 68, 0, 59, 68, 0, 60,
+ 68, 0, 53, 68, 0, 54, 68, 0, 68, 53,
+ 0, 68, 54, 0, 16, 68, 0, 68, 55, 82,
+ 0, 68, 55, 49, 68, 0, 68, 56, 82, 0,
+ 68, 56, 49, 68, 0, 68, 57, 67, 61, 0,
+ 0, 68, 58, 69, 70, 62, 0, 0, 68, 0,
+ 70, 29, 68, 0, 63, 78, 64, 68, 0, 58,
+ 78, 62, 68, 0, 58, 67, 62, 0, 68, 46,
+ 68, 0, 68, 49, 68, 0, 68, 50, 68, 0,
+ 68, 51, 68, 0, 68, 47, 68, 0, 68, 48,
+ 68, 0, 68, 44, 68, 0, 68, 45, 68, 0,
+ 68, 38, 68, 0, 68, 39, 68, 0, 68, 42,
+ 68, 0, 68, 43, 68, 0, 68, 40, 68, 0,
+ 68, 41, 68, 0, 68, 37, 68, 0, 68, 36,
+ 68, 0, 68, 35, 68, 0, 68, 34, 68, 0,
+ 68, 33, 68, 0, 68, 32, 68, 65, 68, 0,
+ 68, 31, 68, 0, 68, 27, 68, 0, 3, 0,
+ 11, 0, 5, 0, 12, 0, 4, 0, 6, 0,
+ 72, 0, 24, 0, 25, 0, 26, 0, 16, 58,
+ 78, 62, 0, 7, 0, 28, 0, 9, 0, 71,
+ 18, 82, 0, 71, 18, 82, 0, 79, 18, 82,
+ 0, 79, 18, 60, 82, 0, 18, 82, 0, 83,
+ 0, 79, 0, 79, 74, 0, 49, 0, 49, 74,
+ 0, 37, 0, 37, 74, 0, 75, 0, 58, 74,
+ 62, 0, 75, 76, 0, 76, 0, 75, 77, 0,
+ 77, 0, 57, 61, 0, 57, 3, 61, 0, 58,
+ 62, 0, 73, 0, 79, 18, 49, 0, 78, 58,
+ 79, 18, 49, 62, 0, 78, 58, 79, 18, 49,
+ 62, 58, 62, 0, 78, 58, 79, 18, 49, 62,
+ 58, 81, 62, 0, 10, 0, 23, 0, 21, 0,
+ 22, 0, 21, 23, 0, 17, 21, 23, 0, 21,
+ 21, 0, 21, 21, 23, 0, 17, 21, 21, 0,
+ 17, 21, 21, 23, 0, 22, 23, 0, 17, 22,
+ 23, 0, 13, 82, 0, 14, 82, 0, 15, 82,
+ 0, 17, 80, 0, 17, 0, 20, 80, 0, 20,
+ 0, 10, 0, 23, 0, 21, 0, 22, 0, 78,
+ 0, 81, 29, 78, 0, 8, 0, 9, 0, 10,
+ 0, 11, 0, 12, 0, 8, 0, 9, 0
+};
+
+#if YYDEBUG != 0
+static const short yyrline[] = { 0,
+ 225, 229, 230, 235, 238, 241, 245, 249, 253, 257,
+ 261, 265, 269, 273, 279, 283, 289, 293, 297, 301,
+ 307, 310, 314, 318, 324, 330, 336, 340, 344, 348,
+ 352, 356, 360, 364, 368, 372, 376, 380, 384, 388,
+ 392, 396, 400, 404, 408, 412, 416, 420, 426, 436,
+ 449, 461, 474, 481, 488, 491, 497, 503, 509, 516,
+ 523, 530, 548, 558, 570, 583, 601, 647, 741, 742,
+ 777, 779, 781, 783, 785, 788, 790, 795, 801, 803,
+ 807, 809, 813, 817, 818, 820, 822, 825, 832, 834,
+ 836, 838, 840, 842, 844, 846, 848, 850, 852, 854,
+ 856, 859, 862, 865, 867, 869, 871, 875, 876, 882,
+ 888, 897, 902, 909, 910, 911, 912, 913, 916, 917
};
-static const char * const yytname[] = { 0,
+static const char * const yytname[] = { "$",
"error","$illegal.","INT","CHAR","UINT","FLOAT","STRING","NAME","BLOCKNAME","TYPENAME",
"NAME_OR_INT","NAME_OR_UINT","STRUCT","UNION","ENUM","SIZEOF","UNSIGNED","COLONCOLON","ERROR","SIGNED",
"LONG","SHORT","INT_KEYWORD","LAST","REGNAME","VARIABLE","ASSIGN_MODIFY","THIS","','","ABOVE_COMMA",
"'='","'?'","OR","AND","'|'","'^'","'&'","EQUAL","NOTEQUAL","'<'",
"'>'","LEQ","GEQ","LSH","RSH","'@'","'+'","'-'","'*'","'/'",
"'%'","UNARY","INCREMENT","DECREMENT","ARROW","'.'","'['","'('","'!'","'~'",
-"']'","')'","'{'","'}'","':'","start"
+"']'","')'","'{'","'}'","':'","start","exp1","exp","@1","arglist",
+"block","variable","ptype","abs_decl","direct_abs_decl","array_mod","func_mod","type","typebase","typename",
+"nonempty_typelist","name","name_not_typename",""
};
+#endif
static const short yyr1[] = { 0,
66, 67, 67, 68, 68, 68, 68, 68, 68, 68,
68, 68, 68, 68, 68, 68, 68, 68, 68, 68,
68, 68, 68, 68, 68, 68, 68, 68, 68, 68,
68, 68, 68, 68, 68, 68, 68, 68, 68, 68,
- 68, 71, 71, 72, 72, 72, 72, 73, 73, 74,
- 74, 74, 75, 75, 75, 75, 75, 76, 76, 77,
- 78, 78, 78, 78, 78, 79, 79, 79, 79, 79,
+ 68, 71, 71, 72, 72, 72, 72, 72, 73, 73,
+ 74, 74, 74, 74, 74, 75, 75, 75, 75, 75,
+ 76, 76, 77, 78, 78, 78, 78, 78, 79, 79,
79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 80, 80, 80, 80, 81, 81, 82, 82, 82, 82,
- 82, 83, 83, 83, 83
+ 79, 79, 79, 79, 79, 79, 79, 80, 80, 80,
+ 80, 81, 81, 82, 82, 82, 82, 82, 83, 83
};
static const short yyr2[] = { 0,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 5, 3, 3, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 4, 1,
- 1, 1, 3, 3, 3, 2, 1, 1, 2, 1,
- 2, 1, 3, 2, 1, 2, 1, 2, 3, 2,
- 1, 3, 6, 8, 9, 1, 1, 1, 1, 2,
- 3, 2, 3, 2, 2, 2, 2, 1, 2, 1,
- 1, 1, 1, 1, 1, 3, 1, 1, 1, 1,
- 1, 1, 1, 1, 1
+ 1, 1, 3, 3, 3, 4, 2, 1, 1, 2,
+ 1, 2, 1, 2, 1, 3, 2, 1, 2, 1,
+ 2, 3, 2, 1, 3, 6, 8, 9, 1, 1,
+ 1, 1, 2, 3, 2, 3, 3, 4, 2, 3,
+ 2, 2, 2, 2, 1, 2, 1, 1, 1, 1,
+ 1, 1, 3, 1, 1, 1, 1, 1, 1, 1
};
static const short yydefact[] = { 0,
- 49, 53, 51, 54, 60, 112, 113, 86, 50, 52,
- 0, 0, 0, 0, 98, 0, 100, 88, 89, 87,
+ 49, 53, 51, 54, 60, 119, 120, 89, 50, 52,
+ 0, 0, 0, 0, 105, 0, 107, 91, 92, 90,
56, 57, 58, 61, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 1, 2, 0, 55, 0, 67, 107,
- 108, 109, 110, 111, 94, 95, 96, 0, 13, 101,
- 103, 104, 102, 97, 66, 103, 104, 99, 90, 92,
- 5, 6, 4, 9, 10, 0, 81, 0, 68, 7,
- 8, 0, 68, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 1, 2, 0, 55, 0, 68, 114,
+ 115, 116, 117, 118, 101, 102, 103, 0, 13, 108,
+ 110, 111, 109, 104, 67, 110, 111, 106, 95, 93,
+ 99, 5, 6, 4, 9, 10, 0, 84, 0, 69,
+ 7, 8, 0, 69, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 11, 12, 0, 0,
- 0, 19, 0, 0, 0, 91, 93, 26, 0, 0,
- 0, 70, 0, 0, 69, 72, 75, 77, 0, 0,
- 3, 48, 47, 0, 45, 44, 43, 42, 41, 35,
- 36, 39, 40, 37, 38, 33, 34, 27, 31, 32,
- 28, 29, 30, 0, 14, 0, 16, 0, 21, 64,
- 65, 59, 0, 25, 82, 71, 0, 78, 80, 0,
- 0, 74, 76, 24, 0, 15, 17, 18, 22, 0,
- 0, 79, 73, 46, 0, 20, 0, 23, 83, 0,
- 84, 105, 0, 0, 85, 106, 0, 0, 0
+ 0, 0, 0, 0, 0, 0, 0, 11, 12, 0,
+ 0, 0, 19, 0, 0, 0, 97, 94, 100, 96,
+ 26, 0, 0, 0, 73, 71, 0, 0, 70, 75,
+ 78, 80, 0, 0, 3, 48, 47, 0, 45, 44,
+ 43, 42, 41, 35, 36, 39, 40, 37, 38, 33,
+ 34, 27, 31, 32, 28, 29, 30, 0, 14, 0,
+ 16, 0, 21, 64, 0, 65, 59, 98, 0, 25,
+ 85, 74, 72, 0, 81, 83, 0, 0, 77, 79,
+ 24, 0, 15, 17, 18, 22, 0, 66, 0, 82,
+ 76, 46, 0, 20, 0, 23, 86, 0, 87, 112,
+ 0, 0, 88, 113, 0, 0, 0
};
-static const short yydefgoto[] = { 187,
- 66, 35, 149, 170, 36, 37, 67, 115, 116, 117,
- 118, 68, 38, 54, 183, 151, 39
+static const short yydefgoto[] = { 195,
+ 67, 35, 153, 177, 36, 37, 68, 119, 120, 121,
+ 122, 69, 38, 54, 191, 156, 39
};
-static const short yypact[] = { 159,
--32768,-32768,-32768,-32768,-32768,-32768, -13,-32768,-32768,-32768,
- 21, 21, 21, 220, 121, 21, 124, -15, 3,-32768,
--32768,-32768,-32768,-32768, 159, 159, 159, 159, 159, 159,
- 159, 159, 272, 80, 306, 32,-32768, 99,-32768,-32768,
--32768,-32768,-32768,-32768,-32768,-32768,-32768, 159, 508,-32768,
- 100, 101,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
- 508, 508, 508, 508, 508, -4,-32768, -52, 79, 508,
- 508, -55, 92, 159, 159, 159, 159, 159, 159, 159,
- 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
- 159, 159, 159, 159, 159, 159,-32768,-32768, 90, 104,
- 159,-32768, 21, 21, -35,-32768,-32768,-32768, 272, 159,
- 110, 157, 25, 209,-32768, 30,-32768,-32768, 159, 84,
- 306, 306, 306, 271, 358, 382, 405, 427, 448, 467,
- 467, 144, 144, 144, 144, 480, 480, 492, 502, 502,
- 508, 508, 508, 159,-32768, 159,-32768, 66, 159, 111,
--32768, 31, 122, 508,-32768,-32768, 94,-32768,-32768, 95,
- 98,-32768,-32768, 508, 159, 508, 508,-32768, 306, 63,
- 107,-32768,-32768, 333, 159,-32768, 116, 306, 128, 239,
--32768, 145, 64, 272,-32768, 145, 204, 205,-32768
+static const short yypact[] = { 167,
+-32768,-32768,-32768,-32768,-32768,-32768, 7,-32768,-32768,-32768,
+ 22, 22, 22, 228, 190, 22, 245, 119, -7,-32768,
+-32768,-32768,-32768,-32768, 167, 167, 167, 167, 167, 167,
+ 167, 167, 528, 60, 303, 33,-32768, 76,-32768,-32768,
+-32768,-32768,-32768,-32768,-32768,-32768,-32768, 167, 216,-32768,
+ 134, 77,-32768,-32768,-32768,-32768,-32768,-32768, 78,-32768,
+-32768, 216, 216, 216, 216, 216, 59,-32768, -52, 75,
+ 216, 216, -55, 80, 167, 167, 167, 167, 167, 167,
+ 167, 167, 167, 167, 167, 167, 167, 167, 167, 167,
+ 167, 167, 167, 167, 167, 167, 167,-32768,-32768, 198,
+ 249, 167,-32768, 22, 138, -34, 90,-32768,-32768,-32768,
+-32768, 528, 167, 96, 165, 165, 26, 104,-32768, -50,
+-32768,-32768, 167, 47, 303, 303, 303, 268, 355, 379,
+ 402, 424, 445, 464, 464, 479, 479, 479, 479, 506,
+ 506, 518, 529, 529, 216, 216, 216, 167,-32768, 167,
+-32768, -2, 167, 98, 22,-32768, 32,-32768, 113, 216,
+-32768,-32768,-32768, 62,-32768,-32768, 82, 106,-32768,-32768,
+ 216, 167, 216, 216,-32768, 303, 68,-32768, 137,-32768,
+-32768, 330, 167,-32768, 132, 303, 139, 105,-32768, 141,
+ 73, 528,-32768, 141, 196, 201,-32768
};
static const short yypgoto[] = {-32768,
- 2, -14,-32768,-32768,-32768,-32768,-32768, -8,-32768, 93,
- 105, -32, -26, 193,-32768, 8,-32768
+ 1, -14,-32768,-32768,-32768,-32768,-32768, 36,-32768, 83,
+ 85, -29, -28, 200,-32768, 10,-32768
};
-#define YYLAST 566
+#define YYLAST 587
static const short yytable[] = { 49,
- 72, 34, 109, 69, -62, 109, 73, 59, 119, 110,
- 61, 62, 63, 64, 65, 105, 70, 71, 45, 46,
- 47, 69, 109, 55, 74, 60, 152, 157, 40, 41,
- 42, 43, 44, 1, 2, 3, 4, 5, 6, 7,
- 8, 9, 10, 11, 12, 13, 14, 15, 16, 103,
- 17, 18, 19, 20, 21, 22, 23, 108, 24, 121,
- 122, 123, 124, 125, 126, 127, 128, 129, 130, 131,
- 132, 133, 134, 135, 136, 137, 138, 139, 140, 141,
- 142, 143, 153, 28, 29, 158, 113, 161, 30, 31,
- 32, 175, 184, 33, 74, 154, 111, 40, 41, 42,
- 43, 44, 148, 156, 164, 160, 145, 147, 74, 120,
- 150, 40, 41, 42, 43, 44, 104, 40, 41, 42,
- 43, 44, 106, 107, 176, 185, 168, 112, -63, 166,
- 50, 167, 155, 50, 169, 113, 114, 154, 144, 171,
- 112, 51, 52, 53, 56, 57, 53, 182, 113, 114,
- 174, 186, 146, 73, 172, 177, 173, 73, 155, 159,
- 178, 1, 2, 3, 4, 5, 6, 7, 8, 9,
- 10, 11, 12, 13, 14, 15, 16, 179, 17, 18,
- 19, 20, 21, 22, 23, 180, 24, 89, 90, 91,
- 92, 93, 94, 95, 96, 25, 97, 98, 99, 100,
- 101, 102, 109, 188, 189, 112, 26, 27, 162, 58,
- 0, 28, 29, 113, 114, 0, 30, 31, 32, 0,
- 163, 33, 1, 2, 3, 4, 5, 6, 7, 8,
- 9, 10, 11, 12, 13, 14, 15, 16, 0, 17,
- 18, 19, 20, 21, 22, 23, 0, 24, 8, 0,
- 0, 11, 12, 13, 0, 15, 25, 112, 17, 18,
- 19, 20, 0, 0, 0, 113, 114, 26, 27, 0,
- 159, 0, 28, 29, 0, 0, 0, 48, 31, 32,
- 0, 8, 33, 0, 11, 12, 13, 0, 15, 0,
- 0, 17, 18, 19, 20, 0, 0, 75, 0, 0,
- 181, 76, 77, 78, 79, 80, 81, 82, 83, 84,
+ 34, 70, 112, 73, 74, 112, 117, 168, 123, 113,
+ 62, 63, 64, 65, 66, 61, 71, 72, 106, 70,
+ 45, 46, 47, 112, -62, 55, 75, 157, 164, 40,
+ 41, 42, 43, 44, 1, 2, 3, 4, 5, 6,
+ 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 104, 17, 18, 19, 20, 21, 22, 23, 175, 24,
+ 125, 126, 127, 128, 129, 130, 131, 132, 133, 134,
+ 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
+ 145, 146, 147, 159, 28, 29, 165, 75, 75, 30,
+ 31, 32, 114, 105, 33, 161, 183, 124, 160, 109,
+ 110, 192, 152, 40, 41, 42, 43, 44, 171, 149,
+ 151, 115, 158, 154, 8, -63, 115, 11, 12, 13,
+ 111, 15, 180, 116, 17, 18, 19, 20, 116, 184,
+ 179, 117, 118, 173, 193, 174, 117, 118, 176, 59,
+ 115, 60, 160, 181, 161, 40, 41, 42, 43, 44,
+ 162, 163, 116, 167, 107, 155, 108, 182, 190, 74,
+ 117, 118, 194, 74, 178, 166, 189, 166, 186, 1,
+ 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,
+ 12, 13, 14, 15, 16, 185, 17, 18, 19, 20,
+ 21, 22, 23, 187, 24, 196, 188, 155, 112, 50,
+ 197, 115, 169, 25, 170, 40, 41, 42, 43, 44,
+ 51, 52, 53, 116, 26, 27, 58, 0, 0, 28,
+ 29, 117, 118, 0, 30, 31, 32, 0, 0, 33,
+ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
+ 11, 12, 13, 14, 15, 16, 148, 17, 18, 19,
+ 20, 21, 22, 23, 50, 24, 40, 41, 42, 43,
+ 44, 0, 0, 0, 25, 56, 57, 53, 98, 99,
+ 100, 101, 102, 103, 0, 26, 27, 0, 0, 0,
+ 28, 29, 0, 0, 0, 48, 31, 32, 0, 0,
+ 33, 0, 0, 0, 76, 0, 0, 150, 77, 78,
+ 79, 80, 81, 82, 83, 84, 85, 86, 87, 88,
+ 89, 90, 91, 92, 93, 94, 95, 96, 97, 0,
+ 98, 99, 100, 101, 102, 103, 0, 0, 0, 76,
+ 0, 0, 172, 77, 78, 79, 80, 81, 82, 83,
+ 84, 85, 86, 87, 88, 89, 90, 91, 92, 93,
+ 94, 95, 96, 97, 0, 98, 99, 100, 101, 102,
+ 103, 78, 79, 80, 81, 82, 83, 84, 85, 86,
+ 87, 88, 89, 90, 91, 92, 93, 94, 95, 96,
+ 97, 0, 98, 99, 100, 101, 102, 103, 80, 81,
+ 82, 83, 84, 85, 86, 87, 88, 89, 90, 91,
+ 92, 93, 94, 95, 96, 97, 0, 98, 99, 100,
+ 101, 102, 103, 81, 82, 83, 84, 85, 86, 87,
+ 88, 89, 90, 91, 92, 93, 94, 95, 96, 97,
+ 0, 98, 99, 100, 101, 102, 103, 82, 83, 84,
85, 86, 87, 88, 89, 90, 91, 92, 93, 94,
- 95, 96, 0, 97, 98, 99, 100, 101, 102, 0,
- 0, 0, 75, 0, 0, 165, 76, 77, 78, 79,
- 80, 81, 82, 83, 84, 85, 86, 87, 88, 89,
- 90, 91, 92, 93, 94, 95, 96, 0, 97, 98,
- 99, 100, 101, 102, 77, 78, 79, 80, 81, 82,
+ 95, 96, 97, 0, 98, 99, 100, 101, 102, 103,
83, 84, 85, 86, 87, 88, 89, 90, 91, 92,
- 93, 94, 95, 96, 0, 97, 98, 99, 100, 101,
- 102, 79, 80, 81, 82, 83, 84, 85, 86, 87,
- 88, 89, 90, 91, 92, 93, 94, 95, 96, 0,
- 97, 98, 99, 100, 101, 102, 80, 81, 82, 83,
- 84, 85, 86, 87, 88, 89, 90, 91, 92, 93,
- 94, 95, 96, 0, 97, 98, 99, 100, 101, 102,
- 81, 82, 83, 84, 85, 86, 87, 88, 89, 90,
- 91, 92, 93, 94, 95, 96, 0, 97, 98, 99,
- 100, 101, 102, 82, 83, 84, 85, 86, 87, 88,
- 89, 90, 91, 92, 93, 94, 95, 96, 0, 97,
- 98, 99, 100, 101, 102, 83, 84, 85, 86, 87,
- 88, 89, 90, 91, 92, 93, 94, 95, 96, 0,
- 97, 98, 99, 100, 101, 102, 85, 86, 87, 88,
- 89, 90, 91, 92, 93, 94, 95, 96, 0, 97,
- 98, 99, 100, 101, 102, 91, 92, 93, 94, 95,
- 96, 0, 97, 98, 99, 100, 101, 102, 92, 93,
- 94, 95, 96, 0, 97, 98, 99, 100, 101, 102,
- 94, 95, 96, 0, 97, 98, 99, 100, 101, 102,
- 97, 98, 99, 100, 101, 102
+ 93, 94, 95, 96, 97, 0, 98, 99, 100, 101,
+ 102, 103, 84, 85, 86, 87, 88, 89, 90, 91,
+ 92, 93, 94, 95, 96, 97, 0, 98, 99, 100,
+ 101, 102, 103, 86, 87, 88, 89, 90, 91, 92,
+ 93, 94, 95, 96, 97, 0, 98, 99, 100, 101,
+ 102, 103, 90, 91, 92, 93, 94, 95, 96, 97,
+ 0, 98, 99, 100, 101, 102, 103, 8, 0, 0,
+ 11, 12, 13, 0, 15, 0, 0, 17, 18, 19,
+ 20, 92, 93, 94, 95, 96, 97, 0, 98, 99,
+ 100, 101, 102, 103, 93, 94, 95, 96, 97, 0,
+ 98, 99, 100, 101, 102, 103, 0, 95, 96, 97,
+ 0, 98, 99, 100, 101, 102, 103
};
static const short yycheck[] = { 14,
- 33, 0, 58, 30, 18, 58, 33, 23, 64, 62,
- 25, 26, 27, 28, 29, 48, 31, 32, 11, 12,
- 13, 48, 58, 16, 29, 23, 62, 3, 8, 9,
- 10, 11, 12, 3, 4, 5, 6, 7, 8, 9,
- 10, 11, 12, 13, 14, 15, 16, 17, 18, 18,
- 20, 21, 22, 23, 24, 25, 26, 62, 28, 74,
+ 0, 30, 58, 33, 33, 58, 57, 58, 64, 62,
+ 25, 26, 27, 28, 29, 23, 31, 32, 48, 48,
+ 11, 12, 13, 58, 18, 16, 29, 62, 3, 8,
+ 9, 10, 11, 12, 3, 4, 5, 6, 7, 8,
+ 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
+ 18, 20, 21, 22, 23, 24, 25, 26, 61, 28,
75, 76, 77, 78, 79, 80, 81, 82, 83, 84,
85, 86, 87, 88, 89, 90, 91, 92, 93, 94,
- 95, 96, 109, 53, 54, 61, 57, 58, 58, 59,
- 60, 29, 29, 63, 29, 110, 18, 8, 9, 10,
- 11, 12, 101, 112, 119, 114, 99, 100, 29, 18,
- 103, 8, 9, 10, 11, 12, 18, 8, 9, 10,
- 11, 12, 23, 23, 62, 62, 61, 49, 18, 144,
- 10, 146, 49, 10, 149, 57, 58, 152, 49, 18,
- 49, 21, 22, 23, 21, 22, 23, 180, 57, 58,
- 165, 184, 49, 180, 61, 49, 62, 184, 49, 62,
- 175, 3, 4, 5, 6, 7, 8, 9, 10, 11,
- 12, 13, 14, 15, 16, 17, 18, 62, 20, 21,
- 22, 23, 24, 25, 26, 58, 28, 44, 45, 46,
- 47, 48, 49, 50, 51, 37, 53, 54, 55, 56,
- 57, 58, 58, 0, 0, 49, 48, 49, 116, 17,
- -1, 53, 54, 57, 58, -1, 58, 59, 60, -1,
- 116, 63, 3, 4, 5, 6, 7, 8, 9, 10,
- 11, 12, 13, 14, 15, 16, 17, 18, -1, 20,
- 21, 22, 23, 24, 25, 26, -1, 28, 10, -1,
- -1, 13, 14, 15, -1, 17, 37, 49, 20, 21,
- 22, 23, -1, -1, -1, 57, 58, 48, 49, -1,
- 62, -1, 53, 54, -1, -1, -1, 58, 59, 60,
- -1, 10, 63, -1, 13, 14, 15, -1, 17, -1,
- -1, 20, 21, 22, 23, -1, -1, 27, -1, -1,
- 62, 31, 32, 33, 34, 35, 36, 37, 38, 39,
- 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
- 50, 51, -1, 53, 54, 55, 56, 57, 58, -1,
- -1, -1, 27, -1, -1, 65, 31, 32, 33, 34,
- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
- 45, 46, 47, 48, 49, 50, 51, -1, 53, 54,
- 55, 56, 57, 58, 32, 33, 34, 35, 36, 37,
+ 95, 96, 97, 112, 53, 54, 61, 29, 29, 58,
+ 59, 60, 18, 18, 63, 49, 29, 18, 113, 23,
+ 23, 29, 102, 8, 9, 10, 11, 12, 123, 100,
+ 101, 37, 23, 104, 10, 18, 37, 13, 14, 15,
+ 62, 17, 61, 49, 20, 21, 22, 23, 49, 62,
+ 18, 57, 58, 148, 62, 150, 57, 58, 153, 21,
+ 37, 23, 157, 62, 49, 8, 9, 10, 11, 12,
+ 115, 116, 49, 118, 21, 60, 23, 172, 188, 188,
+ 57, 58, 192, 192, 155, 62, 62, 62, 183, 3,
+ 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,
+ 14, 15, 16, 17, 18, 49, 20, 21, 22, 23,
+ 24, 25, 26, 62, 28, 0, 58, 60, 58, 10,
+ 0, 37, 120, 37, 120, 8, 9, 10, 11, 12,
+ 21, 22, 23, 49, 48, 49, 17, -1, -1, 53,
+ 54, 57, 58, -1, 58, 59, 60, -1, -1, 63,
+ 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
+ 13, 14, 15, 16, 17, 18, 49, 20, 21, 22,
+ 23, 24, 25, 26, 10, 28, 8, 9, 10, 11,
+ 12, -1, -1, -1, 37, 21, 22, 23, 53, 54,
+ 55, 56, 57, 58, -1, 48, 49, -1, -1, -1,
+ 53, 54, -1, -1, -1, 58, 59, 60, -1, -1,
+ 63, -1, -1, -1, 27, -1, -1, 49, 31, 32,
+ 33, 34, 35, 36, 37, 38, 39, 40, 41, 42,
+ 43, 44, 45, 46, 47, 48, 49, 50, 51, -1,
+ 53, 54, 55, 56, 57, 58, -1, -1, -1, 27,
+ -1, -1, 65, 31, 32, 33, 34, 35, 36, 37,
38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
48, 49, 50, 51, -1, 53, 54, 55, 56, 57,
- 58, 34, 35, 36, 37, 38, 39, 40, 41, 42,
- 43, 44, 45, 46, 47, 48, 49, 50, 51, -1,
- 53, 54, 55, 56, 57, 58, 35, 36, 37, 38,
- 39, 40, 41, 42, 43, 44, 45, 46, 47, 48,
- 49, 50, 51, -1, 53, 54, 55, 56, 57, 58,
+ 58, 32, 33, 34, 35, 36, 37, 38, 39, 40,
+ 41, 42, 43, 44, 45, 46, 47, 48, 49, 50,
+ 51, -1, 53, 54, 55, 56, 57, 58, 34, 35,
36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
46, 47, 48, 49, 50, 51, -1, 53, 54, 55,
- 56, 57, 58, 37, 38, 39, 40, 41, 42, 43,
- 44, 45, 46, 47, 48, 49, 50, 51, -1, 53,
- 54, 55, 56, 57, 58, 38, 39, 40, 41, 42,
- 43, 44, 45, 46, 47, 48, 49, 50, 51, -1,
- 53, 54, 55, 56, 57, 58, 40, 41, 42, 43,
- 44, 45, 46, 47, 48, 49, 50, 51, -1, 53,
- 54, 55, 56, 57, 58, 46, 47, 48, 49, 50,
- 51, -1, 53, 54, 55, 56, 57, 58, 47, 48,
- 49, 50, 51, -1, 53, 54, 55, 56, 57, 58,
+ 56, 57, 58, 35, 36, 37, 38, 39, 40, 41,
+ 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
+ -1, 53, 54, 55, 56, 57, 58, 36, 37, 38,
+ 39, 40, 41, 42, 43, 44, 45, 46, 47, 48,
49, 50, 51, -1, 53, 54, 55, 56, 57, 58,
- 53, 54, 55, 56, 57, 58
+ 37, 38, 39, 40, 41, 42, 43, 44, 45, 46,
+ 47, 48, 49, 50, 51, -1, 53, 54, 55, 56,
+ 57, 58, 38, 39, 40, 41, 42, 43, 44, 45,
+ 46, 47, 48, 49, 50, 51, -1, 53, 54, 55,
+ 56, 57, 58, 40, 41, 42, 43, 44, 45, 46,
+ 47, 48, 49, 50, 51, -1, 53, 54, 55, 56,
+ 57, 58, 44, 45, 46, 47, 48, 49, 50, 51,
+ -1, 53, 54, 55, 56, 57, 58, 10, -1, -1,
+ 13, 14, 15, -1, 17, -1, -1, 20, 21, 22,
+ 23, 46, 47, 48, 49, 50, 51, -1, 53, 54,
+ 55, 56, 57, 58, 47, 48, 49, 50, 51, -1,
+ 53, 54, 55, 56, 57, 58, -1, 49, 50, 51,
+ -1, 53, 54, 55, 56, 57, 58
};
-#define YYPURE 1
-
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
-#line 3 "bison.simple"
+#line 3 "/usr/latest/lib/bison.simple"
/* Skeleton output parser for bison,
- Copyright (C) 1984 Bob Corbett and Richard Stallman
+ Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+#ifndef alloca
+#ifdef __GNUC__
+#define alloca __builtin_alloca
+#else /* Not GNU C. */
#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
#include <alloca.h>
-#endif
+#else /* Not sparc */
+#ifdef MSDOS
+#include <malloc.h>
+#endif /* MSDOS */
+#endif /* Not sparc. */
+#endif /* Not GNU C. */
+#endif /* alloca not defined. */
/* This is the parser code that is written into each bison parser
when the %semantic_parser declaration is not specified in the grammar.
#define yyclearin (yychar = YYEMPTY)
#define YYEMPTY -2
#define YYEOF 0
-#define YYFAIL goto yyerrlab;
#define YYACCEPT return(0)
#define YYABORT return(1)
-#define YYERROR goto yyerrlab
+#define YYERROR goto yyerrlab1
+/* Like YYERROR except do call yyerror.
+ This remains here temporarily to ease the
+ transition to the new meaning of YYERROR, for GCC.
+ Once GCC version 2 has supplanted version 1, this can go. */
+#define YYFAIL goto yyerrlab
+#define YYRECOVERING() (!!yyerrstatus)
+#define YYBACKUP(token, value) \
+do \
+ if (yychar == YYEMPTY && yylen == 1) \
+ { yychar = (token), yylval = (value); \
+ yychar1 = YYTRANSLATE (yychar); \
+ YYPOPSTACK; \
+ goto yybackup; \
+ } \
+ else \
+ { yyerror ("syntax error: cannot back up"); YYERROR; } \
+while (0)
#define YYTERROR 1
#define YYERRCODE 256
-#ifndef YYIMPURE
+#ifndef YYPURE
#define YYLEX yylex()
#endif
-#ifndef YYPURE
+#ifdef YYPURE
+#ifdef YYLSP_NEEDED
#define YYLEX yylex(&yylval, &yylloc)
+#else
+#define YYLEX yylex(&yylval)
+#endif
#endif
/* If nonreentrant, generate the variables here */
-#ifndef YYIMPURE
+#ifndef YYPURE
int yychar; /* the lookahead symbol */
YYSTYPE yylval; /* the semantic value of the */
/* lookahead symbol */
+#ifdef YYLSP_NEEDED
YYLTYPE yylloc; /* location data for the lookahead */
/* symbol */
+#endif
int yynerrs; /* number of parse errors so far */
-#endif /* YYIMPURE */
+#endif /* not YYPURE */
#if YYDEBUG != 0
int yydebug; /* nonzero means print parse trace */
from coexisting. */
#endif
-/* YYMAXDEPTH indicates the initial size of the parser's stacks */
+/* YYINITDEPTH indicates the initial size of the parser's stacks */
-#ifndef YYMAXDEPTH
-#define YYMAXDEPTH 200
+#ifndef YYINITDEPTH
+#define YYINITDEPTH 200
#endif
-/* YYMAXLIMIT is the maximum size the stacks can grow to
+/* YYMAXDEPTH is the maximum size the stacks can grow to
(effective only if the built-in stack extension method is used). */
-#ifndef YYMAXLIMIT
-#define YYMAXLIMIT 10000
+#if YYMAXDEPTH == 0
+#undef YYMAXDEPTH
#endif
+#ifndef YYMAXDEPTH
+#define YYMAXDEPTH 10000
+#endif
+\f
+#ifndef __cplusplus
+
+/* This is the most reliable way to avoid incompatibilities
+ in available built-in functions on various systems. */
+static void
+__yy_bcopy (from, to, count)
+ char *from;
+ char *to;
+ int count;
+{
+ register char *f = from;
+ register char *t = to;
+ register int i = count;
+
+ while (i-- > 0)
+ *t++ = *f++;
+}
+
+#else /* __cplusplus */
-#line 90 "bison.simple"
+/* This is the most reliable way to avoid incompatibilities
+ in available built-in functions on various systems. */
+static void
+__yy_bcopy (char *from, char *to, int count)
+{
+ register char *f = from;
+ register char *t = to;
+ register int i = count;
+
+ while (i-- > 0)
+ *t++ = *f++;
+}
+
+#endif
+\f
+#line 160 "/usr/latest/lib/bison.simple"
int
yyparse()
{
register int yyn;
register short *yyssp;
register YYSTYPE *yyvsp;
- YYLTYPE *yylsp;
int yyerrstatus; /* number of tokens to shift before error messages enabled */
int yychar1; /* lookahead token as an internal (translated) token number */
- short yyssa[YYMAXDEPTH]; /* the state stack */
- YYSTYPE yyvsa[YYMAXDEPTH]; /* the semantic value stack */
- YYLTYPE yylsa[YYMAXDEPTH]; /* the location stack */
+ short yyssa[YYINITDEPTH]; /* the state stack */
+ YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */
short *yyss = yyssa; /* refer to the stacks thru separate pointers */
YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */
+
+#ifdef YYLSP_NEEDED
YYLTYPE *yyls = yylsa;
+ YYLTYPE *yylsp;
+ YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */
- int yymaxdepth = YYMAXDEPTH;
+#define YYPOPSTACK (yyvsp--, yysp--, yylsp--)
+#else
+#define YYPOPSTACK (yyvsp--, yysp--)
+#endif
-#ifndef YYPURE
+ int yystacksize = YYINITDEPTH;
+
+#ifdef YYPURE
int yychar;
YYSTYPE yylval;
- YYLTYPE yylloc;
int yynerrs;
+#ifdef YYLSP_NEEDED
+ YYLTYPE yylloc;
+#endif
#endif
YYSTYPE yyval; /* the variable used to return */
yyssp = yyss - 1;
yyvsp = yyvs;
+#ifdef YYLSP_NEEDED
yylsp = yyls;
+#endif
/* Push a new state, which is found in yystate . */
/* In all cases, when you get here, the value and location stacks
*++yyssp = yystate;
- if (yyssp >= yyss + yymaxdepth - 1)
+ if (yyssp >= yyss + yystacksize - 1)
{
/* Give user a chance to reallocate the stack */
/* Use copies of these so that the &'s don't force the real ones into memory. */
YYSTYPE *yyvs1 = yyvs;
- YYLTYPE *yyls1 = yyls;
short *yyss1 = yyss;
+#ifdef YYLSP_NEEDED
+ YYLTYPE *yyls1 = yyls;
+#endif
/* Get the current used size of the three stacks, in elements. */
int size = yyssp - yyss + 1;
yyoverflow("parser stack overflow",
&yyss1, size * sizeof (*yyssp),
&yyvs1, size * sizeof (*yyvsp),
+#ifdef YYLSP_NEEDED
&yyls1, size * sizeof (*yylsp),
- &yymaxdepth);
+#endif
+ &yystacksize);
- yyss = yyss1; yyvs = yyvs1; yyls = yyls1;
+ yyss = yyss1; yyvs = yyvs1;
+#ifdef YYLSP_NEEDED
+ yyls = yyls1;
+#endif
#else /* no yyoverflow */
/* Extend the stack our own way. */
- if (yymaxdepth >= YYMAXLIMIT)
- yyerror("parser stack overflow");
- yymaxdepth *= 2;
- if (yymaxdepth > YYMAXLIMIT)
- yymaxdepth = YYMAXLIMIT;
- yyss = (short *) alloca (yymaxdepth * sizeof (*yyssp));
- bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
- yyvs = (YYSTYPE *) alloca (yymaxdepth * sizeof (*yyvsp));
- bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
+ if (yystacksize >= YYMAXDEPTH)
+ {
+ yyerror("parser stack overflow");
+ return 2;
+ }
+ yystacksize *= 2;
+ if (yystacksize > YYMAXDEPTH)
+ yystacksize = YYMAXDEPTH;
+ yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
+ __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
+ yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
+ __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
#ifdef YYLSP_NEEDED
- yyls = (YYLTYPE *) alloca (yymaxdepth * sizeof (*yylsp));
- bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
+ yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
+ __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
#endif
#endif /* no yyoverflow */
#if YYDEBUG != 0
if (yydebug)
- fprintf(stderr, "Stack size increased to %d\n", yymaxdepth);
+ fprintf(stderr, "Stack size increased to %d\n", yystacksize);
#endif
- if (yyssp >= yyss + yymaxdepth - 1)
+ if (yyssp >= yyss + yystacksize - 1)
YYABORT;
}
fprintf(stderr, "Entering state %d\n", yystate);
#endif
+ yybackup:
+
/* Do appropriate processing given the current state. */
/* Read a lookahead token if we need one and don't already have one. */
-yyresume:
+/* yyresume: */
/* First try to decide what to do without reference to lookahead token. */
#if YYDEBUG != 0
if (yydebug)
{
- if (yylen == 1)
- fprintf (stderr, "Reducing 1 value via line %d, ",
- yyrline[yyn]);
- else
- fprintf (stderr, "Reducing %d values via line %d, ",
- yylen, yyrline[yyn]);
+ int i;
+
+ fprintf (stderr, "Reducing via rule %d (line %d), ",
+ yyn, yyrline[yyn]);
+
+ /* Print the symboles being reduced, and their result. */
+ for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
+ fprintf (stderr, "%s ", yytname[yyrhs[i]]);
+ fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
}
#endif
switch (yyn) {
case 3:
-#line 224 "../expread.y"
+#line 231 "./expread.y"
{ write_exp_elt_opcode (BINOP_COMMA); ;
break;}
case 4:
-#line 229 "../expread.y"
+#line 236 "./expread.y"
{ write_exp_elt_opcode (UNOP_IND); ;
break;}
case 5:
-#line 232 "../expread.y"
+#line 239 "./expread.y"
{ write_exp_elt_opcode (UNOP_ADDR); ;
break;}
case 6:
-#line 235 "../expread.y"
+#line 242 "./expread.y"
{ write_exp_elt_opcode (UNOP_NEG); ;
break;}
case 7:
-#line 239 "../expread.y"
+#line 246 "./expread.y"
{ write_exp_elt_opcode (UNOP_ZEROP); ;
break;}
case 8:
-#line 243 "../expread.y"
+#line 250 "./expread.y"
{ write_exp_elt_opcode (UNOP_LOGNOT); ;
break;}
case 9:
-#line 247 "../expread.y"
+#line 254 "./expread.y"
{ write_exp_elt_opcode (UNOP_PREINCREMENT); ;
break;}
case 10:
-#line 251 "../expread.y"
+#line 258 "./expread.y"
{ write_exp_elt_opcode (UNOP_PREDECREMENT); ;
break;}
case 11:
-#line 255 "../expread.y"
+#line 262 "./expread.y"
{ write_exp_elt_opcode (UNOP_POSTINCREMENT); ;
break;}
case 12:
-#line 259 "../expread.y"
+#line 266 "./expread.y"
{ write_exp_elt_opcode (UNOP_POSTDECREMENT); ;
break;}
case 13:
-#line 263 "../expread.y"
+#line 270 "./expread.y"
{ write_exp_elt_opcode (UNOP_SIZEOF); ;
break;}
case 14:
-#line 267 "../expread.y"
+#line 274 "./expread.y"
{ write_exp_elt_opcode (STRUCTOP_PTR);
write_exp_string (yyvsp[0].sval);
write_exp_elt_opcode (STRUCTOP_PTR); ;
break;}
case 15:
-#line 273 "../expread.y"
+#line 280 "./expread.y"
{ write_exp_elt_opcode (STRUCTOP_MPTR); ;
break;}
case 16:
-#line 277 "../expread.y"
+#line 284 "./expread.y"
{ write_exp_elt_opcode (STRUCTOP_STRUCT);
write_exp_string (yyvsp[0].sval);
write_exp_elt_opcode (STRUCTOP_STRUCT); ;
break;}
case 17:
-#line 283 "../expread.y"
+#line 290 "./expread.y"
{ write_exp_elt_opcode (STRUCTOP_MEMBER); ;
break;}
case 18:
-#line 287 "../expread.y"
+#line 294 "./expread.y"
{ write_exp_elt_opcode (BINOP_SUBSCRIPT); ;
break;}
case 19:
-#line 293 "../expread.y"
+#line 300 "./expread.y"
{ start_arglist (); ;
break;}
case 20:
-#line 295 "../expread.y"
+#line 302 "./expread.y"
{ write_exp_elt_opcode (OP_FUNCALL);
write_exp_elt_longcst ((LONGEST) end_arglist ());
write_exp_elt_opcode (OP_FUNCALL); ;
break;}
case 22:
-#line 304 "../expread.y"
+#line 311 "./expread.y"
{ arglist_len = 1; ;
break;}
case 23:
-#line 308 "../expread.y"
+#line 315 "./expread.y"
{ arglist_len++; ;
break;}
case 24:
-#line 312 "../expread.y"
+#line 319 "./expread.y"
{ write_exp_elt_opcode (UNOP_MEMVAL);
write_exp_elt_type (yyvsp[-2].tval);
write_exp_elt_opcode (UNOP_MEMVAL); ;
break;}
case 25:
-#line 318 "../expread.y"
+#line 325 "./expread.y"
{ write_exp_elt_opcode (UNOP_CAST);
write_exp_elt_type (yyvsp[-2].tval);
write_exp_elt_opcode (UNOP_CAST); ;
break;}
case 26:
-#line 324 "../expread.y"
+#line 331 "./expread.y"
{ ;
break;}
case 27:
-#line 330 "../expread.y"
+#line 337 "./expread.y"
{ write_exp_elt_opcode (BINOP_REPEAT); ;
break;}
case 28:
-#line 334 "../expread.y"
+#line 341 "./expread.y"
{ write_exp_elt_opcode (BINOP_MUL); ;
break;}
case 29:
-#line 338 "../expread.y"
+#line 345 "./expread.y"
{ write_exp_elt_opcode (BINOP_DIV); ;
break;}
case 30:
-#line 342 "../expread.y"
+#line 349 "./expread.y"
{ write_exp_elt_opcode (BINOP_REM); ;
break;}
case 31:
-#line 346 "../expread.y"
+#line 353 "./expread.y"
{ write_exp_elt_opcode (BINOP_ADD); ;
break;}
case 32:
-#line 350 "../expread.y"
+#line 357 "./expread.y"
{ write_exp_elt_opcode (BINOP_SUB); ;
break;}
case 33:
-#line 354 "../expread.y"
+#line 361 "./expread.y"
{ write_exp_elt_opcode (BINOP_LSH); ;
break;}
case 34:
-#line 358 "../expread.y"
+#line 365 "./expread.y"
{ write_exp_elt_opcode (BINOP_RSH); ;
break;}
case 35:
-#line 362 "../expread.y"
+#line 369 "./expread.y"
{ write_exp_elt_opcode (BINOP_EQUAL); ;
break;}
case 36:
-#line 366 "../expread.y"
+#line 373 "./expread.y"
{ write_exp_elt_opcode (BINOP_NOTEQUAL); ;
break;}
case 37:
-#line 370 "../expread.y"
+#line 377 "./expread.y"
{ write_exp_elt_opcode (BINOP_LEQ); ;
break;}
case 38:
-#line 374 "../expread.y"
+#line 381 "./expread.y"
{ write_exp_elt_opcode (BINOP_GEQ); ;
break;}
case 39:
-#line 378 "../expread.y"
+#line 385 "./expread.y"
{ write_exp_elt_opcode (BINOP_LESS); ;
break;}
case 40:
-#line 382 "../expread.y"
+#line 389 "./expread.y"
{ write_exp_elt_opcode (BINOP_GTR); ;
break;}
case 41:
-#line 386 "../expread.y"
+#line 393 "./expread.y"
{ write_exp_elt_opcode (BINOP_LOGAND); ;
break;}
case 42:
-#line 390 "../expread.y"
+#line 397 "./expread.y"
{ write_exp_elt_opcode (BINOP_LOGXOR); ;
break;}
case 43:
-#line 394 "../expread.y"
+#line 401 "./expread.y"
{ write_exp_elt_opcode (BINOP_LOGIOR); ;
break;}
case 44:
-#line 398 "../expread.y"
+#line 405 "./expread.y"
{ write_exp_elt_opcode (BINOP_AND); ;
break;}
case 45:
-#line 402 "../expread.y"
+#line 409 "./expread.y"
{ write_exp_elt_opcode (BINOP_OR); ;
break;}
case 46:
-#line 406 "../expread.y"
+#line 413 "./expread.y"
{ write_exp_elt_opcode (TERNOP_COND); ;
break;}
case 47:
-#line 410 "../expread.y"
+#line 417 "./expread.y"
{ write_exp_elt_opcode (BINOP_ASSIGN); ;
break;}
case 48:
-#line 414 "../expread.y"
+#line 421 "./expread.y"
{ write_exp_elt_opcode (BINOP_ASSIGN_MODIFY);
write_exp_elt_opcode (yyvsp[-1].opcode);
write_exp_elt_opcode (BINOP_ASSIGN_MODIFY); ;
break;}
case 49:
-#line 420 "../expread.y"
+#line 427 "./expread.y"
{ write_exp_elt_opcode (OP_LONG);
if (yyvsp[0].lval == (int) yyvsp[0].lval || yyvsp[0].lval == (unsigned int) yyvsp[0].lval)
write_exp_elt_type (builtin_type_int);
write_exp_elt_opcode (OP_LONG); ;
break;}
case 50:
-#line 430 "../expread.y"
+#line 437 "./expread.y"
{ YYSTYPE val;
parse_number (yyvsp[0].ssym.stoken.ptr, yyvsp[0].ssym.stoken.length, 0, &val);
write_exp_elt_opcode (OP_LONG);
write_exp_elt_opcode (OP_LONG); ;
break;}
case 51:
-#line 443 "../expread.y"
+#line 450 "./expread.y"
{
write_exp_elt_opcode (OP_LONG);
if (yyvsp[0].ulval == (unsigned int) yyvsp[0].ulval)
;
break;}
case 52:
-#line 455 "../expread.y"
+#line 462 "./expread.y"
{ YYSTYPE val;
parse_number (yyvsp[0].ssym.stoken.ptr, yyvsp[0].ssym.stoken.length, 0, &val);
write_exp_elt_opcode (OP_LONG);
;
break;}
case 53:
-#line 468 "../expread.y"
+#line 475 "./expread.y"
{ write_exp_elt_opcode (OP_LONG);
write_exp_elt_type (builtin_type_char);
write_exp_elt_longcst ((LONGEST) yyvsp[0].lval);
write_exp_elt_opcode (OP_LONG); ;
break;}
case 54:
-#line 475 "../expread.y"
+#line 482 "./expread.y"
{ write_exp_elt_opcode (OP_DOUBLE);
write_exp_elt_type (builtin_type_double);
write_exp_elt_dblcst (yyvsp[0].dval);
write_exp_elt_opcode (OP_DOUBLE); ;
break;}
case 56:
-#line 485 "../expread.y"
+#line 492 "./expread.y"
{ write_exp_elt_opcode (OP_LAST);
write_exp_elt_longcst ((LONGEST) yyvsp[0].lval);
write_exp_elt_opcode (OP_LAST); ;
break;}
case 57:
-#line 491 "../expread.y"
+#line 498 "./expread.y"
{ write_exp_elt_opcode (OP_REGISTER);
write_exp_elt_longcst ((LONGEST) yyvsp[0].lval);
write_exp_elt_opcode (OP_REGISTER); ;
break;}
case 58:
-#line 497 "../expread.y"
+#line 504 "./expread.y"
{ write_exp_elt_opcode (OP_INTERNALVAR);
write_exp_elt_intern (yyvsp[0].ivar);
write_exp_elt_opcode (OP_INTERNALVAR); ;
break;}
case 59:
-#line 503 "../expread.y"
+#line 510 "./expread.y"
{ write_exp_elt_opcode (OP_LONG);
write_exp_elt_type (builtin_type_int);
write_exp_elt_longcst ((LONGEST) TYPE_LENGTH (yyvsp[-1].tval));
write_exp_elt_opcode (OP_LONG); ;
break;}
case 60:
-#line 510 "../expread.y"
+#line 517 "./expread.y"
{ write_exp_elt_opcode (OP_STRING);
write_exp_string (yyvsp[0].sval);
write_exp_elt_opcode (OP_STRING); ;
break;}
case 61:
-#line 517 "../expread.y"
+#line 524 "./expread.y"
{ write_exp_elt_opcode (OP_THIS);
write_exp_elt_opcode (OP_THIS); ;
break;}
case 62:
-#line 524 "../expread.y"
+#line 531 "./expread.y"
{
if (yyvsp[0].ssym.sym != 0)
yyval.bval = SYMBOL_BLOCK_VALUE (yyvsp[0].ssym.sym);
struct symtab *tem =
lookup_symtab (copy_name (yyvsp[0].ssym.stoken));
if (tem)
- yyval.bval = BLOCKVECTOR_BLOCK (BLOCKVECTOR (tem), 1);
+ yyval.bval = BLOCKVECTOR_BLOCK
+ (BLOCKVECTOR (tem), STATIC_BLOCK);
else
error ("No file or function \"%s\".",
copy_name (yyvsp[0].ssym.stoken));
;
break;}
case 63:
-#line 541 "../expread.y"
+#line 549 "./expread.y"
{ struct symbol *tem
= lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval,
VAR_NAMESPACE, 0, NULL);
yyval.bval = SYMBOL_BLOCK_VALUE (tem); ;
break;}
case 64:
-#line 551 "../expread.y"
+#line 559 "./expread.y"
{ struct symbol *sym;
sym = lookup_symbol (copy_name (yyvsp[0].sval), yyvsp[-2].bval,
VAR_NAMESPACE, 0, NULL);
write_exp_elt_opcode (OP_VAR_VALUE); ;
break;}
case 65:
-#line 563 "../expread.y"
+#line 571 "./expread.y"
{
struct type *type = yyvsp[-2].tval;
if (TYPE_CODE (type) != TYPE_CODE_STRUCT
;
break;}
case 66:
-#line 576 "../expread.y"
+#line 584 "./expread.y"
+{
+ struct type *type = yyvsp[-3].tval;
+ if (TYPE_CODE (type) != TYPE_CODE_STRUCT
+ && TYPE_CODE (type) != TYPE_CODE_UNION)
+ error ("`%s' is not defined as an aggregate type.",
+ TYPE_NAME (type));
+
+ if (strcmp (type_name_no_tag (type), yyvsp[0].sval.ptr))
+ error ("invalid destructor `%s::~%s'",
+ type_name_no_tag (type), yyvsp[0].sval.ptr);
+
+ write_exp_elt_opcode (OP_SCOPE);
+ write_exp_elt_type (type);
+ write_exp_string (yyvsp[0].sval);
+ write_exp_elt_opcode (OP_SCOPE);
+ write_exp_elt_opcode (UNOP_LOGNOT);
+ ;
+ break;}
+case 67:
+#line 602 "./expread.y"
{
char *name = copy_name (yyvsp[0].sval);
struct symbol *sym;
error ("No symbol \"%s\" in current context.", name);
;
break;}
-case 67:
-#line 622 "../expread.y"
+case 68:
+#line 648 "./expread.y"
{ struct symbol *sym = yyvsp[0].ssym.sym;
if (sym)
{
case LOC_REGISTER:
case LOC_ARG:
+ case LOC_REF_ARG:
+ case LOC_REGPARM:
case LOC_LOCAL:
case LOC_LOCAL_ARG:
if (innermost_block == 0 ||
contained_in (block_found,
innermost_block))
innermost_block = block_found;
+ case LOC_UNDEF:
+ case LOC_CONST:
+ case LOC_STATIC:
+ case LOC_TYPEDEF:
+ case LOC_LABEL:
+ case LOC_BLOCK:
+ case LOC_CONST_BYTES:
+
+ /* In this case the expression can
+ be evaluated regardless of what
+ frame we are in, so there is no
+ need to check for the
+ innermost_block. These cases are
+ listed so that gcc -Wall will
+ report types that may not have
+ been considered. */
+
+ break;
}
write_exp_elt_opcode (OP_VAR_VALUE);
write_exp_elt_sym (sym);
}
;
break;}
-case 69:
-#line 697 "../expread.y"
+case 70:
+#line 743 "./expread.y"
{
/* This is where the interesting stuff happens. */
int done = 0;
follow_type = lookup_reference_type (follow_type);
break;
case tp_array:
- array_size = (int) pop_type ();
+ array_size = pop_type_int ();
if (array_size != -1)
follow_type = create_array_type (follow_type,
array_size);
yyval.tval = follow_type;
;
break;}
-case 70:
-#line 732 "../expread.y"
+case 71:
+#line 778 "./expread.y"
{ push_type (tp_pointer); yyval.voidval = 0; ;
break;}
-case 71:
-#line 734 "../expread.y"
+case 72:
+#line 780 "./expread.y"
{ push_type (tp_pointer); yyval.voidval = yyvsp[0].voidval; ;
break;}
case 73:
-#line 739 "../expread.y"
-{ yyval.voidval = yyvsp[-1].voidval; ;
+#line 782 "./expread.y"
+{ push_type (tp_reference); yyval.voidval = 0; ;
break;}
case 74:
-#line 741 "../expread.y"
+#line 784 "./expread.y"
+{ push_type (tp_reference); yyval.voidval = yyvsp[0].voidval; ;
+ break;}
+case 76:
+#line 789 "./expread.y"
+{ yyval.voidval = yyvsp[-1].voidval; ;
+ break;}
+case 77:
+#line 791 "./expread.y"
{
- push_type ((enum type_pieces) yyvsp[0].lval);
+ push_type_int (yyvsp[0].lval);
push_type (tp_array);
;
break;}
-case 75:
-#line 746 "../expread.y"
+case 78:
+#line 796 "./expread.y"
{
- push_type ((enum type_pieces) yyvsp[0].lval);
+ push_type_int (yyvsp[0].lval);
push_type (tp_array);
yyval.voidval = 0;
;
break;}
-case 76:
-#line 752 "../expread.y"
+case 79:
+#line 802 "./expread.y"
{ push_type (tp_function); ;
break;}
-case 77:
-#line 754 "../expread.y"
+case 80:
+#line 804 "./expread.y"
{ push_type (tp_function); ;
break;}
-case 78:
-#line 758 "../expread.y"
+case 81:
+#line 808 "./expread.y"
{ yyval.lval = -1; ;
break;}
-case 79:
-#line 760 "../expread.y"
+case 82:
+#line 810 "./expread.y"
{ yyval.lval = yyvsp[-1].lval; ;
break;}
-case 80:
-#line 764 "../expread.y"
+case 83:
+#line 814 "./expread.y"
{ yyval.voidval = 0; ;
break;}
-case 82:
-#line 769 "../expread.y"
+case 85:
+#line 819 "./expread.y"
{ yyval.tval = lookup_member_type (builtin_type_int, yyvsp[-2].tval); ;
break;}
-case 83:
-#line 771 "../expread.y"
+case 86:
+#line 821 "./expread.y"
{ yyval.tval = lookup_member_type (yyvsp[-5].tval, yyvsp[-3].tval); ;
break;}
-case 84:
-#line 773 "../expread.y"
+case 87:
+#line 823 "./expread.y"
{ yyval.tval = lookup_member_type
(lookup_function_type (yyvsp[-7].tval), yyvsp[-5].tval); ;
break;}
-case 85:
-#line 776 "../expread.y"
+case 88:
+#line 826 "./expread.y"
{ yyval.tval = lookup_member_type
(lookup_function_type (yyvsp[-8].tval), yyvsp[-6].tval);
free (yyvsp[-1].tvec); ;
break;}
-case 86:
-#line 783 "../expread.y"
+case 89:
+#line 833 "./expread.y"
{ yyval.tval = yyvsp[0].tsym.type; ;
break;}
-case 87:
-#line 785 "../expread.y"
+case 90:
+#line 835 "./expread.y"
{ yyval.tval = builtin_type_int; ;
break;}
-case 88:
-#line 787 "../expread.y"
+case 91:
+#line 837 "./expread.y"
{ yyval.tval = builtin_type_long; ;
break;}
-case 89:
-#line 789 "../expread.y"
+case 92:
+#line 839 "./expread.y"
{ yyval.tval = builtin_type_short; ;
break;}
-case 90:
-#line 791 "../expread.y"
+case 93:
+#line 841 "./expread.y"
{ yyval.tval = builtin_type_long; ;
break;}
-case 91:
-#line 793 "../expread.y"
+case 94:
+#line 843 "./expread.y"
{ yyval.tval = builtin_type_unsigned_long; ;
break;}
-case 92:
-#line 795 "../expread.y"
+case 95:
+#line 845 "./expread.y"
+{ yyval.tval = builtin_type_long_long; ;
+ break;}
+case 96:
+#line 847 "./expread.y"
+{ yyval.tval = builtin_type_long_long; ;
+ break;}
+case 97:
+#line 849 "./expread.y"
+{ yyval.tval = builtin_type_unsigned_long_long; ;
+ break;}
+case 98:
+#line 851 "./expread.y"
+{ yyval.tval = builtin_type_unsigned_long_long; ;
+ break;}
+case 99:
+#line 853 "./expread.y"
{ yyval.tval = builtin_type_short; ;
break;}
-case 93:
-#line 797 "../expread.y"
+case 100:
+#line 855 "./expread.y"
{ yyval.tval = builtin_type_unsigned_short; ;
break;}
-case 94:
-#line 799 "../expread.y"
+case 101:
+#line 857 "./expread.y"
{ yyval.tval = lookup_struct (copy_name (yyvsp[0].sval),
expression_context_block); ;
break;}
-case 95:
-#line 802 "../expread.y"
+case 102:
+#line 860 "./expread.y"
{ yyval.tval = lookup_union (copy_name (yyvsp[0].sval),
expression_context_block); ;
break;}
-case 96:
-#line 805 "../expread.y"
+case 103:
+#line 863 "./expread.y"
{ yyval.tval = lookup_enum (copy_name (yyvsp[0].sval),
expression_context_block); ;
break;}
-case 97:
-#line 808 "../expread.y"
+case 104:
+#line 866 "./expread.y"
{ yyval.tval = lookup_unsigned_typename (TYPE_NAME(yyvsp[0].tsym.type)); ;
break;}
-case 98:
-#line 810 "../expread.y"
+case 105:
+#line 868 "./expread.y"
{ yyval.tval = builtin_type_unsigned_int; ;
break;}
-case 99:
-#line 812 "../expread.y"
+case 106:
+#line 870 "./expread.y"
{ yyval.tval = yyvsp[0].tsym.type; ;
break;}
-case 100:
-#line 814 "../expread.y"
+case 107:
+#line 872 "./expread.y"
{ yyval.tval = builtin_type_int; ;
break;}
-case 102:
-#line 819 "../expread.y"
+case 109:
+#line 877 "./expread.y"
{
yyval.tsym.stoken.ptr = "int";
yyval.tsym.stoken.length = 3;
yyval.tsym.type = builtin_type_int;
;
break;}
-case 103:
-#line 825 "../expread.y"
+case 110:
+#line 883 "./expread.y"
{
yyval.tsym.stoken.ptr = "long";
yyval.tsym.stoken.length = 4;
yyval.tsym.type = builtin_type_long;
;
break;}
-case 104:
-#line 831 "../expread.y"
+case 111:
+#line 889 "./expread.y"
{
yyval.tsym.stoken.ptr = "short";
yyval.tsym.stoken.length = 5;
yyval.tsym.type = builtin_type_short;
;
break;}
-case 105:
-#line 840 "../expread.y"
+case 112:
+#line 898 "./expread.y"
{ yyval.tvec = (struct type **)xmalloc (sizeof (struct type *) * 2);
yyval.tvec[0] = (struct type *)0;
yyval.tvec[1] = yyvsp[0].tval;
;
break;}
-case 106:
-#line 845 "../expread.y"
+case 113:
+#line 903 "./expread.y"
{ int len = sizeof (struct type *) * ++(yyvsp[-2].ivec[0]);
yyval.tvec = (struct type **)xrealloc (yyvsp[-2].tvec, len);
yyval.tvec[yyval.ivec[0]] = yyvsp[0].tval;
;
break;}
-case 107:
-#line 851 "../expread.y"
+case 114:
+#line 909 "./expread.y"
{ yyval.sval = yyvsp[0].ssym.stoken; ;
break;}
-case 108:
-#line 852 "../expread.y"
+case 115:
+#line 910 "./expread.y"
{ yyval.sval = yyvsp[0].ssym.stoken; ;
break;}
-case 109:
-#line 853 "../expread.y"
+case 116:
+#line 911 "./expread.y"
{ yyval.sval = yyvsp[0].tsym.stoken; ;
break;}
-case 110:
-#line 854 "../expread.y"
+case 117:
+#line 912 "./expread.y"
{ yyval.sval = yyvsp[0].ssym.stoken; ;
break;}
-case 111:
-#line 855 "../expread.y"
+case 118:
+#line 913 "./expread.y"
{ yyval.sval = yyvsp[0].ssym.stoken; ;
break;}
}
/* the action file gets copied in in place of this dollarsign */
-#line 327 "bison.simple"
+#line 423 "/usr/latest/lib/bison.simple"
\f
yyvsp -= yylen;
yyssp -= yylen;
/* If not already recovering from an error, report this error. */
{
++yynerrs;
- yyerror("parse error");
+
+#ifdef YYERROR_VERBOSE
+ yyn = yypact[yystate];
+
+ if (yyn > YYFLAG && yyn < YYLAST)
+ {
+ int size = 0;
+ char *msg;
+ int x, count;
+
+ count = 0;
+ for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
+ if (yycheck[x + yyn] == x)
+ size += strlen(yytname[x]) + 15, count++;
+ msg = (char *) xmalloc(size + 15);
+ strcpy(msg, "parse error");
+
+ if (count < 5)
+ {
+ count = 0;
+ for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
+ if (yycheck[x + yyn] == x)
+ {
+ strcat(msg, count == 0 ? ", expecting `" : " or `");
+ strcat(msg, yytname[x]);
+ strcat(msg, "'");
+ count++;
+ }
+ }
+ yyerror(msg);
+ free(msg);
+ }
+ else
+#endif /* YYERROR_VERBOSE */
+ yyerror("parse error");
}
+yyerrlab1: /* here on error raised explicitly by an action */
+
if (yyerrstatus == 3)
{
/* if just tried and failed to reuse lookahead token after an error, discard it. */
yystate = yyn;
goto yynewstate;
}
-#line 864 "../expread.y"
+#line 928 "./expread.y"
\f
/* Begin counting arguments for a function call,
enum exp_opcode opcode;
};
-static struct token tokentab3[] =
+const static struct token tokentab3[] =
{
{">>=", ASSIGN_MODIFY, BINOP_RSH},
{"<<=", ASSIGN_MODIFY, BINOP_LSH}
};
-static struct token tokentab2[] =
+const static struct token tokentab2[] =
{
{"+=", ASSIGN_MODIFY, BINOP_ADD},
{"-=", ASSIGN_MODIFY, BINOP_SUB},
if (type_stack_depth == type_stack_size)
{
type_stack_size *= 2;
- type_stack = (enum type_pieces *)
- xrealloc (type_stack, type_stack_size * sizeof (enum type_pieces));
+ type_stack = (union type_stack_elt *)
+ xrealloc (type_stack, type_stack_size * sizeof (*type_stack));
+ }
+ type_stack[type_stack_depth++].piece = tp;
+}
+
+static void
+push_type_int (n)
+ int n;
+{
+ if (type_stack_depth == type_stack_size)
+ {
+ type_stack_size *= 2;
+ type_stack = (union type_stack_elt *)
+ xrealloc (type_stack, type_stack_size * sizeof (*type_stack));
}
- type_stack[type_stack_depth++] = tp;
+ type_stack[type_stack_depth++].int_val = n;
}
static enum type_pieces
pop_type ()
{
if (type_stack_depth)
- return type_stack[--type_stack_depth];
+ return type_stack[--type_stack_depth].piece;
return tp_end;
}
+static int
+pop_type_int ()
+{
+ if (type_stack_depth)
+ return type_stack[--type_stack_depth].int_val;
+ /* "Can't happen". */
+ return 0;
+}
+
void
_initialize_expread ()
{
type_stack_size = 80;
type_stack_depth = 0;
- type_stack = (enum type_pieces *)
- xmalloc (type_stack_size * sizeof (enum type_pieces));
+ type_stack = (union type_stack_elt *)
+ xmalloc (type_stack_size * sizeof (*type_stack));
}