From b20a3440c9eb428a2e89efab2ec9fa1a39bd6a78 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Fri, 7 Sep 2007 12:34:55 +0000 Subject: [PATCH] 2007-09-07 Pierre Muller * p-valprint.c: Fix 7 ARI reported problems. (pascal_val_print): Fix one operator at end of line issue. Use paddress function to remove use of deprecated_print_address_numeric function (2 times). Use SYMBOL_LINKAGE_NAME instead of DEPRECATED_SYMBOL_NAME. (pascal_value_print): Fix 3 operator at end of line issues. --- gdb/ChangeLog | 9 +++++++++ gdb/p-valprint.c | 26 ++++++++++++-------------- 2 files changed, 21 insertions(+), 14 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 980c50e59c0..e3c9a81d9b5 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,12 @@ +2007-09-07 2007-09-07 Pierre Muller + + * p-valprint.c: Fix 7 ARI reported problems. + (pascal_val_print): Fix one operator at end of line issue. + Use paddress function to remove use of + deprecated_print_address_numeric function (2 times). + Use SYMBOL_LINKAGE_NAME instead of DEPRECATED_SYMBOL_NAME. + (pascal_value_print): Fix 3 operator at end of line issues. + 2007-09-07 Daniel Jacobowitz PR gdb/2103 diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index c2de75f5ea2..0f40d6d2157 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -85,8 +85,8 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, print_spaces_filtered (2 + 2 * recurse, stream); } /* For an array of chars, print with string syntax. */ - if (eltlen == 1 && - ((TYPE_CODE (elttype) == TYPE_CODE_INT) + if (eltlen == 1 + && ((TYPE_CODE (elttype) == TYPE_CODE_INT) || ((current_language->la_language == language_m2) && (TYPE_CODE (elttype) == TYPE_CODE_CHAR))) && (format == 0 || format == 's')) @@ -164,7 +164,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, if (addressprint && format != 's') { - deprecated_print_address_numeric (addr, 1, stream); + fputs_filtered (paddress (addr), stream); } /* For a pointer to char or unsigned char, also print the string @@ -217,7 +217,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, int is_this_fld; if (msymbol != NULL) - wsym = lookup_symbol (DEPRECATED_SYMBOL_NAME (msymbol), block, + wsym = lookup_symbol (SYMBOL_LINKAGE_NAME (msymbol), block, VAR_DOMAIN, &is_this_fld, NULL); if (wsym) @@ -252,11 +252,9 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, { fprintf_filtered (stream, "@"); /* Extract the address, assume that it is unsigned. */ - deprecated_print_address_numeric - (extract_unsigned_integer (valaddr + embedded_offset, - gdbarch_ptr_bit (current_gdbarch) - / HOST_CHAR_BIT), - 1, stream); + fputs_filtered (paddress ( + extract_unsigned_integer (valaddr + embedded_offset, + gdbarch_ptr_bit (current_gdbarch) / HOST_CHAR_BIT)), stream); if (deref_ref) fputs_filtered (": ", stream); } @@ -530,14 +528,14 @@ pascal_value_print (struct value *val, struct ui_file *stream, int format, Object pascal: if it is a member pointer, we will take care of that when we print it. */ - if (TYPE_CODE (type) == TYPE_CODE_PTR || - TYPE_CODE (type) == TYPE_CODE_REF) + if (TYPE_CODE (type) == TYPE_CODE_PTR + || TYPE_CODE (type) == TYPE_CODE_REF) { /* Hack: remove (char *) for char strings. Their type is indicated by the quoted string anyway. */ - if (TYPE_CODE (type) == TYPE_CODE_PTR && - TYPE_NAME (type) == NULL && - TYPE_NAME (TYPE_TARGET_TYPE (type)) != NULL + if (TYPE_CODE (type) == TYPE_CODE_PTR + && TYPE_NAME (type) == NULL + && TYPE_NAME (TYPE_TARGET_TYPE (type)) != NULL && strcmp (TYPE_NAME (TYPE_TARGET_TYPE (type)), "char") == 0) { /* Print nothing */ -- 2.30.2