diff options
author | Bill Cox <bill@cygnus> | 1994-05-17 21:54:41 +0000 |
---|---|---|
committer | Bill Cox <bill@cygnus> | 1994-05-17 21:54:41 +0000 |
commit | 858665b79900c1ec22ec4e897b251c3b05e98510 (patch) | |
tree | a8fa9d40bc92f60412953090b10abda8ccc8d69f /gas/testsuite/lib | |
parent | 087188e0df58b88eddca6b3ae177b9ddb3c4e629 (diff) | |
download | gdb-858665b79900c1ec22ec4e897b251c3b05e98510.zip gdb-858665b79900c1ec22ec4e897b251c3b05e98510.tar.gz gdb-858665b79900c1ec22ec4e897b251c3b05e98510.tar.bz2 |
* lib/gas-defs.exp: Replace error proc calls with perror calls.
Diffstat (limited to 'gas/testsuite/lib')
-rw-r--r-- | gas/testsuite/lib/gas-defs.exp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp index 1ea3512..e8942af 100644 --- a/gas/testsuite/lib/gas-defs.exp +++ b/gas/testsuite/lib/gas-defs.exp @@ -59,7 +59,7 @@ proc gas_start { prog as_opts } { spawn -noecho -nottyinit $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog } foo if ![regexp {^[0-9]+} $foo] then { - error "Can't run $subdir/$prog: $foo" + perror "Can't run $subdir/$prog: $foo" } } @@ -189,7 +189,7 @@ proc objdump_start_no_subdir { prog opts } { spawn -noecho -nottyinit $srcdir/lib/run $OBJDUMP $opts $prog } foo if ![regexp {^[0-9]+} $foo] then { - error "Can't run $prog: $foo" + perror "Can't run $prog: $foo" } } @@ -200,10 +200,10 @@ proc objdump_finish { } { } expect_after { - timeout { error "timeout" } - "virtual memory exhausted" { error "virtual memory exhausted" } - buffer_full { error "buffer full" } - eof { error "eof" } + timeout { perror "timeout" } + "virtual memory exhausted" { perror "virtual memory exhausted" } + buffer_full { perror "buffer full" } + eof { perror "eof" } } # regexp_diff, based on simple_diff taken from ld test suite |