mirrors/binutils-gdb
0
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-11-27 03:54:41 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

2001-11-29 H.J. Lu <hjl@gnu.org>

Browse Source 
* binutils-all/objcopy.exp (strip_test): Add strip on archive.
This commit is contained in:
H.J. Lu 2001-11-29 17:34:07 +00:00
parent 164746680e
commit 1983fbac47
2 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
binutils/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2001-11-29 H.J. Lu <hjl@gnu.org>
* binutils-all/objcopy.exp (strip_test): Add strip on archive.
2001-11-15 Alan Modra <amodra@bigpond.net.au>
* binutils-all/objcopy.exp: Allow '? main', to suit powerpc64.

29
binutils/testsuite/binutils-all/objcopy.exp
View File

@ -314,6 +314,7 @@ if {$low == "" || $origstart == ""} then {
# Test stripping an object.
proc strip_test { } {
global AR
global CC
global STRIP
global STRIPFLAGS
@ -329,6 +330,34 @@ proc strip_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 {