/* Definitions for values of C expressions, for GDB.
- Copyright 1986, 1987, 1989, 1992 Free Software Foundation, Inc.
+ Copyright 1986, 1987, 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
This file is part of GDB.
/* Type of value; either not an lval, or one of the various
different possible kinds of lval. */
enum lval_type lval;
+ /* Is it modifiable? Only relevant if lval != not_lval. */
+ int modifiable;
/* Location of value (if lval). */
union
{
/* Address in inferior or byte of registers structure. */
CORE_ADDR address;
- /* Pointer to interrnal variable. */
+ /* Pointer to internal variable. */
struct internalvar *internalvar;
/* Number of register. Only used with
lval_reg_frame_relative. */
int offset;
/* Only used for bitfields; number of bits contained in them. */
int bitsize;
- /* Only used for bitfields; position of start of field. */
+ /* Only used for bitfields; position of start of field.
+ For BITS_BIG_ENDIAN=0 targets, it is the position of the LSB.
+ For BITS_BIG_ENDIAN=1 targets, it is the position of the MSB. */
int bitpos;
/* Frame value is relative to. In practice, this address is only
used if the value is stored in several registers in other than
variables or put into the value history are taken off this
list. */
struct value *next;
+
+ /* ??? When is this used? */
+ union {
+ CORE_ADDR memaddr;
+ char *myaddr;
+ } substring_addr;
+
/* If an lval is forced to repeat, a new value is created with
these fields set. The new value is not an lval. */
short repeated;
union {
long contents[1];
double force_double_align;
-#ifdef LONG_LONG
- long long force_longlong_align;
-#endif
+ LONGEST force_longlong_align;
+ char *literal_data;
} aligner;
};
-typedef struct value *value;
+typedef struct value *value_ptr;
#define VALUE_TYPE(val) (val)->type
#define VALUE_LAZY(val) (val)->lazy
#define VALUE_CONTENTS_RAW(val) ((char *) (val)->aligner.contents)
#define VALUE_CONTENTS(val) ((void)(VALUE_LAZY(val) && value_fetch_lazy(val)),\
VALUE_CONTENTS_RAW(val))
-extern int
-value_fetch_lazy PARAMS ((value val));
+extern int value_fetch_lazy PARAMS ((value_ptr val));
#define VALUE_LVAL(val) (val)->lval
#define VALUE_ADDRESS(val) (val)->location.address
#define COERCE_ARRAY(arg) \
{ COERCE_REF(arg); \
- if (VALUE_REPEATED (arg) \
- || TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ARRAY) \
+ if (current_language->c_style_arrays \
+ && (VALUE_REPEATED (arg) \
+ || TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ARRAY)) \
arg = value_coerce_array (arg); \
if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_FUNC) \
arg = value_coerce_function (arg); \
arg = value_cast (builtin_type_unsigned_int, arg); \
}
+#define COERCE_VARYING_ARRAY(arg) \
+{ if (chill_varying_type (VALUE_TYPE (arg))) arg = varying_to_slice (arg); }
+
/* If ARG is an enum, convert it to an integer. */
#define COERCE_ENUM(arg) \
-{ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_REF) \
- arg = value_ind (arg); \
+{ COERCE_REF (arg); \
if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ENUM) \
arg = value_cast (builtin_type_unsigned_int, arg); \
}
{
struct internalvar *next;
char *name;
- value value;
+ value_ptr value;
};
+/* Pointer to member function. Depends on compiler implementation. */
+
+#define METHOD_PTR_IS_VIRTUAL(ADDR) ((ADDR) & 0x80000000)
+#define METHOD_PTR_FROM_VOFFSET(OFFSET) (0x80000000 + (OFFSET))
+#define METHOD_PTR_TO_VOFFSET(ADDR) (~0x80000000 & (ADDR))
+
\f
#include "symtab.h"
#include "gdbtypes.h"
#ifdef __STDC__
struct frame_info;
+struct fn_field;
#endif
extern void
-print_address_demangle PARAMS ((CORE_ADDR, FILE *, int));
+print_address_demangle PARAMS ((CORE_ADDR, GDB_FILE *, int));
-extern LONGEST
-value_as_long PARAMS ((value val));
+extern LONGEST value_as_long PARAMS ((value_ptr val));
-extern double
-value_as_double PARAMS ((value val));
+extern double value_as_double PARAMS ((value_ptr val));
-extern CORE_ADDR
-value_as_pointer PARAMS ((value val));
+extern CORE_ADDR value_as_pointer PARAMS ((value_ptr val));
-extern LONGEST
-unpack_long PARAMS ((struct type *type, char *valaddr));
+extern LONGEST unpack_long PARAMS ((struct type *type, char *valaddr));
-extern double
-unpack_double PARAMS ((struct type *type, char *valaddr, int *invp));
+extern double unpack_double PARAMS ((struct type *type, char *valaddr,
+ int *invp));
-extern CORE_ADDR
-unpack_pointer PARAMS ((struct type *type, char *valaddr));
+extern CORE_ADDR unpack_pointer PARAMS ((struct type *type, char *valaddr));
-extern long
-unpack_field_as_long PARAMS ((struct type *type, char *valaddr,
- int fieldno));
+extern LONGEST unpack_field_as_long PARAMS ((struct type *type, char *valaddr,
+ int fieldno));
-extern value
-value_from_longest PARAMS ((struct type *type, LONGEST num));
+extern value_ptr value_from_longest PARAMS ((struct type *type, LONGEST num));
-extern value
-value_from_double PARAMS ((struct type *type, double num));
+extern value_ptr value_from_double PARAMS ((struct type *type, double num));
-extern value
-value_at PARAMS ((struct type *type, CORE_ADDR addr));
+extern value_ptr value_at PARAMS ((struct type *type, CORE_ADDR addr));
-extern value
-value_at_lazy PARAMS ((struct type *type, CORE_ADDR addr));
+extern value_ptr value_at_lazy PARAMS ((struct type *type, CORE_ADDR addr));
-/* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */
-extern value
-value_from_register PARAMS ((struct type *type, int regnum,
- struct frame_info * frame));
+extern value_ptr value_from_register PARAMS ((struct type *type, int regnum,
+ struct frame_info * frame));
-extern value
-value_of_variable PARAMS ((struct symbol *var));
+extern value_ptr value_of_variable PARAMS ((struct symbol *var,
+ struct block *b));
-extern value
-value_of_register PARAMS ((int regnum));
+extern value_ptr value_of_register PARAMS ((int regnum));
-/* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */
-extern value
-read_var_value PARAMS ((struct symbol *var, struct frame_info *frame));
+extern int symbol_read_needs_frame PARAMS ((struct symbol *));
-/* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */
-extern value
-locate_var_value PARAMS ((struct symbol *var, struct frame_info *frame));
+extern value_ptr read_var_value PARAMS ((struct symbol *var,
+ struct frame_info *frame));
-extern value
-allocate_value PARAMS ((struct type *type));
+extern value_ptr locate_var_value PARAMS ((struct symbol *var,
+ struct frame_info *frame));
-extern value
-allocate_repeat_value PARAMS ((struct type *type, int count));
+extern value_ptr allocate_value PARAMS ((struct type *type));
-extern value
-value_mark PARAMS ((void));
+extern value_ptr allocate_repeat_value PARAMS ((struct type *type, int count));
-extern void
-value_free_to_mark PARAMS ((value mark));
+extern value_ptr value_mark PARAMS ((void));
-extern value
-value_string PARAMS ((char *ptr, int len));
+extern void value_free_to_mark PARAMS ((value_ptr mark));
-extern value
-value_binop PARAMS ((value arg1, value arg2, enum exp_opcode op));
+extern value_ptr value_string PARAMS ((char *ptr, int len));
+extern value_ptr value_bitstring PARAMS ((char *ptr, int len));
-extern value
-value_add PARAMS ((value arg1, value arg2));
+extern value_ptr value_array PARAMS ((int lowbound, int highbound,
+ value_ptr *elemvec));
-extern value
-value_sub PARAMS ((value arg1, value arg2));
+extern value_ptr value_concat PARAMS ((value_ptr arg1, value_ptr arg2));
-extern value
-value_coerce_array PARAMS ((value arg1));
+extern value_ptr value_binop PARAMS ((value_ptr arg1, value_ptr arg2,
+ enum exp_opcode op));
-extern value
-value_coerce_function PARAMS ((value arg1));
+extern value_ptr value_add PARAMS ((value_ptr arg1, value_ptr arg2));
-extern value
-value_ind PARAMS ((value arg1));
+extern value_ptr value_sub PARAMS ((value_ptr arg1, value_ptr arg2));
-extern value
-value_addr PARAMS ((value arg1));
+extern value_ptr value_coerce_array PARAMS ((value_ptr arg1));
-extern value
-value_assign PARAMS ((value toval, value fromval));
+extern value_ptr value_coerce_function PARAMS ((value_ptr arg1));
-extern value
-value_neg PARAMS ((value arg1));
+extern value_ptr value_ind PARAMS ((value_ptr arg1));
-extern value
-value_lognot PARAMS ((value arg1));
+extern value_ptr value_addr PARAMS ((value_ptr arg1));
-extern value
-value_struct_elt PARAMS ((value *argp, value *args, char *name,
- int *static_memfuncp, char *err));
+extern value_ptr value_assign PARAMS ((value_ptr toval, value_ptr fromval));
-extern value
-value_struct_elt_for_reference PARAMS ((struct type *domain,
- struct type *curtype,
- char *name,
- struct type *intype));
+extern value_ptr value_neg PARAMS ((value_ptr arg1));
-extern value
-value_field PARAMS ((value arg1, int fieldno));
+extern value_ptr value_complement PARAMS ((value_ptr arg1));
-extern value
-value_primitive_field PARAMS ((value arg1, int offset, int fieldno,
- struct type *arg_type));
+extern value_ptr value_struct_elt PARAMS ((value_ptr *argp, value_ptr *args,
+ char *name,
+ int *static_memfuncp, char *err));
-extern value
-value_cast PARAMS ((struct type *type, value arg2));
+extern value_ptr value_struct_elt_for_reference PARAMS ((struct type *domain,
+ int offset,
+ struct type *curtype,
+ char *name,
+ struct type *intype));
-extern value
-value_zero PARAMS ((struct type *type, enum lval_type lv));
+extern value_ptr value_field PARAMS ((value_ptr arg1, int fieldno));
-extern value
-value_repeat PARAMS ((value arg1, int count));
+extern value_ptr value_primitive_field PARAMS ((value_ptr arg1, int offset,
+ int fieldno,
+ struct type *arg_type));
-extern value
-value_subscript PARAMS ((value array, value idx));
+extern value_ptr value_cast PARAMS ((struct type *type, value_ptr arg2));
-extern value
-value_from_vtable_info PARAMS ((value arg, struct type *type));
+extern value_ptr value_zero PARAMS ((struct type *type, enum lval_type lv));
-extern value
-value_being_returned PARAMS ((struct type *valtype,
- char retbuf[REGISTER_BYTES],
- int struct_return));
+extern value_ptr value_repeat PARAMS ((value_ptr arg1, int count));
-extern int
-using_struct_return PARAMS ((value function, CORE_ADDR funcaddr,
- struct type *value_type, int gcc_p));
+extern value_ptr value_subscript PARAMS ((value_ptr array, value_ptr idx));
-extern void
-set_return_value PARAMS ((value val));
+extern value_ptr value_from_vtable_info PARAMS ((value_ptr arg,
+ struct type *type));
-extern value
-evaluate_expression PARAMS ((struct expression *exp));
+extern value_ptr value_being_returned PARAMS ((struct type *valtype,
+ char retbuf[REGISTER_BYTES],
+ int struct_return));
-extern value
-evaluate_type PARAMS ((struct expression *exp));
+extern value_ptr value_in PARAMS ((value_ptr element, value_ptr set));
-extern value
-parse_and_eval PARAMS ((char *exp));
+extern int value_bit_index PARAMS ((struct type *type, char *addr, int index));
-extern value
-parse_to_comma_and_eval PARAMS ((char **expp));
+extern int using_struct_return PARAMS ((value_ptr function, CORE_ADDR funcaddr,
+ struct type *value_type, int gcc_p));
-extern struct type *
-parse_and_eval_type PARAMS ((char *p, int length));
+extern void set_return_value PARAMS ((value_ptr val));
-extern CORE_ADDR
-parse_and_eval_address PARAMS ((char *exp));
+extern value_ptr evaluate_expression PARAMS ((struct expression *exp));
-extern CORE_ADDR
-parse_and_eval_address_1 PARAMS ((char **expptr));
+extern value_ptr evaluate_type PARAMS ((struct expression *exp));
-extern value
-access_value_history PARAMS ((int num));
+extern value_ptr parse_and_eval PARAMS ((char *exp));
-extern value
-value_of_internalvar PARAMS ((struct internalvar *var));
+extern value_ptr parse_to_comma_and_eval PARAMS ((char **expp));
-extern void
-set_internalvar PARAMS ((struct internalvar *var, value val));
+extern struct type *parse_and_eval_type PARAMS ((char *p, int length));
-extern void
-set_internalvar_component PARAMS ((struct internalvar *var, int offset,
- int bitpos, int bitsize,
- value newvalue));
+extern CORE_ADDR parse_and_eval_address PARAMS ((char *exp));
-extern struct internalvar *
-lookup_internalvar PARAMS ((char *name));
+extern CORE_ADDR parse_and_eval_address_1 PARAMS ((char **expptr));
-extern int
-value_equal PARAMS ((value arg1, value arg2));
+extern value_ptr access_value_history PARAMS ((int num));
-extern int
-value_less PARAMS ((value arg1, value arg2));
+extern value_ptr value_of_internalvar PARAMS ((struct internalvar *var));
-extern int
-value_zerop PARAMS ((value arg1));
+extern void set_internalvar PARAMS ((struct internalvar *var, value_ptr val));
-/* C++ */
+extern void set_internalvar_component PARAMS ((struct internalvar *var,
+ int offset,
+ int bitpos, int bitsize,
+ value_ptr newvalue));
-extern value
-value_of_this PARAMS ((int complain));
+extern struct internalvar *lookup_internalvar PARAMS ((char *name));
-extern value
-value_x_binop PARAMS ((value arg1, value arg2, enum exp_opcode op,
- enum exp_opcode otherop));
+extern int value_equal PARAMS ((value_ptr arg1, value_ptr arg2));
-extern value
-value_x_unop PARAMS ((value arg1, enum exp_opcode op));
+extern int value_less PARAMS ((value_ptr arg1, value_ptr arg2));
-extern value
-value_fn_field PARAMS ((struct fn_field *f, int j));
+extern int value_logical_not PARAMS ((value_ptr arg1));
-extern value
-value_virtual_fn_field PARAMS ((value arg1, struct fn_field *f, int j,
- struct type *type));
+/* C++ */
-extern int
-binop_user_defined_p PARAMS ((enum exp_opcode op, value arg1, value arg2));
+extern value_ptr value_of_this PARAMS ((int complain));
-extern int
-unop_user_defined_p PARAMS ((enum exp_opcode op, value arg1));
+extern value_ptr value_x_binop PARAMS ((value_ptr arg1, value_ptr arg2,
+ enum exp_opcode op,
+ enum exp_opcode otherop));
-extern int
-typecmp PARAMS ((int staticp, struct type *t1[], value t2[]));
+extern value_ptr value_x_unop PARAMS ((value_ptr arg1, enum exp_opcode op));
-extern int
-destructor_name_p PARAMS ((const char *name, const struct type *type));
+extern value_ptr value_fn_field PARAMS ((value_ptr *arg1p, struct fn_field *f,
+ int j,
+ struct type* type, int offset));
-#define value_free(val) free (val)
+extern value_ptr value_virtual_fn_field PARAMS ((value_ptr *arg1p,
+ struct fn_field *f, int j,
+ struct type *type,
+ int offset));
-extern void
-free_all_values PARAMS ((void));
+extern int binop_user_defined_p PARAMS ((enum exp_opcode op,
+ value_ptr arg1, value_ptr arg2));
-extern void
-release_value PARAMS ((value val));
+extern int unop_user_defined_p PARAMS ((enum exp_opcode op, value_ptr arg1));
-extern int
-record_latest_value PARAMS ((value val));
+extern int destructor_name_p PARAMS ((const char *name,
+ const struct type *type));
-extern void
-registers_changed PARAMS ((void));
+#define value_free(val) free ((PTR)val)
-extern void
-read_register_bytes PARAMS ((int regbyte, char *myaddr, int len));
+extern void free_all_values PARAMS ((void));
-extern void
-write_register_bytes PARAMS ((int regbyte, char *myaddr, int len));
+extern void release_value PARAMS ((value_ptr val));
+
+extern int record_latest_value PARAMS ((value_ptr val));
+
+extern void registers_changed PARAMS ((void));
+
+extern void read_register_bytes PARAMS ((int regbyte, char *myaddr, int len));
+
+extern void write_register_bytes PARAMS ((int regbyte, char *myaddr, int len));
extern void
read_register_gen PARAMS ((int regno, char *myaddr));
read_register PARAMS ((int regno));
extern void
-write_register PARAMS ((int regno, int val));
+write_register PARAMS ((int regno, LONGEST val));
extern void
supply_register PARAMS ((int regno, char *val));
-/* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */
extern void
get_saved_register PARAMS ((char *raw_buffer, int *optimized,
CORE_ADDR *addrp, struct frame_info *frame,
int regnum, enum lval_type *lval));
extern void
-modify_field PARAMS ((char *addr, int fieldval, int bitpos, int bitsize));
+modify_field PARAMS ((char *addr, LONGEST fieldval, int bitpos, int bitsize));
extern void
-type_print PARAMS ((struct type *type, char *varstring, FILE *stream,
+type_print PARAMS ((struct type *type, char *varstring, GDB_FILE *stream,
int show));
+extern char *baseclass_addr PARAMS ((struct type *type, int index,
+ char *valaddr,
+ value_ptr *valuep, int *errp));
+
extern void
-type_print_1 PARAMS ((struct type *type, char *varstring, FILE *stream,
- int show, int level));
-
-/* Possibilities for prettyprint parameters to routines which print
- things. */
-enum val_prettyprint {
- Val_no_prettyprint = 0,
- Val_prettyprint,
- /* Use the default setting which the user has specified. */
- Val_pretty_default
- };
+print_longest PARAMS ((GDB_FILE *stream, int format, int use_local,
+ LONGEST val));
-extern char *
-baseclass_addr PARAMS ((struct type *type, int index, char *valaddr,
- value *valuep, int *errp));
+extern void
+print_floating PARAMS ((char *valaddr, struct type *type, GDB_FILE *stream));
+
+extern int value_print PARAMS ((value_ptr val, GDB_FILE *stream, int format,
+ enum val_prettyprint pretty));
extern void
-print_floating PARAMS ((char *valaddr, struct type *type, FILE *stream));
+value_print_array_elements PARAMS ((value_ptr val, GDB_FILE* stream,
+ int format, enum val_prettyprint pretty));
-extern int
-value_print PARAMS ((value val, FILE *stream, int format,
- enum val_prettyprint pretty));
+extern value_ptr
+value_release_to_mark PARAMS ((value_ptr mark));
extern int
val_print PARAMS ((struct type *type, char *valaddr, CORE_ADDR address,
- FILE *stream, int format, int deref_ref,
+ GDB_FILE *stream, int format, int deref_ref,
int recurse, enum val_prettyprint pretty));
-/* FIXME: Assumes equivalence of "struct frame_info *" and "FRAME" */
+extern int
+val_print_string PARAMS ((CORE_ADDR addr, unsigned int len, GDB_FILE *stream));
+
extern void
print_variable_value PARAMS ((struct symbol *var, struct frame_info *frame,
- FILE *stream));
+ GDB_FILE *stream));
-extern value
-value_arg_coerce PARAMS ((value));
-
-extern int
-check_field PARAMS ((value, const char *));
+extern int check_field PARAMS ((value_ptr, const char *));
extern void
-typedef_print PARAMS ((struct type *type, struct symbol *new, FILE *stream));
+c_typedef_print PARAMS ((struct type *type, struct symbol *news, GDB_FILE *stream));
extern char *
internalvar_name PARAMS ((struct internalvar *var));
/* From values.c */
-extern value
-value_copy PARAMS ((value));
+extern value_ptr value_copy PARAMS ((value_ptr));
+
+extern int baseclass_offset PARAMS ((struct type *, int, value_ptr, int));
/* From valops.c */
-extern value
-call_function_by_hand PARAMS ((value, int, value *));
+extern value_ptr varying_to_slice PARAMS ((value_ptr));
+
+extern value_ptr value_slice PARAMS ((value_ptr, int, int));
+
+extern value_ptr call_function_by_hand PARAMS ((value_ptr, int, value_ptr *));
+
+extern value_ptr value_literal_complex PARAMS ((value_ptr, value_ptr, struct type*));
#endif /* !defined (VALUE_H) */