diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/break-entry.exp | 12 |
2 files changed, 17 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 2532be2..097c75d 100644 --- 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 d4b86a3..1360504 100644 --- 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.*" |