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

target-supports-dg.exp (dg-require-effective-target): Return early if the test is already being skipped.

Browse Source 
* lib/target-supports-dg.exp (dg-require-effective-target): Return
	early if the test is already being skipped.

From-SVN: r175547
This commit is contained in:
Janis Johnson 2011-06-27 18:40:18 +00:00 committed by Janis Johnson
parent 0e0ccb0fbb
commit 2972d17c85
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/testsuite/ChangeLog
View File

@ -1,5 +1,8 @@
2011-06-27 Janis Johnson <janisjo@codesourcery.com>
* lib/target-supports-dg.exp (dg-require-effective-target): Return
early if the test is already being skipped.
* lib/scanasm.exp (dg-scan, scan-assembler-times, scan-assembler-dem,
scan-assembler-dem-not): For missing file, report unresolved with
same message as for pass/fail, with reason reported in log file.

7
gcc/testsuite/lib/target-supports-dg.exp
View File

@ -172,6 +172,12 @@ proc dg-require-effective-target { args } {
if { [llength $args] < 1 || [llength $args] > 2 } {
error "syntax error, need a single effective-target keyword with optional selector"
}
# Don't bother if we're already skipping the test.
upvar dg-do-what dg-do-what
if { [lindex ${dg-do-what} 1] == "N" } {
return
}
# Evaluate selector if present.
if { [llength $args] == 2 } {
@ -182,7 +188,6 @@ proc dg-require-effective-target { args } {
}
if { ![is-effective-target [lindex $args 0]] } {
upvar dg-do-what dg-do-what
set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
}
}