[PATCH 2/4] gdb.base/callfuncs.exp: Adjust for Windows
Pedro Alves <[email protected]>
| Newsgroups | gmane.comp.gdb.patches |
|---|---|
| Message-ID | <[email protected]> |
On Windows, gdb.base/callfuncs.exp currently ends up skipping the
"noproto" tests, like:
UNTESTED: gdb.base/callfuncs.exp: noproto: failed to prepare
This is because the testcase tries to overwrite the executable while
GDB has the executable still open, which doesn't work on Windows:
Executing on host: x86_64-w64-mingw32-gcc ... -o .../gdb.base/callfuncs/callfuncs
.../x86_64-w64-mingw32/bin/ld.exe: cannot open output file .../gdb.base/callfuncs/callfuncs.exe: Permission denied
Fix this with two changes:
- Compile the prototyped and non-prototyped executables to two
separate executables. This is just what we normally do, so that
it's convenient to test manually against either of the executables.
- Restart GDB instead of just re-running to main.
Strictly speaking, either of the changes alone would fix it, but I
think both are useful to do.
Change-Id: I496e0da65f9d484079c5d9a1222104bec39ee98b
---
gdb/testsuite/gdb.base/callfuncs.exp | 26 ++++++++++++++------------
1 file changed, 14 insertions(+), 12 deletions(-)
diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp
index f2870c577f2..f020100ce8b 100644
--- a/gdb/testsuite/gdb.base/callfuncs.exp
+++ b/gdb/testsuite/gdb.base/callfuncs.exp
@@ -334,12 +334,18 @@ proc fetch_all_registers {test} {
# Global used by RERUN_AND_PREPARE to make test names unique.
set rerun_count 0
-proc rerun_and_prepare {} {
+proc rerun_and_prepare {prototypes} {
global rerun_count
+ clean_restart $::testfile-$prototypes
+
incr rerun_count
with_test_prefix "rerun number ${rerun_count}" {
+ gdb_test_no_output "set print sevenbit-strings"
+ gdb_test_no_output "set print address off"
+ gdb_test_no_output "set width 0"
+
if { ![runto_main] } {
return
}
@@ -359,11 +365,7 @@ proc rerun_and_prepare {} {
}
proc perform_all_tests {prototypes} {
- gdb_test_no_output "set print sevenbit-strings"
- gdb_test_no_output "set print address off"
- gdb_test_no_output "set width 0"
-
- rerun_and_prepare
+ rerun_and_prepare $prototypes
# Save all register contents.
set old_reg_content \
@@ -382,7 +384,7 @@ proc perform_all_tests {prototypes} {
fail "gdb function calls preserve register contents"
}
- rerun_and_prepare
+ rerun_and_prepare $prototypes
# Save all register contents.
set old_reg_content \
[fetch_all_registers "retrieve original register contents 2"]
@@ -408,7 +410,7 @@ proc perform_all_tests {prototypes} {
}
}
- rerun_and_prepare
+ rerun_and_prepare $prototypes
# Set breakpoint at a function we will call from gdb.
gdb_breakpoint add
# Save all register contents.
@@ -434,7 +436,7 @@ proc perform_all_tests {prototypes} {
}
}
- rerun_and_prepare
+ rerun_and_prepare $prototypes
# Set breakpoint at a function we will call from gdb.
gdb_breakpoint add
# Save all register contents.
@@ -459,7 +461,7 @@ proc perform_all_tests {prototypes} {
}
}
- rerun_and_prepare
+ rerun_and_prepare $prototypes
# Set breakpoint at a function we will call from gdb.
gdb_breakpoint add
set old_reg_content \
@@ -547,12 +549,12 @@ proc perform_all_tests {prototypes} {
# Perform all tests with and without function prototypes.
-if { ![prepare_for_testing "failed to prepare" $testfile $srcfile "$compile_flags additional_flags=-DPROTOTYPES"] } {
+if { ![prepare_for_testing "failed to prepare" $testfile-1 $srcfile "$compile_flags additional_flags=-DPROTOTYPES"] } {
perform_all_tests 1
}
with_test_prefix "noproto" {
- if { ![prepare_for_testing "failed to prepare" $testfile $srcfile \
+ if { ![prepare_for_testing "failed to prepare" $testfile-0 $srcfile \
"$compile_flags additional_flags=-DNO_PROTOTYPES"] } {
perform_all_tests 0
}
--
2.54.0