Don't use the output section size to copy input section

[deliverable/binutils-gdb.git] / binutils / testsuite / lib / utils-lib.exp

diff --git a/binutils/testsuite/lib/utils-lib.exp b/binutils/testsuite/lib/utils-lib.exp
index 9c24cf17ba7ba4e1d5feeb9b996123e5d686de11..fd5b6f630a3d4be64ab813d19c4435008059e735 100644 (file)
--- a/binutils/testsuite/lib/utils-lib.exp
+++ b/binutils/testsuite/lib/utils-lib.exp
@@ -447,12 +447,16 @@ proc run_dump_test { name {extra_options {}} } {
        set srcfile $srcdir/$subdir/$opts(source)
     }
 
-    set exec_output [binutils_assemble_flags ${srcfile} $tempfile $opts(as)]
-    if [string match "" $exec_output] then {
-       send_log "$exec_output\n"
-       verbose "$exec_output"
-       fail $testname
-       return
+    if { $opts(as) == "binary" } {
+       file copy -force ${srcfile} $tempfile
+    } else {
+       set exec_output [binutils_assemble_flags ${srcfile} $tempfile $opts(as)]
+       if [string match "" $exec_output] then {
+           send_log "$exec_output\n"
+           verbose "$exec_output"
+           fail $testname
+          return
+       }
     }
 
     set progopts1 $opts($program)