* lib/gdb.exp (skip_unwinder_tests): New proc.

	* gdb.cp/nextoverthrow.exp: Use skip_unwinder_tests.
	* gdb.java/jnpe.exp: Use skip_unwinder_tests.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e6e8b011fb91965a40a1ded5b92a6e497aeda2c6..dbc2744ffd0af6a9632ed18fec9fc9718162e3f8 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2012-08-22  Tom Tromey  <tromey@redhat.com>
+
+       * lib/gdb.exp (skip_unwinder_tests): New proc.
+       * gdb.cp/nextoverthrow.exp: Use skip_unwinder_tests.
+       * gdb.java/jnpe.exp: Use skip_unwinder_tests.
+
 2012-08-21  Tom Tromey  <tromey@redhat.com>
 
        * gdb.hp/gdb.aCC/exception.exp: Remove.

diff --git a/gdb/testsuite/gdb.cp/nextoverthrow.exp b/gdb/testsuite/gdb.cp/nextoverthrow.exp
index 53f59d750f135e7a1188858fa73357e320c3d9db..488ae874800b9a3818d09ace32b3f20352ccbfdf 100644 (file)
--- a/gdb/testsuite/gdb.cp/nextoverthrow.exp
+++ b/gdb/testsuite/gdb.cp/nextoverthrow.exp
@@ -34,35 +34,7 @@ if ![runto_main] then {
     continue
 } 
 
-# See whether we have the needed unwinder hooks.
-set ok 1
-gdb_test_multiple "print _Unwind_DebugHook" "check for unwinder hook" {
-    -re "= .*no debug info.*_Unwind_DebugHook.*\r\n$gdb_prompt $" {
-       # Pass the test so we don't get bogus fails in the results.
-       pass "check for unwinder hook"
-       set ok 0
-    }
-    -re "= .*_Unwind_DebugHook.*\r\n$gdb_prompt $" {
-       pass "check for unwinder hook"
-    }
-    -re "No symbol .* in current context.\r\n$gdb_prompt $" {
-       # Pass the test so we don't get bogus fails in the results.
-       pass "check for unwinder hook"
-       set ok 0
-    }
-}
-if {!$ok} {
-    gdb_test_multiple "info probe" "check for stap probe in unwinder" {
-       -re ".*libgcc.*unwind.*\r\n$gdb_prompt $" {
-           pass "check for stap probe in unwinder"
-           set ok 1
-       }
-       -re "\r\n$gdb_prompt $" {
-       }
-    }
-}
-
-if {!$ok} {
+if {![skip_unwinder_tests]} {
     unsupported "nextoverthrow.exp could not find _Unwind_DebugHook"
     return -1
 }

diff --git a/gdb/testsuite/gdb.java/jnpe.exp b/gdb/testsuite/gdb.java/jnpe.exp
index f7225d80dff994f90af525a20dab649d25dd83ab..b15ee321484daae84a606f6e8129f3e0dd3dd67a 100644 (file)
--- a/gdb/testsuite/gdb.java/jnpe.exp
+++ b/gdb/testsuite/gdb.java/jnpe.exp
@@ -31,20 +31,7 @@ if ![runto "$testfile.java:$line"] then {
     continue
 } 
 
-# See whether we have the needed unwinder hooks.
-set ok 1
-gdb_test_multiple "print _Unwind_DebugHook" "check for unwinder hook in java" {
-    -re "= .*_Unwind_DebugHook.*\r\n$gdb_prompt $" {
-       pass "check for unwinder hook in java"
-    }
-    -re "No symbol .* in current context.?\r\n$gdb_prompt $" {
-       # Pass the test so we don't get bogus fails in the results.
-       setup_xfail *-*-*
-       fail "check for unwinder hook in java"
-       set ok 0
-    }
-}
-if {!$ok} {
+if {![skip_unwinder_tests]} {
     unsupported "jnpe.exp could not find _Unwind_DebugHook"
     return -1
 }

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 4f2b7c9376935a5f0ac78568fc7338ec7efe4bc9..0b02f76f0eb292d4fa06fb6d97f928b89393b0ea 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -2093,6 +2093,43 @@ proc skip_hw_watchpoint_access_tests {} {
     return 0
 }
 
+# Return 1 if we should skip tests that require the runtime unwinder
+# hook.  This must be invoked while gdb is running, after shared
+# libraries have been loaded.  This is needed because otherwise a
+# shared libgcc won't be visible.
+
+proc skip_unwinder_tests {} {
+    global gdb_prompt
+
+    set ok 1
+    gdb_test_multiple "print _Unwind_DebugHook" "check for unwinder hook" {
+       -re "= .*no debug info.*_Unwind_DebugHook.*\r\n$gdb_prompt $" {
+           # Pass the test so we don't get bogus fails in the results.
+           pass "check for unwinder hook"
+           set ok 0
+       }
+       -re "= .*_Unwind_DebugHook.*\r\n$gdb_prompt $" {
+           pass "check for unwinder hook"
+       }
+       -re "No symbol .* in current context.\r\n$gdb_prompt $" {
+           # Pass the test so we don't get bogus fails in the results.
+           pass "check for unwinder hook"
+           set ok 0
+       }
+    }
+    if {!$ok} {
+       gdb_test_multiple "info probe" "check for stap probe in unwinder" {
+           -re ".*libgcc.*unwind.*\r\n$gdb_prompt $" {
+               pass "check for stap probe in unwinder"
+               set ok 1
+           }
+           -re "\r\n$gdb_prompt $" {
+           }
+       }
+    }
+    return $ok
+}
+
 set compiler_info              "unknown"
 set gcc_compiled               0
 set hp_cc_compiler             0