OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

objc-torture.exp: Replace "77" with "Obj-C" in pattern matching strings. 

* lib/objc-torture.exp: Replace "77" with "Obj-C" in pattern
        matching strings.

From-SVN: r26030
This commit is contained in:
Jeffrey A Law 1999-03-27 23:50:40 +00:00 committed by Jeff Law
parent 87b8bec574
commit 557ca192c5
2 changed files with 9 additions and 4 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 @@
Sun Mar 28 00:49:41 1999 Jeffrey A Law (law@cygnus.com)
* lib/objc-torture.exp: Replace "77" with "Obj-C" in pattern
matching strings.
Fri Mar 26 00:50:46 1999 Jeffrey A Law (law@cygnus.com)
* gcc.c-torture/execute/990326-1.c: New test from Charles Hannum.

8
gcc/testsuite/lib/objc-torture.exp
View File

@ -70,7 +70,7 @@ proc objc-torture-compile { src option } {
set comp_output [objc_target_compile "$src" "$output" object $options];
# Set a few common compiler messages.
set fatal_signal "*77*: Internal compiler error: program*got fatal signal"
set fatal_signal "*Obj-C*: Internal compiler error: program*got fatal signal"
if [string match "$fatal_signal 6" $comp_output] then {
objc_fail $testcase "Got Signal 6, $option"
@ -85,7 +85,7 @@ proc objc-torture-compile { src option } {
}
# We shouldn't get these because of -w, but just in case.
if [string match "*77*:*warning:*" $comp_output] then {
if [string match "*Obj-C*:*warning:*" $comp_output] then {
warning "$testcase: (with warnings) $option"
send_log "$comp_output\n"
unresolved "$testcase, $option"
@ -173,7 +173,7 @@ proc objc-torture-execute { src } {
set comp_output [objc_target_compile "$src" "$executable" executable $options];
# Set a few common compiler messages.
set fatal_signal "*77*: Internal compiler error: program*got fatal signal"
set fatal_signal "*Obj-C*: Internal compiler error: program*got fatal signal"
if [string match "$fatal_signal 6" $comp_output] then {
objc_fail $testcase "Got Signal 6, $option"
@ -188,7 +188,7 @@ proc objc-torture-execute { src } {
}
# We shouldn't get these because of -w, but just in case.
if [string match "*77*:*warning:*" $comp_output] then {
if [string match "*Obj-C*:*warning:*" $comp_output] then {
warning "$testcase: (with warnings) $option"
send_log "$comp_output\n"
unresolved "$testcase, $option"