X-Git-Url: https://oss.titaniummirror.com/gitweb?p=msp430-binutils.git;a=blobdiff_plain;f=ld%2Ftestsuite%2Fld-elf%2Fexclude.exp;fp=ld%2Ftestsuite%2Fld-elf%2Fexclude.exp;h=124549f735cd0d96521c6d2bcc3892958b395b6d;hp=2bb8cf6aab68810796d68c2b5aa41eb5969dde6f;hb=88750007d7869f178f0ba528f41efd3b74c424cf;hpb=6df9443a374e2b81278c61b8afc0a1eef7db280b

diff --git a/ld/testsuite/ld-elf/exclude.exp b/ld/testsuite/ld-elf/exclude.exp
index 2bb8cf6..124549f 100644
--- 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