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

From-SVN: r195338

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c3543747f2d99be4cc0ff2a40119e29f70d29848..add76c91cfa396341a67e7dd3924983e0d4bdcf6 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 0b11817ff61b463a4379b01598879b99cb985060..8b2fa29d7d14ea2a9b046cf38fa5fcdfa19ba935 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 { } {