revert 2007-01-11 Nathan Sidwell <nathan@codesourcery.com>

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.ada / start.exp

diff --git a/gdb/testsuite/gdb.ada/start.exp b/gdb/testsuite/gdb.ada/start.exp
index d1e4907d3c5025d538a7050743c7996b273f04d5..a658bd7cdfd32270426e291a0c036d874a9b880f 100644 (file)
--- a/gdb/testsuite/gdb.ada/start.exp
+++ b/gdb/testsuite/gdb.ada/start.exp
@@ -21,16 +21,14 @@ if $tracelevel then {
 
 load_lib "ada.exp"
 
-if { [skip_ada_tests] } { return -1 }
-
 set testdir "start"
 set testfile "${testdir}/dummy"
 set srcfile ${srcdir}/${subdir}/${testfile}.adb
 set binfile ${objdir}/${subdir}/${testfile}
 
 file mkdir ${objdir}/${subdir}/${testdir}
-if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
-    return -1
+if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
+  return -1
 }
 
 gdb_exit