* lib/gcc-dg.exp (dg-xfail-if): Ignore if skipping the test.

From-SVN: r90485

gcc/testsuite/ChangeLog

+2004-11-11  Janis Johnson  <janis187@us.ibm.com>
+
+	* lib/gcc-dg.exp (dg-xfail-if): Ignore if skipping the test.
+
 2004-11-11  Nathan Sidwell  <nathan@codesourcery.com>
 
 	PR target/16457

gcc/testsuite/lib/gcc-dg.exp

@@ -445,6 +445,12 @@ proc dg-prune-output { args } {
 # Like check_conditional_xfail, but callable from a dg test.
 
 proc dg-xfail-if { args } {
+    # Don't change anything if we're already skipping the test.
+    upvar dg-do-what dg-do-what
+    if { [lindex ${dg-do-what} 1] == "N" } {
+      return
+    }
+
     set args [lreplace $args 0 0]
     set selector "target [join [lindex $args 1]]"
     if { [dg-process-target $selector] == "S" } {