* config/default.exp, config/unix.exp: Replace error

proc calls with perror.
This commit is contained in:
Bill Cox 1994-05-17 21:06:39 +00:00
parent 9c036bd836
commit 087188e0df
3 changed files with 12 additions and 7 deletions

View File

@ -1,3 +1,8 @@
Tue May 17 14:04:05 1994 Bill Cox (bill@rtl.cygnus.com)
* config/default.exp, config/unix.exp: Replace error
proc calls with perror.
Tue May 10 11:20:54 1994 Stan Shebs (shebs@andros.cygnus.com)
* configure.in (sparclite): Match on sparclite*-*-*.

View File

@ -23,7 +23,7 @@ load_lib util-defs.exp
global NM
if ![info exists NM] then {
set NM [transform nm]
set NM [findfile $base_dir/../nm]
}
global NMFLAGS
if ![info exists NMFLAGS] then {
@ -31,7 +31,7 @@ if ![info exists NMFLAGS] then {
}
global SIZE
if ![info exists SIZE] then {
set SIZE [transform size]
set SIZE [findfile $base_dir/../size]
}
global SIZEFLAGS
if ![info exists SIZEFLAGS] then {
@ -39,7 +39,7 @@ if ![info exists SIZEFLAGS] then {
}
global OBJDUMP
if ![info exists OBJDUMP] then {
set OBJDUMP [transform objdump]
set OBJDUMP [findfile $base_dir/../objdump]
}
global OBJDUMPFLAGS
if ![info exists OBJDUMPFLAGS] then {
@ -51,8 +51,8 @@ if ![info exists OBJDUMPFLAGS] then {
# within the tests themselves
#
expect_before {
buffer_full { error "internal buffer is full." }
"can't open '*'" { error "Can't open test file." }
buffer_full { perror "internal buffer is full." }
"can't open '*'" { perror "Can't open test file." }
}

View File

@ -51,8 +51,8 @@ if ![info exists OBJDUMPFLAGS] then {
# within the tests themselves
#
expect_before {
buffer_full { error "internal buffer is full." }
"can't open '*'" { error "Can't open test file." }
buffer_full { perror "internal buffer is full." }
"can't open '*'" { perror "Can't open test file." }
}