diff options
author | Tom de Vries <tdevries@suse.de> | 2019-08-20 17:18:09 +0200 |
---|---|---|
committer | Tom de Vries <tdevries@suse.de> | 2019-08-20 17:18:09 +0200 |
commit | d7a11d1383a2d0cdffc8c08e46b0cf5a66b3ce28 (patch) | |
tree | 266dc886c2a3dfbdddc94f624105e59c772960cf /gdb/testsuite/lib/pascal.exp | |
parent | aedbe3bb9f03be12ad714adca1fefc391317bd94 (diff) | |
download | gdb-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.exp | 2 |
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 } { |