gcc-dg.exp (${tool}_load): Fix invocation of saved_${tool}_load.

gcc/testsuite/
	* lib/gcc-dg.exp (${tool}_load): Fix invocation of
	saved_${tool}_load.

From-SVN: r119795

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 724bd05c827786593e6ec8a0e770090e6b773c84..6f84fa5518816dc56b0a6176b0a5b3fda64e1bdc 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-12  Richard Sandiford  <richard@codesourcery.com>
+
+       * lib/gcc-dg.exp (${tool}_load): Fix invocation of
+       saved_${tool}_load.
+
 2006-12-12  Ira Rosen  <irar@il.ibm.com>
 
        * gcc.dg/vect/vect-strided-store-u32-i2.c: New test.

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 2dedf3b512aafb84e226f5ad50bc24f0f7b87971..5764c0fed37a89cdc22045f1570551609bea83f1 100644 (file)
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -196,7 +196,7 @@ if { [info procs ${tool}_load] != [list] \
     proc ${tool}_load { program args } {
        global tool
        global shouldfail
-       set result [saved_${tool}_load $program $args]
+       set result [eval [list saved_${tool}_load $program] $args]
        if { $shouldfail != 0 } {
            switch [lindex $result 0] {
                "pass" { set status "fail" }