diff options
| author | Pierre Muller <muller@sourceware.org> | 2010-10-15 15:42:51 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2010-10-15 15:42:51 +0000 |
| commit | dae714134c1f5195c20b392cfe1005cee9654b5f (patch) | |
| tree | a5877512fae6a84282c7db56b994c0cfbbfab147 /gdb | |
| parent | 0a72ddf55c73111bcf95dd2e42f01bee5863780b (diff) | |
| download | gdb-dae714134c1f5195c20b392cfe1005cee9654b5f.zip gdb-dae714134c1f5195c20b392cfe1005cee9654b5f.tar.gz gdb-dae714134c1f5195c20b392cfe1005cee9654b5f.tar.bz2 | |
* p-lang.c (is_pascal_string_type): Use TYPE_FIELD_NAME accessor.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/p-lang.c | 20 |
2 files changed, 14 insertions, 10 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f66c343..bcfe2b7 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -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> * gdbtypes.h: Create BASE_PTR_CONVERSION_BADNESS. diff --git a/gdb/p-lang.c b/gdb/p-lang.c index 232ce56..444fb66 100644 --- a/gdb/p-lang.c +++ b/gdb/p-lang.c @@ -106,10 +106,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 - && 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) + && TYPE_FIELD_NAME (type, 0) + && strcmp (TYPE_FIELD_NAME (type, 0), "length") == 0 + && TYPE_FIELD_NAME (type, 1) + && strcmp (TYPE_FIELD_NAME (type, 1), "st") == 0) { if (length_pos) *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) *char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 1)); if (arrayname) - *arrayname = TYPE_FIELDS (type)[1].name; + *arrayname = TYPE_FIELD_NAME (type, 1); return 2; }; /* 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) + && TYPE_FIELD_NAME (type, 0) + && strcmp (TYPE_FIELD_NAME (type, 0), "Capacity") == 0 + && TYPE_FIELD_NAME (type, 1) + && strcmp (TYPE_FIELD_NAME (type, 1), "length") == 0) { if (length_pos) *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); } if (arrayname) - *arrayname = TYPE_FIELDS (type)[2].name; + *arrayname = TYPE_FIELD_NAME (type, 2); return 3; }; } |