[gdb/testsuite] Clean up stale exec in gdb_compile_pascal

[thirdparty/binutils-gdb.git] / gdb / testsuite / lib / pascal.exp

diff --git a/gdb/testsuite/lib/pascal.exp b/gdb/testsuite/lib/pascal.exp
index 796c2a781e8e44d8c1fc09f16cded77aec5c5673..dcdbb8d1f954022a7dcd993e3337309b82543e3d 100644 (file)
--- 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 } {