next call. */
static char*
-demangled_type_name (type)
- struct type *type;
+demangled_type_name (struct type *type)
{
if (ada_type_name (type) == NULL)
return NULL;
NEW is the new name for a type TYPE. */
void
-ada_typedef_print (type, new, stream)
- struct type *type;
- struct symbol *new;
- struct ui_file *stream;
+ada_typedef_print (struct type *type, struct symbol *new, struct ui_file *stream)
{
fprintf_filtered (stream, "type %.*s is ",
ada_name_prefix_len (SYMBOL_SOURCE_NAME(new)),
/* Print range type TYPE on STREAM. */
static void
-print_range (type, stream)
- struct type* type;
- struct ui_file* stream;
+print_range (struct type* type, struct ui_file* stream)
{
struct type* target_type;
target_type = TYPE_TARGET_TYPE (type);
set *N past the bound and its delimiter, if any. */
static void
-print_range_bound (type, bounds, n, stream)
- struct type* type;
- char* bounds;
- int* n;
- struct ui_file* stream;
+print_range_bound (struct type* type, char* bounds, int* n, struct ui_file* stream)
{
LONGEST B;
if (ada_scan_number (bounds, *n, &B, n))
"___U") according to the ___XD conventions. */
static void
-print_dynamic_range_bound (type, name, name_len, suffix, stream)
- struct type* type;
- const char* name;
- int name_len;
- const char* suffix;
- struct ui_file* stream;
+print_dynamic_range_bound (struct type* type, const char* name, int name_len, const char* suffix, struct ui_file* stream)
{
static char *name_buf = NULL;
static size_t name_buf_len = 0;
/* Print the range type named NAME. */
static void
-print_range_type_named (name, stream)
- char* name;
- struct ui_file* stream;
+print_range_type_named (char* name, struct ui_file* stream)
{
struct type *raw_type = ada_find_any_type (name);
struct type *base_type;
/* Print enumerated type TYPE on STREAM. */
static void
-print_enum_type (type, stream)
- struct type *type;
- struct ui_file *stream;
+print_enum_type (struct type *type, struct ui_file *stream)
{
int len = TYPE_NFIELDS (type);
int i, lastval;
/* Print representation of Ada fixed-point type TYPE on STREAM. */
static void
-print_fixed_point_type (type, stream)
- struct type *type;
- struct ui_file *stream;
+print_fixed_point_type (struct type *type, struct ui_file *stream)
{
DOUBLEST delta = ada_delta (type);
DOUBLEST small = ada_fixed_to_float (type, 1.0);
/* Print representation of special VAX floating-point type TYPE on STREAM. */
static void
-print_vax_floating_point_type (type, stream)
- struct type *type;
- struct ui_file *stream;
+print_vax_floating_point_type (struct type *type, struct ui_file *stream)
{
fprintf_filtered (stream, "<float format %c>",
ada_vax_float_type_suffix (type));
structure to show (see ada_print_type). */
static void
-print_array_type (type, stream, show, level)
- struct type *type;
- struct ui_file *stream;
- int show;
- int level;
+print_array_type (struct type *type, struct ui_file *stream, int show, int level)
{
int bitsize;
int n_indices;
STREAM, assuming the VAL_TYPE is the type of the values. */
static void
-print_choices (type, field_num, stream, val_type)
- struct type *type;
- int field_num;
- struct ui_file *stream;
- struct type *val_type;
+print_choices (struct type *type, int field_num, struct ui_file *stream, struct type *val_type)
{
int have_output;
int p;
immediately outside the variant part. */
static void
-print_variant_clauses (type, field_num, outer_type, stream, show, level)
- struct type *type;
- int field_num;
- struct type *outer_type;
- struct ui_file *stream;
- int show;
- int level;
+print_variant_clauses (struct type *type, int field_num,
+ struct type *outer_type, struct ui_file *stream,
+ int show, int level)
{
int i;
struct type *var_type;
level as the fields immediately outside the variant part. */
static void
-print_variant_part (type, field_num, outer_type, stream, show, level)
- struct type *type;
- int field_num;
- struct type *outer_type;
- struct ui_file *stream;
- int show;
- int level;
+print_variant_part (struct type *type, int field_num, struct type *outer_type,
+ struct ui_file *stream, int show, int level)
{
fprintf_filtered (stream, "\n%*scase %s is", level + 4, "",
ada_variant_discrim_name
end. */
static int
-print_record_field_types (type, outer_type, stream, show, level)
- struct type *type;
- struct type *outer_type;
- struct ui_file *stream;
- int show;
- int level;
+print_record_field_types (struct type *type, struct type *outer_type,
+ struct ui_file *stream, int show, int level)
{
int len, i, flds;
the number of levels of internal structure to show (see ada_print_type). */
static void
-print_record_type (type0, stream, show, level)
- struct type* type0;
- struct ui_file* stream;
- int show;
- int level;
+print_record_type (struct type* type0, struct ui_file* stream, int show, int level)
{
struct type* parent_type;
struct type* type;
for function or procedure NAME if NAME is not null. */
static void
-print_func_type (type, stream, name)
- struct type *type;
- struct ui_file *stream;
- char* name;
+print_func_type (struct type *type, struct ui_file *stream, char* name)
{
int i, len = TYPE_NFIELDS (type);
LEVEL indicates level of recursion (for nested definitions). */
void
-ada_print_type (type0, varstring, stream, show, level)
- struct type* type0;
- char* varstring;
- struct ui_file* stream;
- int show;
- int level;
+ada_print_type (struct type* type0, char* varstring, struct ui_file* stream,
+ int show, int level)
{
enum type_code code;
int demangled_args;
otherwise 0. */
static int
-print_optional_low_bound (stream, type)
- struct ui_file *stream;
- struct type *type;
+print_optional_low_bound (struct ui_file *stream, struct type *type)
{
struct type *index_type;
long low_bound;
by ada_coerce_to_simple_array). */
static void
-val_print_packed_array_elements (type, valaddr, bitoffset, stream, format,
- recurse, pretty)
- struct type *type;
- char *valaddr;
- int bitoffset;
- struct ui_file *stream;
- int format;
- int recurse;
- enum val_prettyprint pretty;
+val_print_packed_array_elements (struct type *type, char *valaddr,
+ int bitoffset, struct ui_file *stream,
+ int format, int recurse,
+ enum val_prettyprint pretty)
{
unsigned int i;
unsigned int things_printed = 0;
}
static struct type*
-printable_val_type (type, valaddr)
- struct type* type;
- char* valaddr;
+printable_val_type (struct type* type, char* valaddr)
{
return ada_to_fixed_type (ada_aligned_type (type), valaddr, 0, NULL);
}
(1 or 2) of the character. */
void
-ada_emit_char (c, stream, quoter, type_len)
- int c;
- struct ui_file *stream;
- int quoter;
- int type_len;
+ada_emit_char (int c, struct ui_file *stream, int quoter, int type_len)
{
if (type_len != 2)
type_len = 1;
or 2) of a character. */
static int
-char_at (string, i, type_len)
- char* string;
- int i;
- int type_len;
+char_at (char* string, int i, int type_len)
{
if (type_len == 1)
return string[i];
}
void
-ada_printchar (c, stream)
- int c;
- struct ui_file *stream;
+ada_printchar (int c, struct ui_file *stream)
{
fputs_filtered ("'", stream);
ada_emit_char (c, stream, '\'', 1);
form appropriate for TYPE. */
void
-ada_print_scalar (type, val, stream)
- struct type *type;
- LONGEST val;
- struct ui_file *stream;
+ada_print_scalar (struct type *type, LONGEST val, struct ui_file *stream)
{
unsigned int i;
unsigned len;
*/
static void
-printstr (stream, string, length, force_ellipses, type_len)
- struct ui_file *stream;
- char *string;
- unsigned int length;
- int force_ellipses;
- int type_len;
+printstr (struct ui_file *stream, char *string, unsigned int length,
+ int force_ellipses, int type_len)
{
unsigned int i;
unsigned int things_printed = 0;
}
void
-ada_printstr (stream, string, length, force_ellipses, width)
- struct ui_file *stream;
- char *string;
- unsigned int length;
- int force_ellipses;
- int width;
+ada_printstr (struct ui_file *stream, char *string, unsigned int length,
+ int force_ellipses, int width)
{
printstr (stream, string, length, force_ellipses, width);
}
arrays.) */
int
-ada_val_print (type, valaddr0, embedded_offset, address, stream,
- format, deref_ref, recurse, pretty)
- struct type* type;
- char* valaddr0;
- int embedded_offset;
- CORE_ADDR address;
- struct ui_file *stream;
- int format;
- int deref_ref;
- int recurse;
- enum val_prettyprint pretty;
+ada_val_print (struct type* type, char* valaddr0, int embedded_offset,
+ CORE_ADDR address, struct ui_file *stream, int format,
+ int deref_ref, int recurse, enum val_prettyprint pretty)
{
struct ada_val_print_args args;
args.type = type; args.valaddr0 = valaddr0;
* does not catch evaluation errors (leaving that to ada_val_print). */
static int
-ada_val_print_1 (type, valaddr0, embedded_offset, address, stream,
- format, deref_ref, recurse, pretty)
- struct type* type;
- char* valaddr0;
- int embedded_offset;
- CORE_ADDR address;
- struct ui_file *stream;
- int format;
- int deref_ref;
- int recurse;
- enum val_prettyprint pretty;
+ada_val_print_1 (struct type* type, char* valaddr0, int embedded_offset,
+ CORE_ADDR address, struct ui_file *stream, int format,
+ int deref_ref, int recurse, enum val_prettyprint pretty)
{
unsigned int len;
int i;
}
static int
-print_variant_part (type, field_num, valaddr,
- stream, format, recurse, pretty, comma_needed,
- outer_type, outer_valaddr)
- struct type *type;
- int field_num;
- char *valaddr;
- struct ui_file *stream;
- int format;
- int recurse;
- enum val_prettyprint pretty;
- int comma_needed;
- struct type *outer_type;
- char *outer_valaddr;
+print_variant_part (struct type *type, int field_num, char *valaddr,
+ struct ui_file *stream, int format, int recurse,
+ enum val_prettyprint pretty, int comma_needed,
+ struct type *outer_type, char *outer_valaddr)
{
struct type *var_type = TYPE_FIELD_TYPE (type, field_num);
int which =
}
int
-ada_value_print (val0, stream, format, pretty)
- struct value* val0;
- struct ui_file *stream;
- int format;
- enum val_prettyprint pretty;
+ada_value_print (struct value* val0, struct ui_file *stream, int format,
+ enum val_prettyprint pretty)
{
char* valaddr = VALUE_CONTENTS (val0);
CORE_ADDR address = VALUE_ADDRESS (val0) + VALUE_OFFSET (val0);
}
static void
-print_record (type, valaddr, stream, format, recurse, pretty)
- struct type *type;
- char *valaddr;
- struct ui_file *stream;
- int format;
- int recurse;
- enum val_prettyprint pretty;
+print_record (struct type *type, char *valaddr, struct ui_file *stream,
+ int format, int recurse, enum val_prettyprint pretty)
{
CHECK_TYPEDEF (type);
Returns 1 if COMMA_NEEDED or any fields were printed. */
static int
-print_field_values (type, valaddr, stream, format, recurse, pretty,
- comma_needed, outer_type, outer_valaddr)
- struct type *type;
- char *valaddr;
- struct ui_file *stream;
- int format;
- int recurse;
- enum val_prettyprint pretty;
- int comma_needed;
- struct type *outer_type;
- char *outer_valaddr;
+print_field_values (struct type *type, char *valaddr, struct ui_file *stream,
+ int format, int recurse, enum val_prettyprint pretty,
+ int comma_needed, struct type *outer_type,
+ char *outer_valaddr)
{
int i, len;