diff options
| -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 |