69 int cleanup_temps = 0;
80 (expect_type, exp, pos, noside);
211 struct value **resultp,
struct value **val_chain,
214 struct value *mark, *new_mark, *result;
238 if (!preserve_errors)
248 if (mark == new_mark)
278 *val_chain = new_mark;
296 if (exp->
elts[*subexp].
opcode != STRUCTOP_STRUCT
308 static struct value *
314 struct type *field_type;
319 struct value *val = NULL;
330 error (
_(
"too many initializers"));
334 error (
_(
"don't know which variant you want to set"));
387 low_bound, high_bound);
389 exp, pos, noside, low_bound, high_bound);
394 if (index < low_bound || index > high_bound)
395 error (
_(
"tuple index out of range"));
402 static struct value *
423 return value_slice (array, low_bound, high_bound - low_bound + 1);
469 struct type *promoted_type = NULL;
532 unsigned int result_len;
533 int unsigned_operation;
548 if (promoted_len1 > promoted_len2)
550 unsigned_operation = is_unsigned1;
551 result_len = promoted_len1;
553 else if (promoted_len2 > promoted_len1)
555 unsigned_operation = is_unsigned2;
556 result_len = promoted_len2;
560 unsigned_operation = is_unsigned1 || is_unsigned2;
561 result_len = promoted_len1;
572 promoted_type = (unsigned_operation
578 promoted_type = (unsigned_operation
584 promoted_type = (unsigned_operation
591 (language, gdbarch,
"int")))
599 (language, gdbarch,
"long")))
612 if (unsigned_operation)
666 struct type *
type = XCNEW (
struct type);
673 if (param_types[num_types - 1] == NULL)
692 while (num_types-- > 0)
705 int pc, pc2 = 0, oldpos;
706 struct value *arg1 = NULL;
707 struct value *arg2 = NULL;
711 struct value **argvec;
715 struct type **arg_types;
717 struct symbol *
function = NULL;
718 char *function_name = NULL;
732 expect_type, 0, noside);
768 struct value *ret = NULL;
789 case OP_VAR_ENTRY_VALUE:
803 error (
_(
"Symbol \"%s\" does not have any specific entry value"),
823 name, strlen (name));
825 error (
_(
"Register $%s not available."), name);
839 error (
_(
"Value of register %s not available."), name);
861 case OP_OBJC_NSSTRING:
875 nargs = tem3 - tem2 + 1;
893 int element_size =
TYPE_LENGTH (check_typedef (element_type));
894 LONGEST low_bound, high_bound, index;
899 high_bound = (
TYPE_LENGTH (type) / element_size) - 1;
903 for (tem = nargs; --nargs >= 0;)
905 struct value *element;
913 int continue_pc = *pos;
917 low_bound, high_bound);
922 if (index > high_bound)
924 error (
_(
"Too many array elements"));
926 + (index - low_bound) * element_size,
941 struct type *check_type = element_type;
950 error (
_(
"(power)set type with unknown size"));
952 for (tem = 0; tem < nargs; tem++)
955 struct type *range_low_type, *range_high_type;
956 struct value *elem_val;
959 range_low_type = range_high_type =
value_type (elem_val);
971 && (range_low_type != range_high_type)))
973 error (
_(
"POWERSET tuple elements of different mode"));
976 && range_low_type != check_type))
977 error (
_(
"incompatible POWERSET tuple elements"));
978 if (range_low > range_high)
980 warning (
_(
"empty POWERSET tuple range"));
983 if (range_low < low_bound || range_high > high_bound)
984 error (
_(
"POWERSET tuple element out of range"));
985 range_low -= low_bound;
986 range_high -= low_bound;
987 for (; range_low <= range_high; range_low++)
1000 argvec = (
struct value **) alloca (
sizeof (
struct value *) * nargs);
1001 for (tem = 0; tem < nargs; tem++)
1021 return value_slice (array, lowbound, upper - lowbound + 1);
1039 case OP_OBJC_SELECTOR:
1043 struct type *selector_type;
1057 case OP_OBJC_MSGCALL:
1066 int sub_no_side = 0;
1068 struct value *msg_send = NULL;
1069 struct value *msg_send_stret = NULL;
1070 int gnu_runtime = 0;
1072 struct value *target = NULL;
1073 struct value *method = NULL;
1074 struct value *called_method = NULL;
1076 struct type *selector_type = NULL;
1077 struct type *long_type;
1079 struct value *ret = NULL;
1084 argvec = (
struct value **) alloca (
sizeof (
struct value *)
1115 struct type *type = selector_type;
1145 if (responds_selector == 0)
1149 if (responds_selector == 0)
1150 error (
_(
"no 'respondsTo:' or 'respondsToSelector:' method"));
1154 if (method_selector == 0)
1158 if (method_selector == 0)
1159 error (
_(
"no 'methodFor:' or 'methodForSelector:' method"));
1164 argvec[0] = msg_send;
1178 error (
_(
"Target does not respond to this message selector."));
1186 argvec[0] = msg_send;
1204 struct symbol *sym = NULL;
1223 struct type *val_type;
1231 if ((val_type == NULL)
1234 if (expect_type != NULL)
1235 val_type = expect_type;
1241 else if (expect_type != NULL)
1244 check_typedef (expect_type));
1263 error (
_(
"method address has symbol information "
1264 "with non-function type; skipping"));
1284 called_method = msg_send_stret;
1286 called_method = msg_send;
1302 struct type *type =
value_type (called_method);
1316 error (
_(
"Expression of type other than "
1317 "\"method returning ...\" used as a method"));
1324 argvec[0] = called_method;
1328 for (tem = 0; tem < nargs; tem++)
1330 argvec[tem + 3] = 0;
1332 if (gnu_runtime && (method != NULL))
1352 argvec = (
struct value **)
1353 alloca (
sizeof (
struct value *) * (nargs + 3));
1354 if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR)
1359 if (op == STRUCTOP_MEMBER)
1396 struct type *target_type_ptr
1410 error (
_(
"Non-pointer-to-member value used in pointer-to-member "
1413 else if (op == STRUCTOP_STRUCT || op == STRUCTOP_PTR)
1424 if (op == STRUCTOP_STRUCT)
1473 else if (op == OP_SCOPE
1489 function_name = NULL;
1496 if (
function == NULL)
1497 error (
_(
"No symbol \"%s\" in namespace \"%s\"."),
1507 function_name =
name;
1516 else if (op == OP_ADL_FUNC)
1535 if (op == OP_VAR_VALUE
1550 for (; tem <= nargs && tem <=
TYPE_NFIELDS (type); tem++)
1562 for (; tem <= nargs; tem++)
1575 if (op == OP_ADL_FUNC)
1580 int string_pc = save_pos1 + 3;
1584 func_name = (
char *) alloca (name_len + 1);
1585 strcpy (func_name, &exp->
elts[string_pc + 1].
string);
1591 NULL, &symp, NULL, 0, noside);
1598 if (op == STRUCTOP_STRUCT || op == STRUCTOP_PTR
1599 || (op == OP_SCOPE && function_name != NULL))
1601 int static_memfuncp;
1614 tstr = function_name;
1621 struct value *valp = NULL;
1627 &static_memfuncp, 0, noside);
1629 if (op == OP_SCOPE && !static_memfuncp)
1632 error (
_(
"Call to overloaded function %s requires "
1643 struct value *temp = arg2;
1647 op == STRUCTOP_STRUCT
1648 ?
"structure" :
"structure pointer");
1660 if (static_memfuncp)
1662 argvec[1] = argvec[0];
1667 else if (op == STRUCTOP_MEMBER || op == STRUCTOP_MPTR)
1672 else if (op == OP_VAR_VALUE || (op == OP_SCOPE &&
function != NULL))
1691 if (op == OP_VAR_VALUE)
1698 NULL, &symp, NULL, no_adl, noside);
1700 if (op == OP_VAR_VALUE)
1724 if (argvec[0] == NULL)
1725 error (
_(
"Cannot evaluate function -- may be inlined"));
1747 struct type *return_type
1750 if (return_type == NULL)
1751 error (
_(
"Xmethod is missing return type."));
1759 error (
_(
"Expression of type other than "
1760 "\"Function returning ...\" used as function"));
1766 argvec[0], nargs, argvec + 1);
1775 case OP_F77_UNDETERMINED_ARGLIST:
1816 goto multi_f77_subscript;
1832 argvec = (
struct value **)
1833 alloca (
sizeof (
struct value *) * (nargs + 2));
1836 for (; tem <= nargs; tem++)
1844 error (
_(
"Cannot perform substring on this type"));
1856 case STRUCTOP_STRUCT:
1902 struct type *real_type;
1903 int full, top, using_enc;
1918 NULL,
"structure pointer");
1923 case STRUCTOP_MEMBER:
1925 if (op == STRUCTOP_MEMBER)
1960 error (
_(
"non-pointer-to-member value used "
1961 "in pointer-to-member construct"));
1966 arg_types = (
struct type **) alloca (nargs *
sizeof (
struct type *));
1967 for (ix = 0; ix < nargs; ++ix)
1968 arg_types[ix] = exp->
elts[pc + 1 + ix + 1].
type;
1971 *(pos) += 3 + nargs;
1975 xfree (expect_type);
1999 case BINOP_ASSIGN_MODIFY:
2007 return value_x_binop (arg1, arg2, BINOP_ASSIGN_MODIFY, op, noside);
2018 struct value *tmp = arg1;
2022 if ((op == BINOP_LSH || op == BINOP_RSH || op == BINOP_EXP)
2082 case BINOP_BITWISE_AND:
2083 case BINOP_BITWISE_IOR:
2084 case BINOP_BITWISE_XOR:
2101 || op == BINOP_INTDIV
2106 struct value *v_one, *retval;
2117 if ((op == BINOP_LSH || op == BINOP_RSH || op == BINOP_EXP)
2127 case BINOP_SUBSCRIPT:
2146 error (
_(
"cannot subscript something of type `%s'"),
2149 error (
_(
"cannot subscript requested type"));
2157 case MULTI_SUBSCRIPT:
2192 error (
_(
"cannot subscript something of type `%s'"),
2216 error (
_(
"cannot subscript something of type `%s'"),
2219 error (
_(
"cannot subscript requested type"));
2225 multi_f77_subscript:
2228 int ndimensions = 1, i;
2229 struct value *array = arg1;
2236 if (nargs != ndimensions)
2237 error (
_(
"Wrong number of subscripts"));
2245 for (i = 0; i < nargs; i++)
2256 for (i = nargs; i > 0; i--)
2259 LONGEST index = subscript_array[i - 1];
2268 case BINOP_LOGICAL_AND:
2295 case BINOP_LOGICAL_OR:
2339 case BINOP_NOTEQUAL:
2431 error (
_(
"Non-integral right operand for \"@\" operator."));
2468 case UNOP_COMPLEMENT:
2483 case UNOP_LOGICAL_NOT:
2502 error (
_(
"Attempt to dereference pointer "
2503 "to member without an object"));
2523 error (
_(
"Attempt to take contents of a non-pointer value."));
2571 case UNOP_CAST_TYPE:
2581 case UNOP_DYNAMIC_CAST:
2589 case UNOP_REINTERPRET_CAST:
2608 case UNOP_MEMVAL_TYPE:
2619 case UNOP_MEMVAL_TLS:
2635 case UNOP_PREINCREMENT:
2649 struct value *tmp = arg1;
2659 case UNOP_PREDECREMENT:
2673 struct value *tmp = arg1;
2683 case UNOP_POSTINCREMENT:
2699 struct value *tmp = arg1;
2710 case UNOP_POSTDECREMENT:
2726 struct value *tmp = arg1;
2749 struct type *type = exp->
elts[pc + 1].
type;
2761 error (
_(
"Attempt to use a type name as an expression"));
2773 struct value *result;
2779 if (op == OP_DECLTYPE
2780 && (sub_op == BINOP_SUBSCRIPT
2781 || sub_op == STRUCTOP_MEMBER
2782 || sub_op == STRUCTOP_MPTR
2783 || sub_op == UNOP_IND
2784 || sub_op == STRUCTOP_STRUCT
2785 || sub_op == STRUCTOP_PTR
2786 || sub_op == OP_SCOPE))
2800 error (
_(
"Attempt to use a type as an expression"));
2804 struct value *result;
2807 if (sub_op == OP_TYPE || sub_op == OP_DECLTYPE || sub_op == OP_TYPEOF)
2829 error (
_(
"GDB does not (yet) know how to "
2830 "evaluate that kind of expression"));
2844 static struct value *
2867 goto default_case_after_eval;
2877 case UNOP_MEMVAL_TYPE:
2906 error (
_(
"Attempt to take address of register or constant."));
2927 default_case_after_eval:
2939 error (
_(
"Attempt to take address of "
2940 "value not located in memory."));
2997 static struct value *
3024 error (
_(
"Attempt to take contents of a non-pointer value."));
3035 case UNOP_MEMVAL_TYPE:
3056 case BINOP_SUBSCRIPT:
3059 int pc = (*pos) + 1;
3104 char *tmp = (
char *) alloca (length + 4);
3108 memcpy (tmp + 1, p, length);
3109 tmp[length + 1] =
')';
3110 tmp[length + 2] =
'0';
3111 tmp[length + 3] =
'\0';
3114 error (
_(
"Internal error in eval_type."));
3122 struct type *tmp_type;
3125 error (
_(
"Can't get dimensions for a non-array type"));
3127 tmp_type = array_type;
struct value * value_zero(struct type *type, enum lval_type lv)
union exp_element elts[1]
struct value * value_array(int lowbound, int highbound, struct value **elemvec)
struct value * value_mark(void)
#define TYPE_RANGE_DATA(thistype)
struct value * value_subscripted_rvalue(struct value *array, LONGEST index, int lowerbound)
struct value * call_function_by_hand(struct value *function, int nargs, struct value **args)
struct value * value_addr(struct value *arg1)
static LONGEST init_array_element(struct value *, struct value *, struct expression *, int *, enum noside, LONGEST, LONGEST)
struct value * evaluate_subexpression_type(struct expression *exp, int subexp)
struct frame_info * get_selected_frame(const char *message)
struct value * value_aggregate_elt(struct type *curtype, const char *name, struct type *expect_type, int want_address, enum noside noside)
struct type * builtin_long_double
#define SYMBOL_PRINT_NAME(symbol)
struct value * value_subscript(struct value *array, LONGEST index)
struct type * lookup_signed_typename(const struct language_defn *language, struct gdbarch *gdbarch, const char *name)
static struct value * evaluate_subexp_for_sizeof(struct expression *, int *, enum noside)
#define TYPE_FIELD_NAME(thistype, n)
struct type * builtin_unsigned_int
#define TYPE_LOW_BOUND(range_type)
struct symbol * cp_lookup_symbol_namespace(const char *scope, const char *name, const struct block *block, const domain_enum domain)
struct value * value_reinterpret_cast(struct type *type, struct value *arg)
LONGEST value_as_long(struct value *val)
void warning(const char *fmt,...)
struct value * evaluate_subexp_with_coercion(struct expression *exp, int *pos, enum noside noside)
#define TYPE_NAME(thistype)
struct value * address_of_variable(struct symbol *var, const struct block *b)
static int ptrmath_type_p(const struct language_defn *lang, struct type *type)
int calc_f77_array_dims(struct type *array_type)
LONGEST value_ptrdiff(struct value *arg1, struct value *arg2)
#define TYPE_HIGH_BOUND(range_type)
struct type * language_string_char_type(const struct language_defn *la, struct gdbarch *gdbarch)
const struct builtin_type * builtin_type(struct gdbarch *gdbarch)
struct value * call_xmethod(struct value *method, int argc, struct value **argv)
#define SYMBOL_CLASS(symbol)
void binop_promote(const struct language_defn *language, struct gdbarch *gdbarch, struct value **arg1, struct value **arg2)
const struct language_defn * language_defn
int thread_stack_temporaries_enabled_p(ptid_t ptid)
int value_in_thread_stack_temporaries(struct value *, ptid_t)
struct value * coerce_ref(struct value *arg)
struct value * value_ind(struct value *arg1)
int gdbarch_long_bit(struct gdbarch *gdbarch)
enum language la_language
struct value * value_of_this(const struct language_defn *lang)
struct value * value_pos(struct value *arg1)
int gdbarch_num_regs(struct gdbarch *gdbarch)
struct value * value_string(char *ptr, ssize_t len, struct type *char_type)
#define TYPE_FIELD(thistype, n)
#define BYTES_TO_EXP_ELEM(bytes)
#define TYPE_PROTOTYPED(t)
struct value * call_internal_function(struct gdbarch *gdbarch, const struct language_defn *language, struct value *func, int argc, struct value **argv)
#define TYPE_FIELD_TYPE(thistype, n)
struct value * allocate_value(struct type *type)
const struct block * block_for_pc(CORE_ADDR pc)
int longest_to_int(LONGEST)
struct internalvar * internalvar
struct value * value_release_to_mark(struct value *mark)
void deprecated_set_value_type(struct value *value, struct type *type)
struct value * value_non_lval(struct value *arg)
int gdbarch_num_pseudo_regs(struct gdbarch *gdbarch)
struct value * evaluate_expression(struct expression *exp)
const struct block * block
struct value * value_ptradd(struct value *arg1, LONGEST arg2)
const struct exp_descriptor * la_exp_desc
struct value * value_struct_elt(struct value **argp, struct value **args, const char *name, int *static_memfuncp, const char *err)
static struct value * evaluate_subexp_for_address(struct expression *, int *, enum noside)
struct type * check_typedef(struct type *type)
struct type * result_type_of_xmethod(struct value *method, int argc, struct value **argv)
#define TYPE_GNU_IFUNC(t)
const gdb_byte * value_contents(struct value *value)
#define CATCH(EXCEPTION, MASK)
struct type * builtin_unsigned_long
#define TYPE_MAIN_TYPE(thistype)
struct value * value_from_decfloat(struct type *type, const gdb_byte *dec)
struct target_ops current_target
int value_lazy(struct value *value)
int field_is_static(struct field *f)
struct value * find_function_in_inferior(const char *name, struct objfile **objf_p)
struct symbol * find_pc_function(CORE_ADDR pc)
struct value * value_cast_pointers(struct type *type, struct value *arg2, int subclass_check)
struct type * register_type(struct gdbarch *gdbarch, int regnum)
CORE_ADDR gdbarch_convert_from_func_ptr_addr(struct gdbarch *gdbarch, CORE_ADDR addr, struct target_ops *targ)
int using_struct_return(struct gdbarch *gdbarch, struct value *function, struct type *value_type)
int f77_get_lowerbound(struct type *)
struct expression * parse_exp_1(const char **, CORE_ADDR pc, const struct block *, int)
int is_integral_type(struct type *t)
void free_current_contents(void *ptr)
void unop_promote(const struct language_defn *language, struct gdbarch *gdbarch, struct value **arg1)
struct type * cplus_typeid_type(struct gdbarch *gdbarch)
#define SYMBOL_COMPUTED_OPS(symbol)
struct cleanup * make_cleanup(make_cleanup_ftype *function, void *arg)
struct type * parse_and_eval_type(char *p, int length)
struct value *(* evaluate_exp)(struct type *, struct expression *, int *, enum noside)
gdb_byte * value_contents_writeable(struct value *value)
struct value * coerce_array(struct value *arg)
struct value * value_assign(struct value *toval, struct value *fromval)
struct type * language_bool_type(const struct language_defn *la, struct gdbarch *gdbarch)
int gdbarch_double_bit(struct gdbarch *gdbarch)
struct value * value_from_longest(struct type *type, LONGEST num)
struct type * builtin_long
struct value * value_at_lazy(struct type *type, CORE_ADDR addr)
struct value * value_cast(struct type *type, struct value *arg2)
static struct value * evaluate_struct_tuple(struct value *, struct expression *, int *, enum noside, int)
struct type * value_rtti_indirect_type(struct value *v, int *full, int *top, int *using_enc)
#define target_has_execution
CORE_ADDR lookup_child_selector(struct gdbarch *gdbarch, char *selname)
#define TYPE_FIELDS(thistype)
struct value * value_dynamic_cast(struct type *type, struct value *arg)
int user_reg_map_name_to_regnum(struct gdbarch *gdbarch, const char *name, int len)
struct value * value_from_double(struct type *type, DOUBLEST num)
int value_equal(struct value *arg1, struct value *arg2)
#define TYPE_FIELD_BITSIZE(thistype, n)
struct expression * parse_expression(const char *)
struct type * builtin_unsigned_long_long
struct value * value_of_internalvar(struct gdbarch *gdbarch, struct internalvar *var)
#define TYPE_FIELD_BITPOS(thistype, n)
int find_overload_match(struct value **args, int nargs, const char *name, enum oload_search_type method, struct value **objp, struct symbol *fsym, struct value **valp, struct symbol **symp, int *staticp, const int no_adl, const enum noside noside)
int value_must_coerce_to_target(struct value *val)
char * extract_field_op(struct expression *exp, int *subexp)
struct value * parse_to_comma_and_eval(const char **expp)
gdb_byte decfloatconst[16]
void throw_exception(struct gdb_exception exception)
#define TYPE_CHAIN(thistype)
void fetch_subexp_value(struct expression *exp, int *pc, struct value **valp, struct value **resultp, struct value **val_chain, int preserve_errors)
struct value * allocate_repeat_value(struct type *type, int count)
struct value * value_from_pointer(struct type *type, CORE_ADDR addr)
#define TYPE_TARGET_TYPE(thistype)
void value_fetch_lazy(struct value *val)
struct type * builtin_double
struct value * value_neg(struct value *arg1)
CORE_ADDR target_translate_tls_address(struct objfile *objfile, CORE_ADDR offset)
CORE_ADDR parse_and_eval_address(const char *exp)
#define TYPE_CODE(thistype)
struct value * value_of_register(int regnum, struct frame_info *frame)
#define TYPE_INDEX_TYPE(type)
void modify_field(struct type *type, gdb_byte *addr, LONGEST fieldval, int bitpos, int bitsize)
struct cleanup * enable_thread_stack_temporaries(ptid_t ptid)
struct value * value_of_variable(struct symbol *var, const struct block *b)
CORE_ADDR find_function_addr(struct value *function, struct type **retval_type)
struct type * builtin_data_ptr
struct value * value_repeat(struct value *arg1, int count)
void get_user_print_options(struct value_print_options *opts)
int value_less(struct value *arg1, struct value *arg2)
#define TYPE_NFIELDS(thistype)
struct value * value_complement(struct value *arg1)
struct value * evaluate_subexp(struct type *expect_type, struct expression *exp, int *pos, enum noside noside)
struct value * value_one(struct type *type)
struct type * lookup_unsigned_typename(const struct language_defn *language, struct gdbarch *gdbarch, const char *name)
struct value * cplus_method_ptr_to_value(struct value **this_p, struct value *method_ptr)
static struct type * make_params(int num_types, struct type **param_types)
static struct value * value_f90_subarray(struct value *array, struct expression *exp, int *pos, enum noside noside)
#define CHECK_TYPEDEF(TYPE)
int value_logical_not(struct value *arg1)
struct value * evaluate_subexp_standard(struct type *expect_type, struct expression *exp, int *pos, enum noside noside)
struct value * value_binop(struct value *arg1, struct value *arg2, enum exp_opcode op)
#define TYPE_TAG_NAME(type)
#define CAST_IS_CONVERSION(LANG)
int binop_user_defined_p(enum exp_opcode op, struct value *arg1, struct value *arg2)
const struct block * get_selected_block(CORE_ADDR *addr_in_block)
struct value * parse_and_eval(const char *exp)
int gdbarch_bits_big_endian(struct gdbarch *gdbarch)
struct type * builtin_long_long
int value_embedded_offset(struct value *value)
struct value * value_slice(struct value *array, int lowbound, int length)
int is_dynamic_type(struct type *type)
struct value * value_x_unop(struct value *arg1, enum exp_opcode op, enum noside noside)
struct type * value_type(const struct value *value)
#define SYMBOL_TYPE(symbol)
struct type * lookup_reference_type(struct type *type)
struct value * access_value_history(int num)
CORE_ADDR value_as_address(struct value *val)
struct value * evaluate_type(struct expression *exp)
gdb_byte * value_contents_raw(struct value *value)
#define TYPE_LENGTH(thistype)
struct value * value_x_binop(struct value *arg1, struct value *arg2, enum exp_opcode op, enum exp_opcode otherop, enum noside noside)
#define TYPE_ZALLOC(t, size)
int unop_user_defined_p(enum exp_opcode op, struct value *arg1)
struct value * value_literal_complex(struct value *arg1, struct value *arg2, struct type *type)
CORE_ADDR value_address(const struct value *value)
struct bound_minimal_symbol lookup_minimal_symbol(const char *name, const char *sfile, struct objfile *objf)
int get_discrete_bounds(struct type *type, LONGEST *lowp, LONGEST *highp)
#define TYPE_SELF_TYPE(thistype)
void error(const char *fmt,...)
struct value * value_nsstring(struct gdbarch *gdbarch, char *ptr, int len)
struct type * lookup_pointer_type(struct type *type)
struct value * value_concat(struct value *arg1, struct value *arg2)
void do_cleanups(struct cleanup *old_chain)
struct type * lookup_function_type(struct type *type)
struct value * cplus_typeid(struct value *value)
struct type * builtin_int
const ULONGEST const LONGEST len
LONGEST parse_and_eval_long(const char *exp)