From 1eea4ebd855b3d6f695e08a61c79232bfc1c0111 Mon Sep 17 00:00:00 2001 From: Ulrich Weigand Date: Mon, 29 Jun 2009 17:22:10 +0000 Subject: * 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. --- gdb/ada-lang.h | 4 ---- 1 file changed, 4 deletions(-) (limited to 'gdb/ada-lang.h') 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*); -- cgit v1.1