2005-01-28 Andrew Cagney <cagney@gnu.org>

	* ada-valprint.c (char_at, printstr): Make buffer a const bfd_byte.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f339d31..21d18db 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,7 +1,9 @@
 2005-01-28  Andrew Cagney  <cagney@gnu.org>
 
-       * printcmd.c (print_scalar_formatted): Update.
+       * ada-valprint.c (char_at, printstr): Make buffer a const bfd_byte.
+
        * gdbtypes.h (print_scalar_formatted): Make buffer a const bfd_byte.
+       * printcmd.c (print_scalar_formatted): Update.
 
        * value.h (value_bit_index, print_floating)
        (find_rt_vbase_offset): Make buffer a const bfd_byte.

diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
index 481bc70..0f2f816 100644 (file)
--- a/gdb/ada-valprint.c
+++ b/gdb/ada-valprint.c
@@ -1,7 +1,7 @@
 /* Support for printing Ada values for GDB, the GNU debugger.
+
    Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994, 1997, 2001,
-   2002, 2003, 2004.
-             Free Software Foundation, Inc.
+   2002, 2003, 2004, 2005 Free Software Foundation, Inc.
 
 This file is part of GDB.
 
@@ -278,7 +278,7 @@ ada_emit_char (int c, struct ui_file *stream, int quoter, int type_len)
    or 2) of a character.  */
 
 static int
-char_at (char *string, int i, int type_len)
+char_at (const bfd_byte *string, int i, int type_len)
 {
   if (type_len == 1)
     return string[i];
@@ -439,8 +439,8 @@ ada_print_scalar (struct type *type, LONGEST val, struct ui_file *stream)
  */
 
 static void
-printstr (struct ui_file *stream, char *string, unsigned int length,
-         int force_ellipses, int type_len)
+printstr (struct ui_file *stream, const bfd_byte *string,
+         unsigned int length, int force_ellipses, int type_len)
 {
   unsigned int i;
   unsigned int things_printed = 0;