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

* p-lang.h (pascal_object_print_class_member)
	(pascal_object_print_class_method): Make buffer a const bfd_byte.
	* p-valprint.c (pascal_object_print_class_method)
	(pascal_object_print_class_method): Ditto.
This commit is contained in:
Andrew Cagney 2005-01-29 00:52:02 +00:00
parent ce27fb254c
commit 5bcca90b9e
3 changed files with 15 additions and 7 deletions

View File

@ -1,5 +1,10 @@
2005-01-28 Andrew Cagney <cagney@gnu.org>
* p-lang.h (pascal_object_print_class_member)
(pascal_object_print_class_method): Make buffer a const bfd_byte.
* p-valprint.c (pascal_object_print_class_method)
(pascal_object_print_class_method): Ditto.
* language.h (struct language_defn): Make la_printstr's buffer
parameter a const bfd_byte.
* p-lang.h (pascal_printstr): Update function to match.

View File

@ -1,5 +1,6 @@
/* Pascal language support definitions for GDB, the GNU debugger.
Copyright 2000 Free Software Foundation, Inc.
Copyright 2000, 2005 Free Software Foundation, Inc.
This file is part of GDB.
@ -64,9 +65,11 @@ extern int vtblprint; /* Controls printing of vtbl's */
extern int static_field_print;
extern void pascal_object_print_class_member (char *, struct type *, struct ui_file *, char *);
extern void pascal_object_print_class_member (const bfd_byte *, struct type *,
struct ui_file *, char *);
extern void pascal_object_print_class_method (char *, struct type *, struct ui_file *);
extern void pascal_object_print_class_method (const bfd_byte *, struct type *,
struct ui_file *);
extern void pascal_object_print_value_fields (struct type *, char *, CORE_ADDR,
struct ui_file *, int, int, enum val_prettyprint,

View File

@ -1,6 +1,6 @@
/* Support for printing Pascal values for GDB, the GNU debugger.
Copyright 2000, 2001, 2003
Free Software Foundation, Inc.
Copyright 2000, 2001, 2003, 2005 Free Software Foundation, Inc.
This file is part of GDB.
@ -591,7 +591,7 @@ static void
int, int, enum val_prettyprint, struct type **);
void
pascal_object_print_class_method (char *valaddr, struct type *type,
pascal_object_print_class_method (const bfd_byte *valaddr, struct type *type,
struct ui_file *stream)
{
struct type *domain;
@ -1045,7 +1045,7 @@ pascal_object_print_static_field (struct type *type, struct value *val,
}
void
pascal_object_print_class_member (char *valaddr, struct type *domain,
pascal_object_print_class_member (const bfd_byte *valaddr, struct type *domain,
struct ui_file *stream, char *prefix)
{