aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/lib/pascal.exp
diff options
context:
space:
mode:
authorTom de Vries <tdevries@suse.de>2019-08-20 17:18:09 +0200
committerTom de Vries <tdevries@suse.de>2019-08-20 17:18:09 +0200
commitd7a11d1383a2d0cdffc8c08e46b0cf5a66b3ce28 (patch)
tree266dc886c2a3dfbdddc94f624105e59c772960cf /gdb/testsuite/lib/pascal.exp
parentaedbe3bb9f03be12ad714adca1fefc391317bd94 (diff)
downloadgdb-d7a11d1383a2d0cdffc8c08e46b0cf5a66b3ce28.zip
gdb-d7a11d1383a2d0cdffc8c08e46b0cf5a66b3ce28.tar.gz
gdb-d7a11d1383a2d0cdffc8c08e46b0cf5a66b3ce28.tar.bz2
[gdb/testsuite] Clean up stale exec in gdb_compile_pascal
When running a pascal test with the stabs target board: ... $ test=gdb.pascal/case-insensitive-symbols.exp $ cd build/gdb/testsuite $ make check RUNTESTFLAGS="$test --target_board=stabs" ... we get: ... nr of untested testcases 1 nr of unsupported tests 1 ... due to: ... Error: Illegal parameter: -gstabs+^M Error: /usr/bin/ppcx64 returned an error exitcode^M ... OTOH, when running the same pascal test without the stabs target board: ... $ make check RUNTESTFLAGS="$test" ... we get: ... nr of expected passes 20 ... But when subsequently again running with the stabs target board: ... $ make check RUNTESTFLAGS="$test --target_board=stabs" ... we now get: ... nr of expected passes 20 ... The problem is that gdb_compile_pascal determines success based on existence of the exec after compilation: ... if ![file exists $destfile] { unsupported "Pascal compilation failed: $result" return "Pascal compilation failed." } ... without removing the exec before compilation, which allows a stale exec to make it seem as if compilation has succeeded. Fix this by removing the stale exec before compilation. gdb/testsuite/ChangeLog: 2019-08-20 Tom de Vries <tdevries@suse.de> * lib/pascal.exp (gdb_compile_pascal): Remove $destfile before compilation.
Diffstat (limited to 'gdb/testsuite/lib/pascal.exp')
-rw-r--r--gdb/testsuite/lib/pascal.exp2
1 files changed, 2 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/pascal.exp b/gdb/testsuite/lib/pascal.exp
index 796c2a7..dcdbb8d 100644
--- a/gdb/testsuite/lib/pascal.exp
+++ b/gdb/testsuite/lib/pascal.exp
@@ -153,6 +153,8 @@ proc gdb_compile_pascal {source destfile type options} {
pascal_init
}
+ file delete $destfile
+
if { $pascal_compiler_is_fpc == 1 } {
set result [fpc_compile $source $destfile $type $options]
} elseif { $pascal_compiler_is_gpc == 1 } {