diff options
| author | Mark Mitchell <mark@markmitchell.com> | 1998-08-19 12:37:42 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-08-19 06:37:42 -0600 |
| commit | bdd6b6020c56612cc139e2e02d204e43d23921e1 (patch) | |
| tree | 7a374f5291a0d50f046b6aa3da088b03b0407828 /gcc | |
| parent | 41a972a956bca601158002a24e41777972f4e911 (diff) | |
| download | gcc-bdd6b6020c56612cc139e2e02d204e43d23921e1.zip gcc-bdd6b6020c56612cc139e2e02d204e43d23921e1.tar.gz gcc-bdd6b6020c56612cc139e2e02d204e43d23921e1.tar.bz2 | |
old-dejagnu.exp: Revise handling of `Internal compiler error'.
* lib/old-dejagnu.exp: Revise handling of `Internal compiler
error'.
From-SVN: r21846
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/lib/old-dejagnu.exp | 13 |
2 files changed, 11 insertions, 7 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d361e4e..ec9f830 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +1998-08-09 Mark Mitchell <mark@markmitchell.com> + + * lib/old-dejagnu.exp: Revise handling of `Internal compiler + error'. + Tue Aug 18 19:19:50 1998 Jeffrey A Law (law@cygnus.com) * gcc.c-torture/execute/*.x: Some updates for the h8300 targets. diff --git a/gcc/testsuite/lib/old-dejagnu.exp b/gcc/testsuite/lib/old-dejagnu.exp index e029b23..52f9c0c 100644 --- a/gcc/testsuite/lib/old-dejagnu.exp +++ b/gcc/testsuite/lib/old-dejagnu.exp @@ -404,6 +404,11 @@ proc old-dejagnu { compiler prog cflagsx default_cflags libs } { remote_file build delete $output return 1 } + if [string match "*Internal compiler error*" $comp_output] then { + fail "$name caused compiler crash" + remote_file build delete $output + return 1 + } #send_user "\nold_dejagnu.exp: comp_output1 = :$comp_output:\n\n" #send_user "\nold_dejagnu.exp: message = :$message:\n\n" @@ -426,13 +431,7 @@ proc old-dejagnu { compiler prog cflagsx default_cflags libs } { } set last_line $line - # If we crashed on this line, all tests fail. - if [regexp "(^|\n)\[^\n\]+:$line: Internal compiler error\[^\n\]*" $comp_output ] { - regsub -all "(^|\n)\[^\n\]+:$line:\[^\n\]*" $comp_output "" comp_output - set comp_output [string trimleft $comp_output] - set ok fail - set uhoh fail - } elseif [regsub -all "(^|\n)\[^\n\]+:$line:\[^\n\]*" $comp_output "" comp_output] { + if [regsub -all "(^|\n)\[^\n\]+:$line:\[^\n\]*" $comp_output "" comp_output] { set comp_output [string trimleft $comp_output] set ok pass set uhoh fail |