From aa00efb580a81e5a22d1f648687f8db078fb5537 Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Mon, 8 Nov 2010 18:05:56 +0000 Subject: [PATCH] gdb/testsuite/ * gdb.base/break-entry.exp: convert entry point for ppc64 and expect leading `.' on ppc64's symbols --- gdb/testsuite/ChangeLog | 6 ++++++ gdb/testsuite/gdb.base/break-entry.exp | 12 +++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) 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 + Luis Machado + + * gdb.base/break-entry.exp: convert entry point for + ppc64 and expect leading `.' on ppc64's symbols + 2010-11-05 Doug Evans * 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.*" -- 2.7.4