| 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 |