47 #define YYBISON_VERSION "3.0.2"
50 #define YYSKELETON_NAME "yacc.c"
80 #define parse_type(ps) builtin_type (parse_gdbarch (ps))
81 #define parse_f_type(ps) builtin_f_type (parse_gdbarch (ps))
90 #define yymaxdepth f_maxdepth
91 #define yyparse f_parse_internal
93 #define yyerror f_error
96 #define yydebug f_debug
104 #define yyexca f_exca
105 #define yyerrflag f_errflag
106 #define yynerrs f_nerrs
111 #define yystate f_state
116 #define yylloc f_lloc
117 #define yyreds f_reds
118 #define yytoks f_toks
119 #define yyname f_name
120 #define yyrule f_rule
121 #define yylhs f_yylhs
122 #define yylen f_yylen
123 #define yydefred f_yydefred
124 #define yydgoto f_yydgoto
125 #define yysindex f_yysindex
126 #define yyrindex f_yyrindex
127 #define yygindex f_yygindex
128 #define yytable f_yytable
129 #define yycheck f_yycheck
131 #define yysslim f_yysslim
132 #define yyssp f_yyssp
133 #define yystacksize f_yystacksize
135 #define yyvsp f_yyvsp
141 #define YYFPRINTF parser_fprintf
150 static int yylex (
void);
162 # if defined __cplusplus && 201103L <= __cplusplus
163 # define YY_NULLPTR nullptr
165 # define YY_NULLPTR 0
170 #ifdef YYERROR_VERBOSE
171 # undef YYERROR_VERBOSE
172 # define YYERROR_VERBOSE 1
174 # define YYERROR_VERBOSE 0
234 #define STRING_LITERAL 260
235 #define BOOLEAN_LITERAL 261
238 #define NAME_OR_INT 264
241 #define INT_KEYWORD 267
242 #define INT_S2_KEYWORD 268
243 #define LOGICAL_S1_KEYWORD 269
244 #define LOGICAL_S2_KEYWORD 270
245 #define LOGICAL_S8_KEYWORD 271
246 #define LOGICAL_KEYWORD 272
247 #define REAL_KEYWORD 273
248 #define REAL_S8_KEYWORD 274
249 #define REAL_S16_KEYWORD 275
250 #define COMPLEX_S8_KEYWORD 276
251 #define COMPLEX_S16_KEYWORD 277
252 #define COMPLEX_S32_KEYWORD 278
256 #define CHARACTER 282
258 #define ASSIGN_MODIFY 284
259 #define ABOVE_COMMA 285
263 #define GREATERTHAN 289
272 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
300 # define YYSTYPE_IS_TRIVIAL 1
301 # define YYSTYPE_IS_DECLARED 1
349 # ifdef __SIZE_TYPE__
350 # define YYSIZE_T __SIZE_TYPE__
351 # elif defined size_t
352 # define YYSIZE_T size_t
353 # elif ! defined YYSIZE_T
355 # define YYSIZE_T size_t
357 # define YYSIZE_T unsigned int
361 #define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
364 # if defined YYENABLE_NLS && YYENABLE_NLS
366 # include <libintl.h>
367 # define YY_(Msgid) dgettext ("bison-runtime", Msgid)
371 # define YY_(Msgid) Msgid
376 # if (defined __GNUC__ \
377 && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \
378 || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C
379 # define YY_ATTRIBUTE(Spec) __attribute__(Spec)
381 # define YY_ATTRIBUTE(Spec)
385 #ifndef YY_ATTRIBUTE_PURE
386 # define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__))
389 #ifndef YY_ATTRIBUTE_UNUSED
390 # define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__))
393 #if !defined _Noreturn \
394 && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112)
395 # if defined _MSC_VER && 1200 <= _MSC_VER
396 # define _Noreturn __declspec (noreturn)
398 # define _Noreturn YY_ATTRIBUTE ((__noreturn__))
403 #if ! defined lint || defined __GNUC__
404 # define YYUSE(E) ((void) (E))
409 #if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
411 # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
412 _Pragma ("GCC diagnostic push") \
413 _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\
414 _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
415 # define YY_IGNORE_MAYBE_UNINITIALIZED_END \
416 _Pragma ("GCC diagnostic pop")
418 # define YY_INITIAL_VALUE(Value) Value
420 #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
421 # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
422 # define YY_IGNORE_MAYBE_UNINITIALIZED_END
424 #ifndef YY_INITIAL_VALUE
425 # define YY_INITIAL_VALUE(Value)
429 #if ! defined yyoverflow || YYERROR_VERBOSE
433 # ifdef YYSTACK_USE_ALLOCA
434 # if YYSTACK_USE_ALLOCA
436 # define YYSTACK_ALLOC __builtin_alloca
437 # elif defined __BUILTIN_VA_ARG_INCR
440 # define YYSTACK_ALLOC __alloca
441 # elif defined _MSC_VER
442 # define alloca _alloca
444 # define YYSTACK_ALLOC alloca
445 # if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
448 # ifndef EXIT_SUCCESS
449 # define EXIT_SUCCESS 0
456 # ifdef YYSTACK_ALLOC
458 # define YYSTACK_FREE(Ptr) do { ; } while (0)
459 # ifndef YYSTACK_ALLOC_MAXIMUM
464 # define YYSTACK_ALLOC_MAXIMUM 4032
467 # define YYSTACK_ALLOC YYMALLOC
468 # define YYSTACK_FREE YYFREE
469 # ifndef YYSTACK_ALLOC_MAXIMUM
470 # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
472 # if (defined __cplusplus && ! defined EXIT_SUCCESS \
473 && ! ((defined YYMALLOC || defined xmalloc) \
474 && (defined YYFREE || defined xfree)))
476 # ifndef EXIT_SUCCESS
477 # define EXIT_SUCCESS 0
481 # define YYMALLOC xmalloc
482 # if ! defined xmalloc && ! defined EXIT_SUCCESS
487 # define YYFREE xfree
488 # if ! defined xfree && ! defined EXIT_SUCCESS
496 #if (! defined yyoverflow \
497 && (! defined __cplusplus \
498 || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
508 # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
512 # define YYSTACK_BYTES(N) \
513 ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
514 + YYSTACK_GAP_MAXIMUM)
516 # define YYCOPY_NEEDED 1
523 # define YYSTACK_RELOCATE(Stack_alloc, Stack) \
526 YYSIZE_T yynewbytes; \
527 YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
528 Stack = &yyptr->Stack_alloc; \
529 yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
530 yyptr += yynewbytes / sizeof (*yyptr); \
536 #if defined YYCOPY_NEEDED && YYCOPY_NEEDED
540 # if defined __GNUC__ && 1 < __GNUC__
541 # define YYCOPY(Dst, Src, Count) \
542 __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
544 # define YYCOPY(Dst, Src, Count) \
548 for (yyi = 0; yyi < (Count); yyi++) \
549 (Dst)[yyi] = (Src)[yyi]; \
568 #define YYNSTATES 131
573 #define YYMAXUTOK 295
575 #define YYTRANSLATE(YYX) \
576 ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
582 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
583 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
584 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
585 2, 2, 2, 2, 2, 2, 2, 51, 36, 2,
586 53, 54, 48, 46, 30, 47, 2, 49, 2, 2,
587 2, 2, 2, 2, 2, 2, 2, 2, 56, 2,
588 2, 32, 2, 33, 45, 2, 2, 2, 2, 2,
589 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
590 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
591 2, 2, 2, 2, 35, 2, 2, 2, 2, 2,
592 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
593 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
594 2, 2, 2, 2, 34, 2, 55, 2, 2, 2,
595 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
596 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
597 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
598 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
599 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
600 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
601 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
602 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
603 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
604 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
605 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
606 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
607 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
608 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
609 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
610 25, 26, 27, 28, 29, 31, 37, 38, 39, 40,
611 41, 42, 43, 44, 50, 52
618 0, 243, 243, 244, 247, 253, 258, 262, 266, 270,
619 274, 278, 288, 287, 298, 301, 305, 309, 315, 321,
620 327, 333, 339, 343, 351, 357, 365, 369, 373, 377,
621 381, 385, 389, 393, 397, 401, 405, 409, 413, 417,
622 421, 425, 429, 433, 438, 442, 446, 452, 459, 470,
623 479, 482, 485, 496, 503, 511, 551, 554, 555, 599,
624 601, 603, 605, 607, 610, 612, 614, 618, 620, 625,
625 627, 629, 631, 633, 635, 637, 639, 641, 643, 645,
626 647, 649, 651, 656, 661, 668, 672
630 #if YYDEBUG || YYERROR_VERBOSE || 0
635 "$end",
"error",
"$undefined",
"INT",
"FLOAT",
"STRING_LITERAL",
636 "BOOLEAN_LITERAL",
"NAME",
"TYPENAME",
"NAME_OR_INT",
"SIZEOF",
"ERROR",
637 "INT_KEYWORD",
"INT_S2_KEYWORD",
"LOGICAL_S1_KEYWORD",
638 "LOGICAL_S2_KEYWORD",
"LOGICAL_S8_KEYWORD",
"LOGICAL_KEYWORD",
639 "REAL_KEYWORD",
"REAL_S8_KEYWORD",
"REAL_S16_KEYWORD",
640 "COMPLEX_S8_KEYWORD",
"COMPLEX_S16_KEYWORD",
"COMPLEX_S32_KEYWORD",
641 "BOOL_AND",
"BOOL_OR",
"BOOL_NOT",
"CHARACTER",
"VARIABLE",
642 "ASSIGN_MODIFY",
"','",
"ABOVE_COMMA",
"'='",
"'?'",
"'|'",
"'^'",
"'&'",
643 "EQUAL",
"NOTEQUAL",
"LESSTHAN",
"GREATERTHAN",
"LEQ",
"GEQ",
"LSH",
644 "RSH",
"'@'",
"'+'",
"'-'",
"'*'",
"'/'",
"STARSTAR",
"'%'",
"UNARY",
645 "'('",
"')'",
"'~'",
"':'",
"$accept",
"start",
"type_exp",
"exp",
"$@1",
646 "arglist",
"subrange",
"complexnum",
"variable",
"type",
"ptype",
647 "abs_decl",
"direct_abs_decl",
"func_mod",
"typebase",
648 "nonempty_typelist",
"name",
"name_not_typename",
YY_NULLPTR
655 static const yytype_uint16
yytoknum[] =
657 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
658 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
659 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
660 44, 285, 61, 63, 124, 94, 38, 286, 287, 288,
661 289, 290, 291, 292, 293, 64, 43, 45, 42, 47,
662 294, 37, 295, 40, 41, 126, 58
666 #define YYPACT_NINF -57
668 #define yypact_value_is_default(Yystate) \
669 (!!((Yystate) == (-57)))
671 #define YYTABLE_NINF -1
673 #define yytable_value_is_error(Yytable_value) \
680 134, -57, -57, -57, -57, -57, -57, -57, 162, -57,
681 -57, -57, -57, -57, -57, -57, -57, -57, -57, -57,
682 -57, 190, -57, -57, 190, 190, 190, 134, 190, 19,
683 -57, 359, -57, -57, -57, -35, -57, 134, -33, -33,
684 -33, -33, -33, 328, -32, -31, -33, -57, 190, 190,
685 190, 190, 190, 190, 190, 190, 190, 190, 190, 190,
686 190, 190, 190, 190, 190, 190, 190, 190, 190, 24,
687 -57, -35, -35, 234, -57, -12, -57, -11, 190, -57,
688 -57, 190, 407, 387, 359, 359, 426, 444, 461, 476,
689 476, 228, 228, 228, 228, -13, -13, 49, -39, -39,
690 -46, -46, -46, -57, -57, 80, -57, -57, -57, -57,
691 -10, -27, 277, -57, 66, 359, -33, 190, 298, -24,
692 -57, -57, 293, -57, 359, 190, 190, -57, -57, 359,
701 0, 47, 49, 54, 53, 86, 69, 48, 0, 70,
702 71, 76, 75, 73, 74, 77, 78, 79, 80, 81,
703 82, 0, 72, 51, 0, 0, 0, 0, 0, 0,
704 3, 2, 50, 4, 56, 57, 55, 0, 11, 9,
705 7, 8, 6, 0, 0, 0, 10, 1, 0, 0,
706 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
707 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
708 12, 61, 59, 0, 58, 63, 66, 0, 0, 5,
709 23, 0, 43, 44, 46, 45, 42, 41, 40, 34,
710 35, 38, 39, 36, 37, 32, 33, 26, 30, 31,
711 28, 29, 27, 85, 25, 14, 62, 60, 67, 83,
712 0, 0, 0, 65, 52, 22, 24, 21, 15, 0,
713 16, 64, 0, 68, 20, 19, 0, 13, 84, 18,
720 -57, -57, -57, 0, -57, -57, -57, -57, -57, 2,
721 -57, -56, -57, -30, -57, -57, -57, -57
727 -1, 29, 30, 43, 105, 119, 120, 44, 32, 109,
728 34, 74, 75, 76, 35, 111, 104, 36
736 31, 71, 33, 122, 68, 69, 126, 70, 38, 66,
737 67, 68, 69, 72, 70, 106, 107, 110, 73, 47,
738 70, 39, 80, 81, 40, 41, 42, 123, 46, 45,
739 127, 103, 63, 64, 65, 66, 67, 68, 69, 77,
740 70, 112, 0, 114, 121, 113, 0, 0, 82, 83,
741 84, 85, 86, 87, 88, 89, 90, 91, 92, 93,
742 94, 95, 96, 97, 98, 99, 100, 101, 102, 1,
743 2, 3, 4, 5, 0, 7, 8, 0, 115, 0,
744 0, 116, 0, 1, 2, 3, 4, 5, 0, 7,
745 8, 0, 21, 0, 23, 64, 65, 66, 67, 68,
746 69, 0, 70, 0, 0, 118, 21, 0, 23, 0,
747 0, 0, 0, 0, 116, 0, 24, 124, 0, 27,
748 0, 28, 0, 0, 128, 129, 130, 25, 26, 0,
749 0, 0, 0, 27, 0, 28, 117, 1, 2, 3,
750 4, 5, 6, 7, 8, 0, 9, 10, 11, 12,
751 13, 14, 15, 16, 17, 18, 19, 20, 0, 0,
752 21, 22, 23, 0, 0, 1, 2, 3, 4, 5,
753 24, 7, 8, 0, 0, 0, 0, 0, 0, 0,
754 0, 25, 26, 0, 0, 0, 0, 27, 21, 28,
755 23, 0, 0, 1, 2, 3, 4, 5, 24, 7,
756 8, 0, 0, 0, 0, 0, 0, 0, 0, 25,
757 26, 0, 0, 0, 0, 37, 21, 28, 23, 0,
758 0, 0, 0, 0, 0, 0, 24, 0, 0, 0,
759 0, 0, 0, 0, 0, 0, 0, 25, 26, 0,
760 0, 0, 6, 27, 0, 28, 9, 10, 11, 12,
761 13, 14, 15, 16, 17, 18, 19, 20, 0, 0,
762 0, 22, 0, 0, 0, 0, 0, 0, 0, 0,
763 71, 61, 62, 63, 64, 65, 66, 67, 68, 69,
764 0, 70, 72, 0, 0, 6, 0, 73, 108, 9,
765 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
766 20, 6, 0, 0, 22, 9, 10, 11, 12, 13,
767 14, 15, 16, 17, 18, 19, 20, 0, 0, 0,
768 22, 0, 48, 49, 0, 0, 0, 50, 0, 0,
769 51, 108, 52, 53, 54, 55, 56, 57, 58, 59,
770 60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
771 0, 70, 48, 49, 125, 0, 0, 50, 78, 0,
772 51, 0, 52, 53, 54, 55, 56, 57, 58, 59,
773 60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
774 0, 70, 79, 48, 49, 0, 0, 0, 50, 0,
775 0, 51, 0, 52, 53, 54, 55, 56, 57, 58,
776 59, 60, 61, 62, 63, 64, 65, 66, 67, 68,
777 69, 48, 70, 0, 0, 0, 0, 0, 0, 0,
778 0, 52, 53, 54, 55, 56, 57, 58, 59, 60,
779 61, 62, 63, 64, 65, 66, 67, 68, 69, 0,
780 70, 52, 53, 54, 55, 56, 57, 58, 59, 60,
781 61, 62, 63, 64, 65, 66, 67, 68, 69, 0,
782 70, 53, 54, 55, 56, 57, 58, 59, 60, 61,
783 62, 63, 64, 65, 66, 67, 68, 69, 0, 70,
784 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
785 64, 65, 66, 67, 68, 69, 0, 70, 55, 56,
786 57, 58, 59, 60, 61, 62, 63, 64, 65, 66,
787 67, 68, 69, 0, 70, 57, 58, 59, 60, 61,
788 62, 63, 64, 65, 66, 67, 68, 69, 0, 70
793 0, 36, 0, 30, 50, 51, 30, 53, 8, 48,
794 49, 50, 51, 48, 53, 71, 72, 73, 53, 0,
795 53, 21, 54, 54, 24, 25, 26, 54, 28, 27,
796 54, 7, 45, 46, 47, 48, 49, 50, 51, 37,
797 53, 53, -1, 54, 54, 75, -1, -1, 48, 49,
798 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
799 60, 61, 62, 63, 64, 65, 66, 67, 68, 3,
800 4, 5, 6, 7, -1, 9, 10, -1, 78, -1,
801 -1, 81, -1, 3, 4, 5, 6, 7, -1, 9,
802 10, -1, 26, -1, 28, 46, 47, 48, 49, 50,
803 51, -1, 53, -1, -1, 105, 26, -1, 28, -1,
804 -1, -1, -1, -1, 114, -1, 36, 117, -1, 53,
805 -1, 55, -1, -1, 122, 125, 126, 47, 48, -1,
806 -1, -1, -1, 53, -1, 55, 56, 3, 4, 5,
807 6, 7, 8, 9, 10, -1, 12, 13, 14, 15,
808 16, 17, 18, 19, 20, 21, 22, 23, -1, -1,
809 26, 27, 28, -1, -1, 3, 4, 5, 6, 7,
810 36, 9, 10, -1, -1, -1, -1, -1, -1, -1,
811 -1, 47, 48, -1, -1, -1, -1, 53, 26, 55,
812 28, -1, -1, 3, 4, 5, 6, 7, 36, 9,
813 10, -1, -1, -1, -1, -1, -1, -1, -1, 47,
814 48, -1, -1, -1, -1, 53, 26, 55, 28, -1,
815 -1, -1, -1, -1, -1, -1, 36, -1, -1, -1,
816 -1, -1, -1, -1, -1, -1, -1, 47, 48, -1,
817 -1, -1, 8, 53, -1, 55, 12, 13, 14, 15,
818 16, 17, 18, 19, 20, 21, 22, 23, -1, -1,
819 -1, 27, -1, -1, -1, -1, -1, -1, -1, -1,
820 36, 43, 44, 45, 46, 47, 48, 49, 50, 51,
821 -1, 53, 48, -1, -1, 8, -1, 53, 54, 12,
822 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
823 23, 8, -1, -1, 27, 12, 13, 14, 15, 16,
824 17, 18, 19, 20, 21, 22, 23, -1, -1, -1,
825 27, -1, 24, 25, -1, -1, -1, 29, -1, -1,
826 32, 54, 34, 35, 36, 37, 38, 39, 40, 41,
827 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
828 -1, 53, 24, 25, 56, -1, -1, 29, 30, -1,
829 32, -1, 34, 35, 36, 37, 38, 39, 40, 41,
830 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
831 -1, 53, 54, 24, 25, -1, -1, -1, 29, -1,
832 -1, 32, -1, 34, 35, 36, 37, 38, 39, 40,
833 41, 42, 43, 44, 45, 46, 47, 48, 49, 50,
834 51, 24, 53, -1, -1, -1, -1, -1, -1, -1,
835 -1, 34, 35, 36, 37, 38, 39, 40, 41, 42,
836 43, 44, 45, 46, 47, 48, 49, 50, 51, -1,
837 53, 34, 35, 36, 37, 38, 39, 40, 41, 42,
838 43, 44, 45, 46, 47, 48, 49, 50, 51, -1,
839 53, 35, 36, 37, 38, 39, 40, 41, 42, 43,
840 44, 45, 46, 47, 48, 49, 50, 51, -1, 53,
841 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
842 46, 47, 48, 49, 50, 51, -1, 53, 37, 38,
843 39, 40, 41, 42, 43, 44, 45, 46, 47, 48,
844 49, 50, 51, -1, 53, 39, 40, 41, 42, 43,
845 44, 45, 46, 47, 48, 49, 50, 51, -1, 53
852 0, 3, 4, 5, 6, 7, 8, 9, 10, 12,
853 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
854 23, 26, 27, 28, 36, 47, 48, 53, 55, 58,
855 59, 60, 65, 66, 67, 71, 74, 53, 60, 60,
856 60, 60, 60, 60, 64, 66, 60, 0, 24, 25,
857 29, 32, 34, 35, 36, 37, 38, 39, 40, 41,
858 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
859 53, 36, 48, 53, 68, 69, 70, 66, 30, 54,
860 54, 54, 60, 60, 60, 60, 60, 60, 60, 60,
861 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
862 60, 60, 60, 7, 73, 61, 68, 68, 54, 66,
863 68, 72, 53, 70, 54, 60, 60, 56, 60, 62,
864 63, 54, 30, 54, 60, 56, 30, 54, 66, 60,
869 static const yytype_uint8
yyr1[] =
871 0, 57, 58, 58, 59, 60, 60, 60, 60, 60,
872 60, 60, 61, 60, 62, 62, 62, 62, 63, 63,
873 63, 63, 64, 60, 60, 60, 60, 60, 60, 60,
874 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
875 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
876 60, 60, 60, 60, 60, 65, 66, 67, 67, 68,
877 68, 68, 68, 68, 69, 69, 69, 70, 70, 71,
878 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
879 71, 71, 71, 72, 72, 73, 74
883 static const yytype_uint8
yyr2[] =
885 0, 2, 1, 1, 1, 3, 2, 2, 2, 2,
886 2, 2, 0, 5, 0, 1, 1, 3, 3, 2,
887 2, 1, 3, 3, 4, 3, 3, 3, 3, 3,
888 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
889 3, 3, 3, 3, 3, 3, 3, 1, 1, 1,
890 1, 1, 4, 1, 1, 1, 1, 1, 2, 1,
891 2, 1, 2, 1, 3, 2, 1, 2, 3, 1,
892 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
897 #define yyerrok (yyerrstatus = 0)
898 #define yyclearin (yychar = YYEMPTY)
902 #define YYACCEPT goto yyacceptlab
903 #define YYABORT goto yyabortlab
904 #define YYERROR goto yyerrorlab
907 #define YYRECOVERING() (!!yyerrstatus)
909 #define YYBACKUP(Token, Value) \
911 if (yychar == YYEMPTY) \
915 YYPOPSTACK (yylen); \
921 yyerror (YY_("syntax error: cannot back up")); \
928 #define YYERRCODE 256
937 # define YYFPRINTF fprintf
940 # define YYDPRINTF(Args) \
947 #ifndef YY_LOCATION_PRINT
948 # define YY_LOCATION_PRINT(File, Loc) ((void) 0)
952 # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
956 YYFPRINTF (stderr, "%s ", Title); \
957 yy_symbol_print (stderr, \
959 YYFPRINTF (stderr, "\n"); \
971 FILE *yyo = yyoutput;
977 YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
991 yytype <
YYNTOKENS ?
"token" :
"nterm", yytname[yytype]);
1006 for (; yybottom <= yytop; yybottom++)
1008 int yybot = *yybottom;
1014 # define YY_STACK_PRINT(Bottom, Top) \
1017 yy_stack_print ((Bottom), (Top)); \
1028 unsigned long int yylno = yyrline[
yyrule];
1029 int yynrhs = yyr2[
yyrule];
1031 YYFPRINTF (stderr,
"Reducing stack by rule %d (line %lu):\n",
1034 for (yyi = 0; yyi < yynrhs; yyi++)
1038 yystos[yyssp[yyi + 1 - yynrhs]],
1039 &(yyvsp[(yyi + 1) - (yynrhs)])
1045 # define YY_REDUCE_PRINT(Rule) \
1048 yy_reduce_print (yyssp, yyvsp, Rule); \
1055 # define YYDPRINTF(Args)
1056 # define YY_SYMBOL_PRINT(Title, Type, Value, Location)
1057 # define YY_STACK_PRINT(Bottom, Top)
1058 # define YY_REDUCE_PRINT(Rule)
1064 # define YYINITDEPTH 200
1075 # define YYMAXDEPTH 10000
1082 # if defined __GLIBC__ && defined _STRING_H
1083 # define yystrlen strlen
1087 yystrlen (
const char *yystr)
1090 for (yylen = 0; yystr[
yylen]; yylen++)
1098 # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
1099 # define yystpcpy stpcpy
1104 yystpcpy (
char *yydest,
const char *yysrc)
1107 const char *yys = yysrc;
1109 while ((*yyd++ = *yys++) !=
'\0')
1126 yytnamerr (
char *yyres,
const char *yystr)
1131 char const *yyp = yystr;
1138 goto do_not_strip_quotes;
1142 goto do_not_strip_quotes;
1155 do_not_strip_quotes: ;
1159 return yystrlen (yystr);
1161 return yystpcpy (yyres, yystr) - yyres;
1174 yysyntax_error (
YYSIZE_T *yymsg_alloc,
char **yymsg,
1175 yytype_int16 *yyssp,
int yytoken)
1179 enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
1183 char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
1213 int yyn = yypact[*
yyssp];
1214 yyarg[yycount++] = yytname[yytoken];
1220 int yyxbegin = yyn < 0 ? -yyn : 0;
1222 int yychecklim =
YYLAST - yyn + 1;
1226 for (yyx = yyxbegin; yyx < yyxend; ++yyx)
1227 if (yycheck[yyx + yyn] == yyx && yyx !=
YYTERROR
1230 if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
1236 yyarg[yycount++] = yytname[yyx];
1239 if (! (yysize <= yysize1
1250 # define YYCASE_(N, S) \
1254 YYCASE_(0,
YY_(
"syntax error"));
1255 YYCASE_(1,
YY_(
"syntax error, unexpected %s"));
1256 YYCASE_(2,
YY_(
"syntax error, unexpected %s, expecting %s"));
1257 YYCASE_(3,
YY_(
"syntax error, unexpected %s, expecting %s or %s"));
1258 YYCASE_(4,
YY_(
"syntax error, unexpected %s, expecting %s or %s or %s"));
1259 YYCASE_(5,
YY_(
"syntax error, unexpected %s, expecting %s or %s or %s or %s"));
1264 YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
1270 if (*yymsg_alloc < yysize)
1272 *yymsg_alloc = 2 * yysize;
1273 if (! (yysize <= *yymsg_alloc
1285 while ((*yyp = *yyformat) !=
'\0')
1286 if (*yyp ==
'%' && yyformat[1] ==
's' && yyi < yycount)
1288 yyp += yytnamerr (yyp, yyarg[yyi++]);
1351 yytype_int16 *
yyssp;
1371 char *yymsg = yymsgbuf;
1372 YYSIZE_T yymsg_alloc =
sizeof yymsgbuf;
1375 #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
1381 yyssp = yyss = yyssa;
1382 yyvsp = yyvs = yyvsa;
1385 YYDPRINTF ((stderr,
"Starting parse\n"));
1404 if (yyss + yystacksize - 1 <= yyssp)
1407 YYSIZE_T yysize = yyssp - yyss + 1;
1415 yytype_int16 *yyss1 =
yyss;
1421 yyoverflow (
YY_(
"memory exhausted"),
1422 &yyss1, yysize *
sizeof (*yyssp),
1423 &yyvs1, yysize *
sizeof (*yyvsp),
1430 # ifndef YYSTACK_RELOCATE
1431 goto yyexhaustedlab;
1435 goto yyexhaustedlab;
1441 yytype_int16 *yyss1 =
yyss;
1445 goto yyexhaustedlab;
1448 # undef YYSTACK_RELOCATE
1455 yyssp = yyss + yysize - 1;
1456 yyvsp = yyvs + yysize - 1;
1458 YYDPRINTF ((stderr,
"Stack size increased to %lu\n",
1459 (
unsigned long int) yystacksize));
1461 if (yyss + yystacksize - 1 <= yyssp)
1465 YYDPRINTF ((stderr,
"Entering state %d\n", yystate));
1490 YYDPRINTF ((stderr,
"Reading a token: "));
1494 if (yychar <=
YYEOF)
1496 yychar = yytoken =
YYEOF;
1497 YYDPRINTF ((stderr,
"Now at end of input.\n"));
1508 if (yyn < 0 ||
YYLAST < yyn || yycheck[yyn] != yytoken)
1563 yyval = yyvsp[1-
yylen];
1574 #line 1576 "f-exp.c"
1580 #line 1582 "f-exp.c"
1586 #line 1588 "f-exp.c"
1592 #line 1594 "f-exp.c"
1598 #line 1600 "f-exp.c"
1604 #line 1606 "f-exp.c"
1610 #line 1612 "f-exp.c"
1616 #line 1618 "f-exp.c"
1622 #line 1624 "f-exp.c"
1628 OP_F77_UNDETERMINED_ARGLIST);
1632 OP_F77_UNDETERMINED_ARGLIST); }
1633 #line 1635 "f-exp.c"
1639 #line 1641 "f-exp.c"
1645 #line 1647 "f-exp.c"
1651 #line 1653 "f-exp.c"
1659 #line 1661 "f-exp.c"
1667 #line 1669 "f-exp.c"
1675 #line 1677 "f-exp.c"
1683 #line 1685 "f-exp.c"
1689 #line 1691 "f-exp.c"
1697 ->builtin_complex_s16);
1699 #line 1701 "f-exp.c"
1707 #line 1709 "f-exp.c"
1715 #line 1717 "f-exp.c"
1721 #line 1723 "f-exp.c"
1727 #line 1729 "f-exp.c"
1733 #line 1735 "f-exp.c"
1739 #line 1741 "f-exp.c"
1745 #line 1747 "f-exp.c"
1751 #line 1753 "f-exp.c"
1757 #line 1759 "f-exp.c"
1763 #line 1765 "f-exp.c"
1769 #line 1771 "f-exp.c"
1775 #line 1777 "f-exp.c"
1781 #line 1783 "f-exp.c"
1787 #line 1789 "f-exp.c"
1793 #line 1795 "f-exp.c"
1799 #line 1801 "f-exp.c"
1805 #line 1807 "f-exp.c"
1811 #line 1813 "f-exp.c"
1817 #line 1819 "f-exp.c"
1823 #line 1825 "f-exp.c"
1829 #line 1831 "f-exp.c"
1835 #line 1837 "f-exp.c"
1843 #line 1845 "f-exp.c"
1852 #line 1854 "f-exp.c"
1859 (yyvsp[0].ssym).stoken.length, 0, &val);
1865 #line 1867 "f-exp.c"
1876 #line 1878 "f-exp.c"
1889 #line 1891 "f-exp.c"
1898 #line 1900 "f-exp.c"
1908 #line 1910 "f-exp.c"
1913 {
struct symbol *sym = (yyvsp[0].ssym).sym;
1940 if (msymbol.
minsym != NULL)
1943 error (
_(
"No symbol table is loaded. Use the \"file\" command."));
1945 error (
_(
"No symbol \"%s\" in current context."),
1949 #line 1951 "f-exp.c"
1958 struct type *follow_type = (yyvsp[-1].tval);
1959 struct type *range_type;
1975 if (array_size != -1)
1984 follow_type, range_type);
1993 (yyval.
tval) = follow_type;
1995 #line 1997 "f-exp.c"
2001 #line 2003 "f-exp.c"
2007 #line 2009 "f-exp.c"
2013 #line 2015 "f-exp.c"
2019 #line 2021 "f-exp.c"
2024 { (yyval.
voidval) = (yyvsp[-1].voidval); }
2025 #line 2027 "f-exp.c"
2031 #line 2033 "f-exp.c"
2037 #line 2039 "f-exp.c"
2043 #line 2045 "f-exp.c"
2049 #line 2051 "f-exp.c"
2054 { (yyval.
tval) = (yyvsp[0].tsym).type; }
2055 #line 2057 "f-exp.c"
2061 #line 2063 "f-exp.c"
2067 #line 2069 "f-exp.c"
2073 #line 2075 "f-exp.c"
2079 #line 2081 "f-exp.c"
2085 #line 2087 "f-exp.c"
2091 #line 2093 "f-exp.c"
2097 #line 2099 "f-exp.c"
2103 #line 2105 "f-exp.c"
2109 #line 2111 "f-exp.c"
2115 #line 2117 "f-exp.c"
2121 #line 2123 "f-exp.c"
2127 #line 2129 "f-exp.c"
2133 #line 2135 "f-exp.c"
2139 (yyval.
ivec)[0] = 1;
2140 (yyval.
tvec)[1] = (yyvsp[0].tval);
2142 #line 2144 "f-exp.c"
2147 {
int len =
sizeof (
struct type *) * (++((yyvsp[-2].ivec)[0]) + 1);
2149 (yyval.
tvec)[(yyval.
ivec)[0]] = (yyvsp[0].tval);
2151 #line 2153 "f-exp.c"
2156 { (yyval.
sval) = (yyvsp[0].ssym).stoken; }
2157 #line 2159 "f-exp.c"
2161 #line 2163 "f-exp.c"
2190 if (0 <= yystate && yystate <=
YYLAST && yycheck[yystate] == *yyssp)
2210 #if ! YYERROR_VERBOSE
2213 # define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
2216 char const *yymsgp =
YY_(
"syntax error");
2217 int yysyntax_error_status;
2218 yysyntax_error_status = YYSYNTAX_ERROR;
2219 if (yysyntax_error_status == 0)
2221 else if (yysyntax_error_status == 1)
2223 if (yymsg != yymsgbuf)
2229 yymsg_alloc =
sizeof yymsgbuf;
2230 yysyntax_error_status = 2;
2234 yysyntax_error_status = YYSYNTAX_ERROR;
2239 if (yysyntax_error_status == 2)
2240 goto yyexhaustedlab;
2242 # undef YYSYNTAX_ERROR
2248 if (yyerrstatus == 3)
2253 if (yychar <=
YYEOF)
2256 if (yychar ==
YYEOF)
2318 yystos[yystate], yyvsp);
2350 #if !defined yyoverflow || YYERROR_VERBOSE
2373 while (yyssp != yyss)
2376 yystos[*yyssp], yyvsp);
2384 if (yymsg != yymsgbuf)
2400 const char *p,
int len,
int parsed_float,
YYSTYPE *putithere)
2409 struct type *signed_type;
2410 struct type *unsigned_type;
2419 for (tmp2 = tmp; *tmp2; ++tmp2)
2420 if (*tmp2 ==
'd' || *tmp2 ==
'D')
2463 if (len == 0 && c ==
'l')
2465 else if (len == 0 && c ==
'u')
2470 if (c >=
'0' && c <=
'9')
2472 else if (c >=
'a' && c <=
'f')
2483 if ((prevn >= n) && n != 0)
2488 if ((unsigned_p && (
unsigned)prevn >= (
unsigned)n))
2515 unsigned_type =
parse_type (par_state)->builtin_unsigned_long;
2516 signed_type =
parse_type (par_state)->builtin_long;
2522 unsigned_type =
parse_type (par_state)->builtin_unsigned_int;
2523 signed_type =
parse_type (par_state)->builtin_int;
2531 if (unsigned_p || (n & high_bit))
2550 {
".or.",
BOOL_OR, BINOP_END },
2551 {
".OR.",
BOOL_OR, BINOP_END },
2554 {
".eq.",
EQUAL, BINOP_END },
2555 {
".EQ.",
EQUAL, BINOP_END },
2556 {
".eqv.",
EQUAL, BINOP_END },
2559 {
".EQV.",
EQUAL, BINOP_END },
2562 {
".le.",
LEQ, BINOP_END },
2563 {
".LE.",
LEQ, BINOP_END },
2564 {
".ge.",
GEQ, BINOP_END },
2565 {
".GE.",
GEQ, BINOP_END },
2588 static const struct token f77_keywords[] =
2602 {
"sizeof",
SIZEOF, BINOP_END },
2616 #define GROWBY_MIN_SIZE 64
2618 #define CHECKBUF(size) \
2620 if (tempbufindex + (size) >= tempbufsize) \
2622 growbuf_by_size (size); \
2636 tempbufsize += growby;
2637 if (tempbuf == NULL)
2638 tempbuf = (
char *)
xmalloc (tempbufsize);
2640 tempbuf = (
char *)
xrealloc (tempbuf, tempbufsize);
2655 const char *tokptr =
lexptr;
2657 for (tempbufindex = 0, tokptr++; *tokptr !=
'\0'; tokptr++)
2662 if (*(tokptr + 1) == *
lexptr)
2667 tempbuf[tempbufindex++] = *tokptr;
2670 || tempbufindex == 0)
2689 unsigned int i,
token;
2690 const char *tokstart;
2703 for (i = 0; boolean_values[i].
name != NULL; i++)
2705 if (strncmp (tokstart, boolean_values[i].
name,
2706 strlen (boolean_values[i].name)) == 0)
2708 lexptr += strlen (boolean_values[i].name);
2717 for (i = 0; dot_ops[i].
oper != NULL; i++)
2718 if (strncmp (tokstart, dot_ops[i].
oper,
2719 strlen (dot_ops[i].oper)) == 0)
2721 lexptr += strlen (dot_ops[i].oper);
2723 return dot_ops[i].
token;
2728 if (strncmp (tokstart,
"**", 2) == 0)
2731 yylval.
opcode = BINOP_EXP;
2735 switch (c = *tokstart)
2788 int got_dot = 0, got_e = 0, got_d = 0, toktype;
2789 const char *p = tokstart;
2792 if (c ==
'0' && (p[1] ==
'x' || p[1] ==
'X'))
2797 else if (c ==
'0' && (p[1]==
't' || p[1]==
'T'
2798 || p[1]==
'd' || p[1]==
'D'))
2806 if (!hex && !got_e && (*p ==
'e' || *p ==
'E'))
2807 got_dot = got_e = 1;
2808 else if (!hex && !got_d && (*p ==
'd' || *p ==
'D'))
2809 got_dot = got_d = 1;
2810 else if (!hex && !got_dot && *p ==
'.')
2812 else if (((got_e && (p[-1] ==
'e' || p[-1] ==
'E'))
2813 || (got_d && (p[-1] ==
'd' || p[-1] ==
'D')))
2814 && (*p ==
'-' || *p ==
'+'))
2820 else if ((*p < '0' || *p >
'9')
2821 && ((*p < 'a' || *p >
'z')
2822 && (*p < 'A' || *p >
'Z')))
2825 toktype =
parse_number (pstate, tokstart, p - tokstart,
2826 got_dot|got_e|got_d,
2828 if (toktype ==
ERROR)
2830 char *err_copy = (
char *) alloca (p - tokstart + 1);
2832 memcpy (err_copy, tokstart, p - tokstart);
2833 err_copy[p - tokstart] = 0;
2834 error (
_(
"Invalid number \"%s\"."), err_copy);
2865 if (!(c ==
'_' || c ==
'$' || c ==
':'
2866 || (c >=
'a' && c <=
'z') || (c >=
'A' && c <=
'Z')))
2868 error (
_(
"Invalid character '%c' in expression."), c);
2871 for (c = tokstart[namelen];
2872 (c ==
'_' || c ==
'$' || c ==
':' || (c >=
'0' && c <=
'9')
2873 || (c >=
'a' && c <=
'z') || (c >=
'A' && c <=
'Z'));
2874 c = tokstart[++namelen]);
2879 if (namelen == 2 && tokstart[0] ==
'i' && tokstart[1] ==
'f')
2886 for (i = 0; f77_keywords[i].
oper != NULL; i++)
2887 if (strlen (f77_keywords[i].oper) == namelen
2888 && strncmp (tokstart, f77_keywords[i].oper, namelen) == 0)
2892 return f77_keywords[i].
token;
2898 if (*tokstart ==
'$')
2920 for (i = 0; i < ARRAY_SIZE (lookup_domains); ++i)
2924 memset (&is_a_field_of_this, 0,
sizeof (is_a_field_of_this));
2950 && ((tokstart[0] >=
'a' && tokstart[0] <
'a' +
input_radix - 10)
2951 || (tokstart[0] >=
'A' && tokstart[0] <
'A' +
input_radix - 10)))
2954 hextype =
parse_number (pstate, tokstart, namelen, 0, &newlval);
2991 error (
_(
"A %s in expression, near `%s'."), (msg ? msg :
"error"),
lexptr);
struct internalvar * ivar
#define YY_SYMBOL_PRINT(Title, Type, Value, Location)
static void yy_stack_print(yytype_int16 *yybottom, yytype_int16 *yytop)
void write_exp_elt_sym(struct parser_state *ps, struct symbol *expelt)
struct type * create_static_range_type(struct type *result_type, struct type *index_type, LONGEST low_bound, LONGEST high_bound)
#define parse_language(ps)
int f_parse(struct parser_state *par_state)
static const yytype_uint8 yystos[]
static const yytype_int8 yypgoto[]
#define parse_gdbarch(ps)
#define LOGICAL_S8_KEYWORD
#define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
static void growbuf_by_size(int)
enum type_pieces pop_type(void)
int gdbarch_int_bit(struct gdbarch *gdbarch)
struct type * create_array_type(struct type *result_type, struct type *element_type, struct type *range_type)
static void yy_symbol_print(FILE *yyoutput, int yytype, YYSTYPE const *const yyvaluep)
#define SYMBOL_CLASS(symbol)
int gdbarch_long_bit(struct gdbarch *gdbarch)
const struct block * innermost_block
int have_partial_symbols(void)
static const yytype_uint8 yydefact[]
static const char *const yytname[]
static const yytype_int8 yydefgoto[]
void push_type(enum type_pieces tp)
#define YYPRINT(FILE, TYPE, VALUE)
unsigned short int yytype_uint16
unsigned char yytype_uint8
void write_exp_elt_block(struct parser_state *ps, const struct block *b)
void write_exp_elt_longcst(struct parser_state *ps, LONGEST expelt)
static int parse_number(struct parser_state *, const char *, int, int, YYSTYPE *)
int contained_in(const struct block *a, const struct block *b)
void range_error(const char *string,...)
#define YY_REDUCE_PRINT(Rule)
#define yytable_value_is_error(Yytable_value)
#define YY_IGNORE_MAYBE_UNINITIALIZED_END
struct YYSTYPE::@1 typed_val
void write_exp_elt_dblcst(struct parser_state *ps, DOUBLEST expelt)
int symbol_read_needs_frame(struct symbol *sym)
#define COMPLEX_S16_KEYWORD
#define COMPLEX_S8_KEYWORD
#define YYSTACK_ALLOC_MAXIMUM
const struct block * block_found
static const yytype_uint16 yytoknum[]
void write_dollar_variable(struct parser_state *ps, struct stoken str)
struct cleanup * make_cleanup_clear_parser_state(struct parser_state **p)
const struct block * bval
static const yytype_uint16 yyrline[]
static int match_string_literal(void)
void write_exp_msymbol(struct parser_state *ps, struct bound_minimal_symbol bound_msym)
#define COMPLEX_S32_KEYWORD
#define LOGICAL_S1_KEYWORD
PTR xrealloc(PTR ptr, size_t size)
void write_exp_elt_opcode(struct parser_state *ps, enum exp_opcode expelt)
static const char * lexptr
static void yydestruct(const char *yymsg, int yytype, YYSTYPE *yyvaluep)
static const yytype_uint8 yytranslate[]
struct minimal_symbol * minsym
struct symbol * lookup_symbol(const char *name, const struct block *block, domain_enum domain, struct field_of_this_result *is_a_field_of_this)
struct bound_minimal_symbol lookup_bound_minimal_symbol(const char *name)
#define CHECK_TYPEDEF(TYPE)
int have_full_symbols(void)
#define yypact_value_is_default(Yystate)
const struct block * expression_context_block
unsigned long long ULONGEST
static void yy_reduce_print(yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule)
double atof(const char *)
#define YYSTACK_RELOCATE(Stack_alloc, Stack)
#define SYMBOL_TYPE(symbol)
struct type * lookup_reference_type(struct type *type)
#define TYPE_LENGTH(thistype)
struct type * language_lookup_primitive_type(const struct language_defn *la, struct gdbarch *gdbarch, const char *name)
#define YY_STACK_PRINT(Bottom, Top)
#define LOGICAL_S2_KEYWORD
static void yy_symbol_value_print(FILE *yyoutput, int yytype, YYSTYPE const *const yyvaluep)
static const char * prev_lexptr
void write_exp_string(struct parser_state *ps, struct stoken str)
void write_exp_elt_type(struct parser_state *ps, struct type *expelt)
void error(const char *fmt,...)
struct type * lookup_pointer_type(struct type *type)
void do_cleanups(struct cleanup *old_chain)
struct type * lookup_function_type(struct type *type)
char * copy_name(struct stoken token)
const ULONGEST const LONGEST len