diff options
Diffstat (limited to 'gas/testsuite/lib')
| -rw-r--r-- | gas/testsuite/lib/gas-defs.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp index 682987d..8116934 100644 --- a/gas/testsuite/lib/gas-defs.exp +++ b/gas/testsuite/lib/gas-defs.exp @@ -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 } |