/* 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, 1996
+ Free Software Foundation, Inc.
This file is part of GDB.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#if !defined (VALUE_H)
#define VALUE_H 1
/* 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
{
variables or put into the value history are taken off this
list. */
struct value *next;
- /* 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;
- short repetitions;
+
+ /* ??? When is this used? */
+ union {
+ CORE_ADDR memaddr;
+ char *myaddr;
+ } substring_addr;
+
/* Register number if the value is from a register. Is not kept
if you take a field of a structure that is stored in a
register. Shouldn't it be? */
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 VALUE_BITSIZE(val) (val)->bitsize
#define VALUE_BITPOS(val) (val)->bitpos
#define VALUE_NEXT(val) (val)->next
-#define VALUE_REPEATED(val) (val)->repeated
-#define VALUE_REPETITIONS(val) (val)->repetitions
#define VALUE_REGNO(val) (val)->regno
#define VALUE_OPTIMIZED_OUT(val) ((val)->optimized_out)
/* Convert a REF to the object referenced. */
#define COERCE_REF(arg) \
-{ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_REF) \
- arg = value_at_lazy (TYPE_TARGET_TYPE (VALUE_TYPE (arg)), \
- unpack_long (VALUE_TYPE (arg), \
- VALUE_CONTENTS (arg)));}
+do { CHECK_TYPEDEF (VALUE_TYPE (arg)); \
+ if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_REF) \
+ arg = value_at_lazy (TYPE_TARGET_TYPE (VALUE_TYPE (arg)), \
+ unpack_long (VALUE_TYPE (arg), \
+ VALUE_CONTENTS (arg))); \
+} while (0)
/* If ARG is an array, convert it to a pointer.
If ARG is an enum, convert it to an integer.
References are dereferenced. */
#define COERCE_ARRAY(arg) \
-{ COERCE_REF(arg); \
- if (VALUE_REPEATED (arg) \
- || TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ARRAY) \
+do { COERCE_REF(arg); \
+ if (current_language->c_style_arrays \
+ && 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); \
- if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_ENUM) \
- arg = value_cast (builtin_type_unsigned_int, arg); \
-}
+} while (0)
+
+#define COERCE_NUMBER(arg) \
+ do { COERCE_ARRAY(arg); COERCE_ENUM(arg); } while (0)
+
+#define COERCE_VARYING_ARRAY(arg, real_arg_type) \
+{ if (chill_varying_type (real_arg_type)) \
+ arg = varying_to_slice (arg), real_arg_type = VALUE_TYPE (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); \
+#define COERCE_ENUM(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. */
#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 DOUBLEST 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 DOUBLEST 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 LONGEST
-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, DOUBLEST 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,
- int offset,
- 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 evaluate_subexp_with_coercion PARAMS ((struct expression *,
+ int *, enum noside));
-extern value
-value_of_internalvar PARAMS ((struct internalvar *var));
+extern value_ptr parse_and_eval PARAMS ((char *exp));
-extern void
-set_internalvar PARAMS ((struct internalvar *var, value val));
+extern value_ptr parse_to_comma_and_eval PARAMS ((char **expp));
-extern void
-set_internalvar_component PARAMS ((struct internalvar *var, int offset,
- int bitpos, int bitsize,
- value newvalue));
+extern struct type *parse_and_eval_type PARAMS ((char *p, int length));
-extern struct internalvar *
-lookup_internalvar PARAMS ((char *name));
+extern CORE_ADDR parse_and_eval_address PARAMS ((char *exp));
-extern int
-value_equal PARAMS ((value arg1, value arg2));
+extern CORE_ADDR parse_and_eval_address_1 PARAMS ((char **expptr));
-extern int
-value_less PARAMS ((value arg1, value arg2));
+extern value_ptr access_value_history PARAMS ((int num));
-extern int
-value_zerop PARAMS ((value arg1));
+extern value_ptr value_of_internalvar PARAMS ((struct internalvar *var));
-/* C++ */
+extern void set_internalvar PARAMS ((struct internalvar *var, value_ptr val));
-extern value
-value_of_this PARAMS ((int complain));
+extern void set_internalvar_component PARAMS ((struct internalvar *var,
+ int offset,
+ int bitpos, int bitsize,
+ value_ptr newvalue));
-extern value
-value_x_binop PARAMS ((value arg1, value arg2, enum exp_opcode op,
- enum exp_opcode otherop));
+extern struct internalvar *lookup_internalvar PARAMS ((char *name));
-extern value
-value_x_unop PARAMS ((value arg1, enum exp_opcode op));
+extern int value_equal PARAMS ((value_ptr arg1, value_ptr arg2));
-extern value
-value_fn_field PARAMS ((value *arg1p, struct fn_field *f, int j,
- struct type* type, int offset));
+extern int value_less PARAMS ((value_ptr arg1, value_ptr arg2));
-extern value
-value_virtual_fn_field PARAMS ((value *arg1p, struct fn_field *f, int j,
- struct type *type, int offset));
+extern int value_logical_not PARAMS ((value_ptr arg1));
-extern int
-binop_user_defined_p PARAMS ((enum exp_opcode op, value arg1, value arg2));
+/* C++ */
-extern int
-unop_user_defined_p PARAMS ((enum exp_opcode op, value arg1));
+extern value_ptr value_of_this PARAMS ((int complain));
-extern int
-typecmp PARAMS ((int staticp, struct type *t1[], value t2[]));
+extern value_ptr value_x_binop PARAMS ((value_ptr arg1, value_ptr arg2,
+ enum exp_opcode op,
+ enum exp_opcode otherop,
+ enum noside noside));
-extern int
-destructor_name_p PARAMS ((const char *name, const struct type *type));
+extern value_ptr value_x_unop PARAMS ((value_ptr arg1, enum exp_opcode op,
+ enum noside noside));
+
+extern value_ptr value_fn_field PARAMS ((value_ptr *arg1p, struct fn_field *f,
+ int j,
+ struct type* type, int offset));
+
+extern value_ptr value_virtual_fn_field PARAMS ((value_ptr *arg1p,
+ struct fn_field *f, int j,
+ struct type *type,
+ int offset));
+
+extern int binop_user_defined_p PARAMS ((enum exp_opcode op,
+ value_ptr arg1, value_ptr arg2));
+
+extern int unop_user_defined_p PARAMS ((enum exp_opcode op, value_ptr arg1));
+
+extern int destructor_name_p PARAMS ((const char *name,
+ const struct type *type));
#define value_free(val) free ((PTR)val)
-extern void
-free_all_values PARAMS ((void));
+extern void free_all_values PARAMS ((void));
-extern void
-release_value PARAMS ((value val));
+extern void release_value PARAMS ((value_ptr val));
-extern int
-record_latest_value PARAMS ((value val));
+extern int record_latest_value PARAMS ((value_ptr val));
-extern void
-registers_changed PARAMS ((void));
+extern void registers_changed PARAMS ((void));
-extern void
-read_register_bytes PARAMS ((int regbyte, char *myaddr, int len));
+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 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));
-
-extern value
-value_arg_coerce PARAMS ((value));
+ GDB_FILE *stream));
-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, char *, CORE_ADDR));
/* 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*));
+
+extern value_ptr find_function_in_inferior PARAMS ((char *));
+
+extern value_ptr value_allocate_space_in_inferior PARAMS ((int));
#endif /* !defined (VALUE_H) */