mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-07-31 05:44:41 +08:00
* ada-lang.c (ada_index_type): Make static. Add NAME argument.
Throw error on invalid input arguments. Return NULL if unable to determine index type. (ada_array_bound_from_type): Remove TYPEP argument. (ada_array_bound): Make static. Return LONGEST instead of value. Update for ada_array_bound_from_type change. (ada_array_length): Return LONGEST instead of value. Update for ada_array_bound_from_type change. (make_array_descriptor): Update for ada_array_bound change. (ada_evaluate_subexp) [OP_ATR_RANGE, OP_ATR_FIRST, OP_ATR_LAST, OP_ATR_LENGTH]: Update for ada_array_bound_from_type, ada_array_bound, ada_array_length, ada_index_type changes. Always use ada_index_type to compute result type; fall back to architecture-specific integer type if ada_index_type fails. * ada-lang.h (ada_index_type): Remove prototype. (ada_array_bound): Likewise.
This commit is contained in:
@ -284,10 +284,6 @@ extern int ada_is_array_descriptor_type (struct type *);
|
||||
|
||||
extern int ada_is_bogus_array_descriptor (struct type *);
|
||||
|
||||
extern struct type *ada_index_type (struct type *, int);
|
||||
|
||||
extern struct value *ada_array_bound (struct value *, int, int);
|
||||
|
||||
extern char *ada_decode_symbol (const struct general_symbol_info*);
|
||||
|
||||
extern const char *ada_decode (const char*);
|
||||
|
Reference in New Issue
Block a user