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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91542 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d2ca890..e1cae62 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 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):

diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 9bf71d7..79f6f15 100644 (file)
--- a/gcc/testsuite/lib/compat.exp
+++ b/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]