51 #define F77_DIM_SIZE(n) (f77_array_offset_tbl[n][1])
55 #define F77_DIM_OFFSET(n) (f77_array_offset_tbl[n][0])
61 error (
_(
"Lower bound may not be '*' in F77"));
110 (upper_bound - lower_bound + 1)
120 struct type *tmp_type;
162 struct ui_file *stream,
int recurse,
163 const struct value *val,
169 if (nss != ndimensions)
180 stream, recurse, val, options, elts);
194 address, stream, recurse,
215 const struct value *val,
225 Type node corrupt! F77 arrays cannot have %d subscripts (%d Max)"),
235 address, stream, recurse, val, options, &elts);
257 const struct value *original_value,
263 struct type *elttype;
273 valaddr + embedded_offset,
282 address, stream, recurse, original_value, options);
291 valaddr + embedded_offset,
301 original_value, options, 0, stream);
351 original_value, &opts, 0, stream);
381 embedded_offset + offset,
382 address, stream, recurse + 1,
384 if (index != TYPE_NFIELDS (type) - 1)
403 stream, recurse, original_value, options,
443 for (index = 0; index < common->
n_entries; index++)
445 struct value *val = NULL;
476 int values_printed = 0;
518 _(
"Print out the values contained in a Fortran COMMON block."));
void generic_val_print(struct type *type, const gdb_byte *valaddr, int embedded_offset, CORE_ADDR address, struct ui_file *stream, int recurse, const struct value *original_value, const struct value_print_options *options, const struct generic_val_print_decorations *decorations)
void val_print_scalar_formatted(struct type *type, const gdb_byte *valaddr, int embedded_offset, const struct value *val, const struct value_print_options *options, int size, struct ui_file *stream)
int f77_get_upperbound(struct type *type)
struct frame_info * get_selected_frame(const char *message)
#define SYMBOL_PRINT_NAME(symbol)
void value_print(struct value *val, struct ui_file *stream, const struct value_print_options *options)
#define F77_DIM_OFFSET(n)
CORE_ADDR unpack_pointer(struct type *type, const gdb_byte *valaddr)
int calc_f77_array_dims(struct type *array_type)
struct ui_file * gdb_stdout
#define SYMBOL_CLASS(symbol)
void val_print_type_code_int(struct type *type, const gdb_byte *valaddr, struct ui_file *stream)
#define SYMBOL_VALUE_COMMON_BLOCK(symbol)
#define TYPE_FIELD_TYPE(thistype, n)
void printf_filtered(const char *format,...)
const char * paddress(struct gdbarch *gdbarch, CORE_ADDR addr)
static void f77_create_arrayprint_offset_tbl(struct type *, struct ui_file *)
#define BLOCK_FUNCTION(bl)
struct type * check_typedef(struct type *type)
struct symbol * contents[1]
#define CATCH(EXCEPTION, MASK)
#define TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED(arraytype)
#define SYMBOL_DOMAIN(symbol)
void fprintf_filtered(struct ui_file *stream, const char *format,...)
const struct block * get_frame_block(struct frame_info *frame, CORE_ADDR *addr_in_block)
void fputs_filtered(const char *linebuffer, struct ui_file *stream)
enum bfd_endian gdbarch_byte_order(struct gdbarch *gdbarch)
int f77_get_lowerbound(struct type *type)
#define BLOCK_SUPERBLOCK(bl)
struct gdbarch * get_type_arch(const struct type *type)
struct cmd_list_element * add_info(const char *name, cmd_cfunc_ftype *fun, const char *doc)
#define SYMBOL_LINKAGE_NAME(symbol)
int f77_array_offset_tbl[MAX_FORTRAN_DIMS+1][2]
int putchar_filtered(int c)
#define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype)
LONGEST unpack_long(struct type *type, const gdb_byte *valaddr)
#define TYPE_FIELD_BITPOS(thistype, n)
static void f77_get_dynamic_length_of_aggregate(struct type *)
void _initialize_f_valprint(void)
const struct language_defn * current_language
#define TYPE_TARGET_TYPE(thistype)
#define TYPE_CODE(thistype)
struct value * value_of_variable(struct symbol *var, const struct block *b)
void get_user_print_options(struct value_print_options *opts)
#define TYPE_NFIELDS(thistype)
static void info_common_command(char *, int)
int print_address_demangle(const struct value_print_options *opts, struct gdbarch *gdbarch, CORE_ADDR addr, struct ui_file *stream, int do_demangle)
#define CHECK_TYPEDEF(TYPE)
static void info_common_command_for_block(const struct block *block, const char *comname, int *any_printed)
#define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype)
static void f77_print_array(struct type *type, const gdb_byte *valaddr, int embedded_offset, CORE_ADDR address, struct ui_file *stream, int recurse, const struct value *val, const struct value_print_options *options)
#define LA_PRINT_STRING(stream, elttype, string, length, encoding, force_ellipses, options)
#define TYPE_LENGTH(thistype)
int val_print_string(struct type *elttype, const char *encoding, CORE_ADDR addr, int len, struct ui_file *stream, const struct value_print_options *options)
#define LA_PRINT_CHAR(ch, type, stream)
void print_function_pointer_address(const struct value_print_options *options, struct gdbarch *gdbarch, CORE_ADDR address, struct ui_file *stream)
void gdb_flush(struct ui_file *file)
static void f77_print_array_1(int nss, int ndimensions, struct type *type, const gdb_byte *valaddr, int embedded_offset, CORE_ADDR address, struct ui_file *stream, int recurse, const struct value *val, const struct value_print_options *options, int *elts)
enum bfd_endian byte_order
#define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype)
void f_val_print(struct type *type, const gdb_byte *valaddr, int embedded_offset, CORE_ADDR address, struct ui_file *stream, int recurse, const struct value *original_value, const struct value_print_options *options)
void val_print(struct type *type, const gdb_byte *valaddr, int embedded_offset, CORE_ADDR address, struct ui_file *stream, int recurse, const struct value *val, const struct value_print_options *options, const struct language_defn *language)
void error(const char *fmt,...)
#define ALL_BLOCK_SYMBOLS(block, iter, sym)