summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b24f926)
* binutils-all/dlltool.exp: Likewise.
* binutils-all/objcopy.exp: Likewise.
* binutils-all/readelf.exp: Likewise.
* binutils-all/windres/windres.exp: Likewise.
* lib/utils-lib.exp: Likewise.
+2004-05-12 Ben Elliston <bje@au.ibm.com>
+
+ * binutils-all/ar.exp: Remove stray semicolons.
+ * binutils-all/dlltool.exp: Likewise.
+ * binutils-all/objcopy.exp: Likewise.
+ * binutils-all/readelf.exp: Likewise.
+ * binutils-all/windres/windres.exp: Likewise.
+ * lib/utils-lib.exp: Likewise.
+
2004-04-14 Richard Sandiford <rsandifo@redhat.com>
* binutils-all/readelf.ss-mips: Allow named section symbols.
2004-04-14 Richard Sandiford <rsandifo@redhat.com>
* binutils-all/readelf.ss-mips: Allow named section symbols.
close $f
if [is_remote host] {
close $f
if [is_remote host] {
- set file1 [remote_download host $file1];
- set file2 [remote_download host $file2];
+ set file1 [remote_download host $file1]
+ set file2 [remote_download host $file2]
set dest artest.a
} else {
set dest tmpdir/artest.a
}
set dest artest.a
} else {
set dest tmpdir/artest.a
}
- remote_file host delete $dest;
+ remote_file host delete $dest
set got [binutils_run $AR "rc $dest $file1 $file2"]
if [is_remote host] {
set got [binutils_run $AR "rc $dest $file1 $file2"]
if [is_remote host] {
- remote_file host delete $dest;
+ remote_file host delete $dest
set got [binutils_run $AR "rc $dest $file1 $file2"]
if ![string match "" $got] {
set got [binutils_run $AR "rc $dest $file1 $file2"]
if ![string match "" $got] {
remote_file build delete tmpdir/$n2
set got [binutils_run $AR "t $dest"]
remote_file build delete tmpdir/$n2
set got [binutils_run $AR "t $dest"]
- regsub "\[\r\n \t\]*$" "$got" "" got;
+ regsub "\[\r\n \t\]*$" "$got" "" got
if ![string match "$n1*$n2" $got] {
fail $testname
return
}
if [is_remote host] {
if ![string match "$n1*$n2" $got] {
fail $testname
return
}
if [is_remote host] {
- remote_file host delete $file1;
- remote_file host delete $file2;
+ remote_file host delete $file1
+ remote_file host delete $file2
}
verbose -log "$AR x $dest"
}
verbose -log "$AR x $dest"
- remote_upload host $n1 tmpdir/$n1;
- remote_upload host $n2 tmpdir/$n2;
+ remote_upload host $n1 tmpdir/$n1
+ remote_upload host $n2 tmpdir/$n2
set file1 tmpdir/$n1
set file2 tmpdir/$n2
} else {
set file1 tmpdir/$n1
set file2 tmpdir/$n2
} else {
send_log "$err\n"
verbose "$err" 1
fail "dlltool (fastcall export)"
send_log "$err\n"
verbose "$err" 1
fail "dlltool (fastcall export)"
}
pass "dlltool (fastcall export)"
}
pass "dlltool (fastcall export)"
- set tempfile tmpdir/bintest.o;
- set copyfile tmpdir/copy;
+ set tempfile tmpdir/bintest.o
+ set copyfile tmpdir/copy
} else {
set tempfile [remote_download host tmpdir/bintest.o]
set copyfile copy
} else {
set tempfile [remote_download host tmpdir/bintest.o]
set copyfile copy
if [is_remote host] {
set src1 tmpdir/bintest.o
set src2 tmpdir/copy.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;
+ remote_upload host $tempfile $src1
+ remote_upload host ${copyfile}.o $src2
} else {
set src1 ${tempfile}
set src2 ${copyfile}.o
}
} else {
set src1 ${tempfile}
set src2 ${copyfile}.o
}
- set status [remote_exec build cmp "${src1} ${src2}"];
- set exec_output [lindex $status 1];
+ 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.
set exec_output [prune_warnings $exec_output]
# On some systems the result of objcopy will not be identical.
fail "objcopy -O srec"
} else {
if [is_remote host] {
fail "objcopy -O srec"
} else {
if [is_remote host] {
- remote_upload host ${srecfile} tmpdir/copy.srec;
- set srecfile tmpdir/copy.srec;
+ remote_upload host ${srecfile} tmpdir/copy.srec
+ set srecfile tmpdir/copy.srec
}
set file [open ${srecfile} r]
}
set file [open ${srecfile} r]
if [is_remote host] {
set archive libstrip.a
if [is_remote host] {
set archive libstrip.a
- set objfile [remote_download host tmpdir/testprog.o];
+ set objfile [remote_download host tmpdir/testprog.o]
remote_file host delete $archive
} else {
set archive tmpdir/libstrip.a
remote_file host delete $archive
} else {
set archive tmpdir/libstrip.a
- set objfile [remote_download host tmpdir/testprog.o];
+ set objfile [remote_download host tmpdir/testprog.o]
} else {
set objfile tmpdir/testprog.o
}
} else {
set objfile tmpdir/testprog.o
}
- set objfile [remote_download host tmpdir/testprog.o];
+ set objfile [remote_download host tmpdir/testprog.o]
} else {
set objfile tmpdir/testprog.o
}
} else {
set objfile tmpdir/testprog.o
}
global gcc_gas_flag
global test_prog
global gcc_gas_flag
global test_prog
- set res [build_wrapper testglue.o];
- set flags { debug };
+ set res [build_wrapper testglue.o]
+ set flags { debug }
- lappend flags "additional_flags=[lindex $res 1]";
- set add_libs "testglue.o";
+ lappend flags "additional_flags=[lindex $res 1]"
+ set add_libs "testglue.o"
}
if { [istarget *-*-linux*] } {
}
if { [istarget *-*-linux*] } {
- set result [remote_load target tmpdir/$test_prog];
- set status [lindex $result 0];
+ set result [remote_load target tmpdir/$test_prog]
+ set status [lindex $result 0]
if { $status != "pass" } {
perror "unresolved setup, status = $status"
if { $status != "pass" } {
perror "unresolved setup, status = $status"
global test_prog
if [is_remote host] {
global test_prog
if [is_remote host] {
- set testfile [remote_download host tmpdir/$test_prog];
+ set testfile [remote_download host tmpdir/$test_prog]
set testcopy copyprog
} else {
set testfile tmpdir/$test_prog
set testcopy tmpdir/copyprog
}
set testcopy copyprog
} else {
set testfile tmpdir/$test_prog
set testcopy tmpdir/copyprog
}
- remote_file host delete $testcopy;
+ remote_file host delete $testcopy
set exec_output [binutils_run $prog "$flags $testfile $testcopy"]
set exec_output [binutils_run $prog "$flags $testfile $testcopy"]
}
set status [remote_exec build "cmp" "tmpdir/$test_prog tmpdir/copyprog"]
}
set status [remote_exec build "cmp" "tmpdir/$test_prog tmpdir/copyprog"]
- set exec_output [lindex $status 1];
+ set exec_output [lindex $status 1]
if [string match "" $exec_output] then {
pass $test1
if [string match "" $exec_output] then {
pass $test1
}
set output [remote_load target tmpdir/copyprog]
}
set output [remote_load target tmpdir/copyprog]
- set status [lindex $output 0];
+ set status [lindex $output 0]
if { $status != "pass" } {
fail $test2
} else {
if { $status != "pass" } {
fail $test2
} else {
remote_download build tmpdir/copyprog tmpdir/striprog
if [is_remote host] {
remote_download build tmpdir/copyprog tmpdir/striprog
if [is_remote host] {
- set copyfile [remote_download host tmpdir/striprog];
+ set copyfile [remote_download host tmpdir/striprog]
} else {
set copyfile tmpdir/striprog
}
} else {
set copyfile tmpdir/striprog
}
- remote_upload host ${copyfile} tmpdir/striprog;
+ remote_upload host ${copyfile} tmpdir/striprog
}
set result [remote_load target tmpdir/striprog]
}
set result [remote_load target tmpdir/striprog]
- set status [lindex $result 0];
+ set status [lindex $result 0]
if { $status != "pass" } {
fail $test
return
if { $status != "pass" } {
fail $test
return
remote_download build tmpdir/copyprog tmpdir/striprog
if [is_remote host] {
remote_download build tmpdir/copyprog tmpdir/striprog
if [is_remote host] {
- set copyfile [remote_download host tmpdir/striprog];
+ set copyfile [remote_download host tmpdir/striprog]
} else {
set copyfile tmpdir/striprog
}
} else {
set copyfile tmpdir/striprog
}
- remote_upload host ${copyfile} tmpdir/striprog;
+ remote_upload host ${copyfile} tmpdir/striprog
}
set result [remote_load target tmpdir/striprog]
}
set result [remote_load target tmpdir/striprog]
- set status [lindex $result 0];
+ set status [lindex $result 0]
if { $status != "pass" } {
fail $test
return
if { $status != "pass" } {
fail $test
return
- set tempfile [remote_download host tmpdir/testprog.o];
+ set tempfile [remote_download host tmpdir/testprog.o]
# Run "readelf -wi" on it.
send_log "exec $READELF $READELFFLAGS -wi $tempfile > readelf.out\n"
catch "exec $READELF $READELFFLAGS -wi $tempfile > readelf.out" got
# Upload the results.
# Run "readelf -wi" on it.
send_log "exec $READELF $READELFFLAGS -wi $tempfile > readelf.out\n"
catch "exec $READELF $READELFFLAGS -wi $tempfile > readelf.out" got
# Upload the results.
- set output [remote_upload host readelf.out];
+ set output [remote_upload host readelf.out]
- file_on_host delete $tempfile;
+ file_on_host delete $tempfile
# Strip any superflous warnings.
set got [prune_readelf_wi_warnings $got]
# Strip any superflous warnings.
set got [prune_readelf_wi_warnings $got]
- file_on_host delete $output;
+ file_on_host delete $output
# All done.
pass "readelf -wi"
# All done.
pass "readelf -wi"
- set tempfile tmpdir/bintest.o;
+ set tempfile tmpdir/bintest.o
} else {
set tempfile [remote_download host tmpdir/bintest.o]
}
} else {
set tempfile [remote_download host tmpdir/bintest.o]
}
}
if [regexp "\[xp\]fail *(\[^ \]*)" $line junk sys] {
setup_xfail $sys
}
if [regexp "\[xp\]fail *(\[^ \]*)" $line junk sys] {
setup_xfail $sys
send_log "$err\n"
verbose "$err" 1
fail "windres/$broot (parse)"
send_log "$err\n"
verbose "$err" 1
fail "windres/$broot (parse)"
}
pass "windres/$broot (parse)"
}
pass "windres/$broot (parse)"
if [regexp "parse-only" $line] {
file delete "tmpdir/$broot.res"
set done 1
if [regexp "parse-only" $line] {
file delete "tmpdir/$broot.res"
set done 1
}
if [regexp "\[xc\]fail *(\[^ \]*)" $line junk sys] {
setup_xfail $sys
}
if [regexp "\[xc\]fail *(\[^ \]*)" $line junk sys] {
setup_xfail $sys
}
if { "$broot" != "bmpalign" && "$target_xfail" == "yes" } {
}
if { "$broot" != "bmpalign" && "$target_xfail" == "yes" } {
send_log "$err\n"
verbose "$err" 1
fail "windres/$broot (compare)"
send_log "$err\n"
verbose "$err" 1
fail "windres/$broot (compare)"
}
set pat [open "$sroot.rsd"]
}
set pat [open "$sroot.rsd"]
set outline [oneline $out]
if ![string match $patline $outline] {
set outline [oneline $out]
if ![string match $patline $outline] {
- send_log "< $patline\n";
- send_log "> $outline\n";
- fail "windres/$broot (compare)";
+ send_log "< $patline\n"
+ send_log "> $outline\n"
+ fail "windres/$broot (compare)"
proc binutil_version { prog } {
if ![is_remote host] {
proc binutil_version { prog } {
if ![is_remote host] {
- set path [which $prog];
if {$path == 0} then {
perror "$prog can't be run, file not found."
return ""
if {$path == 0} then {
perror "$prog can't be run, file not found."
return ""
} else {
set path $prog
}
} else {
set path $prog
}
- set state [remote_exec host $prog --version];
- set tmp "[lindex $state 1]\n";
+ set state [remote_exec host $prog --version]
+ set tmp "[lindex $state 1]\n"
# Should find a way to discard constant parts, keep whatever's
# left, so the version string could be almost anything at all...
regexp "\[^\n\]* (cygnus-|)(\[-0-9.a-zA-Z-\]+)\[\r\n\].*" "$tmp" version cyg number
# Should find a way to discard constant parts, keep whatever's
# left, so the version string could be almost anything at all...
regexp "\[^\n\]* (cygnus-|)(\[-0-9.a-zA-Z-\]+)\[\r\n\].*" "$tmp" version cyg number
regsub -all "\\$" "$progargs" "\\$" progargs
set state [remote_exec host $prog $progargs]
regsub -all "\\$" "$progargs" "\\$" progargs
set state [remote_exec host $prog $progargs]
- set exec_output [prune_warnings [lindex $state 1]];
+ set exec_output [prune_warnings [lindex $state 1]]
if {![string match "" $exec_output]} then {
send_log "$exec_output\n"
verbose "$exec_output"
if {![string match "" $exec_output]} then {
send_log "$exec_output\n"
verbose "$exec_output"
set sed_file $srcdir/config/hppa.sed
send_log "sed -f $sed_file < $source > asm.s\n"
verbose "sed -f $sed_file < $source > asm.s"
set sed_file $srcdir/config/hppa.sed
send_log "sed -f $sed_file < $source > asm.s\n"
verbose "sed -f $sed_file < $source > asm.s"
- catch "exec sed -f $sed_file < $source > asm.s";
+ catch "exec sed -f $sed_file < $source > asm.s"
- set exec_output [target_assemble $source $object ""];
+ set exec_output [target_assemble $source $object ""]
set exec_output [prune_warnings $exec_output]
if [string match "" $exec_output] {
set exec_output [prune_warnings $exec_output]
if [string match "" $exec_output] {