Remove a29k support.
[platform/upstream/binutils.git] / binutils / testsuite / binutils-all / objcopy.exp
index b2032d0..cb9850a 100644 (file)
@@ -1,4 +1,6 @@
-#   Copyright (C) 1994 Free Software Foundation, Inc.
+#   Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
+#   2004
+#   Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # 
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
 
 # Please email any bugs, comments, and/or additions to this file to:
 # bug-dejagnu@prep.ai.mit.edu
 
 # Written by Ian Lance Taylor <ian@cygnus.com>
 
-if {[which $OBJCOPY] == 0} then {
-    perror "$OBJCOPY does not exist"
-    return
+if ![is_remote host] {
+    if {[which $OBJCOPY] == 0} then {
+        perror "$OBJCOPY does not exist"
+        return
+    }
 }
 
 send_user "Version [binutil_version $OBJCOPY]"
 
-if {![binutils_assemble $AS $srcdir$subdir/bintest.s tmpdir/bintest.o]} then {
+if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.o]} then {
+    perror "unresolved 1"
+    unresolved "objcopy (simple copy)"
     return
 }
 
-# Test that objcopy does not modify a file when copying it.
+if ![is_remote host] {
+    set tempfile tmpdir/bintest.o
+    set copyfile tmpdir/copy
+} else {
+    set tempfile [remote_download host tmpdir/bintest.o]
+    set copyfile copy
+}
 
-# Since some versions of the assembler don't use BFD to generate the
-# object file, we shouldn't assume that the version written by BFD will
-# be bit-for-bit identical.  It need merely be functionally identical.
-setup_xfail "sh-*-coff"
+# Test that objcopy does not modify a file when copying it.
 
-set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS tmpdir/bintest.o tmpdir/copy.o"]
+set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS $tempfile ${copyfile}.o"]
 
 if ![string match "" $got] then {
     fail "objcopy (simple copy)"
 } else {
-    send_log "cmp tmpdir/bintest.o tmpdir/copy.o\n"
-    verbose "cmp tmpdir/bintest.o tmpdir/copy.o"
-    catch "exec cmp tmpdir/bintest.o tmpdir/copy.o" exec_output
+    send_log "cmp $tempfile ${copyfile}.o\n"
+    verbose "cmp $tempfile ${copyfile}.o"
+    if [is_remote host] {
+       set src1 tmpdir/bintest.o
+       set src2 tmpdir/copy.o
+       remote_upload host $tempfile $src1
+       remote_upload host ${copyfile}.o $src2
+    } else {
+       set src1 ${tempfile}
+       set src2 ${copyfile}.o
+    }
+    set status [remote_exec build cmp "${src1} ${src2}"]
+    set exec_output [lindex $status 1]
+    set exec_output [prune_warnings $exec_output]
 
     # On some systems the result of objcopy will not be identical.
+    # Usually this is just because gas isn't using bfd to write the files
+    # in the first place, and may order things a little differently.
     # Those systems should use setup_xfail here.
 
+    setup_xfail "h8300-*-rtems*" "h8300-*-coff"
+    setup_xfail "h8500-*-rtems*" "h8500-*-coff"
+    setup_xfail "hppa*-*-*"
+    setup_xfail "i960-*"
+    setup_xfail "m68*-*-*coff" "m68*-*-hpux*" "m68*-*-lynxos*"
+    setup_xfail "m68*-*-sysv*" "m68*-apple-aux*"
+    setup_xfail "m8*-*"
+    setup_xfail "or32-*-rtems*" "or32-*-coff"
+    setup_xfail "sh-*-coff*" "sh-*-rtems*" 
+    setup_xfail "tic4x-*-*" "tic80-*-*" "w65-*" "z8*-*"
+
+    clear_xfail "hppa*64*-*-hpux*" "hppa*-*-linux*" "hppa*-*-lites*"
+    clear_xfail "hppa*-*-*n*bsd*" "hppa*-*-rtems*" "*-*-*elf*" "m68*-*-sysv4*"
+
     if [string match "" $exec_output] then {
        pass "objcopy (simple copy)"
     } else {
        send_log "$exec_output\n"
        verbose "$exec_output" 1
 
+       # On OSF/1, this succeeds with gas and fails with /bin/as.
+       setup_xfail "alpha*-*-osf*"
+
+       # This fails for COFF i960-vxworks targets.
+       setup_xfail "i960-*-vxworks*"
+
        fail "objcopy (simple copy)"
     }
 }
 
 # Test generating S records.
 
-set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec"]
+# We make the srec filename 8.3 compatible. Note that the header string
+# matched against depends on the name of the file. Ugh.
+
+if [is_remote host] {
+    set srecfile copy.sre
+    set header_string S00B0000636F70792E737265C1
+} else {
+    set srecfile ${copyfile}.srec
+    set header_string S0130000746D706469722F636F70792E7372656397
+}
+
+set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec $tempfile ${srecfile}"]
 
 if ![string match "" $got] then {
     fail "objcopy -O srec"
 } else {
-    set file [open tmpdir/copy.srec r]
+    if [is_remote host] {
+       remote_upload host ${srecfile} tmpdir/copy.srec
+       set srecfile tmpdir/copy.srec
+    }
+    set file [open ${srecfile} r]
 
     # The first S record is fixed by the file name we are using.
     gets $file line
     send_log "$line\n"
     verbose $line
-    if ![string match $line "S0130000746D706469722F636F70792E7372656397\r"] {
-       fail "objcopy -O srec (bad header)"
+    if ![regexp "$header_string.*" $line] {
+       send_log "bad header\n"
+       fail "objcopy -O srec"
     } else {
        while {[gets $file line] != -1 \
-              && [regexp "^S\[123\]\[0-9a-fA-F\]+\r$" $line]} {
+              && [regexp "^S\[123\]\[0-9a-fA-F\]+\[\r\n\]*$" $line]} {
            send_log "$line\n"
            verbose $line
            set line "**EOF**"
        }
        send_log "$line\n"
        verbose $line
-       if ![regexp "^S\[789\]\[0-9a-fA-F\]+\r$" $line] then {
-           fail "objcopy -O srec (bad trailer)"
+       if ![regexp "^S\[789\]\[0-9a-fA-F\]+\[\r\n\]*$" $line] then {
+           send_log "bad trailer\n"
+           fail "objcopy -O srec"
        } else {
            if {[gets $file line] != -1} then {
+               send_log "garbage at end\n"
                send_log "$line\n"
                verbose $line
-               fail "objcopy -O srec (garbage at end)"
+               fail "objcopy -O srec"
            } else {
-               set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/copy.srec"]
+               set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f ${copyfile}.srec"]
                if ![regexp "file format srec" $got] then {
-                   fail "objcopy -O srec (objdump failed)"
+                   send_log "objdump failed\n"
+                   fail "objcopy -O srec"
                } else {
                    pass "objcopy -O srec"
                }
@@ -109,37 +170,39 @@ if ![string match "" $got] then {
 # start address for other object file formats, and the S record case
 # is the only useful one anyhow.
 
-set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/bintest.o"]
+set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f $tempfile"]
 if ![regexp "start address (\[0-9a-fA-FxX\]+)" $got all origstart] then {
     perror "objdump can not recognize bintest.o"
     set origstart ""
 } else {
-    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec --set-start 0x7654"]
+    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec --set-start 0x7654 $tempfile ${copyfile}.srec"]
     if ![string match "" $got] then {
        fail "objcopy --set-start"
     } else {
-       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/copy.srec"]
+       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f ${copyfile}.srec"]
        if ![regexp "file format srec.*start address (\[0-9a-fA-FxX\]+)" $got all srecstart] then {
            fail "objcopy --set-start"
        } else {
            if {$srecstart != 0x7654} then {
-               fail "objcopy --set-start ($srecstart != 0x7654)"
+               send_log "$srecstart != 0x7654\n"
+               fail "objcopy --set-start"
            } else {
                pass "objcopy --set-start"
            }
        }
     }
 
-    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec --adjust-start 0x123"]
+    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec --adjust-start 0x123 $tempfile ${copyfile}.srec"]
     if ![string match "" $got] then {
        fail "objcopy --adjust-start"
     } else {
-       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f tmpdir/copy.srec"]
+       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -f ${copyfile}.srec"]
        if ![regexp "file format srec.*start address (\[0-9a-fA-FxX\]+)" $got all srecstart] then {
            fail "objcopy --adjust-start"
        } else {
            if {$srecstart != $origstart + 0x123} then {
-               fail "objcopy --adjust-start ($srecstart != $origstart + 0x123)"
+               send_log "$srecstart != $origstart + 0x123\n"
+               fail "objcopy --adjust-start"
            } else {
                pass "objcopy --adjust-start"
            }
@@ -148,22 +211,25 @@ if ![regexp "start address (\[0-9a-fA-FxX\]+)" $got all origstart] then {
 }
 
 # Test adjusting the overall VMA, and adjusting the VMA of a
-# particular section.  We again only test this when generating S
+# particular section.  We again only test this when generating S
 # records.
 
 set low ""
 set lowname ""
 
-set headers [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/bintest.o"]
+set headers [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h $tempfile"]
 
-set headers_regexp "SECTION\[  0-9\]+\\\[(\[^\]\]*)\\\]\[^\n\r\]*size\[        \]*(\[0-9a-fA-F\]+)\[   \]*vma\[        \]*(\[0-9a-fA-F\]+)(.*)"
+set headers_regexp "\[         0-9\]+(\[^      \]+)\[  \]*(\[0-9a-fA-F\]+)\[   \]+\[0-9a-fA-F\]+\[     \]+(\[0-9a-fA-F\]+)\[   \]+\[0-9a-fA-F\]+\[     \]+2\[*\]\[*\]\[0-9\]+(.*)"
 
 set got $headers
 while {[regexp $headers_regexp $got all name size vma rest]} {
     set vma 0x$vma
-    if {$low == "" || $vma < $low} then {
-        set low $vma
-       set lowname $name
+    set size 0x$size
+    if {$size != 0} {
+       if {$low == "" || $vma < $low} {
+            set low $vma
+           set lowname $name
+       }
     }
     set got $rest
 }
@@ -171,21 +237,23 @@ while {[regexp $headers_regexp $got all name size vma rest]} {
 if {$low == "" || $origstart == ""} then {
     perror "objdump can not recognize bintest.o"
 } else {
-    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec --adjust-vma 0x123"]
+    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec --adjust-vma 0x123 $tempfile ${copyfile}.srec"]
     if ![string match "" $got] then {
         fail "objcopy --adjust-vma"
     } else {
-       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -fh tmpdir/copy.srec"]
-       set want "file format srec.*start address\[     \]*(\[0-9a-fA-FxX\]+).*vma\[    \]*(\[0-9a-fA-F\]+)"
+       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -fh ${copyfile}.srec"]
+       set want "file format srec.*start address\[     \]*(\[0-9a-fA-FxX\]+).*sec1\[   \]+\[0-9a-fA-F\]+\[     \]+(\[0-9a-fA-F\]+)"
        if ![regexp $want $got all start vma] then {
            fail "objcopy --adjust-vma"
        } else {
            set vma 0x$vma
            if {$vma != $low + 0x123} then {
-               fail "objcopy --adjust-vma ($vma != $low + 0x123)"
+               send_log "$vma != $low + 0x123\n"
+               fail "objcopy --adjust-vma"
            } else {
                if {$start != $origstart + 0x123} then {
-                   fail "objcopy --adjust-vma ($start != $origstart + 0x123)"
+                   send_log "$start != $origstart + 0x123\n"
+                   fail "objcopy --adjust-vma"
                } else {
                    pass "objcopy --adjust-vma"
                }
@@ -203,18 +271,19 @@ if {$low == "" || $origstart == ""} then {
        set got $rest
     }
 
-    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec $arg"]
+    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec $arg $tempfile ${copyfile}.srec"]
     if ![string match "" $got] then {
        fail "objcopy --adjust-section-vma +"
     } else {
-       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/copy.srec"]
-       set want "file format srec.*SECTION\[   \]*0\[^\n\r\]*vma\[     \]*(\[0-9a-fA-F\]+)"
+       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h ${copyfile}.srec"]
+       set want "file format srec.*sec1\[      \]+\[0-9a-fA-F\]+\[     \]+(\[0-9a-fA-F\]+)"
        if ![regexp $want $got all vma] then {
            fail "objcopy --adjust-section-vma +"
        } else {
            set vma 0x$vma
            if {$vma != $low + 4} then {
-               fail "objcopy --adjust-section-vma + ($vma != $low + 4)"
+               send_log "$vma != $low + 4\n"
+               fail "objcopy --adjust-section-vma +"
            } else {
                pass "objcopy --adjust-section-vma +"
            }
@@ -222,21 +291,360 @@ if {$low == "" || $origstart == ""} then {
     }
 
     regsub -all "\\+4" $arg "=[expr $low + 4]" argeq
-    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec tmpdir/bintest.o tmpdir/copy.srec $argeq"]
+    set got [binutils_run $OBJCOPY "$OBJCOPYFLAGS -O srec $argeq $tempfile ${copyfile}.srec"]
     if ![string match "" $got] then {
        fail "objcopy --adjust-section-vma ="
     } else {
-       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/copy.srec"]
-       set want "file format srec.*SECTION\[   \]*0\[^\n\r\]*vma\[     \]*(\[0-9a-fA-F\]+)"
+       set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h ${copyfile}.srec"]
+       set want "file format srec.*sec1\[      \]+\[0-9a-fA-F\]+\[     \]+(\[0-9a-fA-F\]+)"
        if ![regexp $want $got all vma] then {
            fail "objcopy --adjust-section-vma ="
        } else {
            set vma 0x$vma
            if {$vma != $low + 4} then {
-               fail "objcopy --adjust-section-vma = ($vma != $low + 4)"
+               send_log "$vma != $low + 4\n"
+               fail "objcopy --adjust-section-vma ="
            } else {
                pass "objcopy --adjust-section-vma ="
            }
        }
     }
 }
+
+# Test stripping an object.
+
+proc strip_test { } {
+    global AR
+    global CC
+    global STRIP
+    global STRIPFLAGS
+    global NM
+    global NMFLAGS
+    global srcdir
+    global subdir
+
+    set test "strip"
+
+    if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog.o object debug] != "" } {
+       untested $test
+       return
+    }
+
+    if [is_remote host] {
+       set archive libstrip.a
+       set objfile [remote_download host tmpdir/testprog.o]
+       remote_file host delete $archive
+    } else {
+       set archive tmpdir/libstrip.a
+       set objfile tmpdir/testprog.o
+    }
+
+    remote_file build delete tmpdir/libstrip.a
+
+    set exec_output [binutils_run $AR "rc $archive ${objfile}"]
+    if ![string match "" $exec_output] {
+       fail $test
+       return
+    }
+
+    set exec_output [binutils_run $STRIP "$STRIPFLAGS $archive"]
+    if ![string match "" $exec_output] {
+       fail $test
+       return
+    }
+
+    if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog.o object debug] != "" } {
+       untested $test
+       return
+    }
+
+    if [is_remote host] {
+       set objfile [remote_download host tmpdir/testprog.o]
+    } else {
+       set objfile tmpdir/testprog.o
+    }
+
+    set exec_output [binutils_run $STRIP "$STRIPFLAGS $objfile"]
+    if ![string match "" $exec_output] {
+       fail $test
+       return
+    }
+
+    set exec_output [binutils_run $NM "-a $NMFLAGS $objfile"]
+    if ![string match "*: no symbols*" $exec_output] {
+       fail $test
+       return
+    }
+
+    pass $test
+}
+
+strip_test
+
+# Test stripping an object file with saving a symbol
+
+proc strip_test_with_saving_a_symbol { } {
+    global CC
+    global STRIP
+    global STRIPFLAGS
+    global NM
+    global NMFLAGS
+    global srcdir
+    global subdir
+
+    set test "strip with saving a symbol"
+
+    if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog.o object debug] != "" } {
+       untested $test
+       return
+    }
+
+    if [is_remote host] {
+       set objfile [remote_download host tmpdir/testprog.o]
+    } else {
+       set objfile tmpdir/testprog.o
+    }
+
+    set exec_output [binutils_run $STRIP "$STRIPFLAGS -K main -K _main $objfile"]
+    if ![string match "" $exec_output] {
+       fail $test
+       return
+    }
+
+    set exec_output [binutils_run $NM "$NMFLAGS $objfile"]
+    if {![regexp {^([0-9a-fA-F]+)?[ ]+[TD] main} $exec_output] \
+         && ![regexp {^([0-9a-fA-F]+)?[ ]+T _main} $exec_output]} {
+       fail $test
+       return
+    }
+
+    pass $test
+}
+
+strip_test_with_saving_a_symbol
+
+# Build a final executable.
+
+if { [istarget *-*-cygwin] || [istarget *-*-mingw32] } {
+    set test_prog "testprog.exe"
+} else {
+    set test_prog "testprog"
+}
+
+proc copy_setup { } {
+    global srcdir
+    global subdir
+    global gcc_gas_flag
+    global test_prog
+    
+    set res [build_wrapper testglue.o]
+    set flags { debug }
+    
+    if { $res != "" } {
+       lappend flags "additional_flags=[lindex $res 1]"
+       set add_libs "testglue.o"
+    } else {
+       set add_libs ""
+    }
+
+    if { [istarget *-*-linux*] } {
+       foreach i $gcc_gas_flag {
+           set flags "additional_flags=$i $flags"
+       }
+    }
+    if { [target_compile "$srcdir/$subdir/testprog.c $add_libs" tmpdir/$test_prog executable $flags]  != "" } {
+       return 2
+    }
+
+    set result [remote_load target tmpdir/$test_prog]
+    set status [lindex $result 0]
+
+    if { $status != "pass"  } {
+       perror "unresolved setup, status = $status"
+       return 3
+    }
+
+    return 0
+}
+
+# Test copying an executable.
+
+proc copy_executable { prog flags test1 test2 } {
+    global test_prog
+
+    if [is_remote host] {
+       set testfile [remote_download host tmpdir/$test_prog]
+       set testcopy copyprog
+    } else {
+       set testfile tmpdir/$test_prog
+       set testcopy tmpdir/copyprog
+    }
+    remote_file host delete $testcopy
+
+    set exec_output [binutils_run $prog "$flags $testfile $testcopy"]
+
+    if ![string match "" $exec_output] {
+       fail $test1
+       fail $test2
+       return
+    }
+
+    if [is_remote host] {
+       remote_upload host $testcopy tmpdir/copyprog
+    }
+
+    set status [remote_exec build "cmp" "tmpdir/$test_prog tmpdir/copyprog"]
+    set exec_output [lindex $status 1]
+
+    if [string match "" $exec_output] then {
+       pass $test1
+    } else {
+       send_log "$exec_output\n"
+       verbose "$exec_output"
+
+       # This will fail for many reasons.  For example, it will most
+       # likely fail if a non-GNU linker is used.  Therefore, we do
+       # not insist that it pass.  If you are using an assembler and
+       # linker based on the same BFD as objcopy, it is worth
+       # investigating to see why this failure occurs.  If we are
+       # cross compiling, we assume that a GNU linker is being used,
+       # and expect it to succeed.
+       if {[isnative]} then {
+           setup_xfail "*-*-*"
+       }
+
+       # This also fails for mips*-*-elf targets.  See elf32-mips.c
+       # mips_elf_sym_is_global.
+       setup_xfail "mips*-*-elf"
+
+       setup_xfail "*arm*-*-coff"
+       setup_xfail "xscale-*-coff"
+       setup_xfail "arm*-*-pe"
+       setup_xfail "thumb*-*-coff"
+       setup_xfail "thumb*-*-pe"
+    
+       fail $test1
+    }
+
+    set output [remote_load target tmpdir/copyprog]
+    set status [lindex $output 0]
+    if { $status != "pass" } {
+       fail $test2
+    } else {
+       pass $test2
+    }
+}
+
+# Test stripping an executable
+
+proc strip_executable { prog flags test } {
+    global NM
+    global NMFLAGS
+
+    remote_download build tmpdir/copyprog tmpdir/striprog
+    if [is_remote host] {
+       set copyfile [remote_download host tmpdir/striprog]
+    } else {
+       set copyfile tmpdir/striprog
+    }
+
+    set exec_output [binutils_run $prog "$flags ${copyfile}"]
+    if ![string match "" $exec_output] {
+       fail $test
+       return
+    }
+
+    if [is_remote host] {
+       remote_upload host ${copyfile} tmpdir/striprog
+    }
+
+    set result [remote_load target tmpdir/striprog]
+    set status [lindex $result 0]
+    if { $status != "pass" } {
+       fail $test
+        return
+    }
+
+    set exec_output [binutils_run $NM "$NMFLAGS ${copyfile}"]
+    if ![string match "*: no symbols*" $exec_output] {
+       fail $test
+       return
+    }
+    pass $test
+}
+
+# Test stripping an executable with saving a symbol
+
+proc strip_executable_with_saving_a_symbol { prog flags test } {
+    global NM
+    global NMFLAGS
+
+    remote_download build tmpdir/copyprog tmpdir/striprog
+    if [is_remote host] {
+       set copyfile [remote_download host tmpdir/striprog]
+    } else {
+       set copyfile tmpdir/striprog
+    }
+
+    set exec_output [binutils_run $prog "$flags ${copyfile}"]
+    if ![string match "" $exec_output] {
+       fail $test
+       return
+    }
+
+    if [is_remote host] {
+       remote_upload host ${copyfile} tmpdir/striprog
+    }
+
+    set result [remote_load target tmpdir/striprog]
+    set status [lindex $result 0]
+    if { $status != "pass" } {
+       fail $test
+        return
+    }
+
+    set exec_output [binutils_run $NM "$NMFLAGS ${copyfile}"]
+    if { [istarget mmix-knuth-mmixware] } {
+       # Whenever there's a symbol in the mmo format, there's the symbol
+       # Main, so remove it manually from the expected output for sake of
+       # this test.
+
+       # Using "" not {} to get the \n and \r translated.
+       regsub "^\[0-9a-fA-F\]+\[ \]+T Main\[\n\r\]+" $exec_output "" exec_output
+    }
+
+    if {![regexp {^([0-9a-fA-F]+)?[ ]+[TD] main} $exec_output] \
+         && ![regexp {^([0-9a-fA-F]+)?[ ]+[TD] _main} $exec_output]} {
+       fail $test
+       return
+    }
+    pass $test
+}
+
+set test1 "simple objcopy of executable"
+set test2 "run objcopy of executable"
+set test3 "run stripped executable"
+set test4 "run stripped executable with saving a symbol"
+
+switch [copy_setup] {
+    "1" {
+       # do nothing
+    }
+    "2" {
+       untested $test1
+       untested $test2
+       untested $test3
+       untested $test4
+    }
+    "3" {
+       unresolved $test1
+       unresolved $test2
+       unresolved $test3
+       unresolved $test4
+    }
+    "0" {
+       copy_executable "$OBJCOPY" "$OBJCOPYFLAGS" "$test1" "$test2"
+       strip_executable "$STRIP" "$STRIPFLAGS" "$test3"
+       strip_executable_with_saving_a_symbol "$STRIP" "-K main -K _main $STRIPFLAGS" "$test4"
+    }
+}