diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2009-06-29 17:22:10 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@de.ibm.com> | 2009-06-29 17:22:10 +0000 |
| commit | 1eea4ebd855b3d6f695e08a61c79232bfc1c0111 (patch) | |
| tree | c722d046c231c9132a85532d0e9ef25943855bd4 /gdb/ada-lang.h | |
| parent | 578933abf5476345a73c1f6348ec1438baa1eaa8 (diff) | |
| download | gdb-1eea4ebd855b3d6f695e08a61c79232bfc1c0111.zip gdb-1eea4ebd855b3d6f695e08a61c79232bfc1c0111.tar.gz gdb-1eea4ebd855b3d6f695e08a61c79232bfc1c0111.tar.bz2 | |
* 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.
Diffstat (limited to 'gdb/ada-lang.h')
| -rw-r--r-- | gdb/ada-lang.h | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h index 91c789f..eebe062 100644 --- a/gdb/ada-lang.h +++ b/gdb/ada-lang.h @@ -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*); |