aboutsummaryrefslogtreecommitdiff
path: root/gdb/f-lang.c
diff options
context:
space:
mode:
authorAndrew Cagney <cagney@redhat.com>2005-01-29 00:11:12 +0000
committerAndrew Cagney <cagney@redhat.com>2005-01-29 00:11:12 +0000
commitce27fb254cf9f800fb7f1a953eb8fa47522b9788 (patch)
tree12520f0b7edd8c6ab5c28f23c88c6fd7ccb0554a /gdb/f-lang.c
parent1a73b492f8dd36d2b0b3917acaf49d07de6fa581 (diff)
downloadfsf-binutils-gdb-ce27fb254cf9f800fb7f1a953eb8fa47522b9788.zip
fsf-binutils-gdb-ce27fb254cf9f800fb7f1a953eb8fa47522b9788.tar.gz
fsf-binutils-gdb-ce27fb254cf9f800fb7f1a953eb8fa47522b9788.tar.bz2
2005-01-28 Andrew Cagney <cagney@gnu.org>
* language.h (struct language_defn): Make la_printstr's buffer parameter a const bfd_byte. * p-lang.h (pascal_printstr): Update function to match. * ada-valprint.c (ada_printstr): Update function to match. * scm-lang.c (scm_printstr): Update function to match. * p-lang.c (pascal_printstr): Update function to match. * ada-lang.h (ada_printstr): Update function to match. * m2-lang.c (m2_printstr): Update function to match. * objc-lang.c (objc_printstr): Update function to match. * c-lang.h (c_printstr): Update function to match. * f-lang.c (f_printstr): Update function to match. * c-lang.c (c_printstr): Update function to match. * language.c (unk_lang_printstr): Update function to match.
Diffstat (limited to 'gdb/f-lang.c')
-rw-r--r--gdb/f-lang.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c
index e058dd4..811ac54 100644
--- a/gdb/f-lang.c
+++ b/gdb/f-lang.c
@@ -1,6 +1,8 @@
/* Fortran language support routines for GDB, the GNU debugger.
- Copyright 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004
- Free Software Foundation, Inc.
+
+ Copyright 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002,
+ 2003, 2004, 2005 Free Software Foundation, Inc.
+
Contributed by Motorola. Adapted from the C parser by Farooq Butt
(fmbutt@engage.sps.mot.com).
@@ -87,9 +89,6 @@ static void patch_common_entries (SAVED_F77_COMMON_PTR, CORE_ADDR, int);
#endif
static struct type *f_create_fundamental_type (struct objfile *, int);
-static void f_printstr (struct ui_file * stream, char *string,
- unsigned int length, int width,
- int force_ellipses);
static void f_printchar (int c, struct ui_file * stream);
static void f_emit_char (int c, struct ui_file * stream, int quoter);
@@ -161,8 +160,8 @@ f_printchar (int c, struct ui_file *stream)
be replaced with a true F77 version. */
static void
-f_printstr (struct ui_file *stream, char *string, unsigned int length,
- int width, int force_ellipses)
+f_printstr (struct ui_file *stream, const bfd_byte *string,
+ unsigned int length, int width, int force_ellipses)
{
unsigned int i;
unsigned int things_printed = 0;