* lib/compat.exp (compat-get-options): Fix for use with dg-xfail-if.

From-SVN: r91542

gcc/testsuite/ChangeLog

 2004-11-30  Janis Johnson  <janis187@us.ibm.com>
 
+	* lib/compat.exp (compat-get-options): Fix for use with dg-xfail-if.
+
 	* lib/target-supports.exp (is-effective-target): Simplify.
 
 	* lib/target-supports.exp (check_effective_target_vect_long):

gcc/testsuite/lib/compat.exp

@@ -200,6 +200,9 @@ proc compat-get-options { src } {
     global compiler_conditional_xfail_data
     set compiler_conditional_xfail_data ""
 
+    # dg-xfail-if needs access to dg-do-what.
+    upvar dg-do-what dg-do-what 
+
     set tmp [dg-get-options $src]
     foreach op $tmp {
 	set cmd [lindex $op 0]