diff options
| author | Hans-Peter Nilsson <hp@axis.com> | 2012-05-17 12:06:55 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@axis.com> | 2012-05-17 12:06:55 +0000 |
| commit | 134fa82ef4b30284ea5f18b2a3902f6f3d3e2fa4 (patch) | |
| tree | 841eb7290ae10f5d826c66fe75f72da5506f8fef /ld/testsuite/lib | |
| parent | 3daa201b396d00e4490787f095020aac66fa7c50 (diff) | |
| download | gdb-134fa82ef4b30284ea5f18b2a3902f6f3d3e2fa4.zip gdb-134fa82ef4b30284ea5f18b2a3902f6f3d3e2fa4.tar.gz gdb-134fa82ef4b30284ea5f18b2a3902f6f3d3e2fa4.tar.bz2 | |
* lib/ld-lib.exp (run_dump_test): For options "warning" and
"error", append to earlier option values without adding a space.
Diffstat (limited to 'ld/testsuite/lib')
| -rw-r--r-- | ld/testsuite/lib/ld-lib.exp | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp index 9797dff..a481ce7 100644 --- 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) \ |