diff options
| author | Tom de Vries <tdevries@suse.de> | 2021-09-30 19:07:48 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2021-09-30 19:07:48 +0200 |
| commit | e46da7ec1bd9d39e28a86e8d6c522a6ff7510a76 (patch) | |
| tree | d0cab111ee3f0a6fd539b92cc3bf968d56ff1b86 | |
| parent | b6107a72badd38a2cf63fc09759ce281547c19a3 (diff) | |
| download | gdb-e46da7ec1bd9d39e28a86e8d6c522a6ff7510a76.zip gdb-e46da7ec1bd9d39e28a86e8d6c522a6ff7510a76.tar.gz gdb-e46da7ec1bd9d39e28a86e8d6c522a6ff7510a76.tar.bz2 | |
[gdb/testsuite] Check compilation result in gdb.base/call-sc.exp
When running test-case gdb.base/call-sc.exp with target board unix/-bad, I
get:
...
gdb compile failed, gcc: error: unrecognized command line option '-bad'
UNTESTED: gdb.base/call-sc.exp: failed to prepare
ERROR: tcl error sourcing src/gdb/testsuite/gdb.base/call-sc.exp.
ERROR: can't read "use_gdb_stub": no such variable
...
Fix this by checking the compilation result.
Fix the resulting DUPLICATE:
...
DUPLICATE: gdb.base/call-sc.exp: failed to prepare
...
using with_test_prefix.
Tested on x86_64-linux.
| -rw-r--r-- | gdb/testsuite/gdb.base/call-sc.exp | 45 |
1 files changed, 18 insertions, 27 deletions
diff --git a/gdb/testsuite/gdb.base/call-sc.exp b/gdb/testsuite/gdb.base/call-sc.exp index 6b712a3..5ba72a5 100644 --- a/gdb/testsuite/gdb.base/call-sc.exp +++ b/gdb/testsuite/gdb.base/call-sc.exp @@ -393,10 +393,17 @@ proc test_scalar_returns { } { # Test every single char struct from 1..17 in size. This is what the # original "scalars" test was doing. -start_scalars_test tc -test_scalar_calls -test_scalar_returns +proc test { type } { + with_test_prefix $type { + if { [start_scalars_test $type] == -1 } { + return + } + test_scalar_calls + test_scalar_returns + } +} +test tc # Let the fun begin. @@ -413,45 +420,29 @@ test_scalar_returns # naturally aligned. Padding being added where needed. # Approx size: 2, 4, ... -start_scalars_test ts -test_scalar_calls -test_scalar_returns +test ts # Approx size: 4, 8, ... -start_scalars_test ti -test_scalar_calls -test_scalar_returns +test ti # Approx size: 4, 8, ... -start_scalars_test tl -test_scalar_calls -test_scalar_returns +test tl # Approx size: 8, 16, ... -start_scalars_test tll -test_scalar_calls -test_scalar_returns +test tll if {!$skip_float_test} { # Approx size: 4, 8, ... - start_scalars_test tf - test_scalar_calls - test_scalar_returns + test tf # Approx size: 8, 16, ... - start_scalars_test td - test_scalar_calls - test_scalar_returns + test td # Approx size: 16, 32, ... - start_scalars_test tld - test_scalar_calls - test_scalar_returns + test tld } # Approx size: 4, 8, ... -start_scalars_test te -test_scalar_calls -test_scalar_returns +test te return 0 |