From: Pierre Muller <muller@sourceware.org>
Date: Fri, 7 Sep 2007 12:34:55 +0000 (+0000)
Subject: 2007-09-07  Pierre Muller  <muller@ics.u-strasbg.fr>
X-Git-Tag: gdb_6_7-2007-09-07-branchpoint~1
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b20a3440c9eb428a2e89efab2ec9fa1a39bd6a78;p=external%2Fbinutils.git

2007-09-07  Pierre Muller  <muller@ics.u-strasbg.fr>

	 * 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.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 980c50e..e3c9a81 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+2007-09-07  2007-09-07  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+	 * 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  <dan@codesourcery.com>
 
 	PR gdb/2103
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index c2de75f..0f40d6d 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 */