+2008-07-08 Kai Tietz <kai.tietz@onevision.com>
+
+ * binutils-all/objcopy.exp (copy_setup): Check if host-triplet
+ is target-triplet for execution tests.
+ (copy_executable): Likewise.
+ (strip_executable): Likewise.
+ (strip_executable_with_saving_a_symbol): Likewise.
+
2008-05-29 Jan Kratochvil <jan.kratochvil@redhat.com>
* binutils-all/objcopy.exp: Call KEEP_DEBUG_SYMBOLS_AND_TEST_COPY.
global subdir
global gcc_gas_flag
global test_prog
+ global host_triplet
set res [build_wrapper testglue.o]
set flags { debug }
set status [lindex $result 0]
if { $status != "pass" } {
- send_log "cannot run executable, status = ${status}\n"
- return 3
+ send_log "cannot run executable, status = ${status} on ${host_triplet}\n"
+ if { [istarget $host_triplet] } {
+ return 3
+ }
+ set status "pass"
}
return 0
proc copy_executable { prog flags test1 test2 } {
global test_prog
+ global host_triplet
if [is_remote host] {
set testfile [remote_download host tmpdir/$test_prog]
setup_xfail "arm*-*-pe"
setup_xfail "thumb*-*-coff"
setup_xfail "thumb*-*-pe"
+ setup_xfail "x86_64-*-mingw*"
fail $test1
}
set output [remote_load target tmpdir/copyprog]
set status [lindex $output 0]
+ if { ![istarget $host_triplet] } {
+ set status "pass"
+ }
if { $status != "pass" } {
fail $test2
} else {
proc strip_executable { prog flags test } {
global NM
global NMFLAGS
+ global host_triplet
remote_download build tmpdir/copyprog tmpdir/striprog
if [is_remote host] {
set result [remote_load target tmpdir/striprog]
set status [lindex $result 0]
+ if { ![istarget $host_triplet] } {
+ set status "pass"
+ }
if { $status != "pass" } {
fail $test
return
proc strip_executable_with_saving_a_symbol { prog flags test } {
global NM
global NMFLAGS
+ global host_triplet
remote_download build tmpdir/copyprog tmpdir/striprog
if [is_remote host] {
set result [remote_load target tmpdir/striprog]
set status [lindex $result 0]
+ if { ![istarget $host_triplet] } {
+ set status "pass"
+ }
if { $status != "pass" } {
fail $test
return