* lib/ld-lib.exp (run_dump_test): For options "warning" and

	"error", append to earlier option values without adding a space.

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index e726c76ff427cb70e877e8acc81b3168b3dff2ff..91ad2040e65d2434ed6fd0ea3a70118ff0040b6b 100644 (file)
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-17  Hans-Peter Nilsson  <hp@axis.com>
+
+       * lib/ld-lib.exp (run_dump_test): For options "warning" and
+       "error", append to earlier option values without adding a space.
+
 2012-05-17  Alan Modra  <amodra@gmail.com>
 
        * ld-m68k/tls-ld-1.d: Update.

diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp
index 9797dffe0feffac53f782f75ab902e933a7c99a8..a481ce72199eda0ed670d11e37b1599bf21169d4 100644 (file)
--- a/ld/testsuite/lib/ld-lib.exp
+++ b/ld/testsuite/lib/ld-lib.exp
@@ -623,7 +623,18 @@ proc run_dump_test { name } {
        if { $opt_name == "as" || $opt_name == "ld" } {
            set opt_val [subst $opt_val]
        }
-       set opts($opt_name) [concat $opts($opt_name) $opt_val]
+
+       # Append differently whether it's a message (without space) or
+       # an option or list (with space).
+       switch -- $opt_name {
+           warning -
+           error {
+               append opts($opt_name) $opt_val
+           }
+           default {
+               set opts($opt_name) [concat $opts($opt_name) $opt_val]
+           }
+       }
     }
     foreach opt { as ld } {
        regsub {\[big_or_little_endian\]} $opts($opt) \