binutils-gdb/gdb/testsuite/gdb.ada
Tom Tromey 222a8d2558 Fix cast of character to enum type in Ada
An internal bug report points out that, when a global character enum
type is used, casting fails, like:

    (gdb) print global_char_enum'('F')
    $1 = 70

The bug here turns out to be that enumerators are qualified, so for
example the mangled name might be "pck__QU48", rather than "QU48".

This patch fixes the problem by only examining the suffix of the
enumerator.  This is ok because the type is already known, and because
the mangling scheme ensures that there won't be clashes.

Tested on x86-64 Fedora 29.

gdb/ChangeLog
2019-05-03  Tom Tromey  <tromey@adacore.com>

	* ada-exp.y (convert_char_literal): Check suffix of each
	enumerator.

gdb/testsuite/ChangeLog
2019-05-03  Tom Tromey  <tromey@adacore.com>

	* gdb.ada/char_enum/pck.ads (Global_Enum_Type): New type.
	* gdb.ada/char_enum/foo.adb: Use Global_Enum_Type.
	* gdb.ada/char_enum.exp: Add test.
2019-05-03 17:04:56 -06:00
..
access_tagged_param
access_to_packed_array
access_to_unbounded_array
addr_arith
aliased_array
arr_acc_idx_w_gap
arr_arr
arr_enum_idx_w_gap
array_bounds
array_char_idx
array_of_variable_length
array_ptr_renaming
array_return
array_subscript_addr
arraydim
arrayidx
arrayparam
arrayptr
assign_arr
atomic_enum
attr_ref_and_charlit
bad-task-bp-keyword
big_packed_array
bp_c_mixed_case
bp_enum_homonym
bp_fun_addr
bp_inlined_func
bp_on_var
bp_range_type
bp_reset
byte_packed_arr
call_pn
catch_assert_if
catch_ex
catch_ex_std
char_enum Fix cast of character to enum type in Ada 2019-05-03 17:04:56 -06:00
char_param
complete
cond_lang
convvar_comp
disc_arr_bound
dot_all
dyn_arrayidx
dyn_loc
dyn_stride
enum_idx_packed
excep_handle
exec_changed
expr_delims
expr_with_funcall
exprs
fin_fun_out
fixed_cmp
fixed_points
float_param
formatted_ref
frame_args
fullname_bp
fun_addr
fun_in_declare
fun_overload_menu
fun_renaming
funcall_char
funcall_param
funcall_ptr
funcall_ref
homonym
info_addr_mixed_case
info_auto_lang
info_exc
info_locals_renaming
int_deref
interface
iwide
lang_switch
maint_with_ada
mi_catch_assert
mi_catch_ex
mi_catch_ex_hand
mi_dyn_arr
mi_ex_cond
mi_exc_info
mi_interface
mi_ref_changeable
mi_string_access
mi_task_arg
mi_task_info
mi_var_array
mi_var_union
minsyms
mod_from_name
n_arr_bound
nested
notcplusplus
null_array
null_record
O2_float_param
operator_bp
optim_drec
out_of_line_in_inlined
packed_array
packed_array_assign Fix bug in assignment to nested packed structure 2019-05-01 08:09:22 -06:00
packed_tagged
pckd_arr_ren
pckd_neg
pkd_arr_elem
pp-rec-component
print_chars
ptr_typedef
ptype_array
ptype_field
ptype_tagged_param
py_range
rdv_wait
rec_comp
rec_return
ref_param
ref_tick_size
rename_subscript_param
repeat_dyn
same_component_name
same_enum
scoped_watch
set_pckd_arr_elt
set_wstr
small_reg_param
start
str_binop_equal
str_ref_cmp
str_uninit
sym_print_name
taft_type
tagged
tagged_access
tagged_not_init
task_bp
task_switch_in_core
tasks
tick_last_segv
tick_length_array_enum_idx
type_coercion
unc_arr_ptr_in_var_rec
uninitialized_vars
var_arr_attrs
var_arr_typedef
var_rec_arr
variant_record_packed_array
varsize_limit
watch_arg
watch_minus_l
whatis_array_val
widewide
win_fu_syms
access_tagged_param.exp
access_to_packed_array.exp
access_to_unbounded_array.exp
addr_arith.exp
aliased_array.exp
arr_acc_idx_w_gap.exp
arr_arr.exp
arr_enum_idx_w_gap.exp
array_bounds.exp
array_char_idx.exp
array_of_variable_length.exp
array_ptr_renaming.exp
array_return.exp
array_subscript_addr.exp
arraydim.exp
arrayidx.exp
arrayparam.exp
arrayptr.exp
assign_1.exp
assign_arr.exp
atomic_enum.exp
attr_ref_and_charlit.exp
bad-task-bp-keyword.exp
big_packed_array.exp
boolean_expr.exp
bp_c_mixed_case.exp
bp_enum_homonym.exp
bp_fun_addr.exp
bp_inlined_func.exp
bp_on_var.exp
bp_range_type.exp
bp_reset.exp
byte_packed_arr.exp
call_pn.exp
catch_assert_if.exp
catch_ex_std.exp
catch_ex.exp
char_enum.exp Fix cast of character to enum type in Ada 2019-05-03 17:04:56 -06:00
char_param.exp
complete.exp
cond_lang.exp
convvar_comp.exp
disc_arr_bound.exp
dot_all.exp
dyn_arrayidx.exp
dyn_loc.exp
dyn_stride.exp
enum_idx_packed.exp
excep_handle.exp
exec_changed.exp
expr_delims.exp
expr_with_funcall.exp
exprs.exp
fin_fun_out.exp
fixed_cmp.exp
fixed_points.exp
float_param.exp
formatted_ref.exp
frame_args.exp
fullname_bp.exp
fun_addr.exp
fun_in_declare.exp
fun_overload_menu.exp
fun_renaming.exp
funcall_char.exp
funcall_param.exp
funcall_ptr.exp
funcall_ref.exp
homonym.exp
info_addr_mixed_case.exp
info_auto_lang.exp
info_exc.exp
info_locals_renaming.exp
info_types.c
info_types.exp
int_deref.exp
interface.exp
iwide.exp
lang_switch.exp
maint_with_ada.exp
mi_catch_assert.exp
mi_catch_ex_hand.exp
mi_catch_ex.exp
mi_dyn_arr.exp
mi_ex_cond.exp
mi_exc_info.exp
mi_interface.exp
mi_ref_changeable.exp
mi_string_access.exp
mi_task_arg.exp
mi_task_info.exp
mi_var_array.exp
mi_var_union.exp
minsyms.exp
mod_from_name.exp
n_arr_bound.exp
nested.exp
notcplusplus.exp
null_array.exp
null_record.exp
O2_float_param.exp
operator_bp.exp
optim_drec.exp
out_of_line_in_inlined.exp
packed_array_assign.exp Fix bug in assignment to nested packed structure 2019-05-01 08:09:22 -06:00
packed_array.exp
packed_tagged.exp
pckd_arr_ren.exp
pckd_neg.exp
pkd_arr_elem.exp
pp-rec-component.exp
pp-rec-component.py
print_chars.exp
print_pc.exp
ptr_typedef.exp
ptype_arith_binop.exp
ptype_array.exp
ptype_field.exp
ptype_tagged_param.exp
ptype_union.c
ptype_union.exp
py_range.exp
rdv_wait.exp
rec_comp.exp
rec_return.exp
ref_param.exp
ref_tick_size.exp
rename_subscript_param.exp
repeat_dyn.exp
same_component_name.exp
same_enum.exp
scoped_watch.exp
set_pckd_arr_elt.exp
set_wstr.exp
small_reg_param.exp
start.exp
str_binop_equal.exp
str_ref_cmp.exp
str_uninit.exp
sym_print_name.exp
taft_type.exp
tagged_access.exp
tagged_not_init.exp
tagged.exp
task_bp.exp
task_switch_in_core.exp
tasks.exp
tick_last_segv.exp
tick_length_array_enum_idx.exp
type_coercion.exp
unc_arr_ptr_in_var_rec.exp
uninitialized_vars.exp
var_arr_attrs.exp
var_arr_typedef.exp
var_rec_arr.exp
variant_record_packed_array.exp
varsize_limit.exp
watch_arg.exp
watch_minus_l.exp
whatis_array_val.exp
widewide.exp
win_fu_syms.exp