diff options
Diffstat (limited to 'gdb/p-lang.c')
-rw-r--r-- | gdb/p-lang.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c index cac8fbe..b30b03b 100644 --- a/gdb/p-lang.c +++ b/gdb/p-lang.c @@ -102,11 +102,11 @@ pascal_is_string_type (struct type *type,int *length_pos, int *length_size, && strcmp (type->field (1).name (), "st") == 0) { if (length_pos) - *length_pos = TYPE_FIELD_BITPOS (type, 0) / TARGET_CHAR_BIT; + *length_pos = type->field (0).loc_bitpos () / TARGET_CHAR_BIT; if (length_size) *length_size = TYPE_LENGTH (type->field (0).type ()); if (string_pos) - *string_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT; + *string_pos = type->field (1).loc_bitpos () / TARGET_CHAR_BIT; if (char_type) *char_type = TYPE_TARGET_TYPE (type->field (1).type ()); if (arrayname) @@ -122,11 +122,11 @@ pascal_is_string_type (struct type *type,int *length_pos, int *length_size, && strcmp (type->field (1).name (), "length") == 0) { if (length_pos) - *length_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT; + *length_pos = type->field (1).loc_bitpos () / TARGET_CHAR_BIT; if (length_size) *length_size = TYPE_LENGTH (type->field (1).type ()); if (string_pos) - *string_pos = TYPE_FIELD_BITPOS (type, 2) / TARGET_CHAR_BIT; + *string_pos = type->field (2).loc_bitpos () / TARGET_CHAR_BIT; /* FIXME: how can I detect wide chars in GPC ?? */ if (char_type) { |