* lib/ld-lib.exp (run_dump_test): Add verbose to list of globals.

        Replace call to verbose_eval with a test of verbose level.  If
        greater than 2 always dump the contents of the dumpfile.  If equal
        to 2 only dump the contents if the regexp diff failed.
        (proc verbose_eval): Delete.

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index e0984c9d731b722d32351d75039de2b4a75d0f2c..5be4b60d86dc196641ef7ea7edaefb81cea4bb0f 100644 (file)
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2009-03-13  Nick Clifton  <nickc@redhat.com>
+
+       * lib/ld-lib.exp (run_dump_test): Add verbose to list of globals.
+       Replace call to verbose_eval with a test of verbose level.  If
+       greater than 2 always dump the contents of the dumpfile.  If equal
+       to 2 only dump the contents if the regexp diff failed.
+       (proc verbose_eval): Delete.
+
 2009-03-07  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
        * ld-elf/empty2.d: Remove xfail for hppa*-*-*.

diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp
index 05cdf1f14ea064150f8382d4a9b38dc966561c7d..0257cea252fe9eed73a5d425b7469bfa0f091148 100644 (file)
--- a/ld/testsuite/lib/ld-lib.exp
+++ b/ld/testsuite/lib/ld-lib.exp
@@ -629,7 +629,7 @@ proc run_dump_test { name } {
     global OBJDUMP NM AS OBJCOPY READELF LD
     global OBJDUMPFLAGS NMFLAGS ASFLAGS OBJCOPYFLAGS READELFFLAGS LDFLAGS
     global host_triplet runtests
-    global env
+    global env verbose
 
     if [string match "*/*" $name] {
        set file $name
@@ -946,10 +946,10 @@ proc run_dump_test { name } {
        return
     }
 
-    verbose_eval {[file_contents $dumpfile]} 3
+    if { $verbose > 2 } then { verbose "output is [file_contents $dumpfile]" 3 }
     if { [regexp_diff $dumpfile "${file}.d"] } then {
        fail $testname
-       verbose "output is [file_contents $dumpfile]" 2
+       if { $verbose == 2 } then { verbose "output is [file_contents $dumpfile]" 2 }
        return
     }
 
@@ -1274,12 +1274,6 @@ proc run_ld_link_tests { ldtests } {
     }
 }
 
-
-proc verbose_eval { expr { level 1 } } {
-    global verbose
-    if $verbose>$level then { eval verbose "$expr" $level }
-}
-
 # This definition is taken from an unreleased version of DejaGnu.  Once
 # that version gets released, and has been out in the world for a few
 # months at least, it may be safe to delete this copy.