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.

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 32194adc80e91dcf343f2662b1bc5da583485704..24933495615e847a12f18560fa71a5d0ff99c911 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -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).

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index 682987defe76021ca070013fdd9bc656f14034c9..8116934d89892c0b5f9094a1470b33fea328fd9a 100644 (file)
--- 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
     }