2002-11-08 Jeff Johnston <jjohnstn@redhat.com>

[deliverable/binutils-gdb.git] / gdb / ada-exp.y

diff --git a/gdb/ada-exp.y b/gdb/ada-exp.y
index 7d46dd2cf8b749fa7a890ccf995815df41baa723..70a4b584f1c5c7ee4e2aa6e7a32797c2fa7310d5 100644 (file)
--- a/gdb/ada-exp.y
+++ b/gdb/ada-exp.y
@@ -90,11 +90,15 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define        yylloc  ada_lloc
 #define yyreds ada_reds                /* With YYDEBUG defined */
 #define yytoks ada_toks                /* With YYDEBUG defined */
+#define yyname ada_name                /* With YYDEBUG defined */
+#define yyrule ada_rule                /* With YYDEBUG defined */
 
 #ifndef YYDEBUG
-#define        YYDEBUG 0               /* Default to no yydebug support */
+#define        YYDEBUG 1               /* Default to yydebug support */
 #endif
 
+#define YYFPRINTF parser_fprintf
+
 struct name_info {
   struct symbol* sym;
   struct minimal_symbol* msym;
@@ -252,6 +256,7 @@ simple_exp :        type '\'' save_qualifier { type_qualifier = $1; } '(' exp ')'
        ;
 
 save_qualifier :       { $$ = type_qualifier; }
+       ;
 
 simple_exp :
                simple_exp '(' exp DOTDOT exp ')'
@@ -528,7 +533,7 @@ exp :       CHARLIT
                            (convert_char_literal (type_qualifier, $1.val));
                          write_exp_elt_opcode (OP_LONG); 
                        }
-
+       ;
                              
 exp    :       FLOAT
                        { write_exp_elt_opcode (OP_DOUBLE);
@@ -544,6 +549,7 @@ exp :       NULL_PTR
                          write_exp_elt_longcst ((LONGEST)(0));
                          write_exp_elt_opcode (OP_LONG); 
                         }
+       ;
 
 exp    :       STRING
                        { /* Ada strings are converted into array constants