Sun Oct 24 20:16:38 1993 Peter Schauer (pes@regent.e-technik.tu-muenchen.de)
* parse.c, parser-defs.h (write_exp_msymbol): New function to write the appropriate expression for a minimal symbol. * c-exp.y, m2-exp.y: Use it.
This commit is contained in:
parent
94c74a0c22
commit
abe28b9214
5 changed files with 58 additions and 42 deletions
36
gdb/parse.c
36
gdb/parse.c
|
@ -338,6 +338,42 @@ write_exp_bitstring (str)
|
|||
expout_ptr += lenelt - 2;
|
||||
write_exp_elt_longcst ((LONGEST) bits);
|
||||
}
|
||||
|
||||
/* Add the appropriate elements for a minimal symbol to the end of
|
||||
the expression. */
|
||||
|
||||
void
|
||||
write_exp_msymbol (msymbol, text_symbol_type, data_symbol_type)
|
||||
struct minimal_symbol *msymbol;
|
||||
struct type *text_symbol_type;
|
||||
struct type *data_symbol_type;
|
||||
{
|
||||
write_exp_elt_opcode (OP_LONG);
|
||||
write_exp_elt_type (builtin_type_long);
|
||||
write_exp_elt_longcst ((LONGEST) SYMBOL_VALUE_ADDRESS (msymbol));
|
||||
write_exp_elt_opcode (OP_LONG);
|
||||
|
||||
write_exp_elt_opcode (UNOP_MEMVAL);
|
||||
switch (msymbol -> type)
|
||||
{
|
||||
case mst_text:
|
||||
case mst_file_text:
|
||||
write_exp_elt_type (text_symbol_type);
|
||||
break;
|
||||
|
||||
case mst_data:
|
||||
case mst_file_data:
|
||||
case mst_bss:
|
||||
case mst_file_bss:
|
||||
write_exp_elt_type (data_symbol_type);
|
||||
break;
|
||||
|
||||
default:
|
||||
write_exp_elt_type (builtin_type_char);
|
||||
break;
|
||||
}
|
||||
write_exp_elt_opcode (UNOP_MEMVAL);
|
||||
}
|
||||
|
||||
/* Return a null-terminated temporary copy of the name
|
||||
of a string token. */
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue