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

	* Fix PR pascal/2283
	p-valprint.c (pascal_val_print): correct current language check.
	Also print array of char as strings.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6db546a42ad4361ab4a0710614480705c96e3e74..50c6b354e421154ece62cf8ee75518aecfb121a8 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+2007-09-26  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * Fix PR pascal/2283
+       p-valprint.c (pascal_val_print): correct current language check.
+       Also print array of char as strings.
+
+
 2007-09-26  David Ung  <davidu@mips.com>
             Maciej W. Rozycki  <macro@mips.com>
 

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 0f40d6d2157749c2615ca2f2f5f5db7347ce9bea..2ebbaf8a3891c8d54fcc0c4bf8863ff4d0c32db1 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -87,7 +87,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
          /* For an array of chars, print with string syntax.  */
          if (eltlen == 1 
              && ((TYPE_CODE (elttype) == TYPE_CODE_INT)
-              || ((current_language->la_language == language_m2)
+              || ((current_language->la_language == language_pascal)
                   && (TYPE_CODE (elttype) == TYPE_CODE_CHAR)))
              && (format == 0 || format == 's'))
            {
@@ -170,7 +170,8 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
          /* For a pointer to char or unsigned char, also print the string
             pointed to, unless pointer is null.  */
          if (TYPE_LENGTH (elttype) == 1
-             && TYPE_CODE (elttype) == TYPE_CODE_INT
+             && (TYPE_CODE (elttype) == TYPE_CODE_INT
+                 || TYPE_CODE(elttype) == TYPE_CODE_CHAR)
              && (format == 0 || format == 's')
              && addr != 0)
            {