gdb/testsuite/

	* gdb.base/break-entry.exp: convert entry point for
	ppc64 and expect leading `.' on ppc64's symbols

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 2532be285d6ed606730a93295ece2b26c5d7d20b..097c75d5212a5066e8cbfd0e13f44beaf2c2d3cb 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-08  Edjunior Machado  <emachado@br.ibm.com>
+           Luis Machado  <luisgpm@br.ibm.com>
+
+       * gdb.base/break-entry.exp: convert entry point for
+       ppc64 and expect leading `.' on ppc64's symbols
+
 2010-11-05  Doug Evans  <dje@google.com>
 
        * gdb.base/help.exp: Update expected output.

diff --git a/gdb/testsuite/gdb.base/break-entry.exp b/gdb/testsuite/gdb.base/break-entry.exp
index d4b86a387cfc1883b323a1cbb8a502b9d12310b7..13605042e6e7d042de6d2624c4821006808df727 100644 (file)
--- a/gdb/testsuite/gdb.base/break-entry.exp
+++ b/gdb/testsuite/gdb.base/break-entry.exp
@@ -34,10 +34,20 @@ if {$entry == ""} {
     return
 }
 
+if {[istarget powerpc64-*] && [is_lp64_target]} {
+    set test "convert entry point"
+    gdb_test_multiple "p *(void(*)(void) *) $entry" $test {
+       -re " =( \\(\[^0-9\]*\\))? (0x\[0-9a-f\]+)( <.*)?\r\n$gdb_prompt $" {
+           set entry $expect_out(2,string)
+           pass $test
+       }
+    }
+}
+
 if ![runto "*$entry"] {
     return
 }
 gdb_test {p/x $pc} " = $entry"
 
 gdb_breakpoint "main"
-gdb_continue_to_breakpoint "main" "main.*"
+gdb_continue_to_breakpoint "main" "\\.?main.*"