FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* p-lang.c (is_pascal_string_type): Use TYPE_FIELD_NAME accessor.

Browse source
This commit is contained in:
Pierre Muller 2010-10-15 15:42:51 +00:00
parent 0a72ddf55c
commit dae714134c
2 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
gdb/ChangeLog
View file

@ -1,3 +1,7 @@
2010-10-15 Pierre Muller <muller@ics.u-strasbg.fr>
* p-lang.c (is_pascal_string_type): Use TYPE_FIELD_NAME accessor.
2010-10-14 Sami Wagiaalla <swagiaal@redhat.com> 2010-10-14 Sami Wagiaalla <swagiaal@redhat.com>
* gdbtypes.h: Create BASE_PTR_CONVERSION_BADNESS. * gdbtypes.h: Create BASE_PTR_CONVERSION_BADNESS.

20
gdb/p-lang.c
View file

@ -106,10 +106,10 @@ is_pascal_string_type (struct type *type,int *length_pos,
/* Old Borland type pascal strings from Free Pascal Compiler. */ /* Old Borland type pascal strings from Free Pascal Compiler. */
/* Two fields: length and st. */ /* Two fields: length and st. */
if (TYPE_NFIELDS (type) == 2 if (TYPE_NFIELDS (type) == 2
&& TYPE_FIELDS (type) [0].name && TYPE_FIELD_NAME (type, 0)
&& strcmp (TYPE_FIELDS (type)[0].name, "length") == 0 && strcmp (TYPE_FIELD_NAME (type, 0), "length") == 0
&& TYPE_FIELDS (type) [1].name && TYPE_FIELD_NAME (type, 1)
&& strcmp (TYPE_FIELDS (type)[1].name, "st") == 0) && strcmp (TYPE_FIELD_NAME (type, 1), "st") == 0)
{ {
if (length_pos) if (length_pos)
*length_pos = TYPE_FIELD_BITPOS (type, 0) / TARGET_CHAR_BIT; *length_pos = TYPE_FIELD_BITPOS (type, 0) / TARGET_CHAR_BIT;
@ -120,16 +120,16 @@ is_pascal_string_type (struct type *type,int *length_pos,
if (char_type) if (char_type)
*char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1)); *char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1));
if (arrayname) if (arrayname)
*arrayname = TYPE_FIELDS (type)[1].name; *arrayname = TYPE_FIELD_NAME (type, 1);
return 2; return 2;
}; };
/* GNU pascal strings. */ /* GNU pascal strings. */
/* Three fields: Capacity, length and schema$ or _p_schema. */ /* Three fields: Capacity, length and schema$ or _p_schema. */
if (TYPE_NFIELDS (type) == 3 if (TYPE_NFIELDS (type) == 3
&& TYPE_FIELDS (type) [0].name && TYPE_FIELD_NAME (type, 0)
&& strcmp (TYPE_FIELDS (type)[0].name, "Capacity") == 0 && strcmp (TYPE_FIELD_NAME (type, 0), "Capacity") == 0
&& TYPE_FIELDS (type) [1].name && TYPE_FIELD_NAME (type, 1)
&& strcmp (TYPE_FIELDS (type)[1].name, "length") == 0) && strcmp (TYPE_FIELD_NAME (type, 1), "length") == 0)
{ {
if (length_pos) if (length_pos)
*length_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT; *length_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
@ -146,7 +146,7 @@ is_pascal_string_type (struct type *type,int *length_pos,
*char_type = TYPE_TARGET_TYPE (*char_type); *char_type = TYPE_TARGET_TYPE (*char_type);
} }
if (arrayname) if (arrayname)
*arrayname = TYPE_FIELDS (type)[2].name; *arrayname = TYPE_FIELD_NAME (type, 2);
return 3; return 3;
}; };
} }