aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.ada/fixed_points.exp
diff options
context:
space:
mode:
authorJoel Brobecker <brobecker@gnat.com>2005-02-03 03:58:53 +0000
committerJoel Brobecker <brobecker@gnat.com>2005-02-03 03:58:53 +0000
commit464dd14d58f648ec577fda6004708c385e3084a3 (patch)
treee79cc0d5038017851985265ae7b374a6129c6933 /gdb/testsuite/gdb.ada/fixed_points.exp
parent11f25ea6caba4354a6c58653e92e125313d5a659 (diff)
downloadgdb-464dd14d58f648ec577fda6004708c385e3084a3.zip
gdb-464dd14d58f648ec577fda6004708c385e3084a3.tar.gz
gdb-464dd14d58f648ec577fda6004708c385e3084a3.tar.bz2
* gdb.ada/gnat_ada.gpr: New file.
* gdb.ada/gnat_ada.gin: Delete, no longer used. * lib/ada.exp (gdb_compile_ada): Minor adaptation to new project file. * configure.ac: No longer generate gnat_ada.gpr. * configure: Regenerate. * gdb.ada/Makefile.in: Minor adaptations due to new project file. * gdb.ada/null_record/null_record.adb: Moved here from gdb.ada. * gdb.ada/null_record/bar.ads: Likewise. * gdb.ada/null_record/bar.adb: Likewise. * gdb.ada/fixed_points/fixed_points.adb: Likewise. * gdb.ada/null_record.exp (testdir): New variable. (testfile): executable is now in testdir subdirectory. (srcfile): Use full path to the main compilation unit. * gdb.ada/fixed_points.exp: Same changes as above.
Diffstat (limited to 'gdb/testsuite/gdb.ada/fixed_points.exp')
-rw-r--r--gdb/testsuite/gdb.ada/fixed_points.exp9
1 files changed, 5 insertions, 4 deletions
diff --git a/gdb/testsuite/gdb.ada/fixed_points.exp b/gdb/testsuite/gdb.ada/fixed_points.exp
index 9d424e7..db47bd3 100644
--- a/gdb/testsuite/gdb.ada/fixed_points.exp
+++ b/gdb/testsuite/gdb.ada/fixed_points.exp
@@ -21,8 +21,9 @@ if $tracelevel then {
load_lib "ada.exp"
-set testfile "fixed_points"
-set srcfile ${testfile}.adb
+set testdir "fixed_points"
+set testfile "${testdir}/fixed_points"
+set srcfile ${srcdir}/${subdir}/${testfile}.adb
set binfile ${objdir}/${subdir}/${testfile}
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
@@ -34,8 +35,8 @@ gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-set bp_location [gdb_get_line_number "Set breakpoint here"]
-runto "${srcfile}:$bp_location"
+set bp_location [gdb_get_line_number "Set breakpoint here" ${testdir}/fixed_points.adb]
+runto "fixed_points.adb:$bp_location"
gdb_test "print base_object" \
".* = -50" \