GDB 7.6.50

gdb/p-exp.y

 /* YACC parser for Pascal expressions, for GDB.
-   Copyright (C) 2000, 2006-2012 Free Software Foundation, Inc.
+   Copyright (C) 2000-2013 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
    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
    the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ skipping 24 matching lines @@
 
 /* Known bugs or limitations:
     - pascal string operations are not supported at all.
     - there are some problems with boolean types.
     - Pascal type hexadecimal constants are not supported
       because they conflict with the internal variables format.
    Probably also lots of other problems, less well defined PM.  */
 %{
 
 #include "defs.h"
-#include "gdb_string.h"
+#include <string.h>
 #include <ctype.h>
 #include "expression.h"
 #include "value.h"
 #include "parser-defs.h"
 #include "language.h"
 #include "p-lang.h"
 #include "bfd.h" /* Required by objfiles.h.  */
 #include "symfile.h" /* Required by objfiles.h.  */
 #include "objfiles.h" /* For have_full_symbols and have_partial_symbols.  */
 #include "block.h"
+#include "completer.h"
 
 #define parse_type builtin_type (parse_gdbarch)
 
 /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc),
    as well as gratuitiously global symbol names, so we can have multiple
    yacc generated parsers in gdb.  Note that these are only the variables
    produced by yacc.  If other parser generators (bison, byacc, etc) produce
    additional global names that conflict at link time, then those parser
    generators need to be fixed instead of adding those names to this list.  */
 
@@ skipping 49 matching lines @@
 #endif
 
 #define YYFPRINTF parser_fprintf
 
 int yyparse (void);
 
 static int yylex (void);
 
 void yyerror (char *);
 
-static char * uptok (char *, int);
+static char *uptok (const char *, int);
 %}
 
 /* Although the yacc "value" of an expression is not used,
    since the result is stored in the structure being created,
    other node types do have values.  */
 
 %union
   {
     LONGEST lval;
     struct {
@@ skipping 13 matching lines @@
     struct block *bval;
     enum exp_opcode opcode;
     struct internalvar *ivar;
 
     struct type **tvec;
     int *ivec;
   }
 
 %{
 /* YYSTYPE gets defined by %union */
-static int parse_number (char *, int, int, YYSTYPE *);
+static int parse_number (const char *, int, int, YYSTYPE *);
 
 static struct type *current_type;
 static struct internalvar *intvar;
 static int leftdiv_is_integer;
 static void push_current_type (void);
 static void pop_current_type (void);
 static int search_field;
 %}
 
 %type <voidval> exp exp1 type_exp start normal_start variable qualified_name
@@ skipping 133 matching lines @@
                           if (current_type)
                             {
                               while (TYPE_CODE (current_type)
                                      == TYPE_CODE_PTR)
                                 current_type =
                                   TYPE_TARGET_TYPE (current_type);
                               current_type = lookup_struct_elt_type (
                                 current_type, $2.ptr, 0);
                             }
                          }