OLD | NEW |
1 /* YACC grammar for Modula-2 expressions, for GDB. | 1 /* YACC grammar for Modula-2 expressions, for GDB. |
2 Copyright (C) 1986, 1989-1996, 1999-2000, 2007-2012 Free Software | 2 Copyright (C) 1986, 1989-1996, 1999-2000, 2007-2012 Free Software |
3 Foundation, Inc. | 3 Foundation, Inc. |
4 Generated from expread.y (now c-exp.y) and contributed by the Department | 4 Generated from expread.y (now c-exp.y) and contributed by the Department |
5 of Computer Science at the State University of New York at Buffalo, 1991. | 5 of Computer Science at the State University of New York at Buffalo, 1991. |
6 | 6 |
7 This file is part of GDB. | 7 This file is part of GDB. |
8 | 8 |
9 This program is free software; you can redistribute it and/or modify | 9 This program is free software; you can redistribute it and/or modify |
10 it under the terms of the GNU General Public License as published by | 10 it under the terms of the GNU General Public License as published by |
(...skipping 82 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
93 #define yyrule m2_rule /* With YYDEBUG defined */ | 93 #define yyrule m2_rule /* With YYDEBUG defined */ |
94 #define yylhs m2_yylhs | 94 #define yylhs m2_yylhs |
95 #define yylen m2_yylen | 95 #define yylen m2_yylen |
96 #define yydefred m2_yydefred | 96 #define yydefred m2_yydefred |
97 #define yydgoto m2_yydgoto | 97 #define yydgoto m2_yydgoto |
98 #define yysindex m2_yysindex | 98 #define yysindex m2_yysindex |
99 #define yyrindex m2_yyrindex | 99 #define yyrindex m2_yyrindex |
100 #define yygindex m2_yygindex | 100 #define yygindex m2_yygindex |
101 #define yytable m2_yytable | 101 #define yytable m2_yytable |
102 #define yycheck m2_yycheck | 102 #define yycheck m2_yycheck |
| 103 #define yyss m2_yyss |
| 104 #define yysslim m2_yysslim |
| 105 #define yyssp m2_yyssp |
| 106 #define yystacksize m2_yystacksize |
| 107 #define yyvs m2_yyvs |
| 108 #define yyvsp m2_yyvsp |
103 | 109 |
104 #ifndef YYDEBUG | 110 #ifndef YYDEBUG |
105 #define YYDEBUG 1 /* Default to yydebug support */ | 111 #define YYDEBUG 1 /* Default to yydebug support */ |
106 #endif | 112 #endif |
107 | 113 |
108 #define YYFPRINTF parser_fprintf | 114 #define YYFPRINTF parser_fprintf |
109 | 115 |
110 int yyparse (void); | 116 int yyparse (void); |
111 | 117 |
112 static int yylex (void); | 118 static int yylex (void); |
113 | 119 |
114 void yyerror (char *); | 120 void yyerror (char *); |
115 | 121 |
116 #if 0 | |
117 static char *make_qualname (char *, char *); | |
118 #endif | |
119 | |
120 static int parse_number (int); | 122 static int parse_number (int); |
121 | 123 |
122 /* The sign of the number being parsed. */ | 124 /* The sign of the number being parsed. */ |
123 static int number_sign = 1; | 125 static int number_sign = 1; |
124 | 126 |
125 /* The block that the module specified by the qualifer on an identifer is | |
126 contained in, */ | |
127 #if 0 | |
128 static struct block *modblock=0; | |
129 #endif | |
130 | |
131 %} | 127 %} |
132 | 128 |
133 /* Although the yacc "value" of an expression is not used, | 129 /* Although the yacc "value" of an expression is not used, |
134 since the result is stored in the structure being created, | 130 since the result is stored in the structure being created, |
135 other node types do have values. */ | 131 other node types do have values. */ |
136 | 132 |
137 %union | 133 %union |
138 { | 134 { |
139 LONGEST lval; | 135 LONGEST lval; |
140 ULONGEST ulval; | 136 ULONGEST ulval; |
(...skipping 437 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
578 ; | 574 ; |
579 | 575 |
580 /* GDB internal ($foo) variable */ | 576 /* GDB internal ($foo) variable */ |
581 variable: INTERNAL_VAR | 577 variable: INTERNAL_VAR |
582 ; | 578 ; |
583 | 579 |
584 /* GDB scope operator */ | 580 /* GDB scope operator */ |
585 variable: block COLONCOLON NAME | 581 variable: block COLONCOLON NAME |
586 { struct symbol *sym; | 582 { struct symbol *sym; |
587 sym = lookup_symbol (copy_name ($3), $1, | 583 sym = lookup_symbol (copy_name ($3), $1, |
error: old chunk mismatch |
None
OLD | NEW |