clean_restart ${testfile}
if {![runto "foo"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/foo_na07_019.adb]
if {![runto "foo_na07_019.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "BREAK" ${testdir}/enum_with_gap_main.adb]
if {![runto "enum_with_gap_main.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo_q418_043.adb]
if {![runto "foo_q418_043.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}-${scenario}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/bar.adb]
if {![runto "bar.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}-${scenario}"
return
}
clean_restart ${testfile}
if {![runto "foo_h731_021"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
clean_restart ${testfile}
if {![runto "break_me"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo_n612_026.adb]
if {![runto "foo_n612_026.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/main.adb]
if {![runto "main.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
return $expect_out(1,string)
}
}
- perror "couldn't find address of $var"
return ""
}
set sp "\[ \t\]*"
if {![runto break_me]} {
- perror "Couldn't run ${testfile}"
return
}
clean_restart ${testfile}
if {![runto_main]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/main.adb]
if {![runto "main.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/local.adb]
if {![runto "local.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
clean_restart ${testfile}
if {![runto "_ada_foo_qb07_057"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}-${scenario}"
return
}
clean_restart ${testfile}
if {![runto "foo"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/bar_o203_012.adb]
if {![runto "bar_o203_012.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
clean_restart ${testfile}
if {![runto pck.adb:20]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/storage.adb]
if {![runto "storage.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/a.adb]
if {![runto "a.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
clean_restart ${testfile}
if {![runto_main]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/parse.adb]
if {![runto "parse.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/p.adb]
if {![runto "p.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/vsizelim.adb]
if {![runto "vsizelim.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# set it up at a breakpoint so we can play with it
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "tests suppressed"
+ return
}
set timeout 30
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart $testfile
if {![runto_main]} {
- perror "could not run to main"
return
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# Set it up at a breakpoint so we have its registers.
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart ${binfile}
if {![runto break_me]} {
- perror "Couldn't run ${testfile}"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test "print /x bar" "{x__0 = 0x0, y__0 = 0x0, z__1 = 0x0}"
if {![file exists $binfile]} {
- perror "$binfile does not exist."
return 0
} else {
gdb_reinitialize_dir $srcdir/$subdir
clean_restart ${binfile}
if {![runto_main]} {
- perror "Couldn't run to main"
return -1
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_load ${binfile}
if {![runto_main]} {
- perror "tests suppressed"
+ return
}
# If we're using .gdb_index or .debug_names there will be no psymtabs.
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart "${testcase}"
if ![runto_main] {
- perror "could not run to main"
return
}
clean_restart "${testcase}"
if ![runto_main] {
- perror "could not run to main"
return
}
clean_restart "${testcase}"
if ![runto_main] {
- perror "could not run to main"
return
}
# Run to main, where struct foo is incomplete.
if ![runto_main] {
- perror "cannot run to breakpoint at main"
+ return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_load ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set print sevenbit-strings"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto_main]} {
- perror "C function calling tests suppressed"
+ return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto test]} {
- perror "couldn't run to breakpoint"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
continue
}
# Restart the program every time, so that a single failure doesn't
# lead to a cascade.
if {![runto_main]} {
- perror "couldn't run to main when testing ${name}"
return -code continue
} else {
gdb_breakpoint "${name}"
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set print symbol off"
if {![runto_main]} {
- perror "couldn't run to main"
return
}
gdb_test_no_output "set width 0" ""
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# Set it up at a breakpoint so we can play with the variable values.
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
# Now run to N::Derived::doit and get the type of "value_type"
if {![runto "N::Derived::doit"]} {
- perror "couldn't run to N::Derived::doit"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return -1
}
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
# Restart the inferior back at main.
if {![runto_main]} {
- perror "couldn't run to main"
return
}
# Run to D::f.
if {![runto_main]} {
- perror "couldn't run to main"
return
}
gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to main"
return
}
test_ptype_mvi
if {![runto 'inheritance2']} {
- perror "couldn't run to inheritance2"
return
}
test_print_anon_union
if { ![runto 'inheritance4'] } {
- perror "couldn't run to inheritance4"
return
}
}
if ![runto_main] {
- perror "couldn't run to breakpoint"
return
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if ![runto_main] {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# been imported.
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
# namespace.
if {![runto "C::D::marker2"]} {
- perror "couldn't run to marker2"
return
}
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
# the function.
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
continue
}
# Test printing of namespace imported within the function.
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
continue
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
# Set it up at a breakpoint so we can play with the variable values.
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
continue
}
}
if {![runto 'XXX::marker2']} {
- perror "couldn't run to XXX::marker2"
continue
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
clean_restart $binfile
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
continue
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
if {![runto 'f']} {
- perror "couldn't run to f"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'f']} {
- perror "couldn't run to f"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# Run to main and test again.
if {![runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
gdb_test_no_output "set width 0" ""
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
test_ptype_of_classes
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
set GDBFLAGS $saved_gdbflags
if ![runto_main] {
- perror "couldn't run to main"
return -1
}
}
if {![runto MAIN__]} {
- perror "couldn't run to breakpoint MAIN__"
return
}
}
if {![runto sub_]} {
- perror "couldn't run to breakpoint sub_"
return
}
}
if ![fortran_runto_main] {
- perror "Couldn't run to main"
return
}
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![fortran_runto_main]} {
- perror "Couldn't run to main"
return
}
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![runto [gdb_get_line_number "post_init"]]} {
- perror "couldn't run to breakpoint post_init"
return
}
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![runto [gdb_get_line_number "post_init"]]} {
- perror "couldn't run to breakpoint post_init"
return
}
gdb_load_shlib $libfile
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
gdb_test_no_output "set auto-solib-add off"
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
}
if ![fortran_runto_main] {
- perror "Couldn't run to main"
return
}
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
# Break on a contained function and run to it.
if {![runto ${src_prefix}[gdb_get_line_number "pre_init"]]} {
- perror "couldn't run to breakpoint pre_init"
return
}
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
continue
}
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
}
if {![runto [gdb_get_line_number "post_truth_table_init"]]} {
- perror "couldn't run to breakpoint post_truth_table_init"
return
}
}
if { ![fortran_runto_main] } {
- perror "Couldn't run to main"
return
}
gdb_test_no_output "set auto-solib-add off"
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
clean_restart ${testfile}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
gdb_breakpoint [gdb_get_line_number "vla2-allocated"]
}
if {![runto here]} {
- perror "couldn't run to breakpoint 'here'"
return
}
}
if {![runto foo]} {
- perror "couldn't run to breakpoint foo"
return
}
}
if {![runto f]} {
- perror "couldn't run to f"
return
}
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
"Test auto-load had loaded python scripts"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set python print-stack full" \
"Test auto-load had loaded python scripts"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set python print-stack full" \
gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*" \
"Set autoload path for no debug info tests"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*"
if ![runto_main] {
- perror "couldn't run to main"
return
}
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_load ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
"No auto-load scripts matching no-script-matches-this."
if ![runto_main] {
- perror "couldn't run to main"
return
}
}
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# There is no executable code in main(), so we are where we want to be
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
clean_restart ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}