binutils-gdb/gdb/testsuite/gdb.ada
Simon Marchi b28a729db1 [PATCH] Adjust test gdb.ada/ptype_tagged_param.exp for when GNAT runtime does not have debug info
This test verifies that GDB correctly identifies the run-time type of
"s" as being the type "Circle".  However, that can only be done
correctly if the GNAT runtime has been compiled and shipped with debug
information, so that GDB can poke in its internal data structures.
Currently the test fails when when running against a GNAT runtime
without debug info.  This is the case, for example, on Arch Linux using
the distribution package.

This patch adds a helper in lib/ada.exp to check whether the GNAT
runtime has debug info or not.  It then uses it in
gdb.ada/ptype_tagged_param.exp to expect a different result, depending
on whether we have debug info or not in the runtime.

At first, I made it so we would XFAIL the test, in the absence of debug
info, but then I thought that we might as well test for the output we
expect in the absence of debug info instead.

gdb/testsuite/ChangeLog:

	* lib/ada.exp (gnat_runtime_has_debug_info): New proc.
	* lib/gnat_debug_info_test.adb: New file.
	* gdb.ada/ptype_tagged_param.exp: Use
	gnat_runtime_has_debug_info, expect a different output if
	runtime does not have debug info.
2019-12-27 21:02:35 -05: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
bias
big_packed_array
bp_c_mixed_case
bp_enum_homonym
bp_fun_addr
bp_inlined_func Update copyright year range in all GDB files. 2019-01-01 10:01:51 +04:00
bp_on_var
bp_range_type
bp_reset
byte_packed_arr
call_pn
catch_assert_if
catch_ex
catch_ex_std
char_enum
char_param
complete Update copyright year range in all GDB files. 2019-01-01 10:01:51 +04:00
cond_lang
convvar_comp
dgopt
disc_arr_bound
display_nested
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_arg_lang
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
length_cond
maint_with_ada
mi_catch_assert
mi_catch_ex
mi_catch_ex_hand
mi_dyn_arr
mi_ex_cond
mi_exc_info Update copyright year range in all GDB files. 2019-01-01 10:01:51 +04:00
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
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
py_taft Do not expose stub types to Python 2019-09-26 08:26:12 -06:00
rdv_wait
rec_comp
rec_return
ref_param
ref_tick_size
rename_subscript_param
repeat_dyn
same_component_name
same_enum
scalar_storage Propagate endianity to subrange types 2019-12-04 09:31:18 -07:00
scoped_watch Update copyright year range in all GDB files. 2019-01-01 10:01:51 +04:00
set_pckd_arr_elt
set_wstr Update copyright year range in all GDB files. 2019-01-01 10:01:51 +04:00
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 Update copyright year range in all GDB files. 2019-01-01 10:01:51 +04:00
type_coercion
unc_arr_ptr_in_var_rec
unchecked_union Normalize Ada ptype to use a single "?" 2019-12-10 08:56:39 -07:00
uninitialized_vars
var_arr_attrs
var_arr_typedef
var_rec_arr
variant_record_packed_array
varsize_limit
vla
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
bias.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
char_param.exp
complete.exp
cond_lang.exp
convvar_comp.exp
dgopt.exp
disc_arr_bound.exp
display_nested.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_arg_lang.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
length_cond.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
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 [PATCH] Adjust test gdb.ada/ptype_tagged_param.exp for when GNAT runtime does not have debug info 2019-12-27 21:02:35 -05:00
ptype_union.c
ptype_union.exp
py_range.exp
py_taft.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
scalar_storage.exp Propagate endianity to subrange types 2019-12-04 09:31:18 -07:00
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
unchecked_union.exp Normalize Ada ptype to use a single "?" 2019-12-10 08:56:39 -07:00
uninitialized_vars.exp
var_arr_attrs.exp
var_arr_typedef.exp
var_rec_arr.exp
variant_record_packed_array.exp
varsize_limit.exp
vla.exp
watch_arg.exp
watch_minus_l.exp
whatis_array_val.exp
widewide.exp
win_fu_syms.exp