darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-28 22:40:24 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

2003-10-08 Chris Demetriou <cgd@broadcom.com>

Browse Source 
* lib/gas-defs.exp (gas_run): Always log the command being run.
        (gas_start): Likewise.
        (regexp_diff): Make error reporting about non-existent files
        consistent.
This commit is contained in:
Chris Demetriou 2003-10-08 18:01:10 +00:00
parent 9c8ee6396f
commit 042480556d
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gas/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2003-10-08 Chris Demetriou <cgd@broadcom.com>
* lib/gas-defs.exp (gas_run): Always log the command being run.
(gas_start): Likewise.
(regexp_diff): Make error reporting about non-existent files
consistent.
2003-10-06 Nick Clifton <nickc@redhat.com>
* gas/macros/app1.d: Skip sections symbols (if present).

8
gas/testsuite/lib/gas-defs.exp
View File

@ -41,7 +41,7 @@ proc gas_run { prog as_opts redir } {
global subdir
global host_triplet
verbose "Executing $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog $redir"
verbose -log "Executing $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog $redir"
catch "exec $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog $redir" comp_output
set comp_output [prune_warnings $comp_output]
verbose "output was $comp_output"
@ -60,7 +60,7 @@ proc gas_start { prog as_opts } {
global subdir
global spawn_id
verbose "Starting $AS $ASFLAGS $as_opts $prog" 2
verbose -log "Starting $AS $ASFLAGS $as_opts $prog" 2
catch {
spawn -noecho -nottycopy $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog
} foo
@ -583,14 +583,14 @@ proc regexp_diff { file_1 file_2 } {
if [file exists $file_1] then {
set file_a [open $file_1 r]
} else {
warning "$file_1 doesn't exist"
perror "$file_1 doesn't exist"
return 1
}
if [file exists $file_2] then {
set file_b [open $file_2 r]
} else {
fail "$file_2 doesn't exist"
perror "$file_2 doesn't exist"
close $file_a
return 1
}