diff options
Diffstat (limited to 'gdb/ada-tasks.c')
| -rw-r--r-- | gdb/ada-tasks.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c index a3a2806..979d64a 100644 --- a/gdb/ada-tasks.c +++ b/gdb/ada-tasks.c @@ -457,7 +457,7 @@ read_fat_string_value (char *dest, struct value *val, int max_len) to extract the string from the fat string. */ if (initialize_fieldnos) { - struct type *type = value_type (val); + struct type *type = val->type (); struct type *bounds_type; array_fieldno = ada_get_field_index (type, "P_ARRAY", 0); @@ -784,7 +784,7 @@ read_atcb (CORE_ADDR task_id, struct ada_task_info *task_info) value_subscript (entry_calls_value, value_as_long (atc_nesting_level_value)); called_task_fieldno = - ada_get_field_index (value_type (entry_calls_value_element), + ada_get_field_index (entry_calls_value_element->type (), "called_task", 0); task_info->called_task = value_as_address (value_field (entry_calls_value_element, |