#if !defined (VALUE_H)
#define VALUE_H 1
#include "doublest.h"
struct value
{
enum lval_type lval;
int modifiable;
union
{
CORE_ADDR address;
struct internalvar *internalvar;
int regnum;
}
location;
int offset;
int bitsize;
int bitpos;
CORE_ADDR frame_addr;
struct type *type;
struct type *enclosing_type;
int embedded_offset;
int pointed_to_offset;
struct value *next;
short regno;
char lazy;
char optimized_out;
asection *bfd_section;
union
{
long contents[1];
DOUBLEST force_doublest_align;
LONGEST force_longest_align;
CORE_ADDR force_core_addr_align;
void *force_pointer_align;
}
aligner;
};
#define VALUE_TYPE(val) (val)->type
#define VALUE_ENCLOSING_TYPE(val) (val)->enclosing_type
#define VALUE_LAZY(val) (val)->lazy
#define VALUE_CONTENTS_RAW(val) ((char *) (val)->aligner.contents + (val)->embedded_offset)
#define VALUE_CONTENTS(val) ((void)(VALUE_LAZY(val) && value_fetch_lazy(val)),\
VALUE_CONTENTS_RAW(val))
#define VALUE_CONTENTS_ALL_RAW(val) ((char *) (val)->aligner.contents)
#define VALUE_CONTENTS_ALL(val) ((void) (VALUE_LAZY(val) && value_fetch_lazy(val)),\
VALUE_CONTENTS_ALL_RAW(val))
extern int value_fetch_lazy (struct value *val);
#define VALUE_LVAL(val) (val)->lval
#define VALUE_ADDRESS(val) (val)->location.address
#define VALUE_INTERNALVAR(val) (val)->location.internalvar
#define VALUE_FRAME_REGNUM(val) ((val)->location.regnum)
#define VALUE_FRAME(val) ((val)->frame_addr)
#define VALUE_OFFSET(val) (val)->offset
#define VALUE_BITSIZE(val) (val)->bitsize
#define VALUE_BITPOS(val) (val)->bitpos
#define VALUE_NEXT(val) (val)->next
#define VALUE_REGNO(val) (val)->regno
#define VALUE_OPTIMIZED_OUT(val) ((val)->optimized_out)
#define VALUE_EMBEDDED_OFFSET(val) ((val)->embedded_offset)
#define VALUE_POINTED_TO_OFFSET(val) ((val)->pointed_to_offset)
#define VALUE_BFD_SECTION(val) ((val)->bfd_section)
#define COERCE_REF(arg) \
do { struct type *value_type_arg_tmp = check_typedef (VALUE_TYPE (arg));\
if (TYPE_CODE (value_type_arg_tmp) == TYPE_CODE_REF) \
arg = value_at_lazy (TYPE_TARGET_TYPE (value_type_arg_tmp), \
unpack_pointer (VALUE_TYPE (arg), \
VALUE_CONTENTS (arg)), \
VALUE_BFD_SECTION (arg)); \
} while (0)
#define COERCE_ARRAY(arg) \
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); \
} 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); }
#define COERCE_ENUM(arg) { \
if (TYPE_CODE (check_typedef (VALUE_TYPE (arg))) == TYPE_CODE_ENUM) \
arg = value_cast (builtin_type_unsigned_int, arg); \
}
struct internalvar
{
struct internalvar *next;
char *name;
struct value *value;
};
#define METHOD_PTR_IS_VIRTUAL(ADDR) ((ADDR) & 0x80000000)
#define METHOD_PTR_FROM_VOFFSET(OFFSET) (0x80000000 + (OFFSET))
#define METHOD_PTR_TO_VOFFSET(ADDR) (~0x80000000 & (ADDR))
#include "symtab.h"
#include "gdbtypes.h"
#include "expression.h"
struct frame_info;
struct fn_field;
extern void print_address_demangle (CORE_ADDR, struct ui_file *, int);
extern LONGEST value_as_long (struct value *val);
extern DOUBLEST value_as_double (struct value *val);
extern CORE_ADDR value_as_address (struct value *val);
extern LONGEST unpack_long (struct type *type, char *valaddr);
extern DOUBLEST unpack_double (struct type *type, char *valaddr, int *invp);
extern CORE_ADDR unpack_pointer (struct type *type, char *valaddr);
extern LONGEST unpack_field_as_long (struct type *type, char *valaddr,
int fieldno);
extern struct value *value_from_longest (struct type *type, LONGEST num);
extern struct value *value_from_pointer (struct type *type, CORE_ADDR addr);
extern struct value *value_from_double (struct type *type, DOUBLEST num);
extern struct value *value_from_string (char *string);
extern struct value *value_at (struct type *type, CORE_ADDR addr,
asection * sect);
extern struct value *value_at_lazy (struct type *type, CORE_ADDR addr,
asection * sect);
extern struct value *value_from_register (struct type *type, int regnum,
struct frame_info *frame);
extern struct value *value_of_variable (struct symbol *var, struct block *b);
extern struct value *value_of_register (int regnum,
struct frame_info *frame);
extern int symbol_read_needs_frame (struct symbol *);
extern struct value *read_var_value (struct symbol *var,
struct frame_info *frame);
extern struct value *locate_var_value (struct symbol *var,
struct frame_info *frame);
extern struct value *allocate_value (struct type *type);
extern struct value *allocate_repeat_value (struct type *type, int count);
extern struct value *value_change_enclosing_type (struct value *val,
struct type *new_type);
extern struct value *value_mark (void);
extern void value_free_to_mark (struct value *mark);
extern struct value *value_string (char *ptr, int len);
extern struct value *value_bitstring (char *ptr, int len);
extern struct value *value_array (int lowbound, int highbound,
struct value ** elemvec);
extern struct value *value_concat (struct value *arg1, struct value *arg2);
extern struct value *value_binop (struct value *arg1, struct value *arg2,
enum exp_opcode op);
extern struct value *value_add (struct value *arg1, struct value *arg2);
extern struct value *value_sub (struct value *arg1, struct value *arg2);
extern struct value *value_coerce_array (struct value *arg1);
extern struct value *value_coerce_function (struct value *arg1);
extern struct value *value_ind (struct value *arg1);
extern struct value *value_addr (struct value *arg1);
extern struct value *value_assign (struct value *toval, struct value *fromval);
extern struct value *value_neg (struct value *arg1);
extern struct value *value_complement (struct value *arg1);
extern struct value *value_struct_elt (struct value **argp,
struct value **args,
char *name, int *static_memfuncp,
char *err);
extern struct value *value_struct_elt_for_reference (struct type *domain,
int offset,
struct type *curtype,
char *name,
struct type *intype);
extern struct value *value_static_field (struct type *type, int fieldno);
extern struct fn_field *value_find_oload_method_list (struct value **, char *,
int, int *, int *,
struct type **, int *);
extern int find_overload_match (struct type **arg_types, int nargs,
char *name, int method, int lax,
struct value **objp, struct symbol *fsym,
struct value **valp, struct symbol **symp,
int *staticp);
extern struct value *value_field (struct value *arg1, int fieldno);
extern struct value *value_primitive_field (struct value *arg1, int offset,
int fieldno,
struct type *arg_type);
extern struct type *value_rtti_target_type (struct value *, int *, int *,
int *);
extern struct value *value_full_object (struct value *, struct type *, int,
int, int);
extern struct value *value_cast (struct type *type, struct value *arg2);
extern struct value *value_zero (struct type *type, enum lval_type lv);
extern struct value *value_repeat (struct value *arg1, int count);
extern struct value *value_subscript (struct value *array, struct value *idx);
extern struct value *value_from_vtable_info (struct value *arg,
struct type *type);
extern struct value *value_being_returned (struct type *valtype,
char *retbuf, int struct_return);
extern struct value *value_in (struct value *element, struct value *set);
extern int value_bit_index (struct type *type, char *addr, int index);
extern int using_struct_return (struct value *function, CORE_ADDR funcaddr,
struct type *value_type, int gcc_p);
extern void set_return_value (struct value *val);
extern struct value *evaluate_expression (struct expression *exp);
extern struct value *evaluate_type (struct expression *exp);
extern struct value *evaluate_subexp_with_coercion (struct expression *,
int *, enum noside);
extern struct value *parse_and_eval (char *exp);
extern struct value *parse_to_comma_and_eval (char **expp);
extern struct type *parse_and_eval_type (char *p, int length);
extern CORE_ADDR parse_and_eval_address (char *exp);
extern CORE_ADDR parse_and_eval_address_1 (char **expptr);
extern LONGEST parse_and_eval_long (char *exp);
extern struct value *access_value_history (int num);
extern struct value *value_of_internalvar (struct internalvar *var);
extern void set_internalvar (struct internalvar *var, struct value *val);
extern void set_internalvar_component (struct internalvar *var,
int offset,
int bitpos, int bitsize,
struct value *newvalue);
extern struct internalvar *lookup_internalvar (char *name);
extern int value_equal (struct value *arg1, struct value *arg2);
extern int value_less (struct value *arg1, struct value *arg2);
extern int value_logical_not (struct value *arg1);
extern struct value *value_of_local (char *name, int complain);
extern struct value *value_x_binop (struct value *arg1, struct value *arg2,
enum exp_opcode op,
enum exp_opcode otherop,
enum noside noside);
extern struct value *value_x_unop (struct value *arg1, enum exp_opcode op,
enum noside noside);
extern struct value *value_fn_field (struct value ** arg1p, struct fn_field *f,
int j, struct type *type, int offset);
extern int binop_user_defined_p (enum exp_opcode op, struct value *arg1,
struct value *arg2);
extern int unop_user_defined_p (enum exp_opcode op, struct value *arg1);
extern int destructor_name_p (const char *name, const struct type *type);
#define value_free(val) xfree (val)
extern void free_all_values (void);
extern void release_value (struct value *val);
extern int record_latest_value (struct value *val);
extern void
modify_field (char *addr, LONGEST fieldval, int bitpos, int bitsize);
extern void type_print (struct type * type, char *varstring,
struct ui_file * stream, int show);
extern char *baseclass_addr (struct type *type, int index, char *valaddr,
struct value **valuep, int *errp);
extern void print_longest (struct ui_file * stream, int format,
int use_local, LONGEST val);
extern void print_floating (char *valaddr, struct type * type,
struct ui_file * stream);
extern int value_print (struct value *val, struct ui_file *stream, int format,
enum val_prettyprint pretty);
extern void value_print_array_elements (struct value *val,
struct ui_file *stream, int format,
enum val_prettyprint pretty);
extern struct value *value_release_to_mark (struct value *mark);
extern int val_print (struct type * type, char *valaddr,
int embedded_offset, CORE_ADDR address,
struct ui_file * stream, int format,
int deref_ref, int recurse,
enum val_prettyprint pretty);
extern int val_print_string (CORE_ADDR addr, int len, int width, struct ui_file *stream);
extern void print_variable_value (struct symbol * var,
struct frame_info * frame,
struct ui_file *stream);
extern void
print_variable_value (struct symbol *var, struct frame_info *frame,
struct ui_file *stream);
extern int check_field (struct value *, const char *);
extern void typedef_print (struct type * type, struct symbol * news,
struct ui_file * stream);
extern char *internalvar_name (struct internalvar *var);
extern void clear_value_history (void);
extern void clear_internalvars (void);
extern struct value *value_copy (struct value *);
extern struct value *varying_to_slice (struct value *);
extern struct value *value_slice (struct value *, int, int);
extern struct value *call_function_by_hand (struct value *, int,
struct value **);
extern struct value *
call_function_by_hand_expecting_type (struct value *,
struct type *, int,
struct value **, int);
extern int default_coerce_float_to_double (struct type *, struct type *);
extern int standard_coerce_float_to_double (struct type *, struct type *);
extern struct value *value_literal_complex (struct value *, struct value *,
struct type *);
extern void find_rt_vbase_offset (struct type *, struct type *, char *, int,
int *, int *);
extern CORE_ADDR find_function_addr (struct value *, struct type **);
extern struct value *find_function_in_inferior (char *, struct type *);
extern struct value *value_allocate_space_in_inferior (int);
extern CORE_ADDR default_push_arguments (int nargs, struct value ** args,
CORE_ADDR sp, int struct_return,
CORE_ADDR struct_addr);
struct cached_value
{
char *name;
struct type *type;
struct value val;
int bound;
unsigned int generation;
};
extern struct cached_value *create_cached_function (char *, struct type *);
extern struct value *lookup_cached_function (struct cached_value *cval);
int set_unwind_on_signal (int new_val);
#endif