* lib/target-supports.exp (check_effective_target_alias): New.

From-SVN: r195338

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c354374..add76c9 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-21  Jason Merrill  <jason@redhat.com>
+
+       * lib/target-supports.exp (check_effective_target_alias): New.
+
 2013-01-20  Jack Howarth <howarth@bromo.med.uc.edu>
 
        PR debug/53235

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 0b11817..8b2fa29 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -354,6 +354,16 @@ proc check_alias_available { } {
     return $alias_available_saved
 }
 
+# Returns 1 if the target toolchain supports strong aliases, 0 otherwise.
+
+proc check_effective_target_alias { } {
+    if { [check_alias_available] < 2 } {
+       return 0
+    } else {
+       return 1
+    }
+}
+
 # Returns 1 if the target toolchain supports ifunc, 0 otherwise.
 
 proc check_ifunc_available { } {