Merge GDB 7.5.1

gdb/p-lang.c

 /* Pascal language support routines for GDB, the GNU debugger.
 
    Copyright (C) 2000, 2002-2005, 2007-2012 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
@@ skipping 81 matching lines @@
    to get the length and the data of the string
    length_pos, length_size and string_pos are given in bytes.
    char_size gives the element size in bytes.
    FIXME: if the position or the size of these fields
    are not multiple of TARGET_CHAR_BIT then the results are wrong
    but this does not happen for Free Pascal nor for GPC.  */
 int
 is_pascal_string_type (struct type *type,int *length_pos,
                        int *length_size, int *string_pos,
                        struct type **char_type,
-                       char **arrayname)
+                       const char **arrayname)
 {
   if (type != NULL && TYPE_CODE (type) == TYPE_CODE_STRUCT)
     {
       /* Old Borland type pascal strings from Free Pascal Compiler.  */
       /* Two fields: length and st.  */
       if (TYPE_NFIELDS (type) == 2
           && TYPE_FIELD_NAME (type, 0)
           && strcmp (TYPE_FIELD_NAME (type, 0), "length") == 0
           && TYPE_FIELD_NAME (type, 1)
           && strcmp (TYPE_FIELD_NAME (type, 1), "st") == 0)
@@ skipping 321 matching lines @@
   type_check_on,
   case_sensitive_on,
   array_row_major,
   macro_expansion_no,
   &exp_descriptor_standard,
   pascal_parse,
   pascal_error,
   null_post_parser,
   pascal_printchar,             /* Print a character constant */
   pascal_printstr,              /* Function to print string constant */