* lib/gas-defs.exp: Replace error proc calls with perror calls.

This commit is contained in:
Bill Cox 1994-05-17 21:54:41 +00:00
parent 087188e0df
commit 858665b799
2 changed files with 10 additions and 6 deletions

View File

@ -1,3 +1,7 @@
Tue May 17 14:53:08 1994 Bill Cox (bill@rtl.cygnus.com)
* lib/gas-defs.exp: Replace error proc calls with perror calls.
Mon May 16 13:19:16 1994 Jeff Law (law@snake.cs.utah.edu)
* gas/hppa/reloc/reloc.exp: Tweak expected output to match new

View File

@ -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