From b610c04548a39dbce6d51c33d7a8125e59066939 Mon Sep 17 00:00:00 2001 From: Simon Marchi Date: Sun, 26 Sep 2021 16:36:15 -0400 Subject: gdb: remove TYPE_FIELD_BITPOS Remove TYPE_FIELD_BITPOS, replace its uses with type::field + field::loc_bitpos. Change-Id: Iccd8d5a77e5352843a837babaa6bd284162e0320 --- gdb/p-lang.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gdb/p-lang.c') 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) { -- cgit v1.1