Index: gdb.ada/null_record.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/null_record.exp,v retrieving revision 1.6 diff -u -p -r1.6 null_record.exp --- gdb.ada/null_record.exp 24 Feb 2005 23:54:03 -0000 1.6 +++ gdb.ada/null_record.exp 7 Mar 2005 20:31:54 -0000 @@ -36,6 +36,9 @@ gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} +# The "start" command is not yet fully implemented for Ada. +setup_kfail *-*-* "ada/1892" + gdb_test "start" \ "null_record \\(\\) at .*null_record.adb.*" \ "start" Index: gdb.ada/start.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/start.exp,v retrieving revision 1.2 diff -u -p -r1.2 start.exp --- gdb.ada/start.exp 24 Feb 2005 23:54:03 -0000 1.2 +++ gdb.ada/start.exp 7 Mar 2005 20:31:54 -0000 @@ -36,6 +36,9 @@ gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} +# The "start" command is not yet fully implemented for Ada. +setup_kfail *-*-* "ada/1892" + # Verify that "start" lands inside the right procedure. gdb_test "start" \ "dummy \\(\\) at .*dummy.adb.*" \