Don't call "error" in sysroot-prefix.exp

We don't want to report a test failure as a tcl error.

	* testsuite/ld-scripts/sysroot-prefix.exp (sysroot_prefix_test_setup):
	Call perror rather than error on "as" or "ar" failures.

diff --git a/ld/ChangeLog b/ld/ChangeLog
index 1ae4435112737de0af87da0e62784a4a2469b49e..e879be469a2102d4c2ea01c58c59d30ec20c897e 100644 (file)
--- a/ld/ChangeLog
+++ b/ld/ChangeLog
@@ -1,3 +1,8 @@
+2016-12-22  Alan Modra  <amodra@gmail.com>
+
+       * testsuite/ld-scripts/sysroot-prefix.exp (sysroot_prefix_test_setup):
+       Call perror rather than error on "as" or "ar" failures.
+
 2016-12-21  Igor Kudrin  <ikudrin@accesssoftek.com>
 
        * ldlang.c (size_input_section): Avoid calling insert_pad

diff --git a/ld/testsuite/ld-scripts/sysroot-prefix.exp b/ld/testsuite/ld-scripts/sysroot-prefix.exp
index 47d065772beb4e99d522eea3f8b169456d75df6c..8c244713462b45b2303330527668ef3cecb28788 100644 (file)
--- a/ld/testsuite/ld-scripts/sysroot-prefix.exp
+++ b/ld/testsuite/ld-scripts/sysroot-prefix.exp
@@ -81,7 +81,7 @@ proc sysroot_prefix_test_setup { } {
     global as gasopt srcdir subdir ar
 
     if {![ld_assemble_flags $as $gasopt $srcdir/$subdir/pr14962a.s tmpdir/main.o]} {
-       error "Error assembling a trivial file for sysroot-prefix tests framework"
+       perror "Error assembling a trivial file for sysroot-prefix tests framework"
        return 0
     }
 
@@ -106,13 +106,13 @@ proc sysroot_prefix_test_setup { } {
        set libnamebase [lindex $test_object 2]
 
        if ![ld_assemble_flags $as $gasopt $srcdir/$subdir/$sname $oname] {
-           error "Error assembling trivial file $sname for sysroot-prefix tests framework"
+           perror "Error assembling trivial file $sname for sysroot-prefix tests framework"
            return 0
        }
 
        if { [string length $libnamebase] != 0 &&
             ![ar_simple_create $ar "" tmpdir/sysroot/tmp/ldtest-xyzzy/lib$libnamebase.a $oname] } {
-           error "Error creating archive $libnamebase for sysroot-prefix tests framework"
+           perror "Error creating archive $libnamebase for sysroot-prefix tests framework"
            return 0
        }
     }