mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-12 18:05:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

old-dejagnu.exp: Revise handling of `Internal compiler error'.

Browse Source 
* lib/old-dejagnu.exp: Revise handling of `Internal compiler
        error'.

From-SVN: r21846
This commit is contained in:
Mark Mitchell 1998-08-19 12:37:42 +00:00 committed by Jeff Law
parent 41a972a956
commit bdd6b6020c
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

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

13
gcc/testsuite/lib/old-dejagnu.exp
View File

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