From 91033e3716b2eccc227992cde676198949941edf Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Mon, 21 Feb 2011 10:12:14 +0000 Subject: [PATCH] add xfail for "print u_var" test in gdb.ada/packed_array.exp gdb/testsuite/ChangeLog: * gdb.ada/packed_array.exp: Add xfail for "print u_var" if the debugger is unable to find the array bounds. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.ada/packed_array.exp | 14 ++++++++++++-- 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8ef2fcd..c40ce29 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-02-21 Joel Brobecker + + * gdb.ada/packed_array.exp: Add xfail for "print u_var" if + the debugger is unable to find the array bounds. + 2011-02-18 Jan Kratochvil * gdb.cp/typedef-operator.exp: New file. diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp index d7885bb..fc4dd17 100644 --- a/gdb/testsuite/gdb.ada/packed_array.exp +++ b/gdb/testsuite/gdb.ada/packed_array.exp @@ -53,6 +53,16 @@ gdb_test "print &var" \ # Print the value of U_Var, an unconstrainted packed array. -gdb_test "print u_var" \ - "= \\(true, false, false, true, true, false\\)" +set test "print u_var" +gdb_test_multiple "$test" "$test" { + -re "= \\(true, false, false, true, true, false\\)\[\r\n\]+$gdb_prompt $" { + pass $test + } + -re "= \\(warning: unable to get bounds of array.*\\)\[\r\n\]+$gdb_prompt $" { + # The compiler forgot to emit the packed array's ___XA type, + # preventing us from determining the what the array bounds + # are. Observed with (FSF GNU Ada 4.5.3 20110124). + xfail $test + } +} -- 2.7.4