* p-lang.c (is_pascal_string_type): Avoid crashes on structures

	having fields without names.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index b5886dd..d440cb2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-14  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * p-lang.c (is_pascal_string_type): Avoid crashes on structures
+       having fields without names.
+
 2010-10-13  Tom Tromey  <tromey@redhat.com>
 
        * language.h (LA_PRINT_ARRAY_INDEX): Fix argument name.

diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 64d2e9f..232ce56 100644 (file)
--- a/gdb/p-lang.c
+++ b/gdb/p-lang.c
@@ -105,8 +105,10 @@ is_pascal_string_type (struct type *type,int *length_pos,
     {
       /* Old Borland type pascal strings from Free Pascal Compiler.  */
       /* Two fields: length and st.  */
-      if (TYPE_NFIELDS (type) == 2 
+      if (TYPE_NFIELDS (type) == 2
+         && TYPE_FIELDS (type) [0].name
           && strcmp (TYPE_FIELDS (type)[0].name, "length") == 0 
+         && TYPE_FIELDS (type) [1].name
           && strcmp (TYPE_FIELDS (type)[1].name, "st") == 0)
         {
           if (length_pos)
@@ -124,7 +126,9 @@ is_pascal_string_type (struct type *type,int *length_pos,
       /* GNU pascal strings.  */
       /* Three fields: Capacity, length and schema$ or _p_schema.  */
       if (TYPE_NFIELDS (type) == 3
+         && TYPE_FIELDS (type) [0].name
           && strcmp (TYPE_FIELDS (type)[0].name, "Capacity") == 0
+         && TYPE_FIELDS (type) [1].name
           && strcmp (TYPE_FIELDS (type)[1].name, "length") == 0)
         {
          if (length_pos)