2004-10-28 Andrew Pinski <pinskia@physics.uc.edu>

        * gcc.dg/visibility-[1-9a].c: Change to use scan-hidden instead of
        scan-assembler.
        * lib/scanasm.exp (hidden-scan-for): New proc.
        (scan-hidden): Use hidden-scan-for instead of constructing the scan
        string.
        (scan-not-hidden): Likewise.
        * lib/target-supports.exp (check_visibility_available): mach-o is
        support too.


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

1 files changed, 22 insertions, 2 deletions

diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index 9116afc1c41..33c574ac34c 100644
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -79,6 +79,21 @@ proc scan-assembler-not { args } {
     dg-scan "scan-assembler-not" 0 $testcase $output_file $args
 }
 
+# Return the scan for the assembly for hidden visibility. 
+
+proc hidden-scan-for { symbol } {
+
+    set objformat [gcc_target_object_format]
+
+    switch $objformat {
+        elf      { return "hidden\[ \t_\]*$symbol" }
+        mach-o   { return "private_extern\[ \t_\]*_?$symbol" }
+        default  { return "" }
+    }
+
+}
+
+
 # Check that a symbol is defined as a hidden symbol in the .s file
 # produced by the compiler.
 
@@ -87,7 +102,10 @@ proc scan-hidden { args } {
     set output_file "[file rootname [file tail $testcase]].s"
 
     set symbol [lindex $args 0]
-    set args [lreplace $args 0 0 "hidden\[ \t_\]*$symbol"]
+
+    set hidden_scan [hidden-scan-for $symbol]
+
+    set args [lreplace $args 0 0 "$hidden_scan"]
 
     dg-scan "scan-hidden" 1 $testcase $output_file $args
 }
@@ -100,7 +118,9 @@ proc scan-not-hidden { args } {
     set output_file "[file rootname [file tail $testcase]].s"
 
     set symbol [lindex $args 0]
-    set args [lreplace $args 0 0 "hidden\[ \t_\]*$symbol"]
+    set hidden_scan [hidden-scan-for symbol]
+
+    set args [lreplace $args 0 0 "$hidden_scan"]
 
     dg-scan "scan-not-hidden" 0 $testcase $output_file $args
 }