OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

2005-12-09 Randolph Chung <tausq@debian.org>

Browse Source 
* gdb.arch/pa-nullify.exp: Handle hppa64-*-* targets.
	(get_addr_of_sym): Remove duplicate print.
	(gen_core): xfail hppa*-*-hpux*, update expected output.
	* gdb.arch/pa-nullify.s: Reformat to also work on HPUX.
	* gdb.arch/pa64-nullify.s: New file.
This commit is contained in:
Randolph Chung 2005-12-09 10:57:40 +00:00
parent 8f07f25a06
commit 8117349cb4
4 changed files with 101 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2005-12-09 Randolph Chung <tausq@debian.org>
* gdb.arch/pa-nullify.exp: Handle hppa64-*-* targets.
(get_addr_of_sym): Remove duplicate print.
(gen_core): xfail hppa*-*-hpux*, update expected output.
* gdb.arch/pa-nullify.s: Reformat to also work on HPUX.
* gdb.arch/pa64-nullify.s: New file.
2005-12-09 Randolph Chung <tausq@debian.org>
* gdb.base/dump.exp: Mark hppa64-*-* as 64-bit target.

26
gdb/testsuite/gdb.arch/pa-nullify.exp
View File

@ -25,12 +25,19 @@ set bug_id 0
# Test handling of nullified instructions for the pa target.
if ![istarget "hppa*-*-*"] then {
verbose "Skipping hppa nullification tests."
return
switch -glob -- [istarget] {
"hppa-*-*" {
set testfile "pa-nullify"
}
"hppa64-*-*" {
set testfile "pa64-nullify"
}
"*" {
verbose "Skipping hppa nullification tests."
return
}
}
set testfile "pa-nullify"
set srcfile ${testfile}.s
set binfile ${objdir}/${subdir}/${testfile}
set gcorefile ${objdir}/${subdir}/${testfile}.gcore
@ -78,7 +85,6 @@ proc get_addr_of_sym { sym } {
global hex
set test "get address of $sym"
send_gdb "print $sym\n"
gdb_test_multiple "print $sym" $test {
-re ".*($hex) <$sym>.*$gdb_prompt $" {
set addr $expect_out(1,string)
@ -93,7 +99,7 @@ if { ! [ runto_main ] } then { gdb_suppress_tests; }
set foo [get_addr_of_sym "foo"]
set bar [get_addr_of_sym "bar"]
set foo_last [expr $bar - 4]
set foo_last "(bar - 4)"
gdb_breakpoint "*$foo_last"
@ -112,13 +118,19 @@ proc gen_core { test } {
set gcore_works 0
set escapedfilename [string_to_regexp $gcorefile]
# gcore is not yet implemented for HPUX
setup_xfail hppa*-*-hpux*
gdb_test_multiple "gcore $gcorefile" "$test: gcore" {
-re "Saved corefile ${escapedfilename}\[\r\n\]+$gdb_prompt $" {
pass "$test: gcore"
set gcore_works 1
}
-re "Undefined command.*$gdb_prompt $" {
fail "$test: gcore (undefined command)"
}
-re "Can't create a corefile\[\r\n\]+$gdb_prompt $" {
fail "$test: gcore"
fail "$test: gcore (can't create corefile)"
}
}

9
gdb/testsuite/gdb.arch/pa-nullify.s
View File

@ -1,7 +1,6 @@
.LEVEL 1.1
.text
.align 4
.globl foo
.align 8
.globl foo
.type foo, @function
foo:
.PROC
@ -19,7 +18,7 @@ foo:
.EXIT
.PROCEND
.globl bar
.globl bar
.type bar, @function
bar:
.PROC
@ -34,7 +33,7 @@ bar:
.EXIT
.PROCEND
.globl main
.globl main
.type main, @function
main:
.PROC

70
gdb/testsuite/gdb.arch/pa64-nullify.s Normal file
View File

@ -0,0 +1,70 @@
.LEVEL 2.0w
.text
.align 8
.globl foo
.type foo, @function
foo:
.PROC
.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
.ENTRY
copy %r3,%r1
copy %r30,%r3
std,ma %r1,64(%r30)
std %r3,-8(%r30)
ldo -64(%r29),%r28
stw %r26,0(%r28)
ldw 0(%r28),%r28
extrd,s %r28,63,32,%r28
ldo 64(%r3),%r30
ldd,mb -64(%r30),%r3
nop
bve,n (%r2)
.EXIT
.PROCEND
.align 8
.globl bar
.type bar, @function
bar:
.PROC
.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
.ENTRY
copy %r3,%r1
copy %r30,%r3
std,ma %r1,64(%r30)
std %r3,-8(%r30)
ldo 64(%r3),%r30
ldd,mb -64(%r30),%r3
bve,n (%r2)
.EXIT
.PROCEND
.align 8
.globl main
.type main, @function
main:
.PROC
.CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=4
.ENTRY
std %r2,-16(%r30)
copy %r3,%r1
copy %r30,%r3
std,ma %r1,128(%r30)
std %r3,-8(%r30)
std %r4,8(%r3)
ldo -64(%r29),%r28
stw %r26,0(%r28)
std %r25,8(%r28)
ldw 0(%r28),%r26
ldo -48(%r30),%r29
copy %r27,%r4
b,l foo,%r2
nop
copy %r4,%r27
ldd -16(%r3),%r2
ldd 8(%r3),%r4
ldo 64(%r3),%r30
ldd,mb -64(%r30),%r3
bve,n (%r2)
.EXIT
.PROCEND