diff options
author | Ben Elliston <bje@gnu.org> | 2016-03-20 17:05:32 +1100 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2016-03-20 17:05:32 +1100 |
commit | 1992ceaf6d309d0fce0d8d130014d2a8419c9234 (patch) | |
tree | ef3a91f767f188dd714751d58b831aaabb7d9078 /lib/dg.exp | |
parent | cef9e5b99eb29a942ecd6493fa3008d0f6afb9df (diff) | |
download | dejagnu-1992ceaf6d309d0fce0d8d130014d2a8419c9234.zip dejagnu-1992ceaf6d309d0fce0d8d130014d2a8419c9234.tar.gz dejagnu-1992ceaf6d309d0fce0d8d130014d2a8419c9234.tar.bz2 |
* lib/dg.exp (dg-test): There is no need to call unresolved to
clear errcnt. Instead, pass 0 as argument 2 to perror.
* runtest.exp (runtest): Likewise.
Diffstat (limited to 'lib/dg.exp')
-rw-r--r-- | lib/dg.exp | 9 |
1 files changed, 2 insertions, 7 deletions
@@ -686,9 +686,7 @@ proc dg-test { args } { } else { perror "$name: $errmsg for \"$op\"\n" } - # ??? The call to unresolved here is necessary to clear `errcnt'. - # What we really need is a proc like perror that doesn't set errcnt. - unresolved "$name: $errmsg for \"$op\"" + perror "$name: $errmsg for \"$op\"" 0 return } } @@ -875,10 +873,7 @@ proc dg-test { args } { verbose "Running dg-final tests." 3 verbose "dg-final-proc:\n[info body dg-final-proc]" 4 if {[catch "dg-final-proc $prog" errmsg]} { - perror "$name: error executing dg-final: $errmsg" - # ??? The call to unresolved here is necessary to clear `errcnt'. - # What we really need is a proc like perror that doesn't set errcnt. - unresolved "$name: error executing dg-final: $errmsg" + perror "$name: error executing dg-final: $errmsg" 0 } } |