gdb/testsuite/

	* gdb.base/break-interp.exp (reach): Permit leading . for ppc64.
	(test_ld) <powerpc64-*>: New.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index c09c0210c6d28c62a8df288400b98f3265ae3569..2c1e8efe0a532d552e224084c0a2dd18b784a1b2 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-09  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       * gdb.base/break-interp.exp (reach): Permit leading . for ppc64.
+       (test_ld) <powerpc64-*>: New.
+
 2010-09-08  Daniel Jacobowitz  <dan@codesourcery.com>
 
        * gdb.cp/templates.exp (test_template_args): Allow "struct".

diff --git a/gdb/testsuite/gdb.base/break-interp.exp b/gdb/testsuite/gdb.base/break-interp.exp
index 5039bcb08121d364d8336241b2bd7ab357bd924c..d3dd24890497c0904edd5e7455d5af3e9993f988 100644 (file)
--- a/gdb/testsuite/gdb.base/break-interp.exp
+++ b/gdb/testsuite/gdb.base/break-interp.exp
@@ -136,10 +136,10 @@ proc reach {func command displacement} {
                }
                exp_continue
            }
-           -re "Breakpoint \[0-9\]+, $func \\(.*\\) at .*:\[0-9\]+\r\n.*$gdb_prompt $" {
+           -re "Breakpoint \[0-9\]+, \\.?$func \\(.*\\) at .*:\[0-9\]+\r\n.*$gdb_prompt $" {
                pass $test
            }
-           -re "Breakpoint \[0-9\]+, \[0-9xa-f\]+ in $func \\(\\).*\r\n$gdb_prompt $" {
+           -re "Breakpoint \[0-9\]+, \[0-9xa-f\]+ in \\.?$func \\(\\).*\r\n$gdb_prompt $" {
                pass $test
            }
        }
@@ -399,6 +399,17 @@ proc test_ld {file ifmain trynosym displacement} {
                pass $test
            }
        }
+       # `info sym' cannot be tested for .opd as the binary may not have
+       # symbols.
+       if [istarget powerpc64-*] {
+           set test "convert entry point"
+           gdb_test_multiple "p *(void(*)(void) *) 0x$entrynohex" $test {
+               -re " =( \\(\[^0-9\]*\\))? 0x(\[0-9a-f\]+)( < \[^\r\n\]*)?\r\n$gdb_prompt $" {
+                   set entrynohex $expect_out(2,string)
+                   pass $test
+               }
+           }
+       }
        if {$entrynohex != ""} {
            gdb_test "break *0x$entrynohex" "" "break at entry point"
            gdb_test "continue" "\r\nBreakpoint \[0-9\]+, 0x0*$entrynohex in .*" "entry point reached"