lappend flags debug optimize=-O2
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo_na07_019
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" \
executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile bar
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $opts] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
gdb_compile "${csrcfile}" "${cobject}" object [list debug]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-largs additional_flags=${cobject} additional_flags=-margs]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
set old_gcc [gnat_version_compare <= {4 6}]
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile main_p324_051
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile "foo"
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile prog
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
additional_flags=${cobject2} \
additional_flags=-margs]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $options] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile bp_fun_addr
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
# Test inserting breakpoint on pck.my_global_variable.
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile proc
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
# Ada is case-insensitive, so both of these should work.
standard_ada_testfile reprod_main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \
{debug no-force}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile bla
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
# Create the shared library.
if {[gdb_compile_shlib $srcfile2 $sofile {ada debug}] != ""} {
- return -1
+ return
}
# Set linkarg such that the executable can find the shared library.
# Create executable.
if {[gdb_compile_ada $srcfile $binfile executable $options] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
set flags [list debug additional_flags=-gnatW8]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
gdb_compile "${csrcfile}" "${cobject}" object [list debug]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile pb16_063
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \
{debug additional_flags=-fdata-sections ldflags=-Wl,--gc-sections}] \
!= ""} {
- return -1
+ return
}
# The bug was that the DWARF reader would crash when processing a
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \
{debug additional_flags=-gnatDG}] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo_n612_026
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} {
- return -1
+ return
}
# GCC needs to have fixes:
standard_ada_testfile dyn
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/dyn.adb]
if {![runto "dyn.adb:$bp_location"]} {
- return -1
+ return
}
# Accept "dyn." prefix for older versions of GNAT.
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug additional_flags=-gnat12}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
set bp_location [gdb_get_line_number "BREAK" ${testdir}/pack.adb]
if {![runto "pack.adb:$bp_location"]} {
- return -1
+ return
}
set eol "\r\n"
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- return -1
+ return
}
gdb_test "print A1(1)" \
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug additional_flags=-gnat05}] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile qual
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile enums_overload_main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_testfile .c
if {[build_executable "failed to prepare" $testfile $srcfile] == -1} {
- return -1
+ return
}
# Try this test in both the C and Ada language modes.
# Build the first test program (note that cygwin needs the $EXEEXT).
if {[gdb_compile_ada "${srcfile}" "${binfile}$EXEEXT" executable {debug}] != ""} {
- return -1
+ return
}
# Build the second test program
set binfile2 [standard_output_file second$EXEEXT]
if {[gdb_compile_ada "${srcfile2}" "${binfile2}" executable {debug}] != ""} {
- return -1
+ return
}
# Start with a fresh gdb.
# Start the program, we should land in the program main procedure
if { [gdb_start_cmd] < 0 } {
fail start
- return -1
+ return
}
gdb_test "" \
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile expr_r821_013
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile first
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
# Build the second test program
set binfile2 [standard_output_file second]
if {[gdb_compile_ada "${srcfile2}" "${binfile2}" executable {debug}] != ""} {
- return -1
+ return
}
foreach_with_prefix scenario {kill no-kill} {
# Start the program, we should land in the program main procedure
if {[gdb_start_cmd] < 0} {
fail start
- return -1
+ return
}
gdb_test "" \
standard_ada_testfile foo_o525_013
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $opts] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${gnat_encodings}" executable $flags] != "" } {
- return -1
+ return
}
clean_restart ${testfile}-${gnat_encodings}
foreach_gnat_encoding scenario flags {all minimal} {
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile fixed_points_function
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile prog
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
# Given a floating point EXPRESSION, return the size of the result.
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
untested formatted-ref.exp
- return -1
+ return
}
proc get_address { var } {
additional_flags=-margs
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
# Note: We restart the debugger before setting each breakpoint, because
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "$srcfile" "$binfile" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile fun_renaming
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "$srcfile" "$binfile" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
set flags [list debug additional_flags=-gnata]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile homonym_main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \
[list debug additional_flags=-largs \
additional_flags=${cobject} additional_flags=-margs]] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
if { [gdb_compile "${csrcfile}" "${cobject}" object [list debug]] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
untested "failed to compile"
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_testfile .c
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
- return -1
+ return
}
# Force the language to Ada. We used a C program because it was trivial
additional_flags=-margs
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $options] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
gdb_compile "${csrcfile}" "${cobject}" object [list debug]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
setenv LC_ALL C.UTF-8
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile length_cond
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \
[list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile local
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile var_arr_typedef
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile bla
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
# A global variable used to simplify the maintenance of some of
}
timeout {
fail "$test (timeout)"
- return -1
+ return
}
}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-bargs additional_flags=-static additional_flags=-margs ]] != "" } {
- return -1
+ return
}
# A global variable used to simplify the maintenance of some of
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat12 ]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \
{debug additional_flags=-gnata}] != ""} {
- return -1
+ return
}
load_lib mi-support.exp
standard_ada_testfile foo_rb20_056
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
mi_clean_restart $::testfile-$scenario
standard_ada_testfile task_switch
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
standard_ada_testfile task_switch
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
set MIFLAGS "-i=mi"
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != "" } {
- return -1
+ return
}
mi_clean_restart $::testfile
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != "" } {
- return -1
+ return
}
mi_clean_restart $::testfile-$scenario
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != "" } {
- return -1
+ return
}
mi_clean_restart $::testfile-$scenario
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
mi_clean_restart $::testfile-$scenario
standard_ada_testfile foo_qb07_057
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable ""] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" \
executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile hello
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
set flags [list debug additional_flags=-gnati1]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} {
- return -1
+ return
}
# Restart without an executable so that we can set the encoding early.
set flags [list debug additional_flags=-gnati3]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} {
- return -1
+ return
}
# Restart without an executable so that we can set the encoding early.
set flags [list debug additional_flags=-gnatW8]
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} {
- return -1
+ return
}
# Restart without an executable so that we can set the encoding early.
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile null_record
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile ops_test
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile opcall
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug optimize=-O2
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile main
if {[gdb_compile_ada "$srcfile" "$binfile" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile overloads
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile tester
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo_o508_021
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile failure
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile dummy start
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
set has_runtime_debug_info [gnat_runtime_has_debug_info]
clean_restart ${testfile}
if {![runto "pck.adb:20"]} {
- return -1
+ return
}
# With some versions of the compiler, identifying the runtime type of
standard_testfile .c
if {[prepare_for_testing "failed to prepare" ${testfile} ${srcfile}]} {
- return -1
+ return
}
# The test case is written in C, because it was easy to make the
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile bar_o203_012
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile pb30_012
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo_oc22_002
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile proc
if { [gdb_compile_ada $srcfile $binfile executable debug] != "" } {
- return -1
+ return
}
clean_restart $testfile
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != "" } {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile a
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo_p708_025
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile a
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug optimize=-O1]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile dummy
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
# Verify that "start" lands inside the right procedure.
if { [gdb_start_cmd] < 0 } {
fail "start failed to land inside the right procedure"
- return -1
+ return
}
gdb_test "" \
standard_ada_testfile prog
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/prog.adb]
if {![runto "prog.adb:$bp_location"]} {
- return -1
+ return
}
gdb_test "ptype value" [string_to_regexp "type = array (1 .. 3) of integer"]
standard_ada_testfile foo_p211_061
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile parse
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile subv
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile p
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" \
executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
# Insert a breakpoint at LOC, and run the program expecting us to
standard_ada_testfile crash
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
if {![runto request_for_crash]} {
untested "couldn't run to Request_For_Crash"
- return -1
+ return
}
set corefile [standard_output_file crash.gcore]
set core_supported [gdb_gcore_cmd "$corefile" "save a corefile"]
if {!$core_supported} {
- return -1
+ return
}
# Now that the core file has been created, we can start the real
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo_n207_004
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile prog
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile assign
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile parse
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile parse
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile main
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo_o115_002
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile var_arr_typedef
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile proc
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
# making guarantees beyond -Og though, so test that.
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug optimize=-Og]] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
lappend flags debug
if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} {
- return -1
+ return
}
clean_restart ${testfile}-${scenario}
standard_ada_testfile vsizelim
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile prog
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile vla
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile voidctx
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile watch
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo_ra10_006
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-bargs additional_flags=-shared additional_flags=-margs]] != "" } {
- return -1
+ return
}
clean_restart ${testfile}
projects / thirdparty / binutils-gdb.git / commitdiff
