Merge commit 'upstream/2.20'

[msp430-binutils.git] / ld / testsuite / ld-elf / exclude.exp

diff --git a/ld/testsuite/ld-elf/exclude.exp b/ld/testsuite/ld-elf/exclude.exp
index 2bb8cf6aab68810796d68c2b5aa41eb5969dde6f..124549f735cd0d96521c6d2bcc3892958b395b6d 100644 (file)
--- a/ld/testsuite/ld-elf/exclude.exp
+++ b/ld/testsuite/ld-elf/exclude.exp
@@ -1,5 +1,5 @@
 # Expect script for --exclude-libs tests
-#   Copyright 2004, 2007 Free Software Foundation, Inc.
+#   Copyright 2004, 2005, 2007 Free Software Foundation, Inc.
 #
 # This file is part of the GNU Binutils.
 #
@@ -53,8 +53,8 @@ if { ![ld_assemble $as $srcdir/$subdir/exclude1.s tmpdir/exclude1.o ]
     return
 }
 
-catch "exec rm -f tmpdir/libexclude.a" catch_output
-catch "exec $ar cq tmpdir/libexclude.a tmpdir/exclude2.o" catch_output
+remote_file host delete "tmpdir/libexclude.a"
+set catch_output [run_host_cmd "$ar" "cq tmpdir/libexclude.a tmpdir/exclude2.o"]
 if {![string match "" $catch_output]} {
     unresolved $test1
     return