1 # Copyright
1997, 1998, 1999, 2003, 2007 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this
program.
If not
, see
<http
://www.gnu.org
/licenses
/>.
*/
16 # Please email
any bugs
, comments
, and
/or additions to this file to
:
17 # bug
-gdb@prep.ai.mit.edu
26 # test running programs
31 # This test
exists solely to exercise the
"section" command for
32 # code
-coverage
on HP
-UX.
(So far as I can tell
, the
"section"
33 # command isn
't needed on HP-UX, but probably is for embedded
36 if ![istarget "hppa*-*-hpux*"] then {
41 set srcfile ${testfile}.c
42 set srcfile1 ${testfile}1.c
43 set binfile ${objdir}/${subdir}/${testfile}
45 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
50 if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
55 if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
62 gdb_reinitialize_dir $srcdir/$subdir
65 if ![runto_main] then { fail "section command tests suppressed" }
67 # Get the $CODE$ section's starting address.
69 #
(Note that this works
for PA32 programs
, which use the SOM file
70 # format. PA64 uses ELF
, and when support
for that is added
, it
's
71 # not clear that there'll be a section named
"$CODE$" in such
77 send_gdb
"info files\n"
79 -re
".*(0x\[0-9a-fA-F\]*) - (0x\[0-9a-fA-F\]*) is .(CODE|text).*$gdb_prompt $"\
81 set address1 $expect_out
(1,string
)
82 set address2 $expect_out
(2,string
)}
85 timeout
{fail
"(timeout) info files"}
88 # Reset the section to that same starting address
, which should be
89 # harmless
(i.e.
, we just want to exercise the section command
).
91 if [istarget
"hppa2.0w-*-*"] then {
92 send_gdb
"section \.text $address1\n"
94 -re
".*$address1 \- $address2 is .text.*$gdb_prompt $"\
95 {pass
"set section command"}
97 {fail
"set section command"}
98 timeout
{fail
"(timeout) set section command"}
101 send_gdb
"section \$CODE\$ $address1\n"
103 -re
".*$address1 \- $address2 is .CODE..*$gdb_prompt $"\
104 {pass
"set section command"}
106 {fail
"set section command"}
107 timeout
{fail
"(timeout) set section command"}
111 # Verify that GDB responds gracefully to a non
-existent section
name.
113 send_gdb
"section FOOBARBAZ 0x1234\n"
115 -re
"Section FOOBARBAZ not found\r\n$gdb_prompt $"\
116 {pass
"non-existent section disallowed"}
118 {fail
"non-existent section disallowed"}
119 timeout
{fail
"(timeout) non-existent section disallowed"}
122 # We
"happen to know" that GDB uses a fixed size character buffer to
123 #
parse the section
name into
, and the buffer is declared to be
100
124 # characters in length. Verify that GDB gracefully handles section
125 # names longer than that.
(The section is also non
-existent.
)
127 send_gdb
"section A234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123 0x1234\n"
129 -re
"Section A23456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789 not found\r\n$gdb_prompt $"\
130 {pass
"non-existent too-long section disallowed"}
132 {fail
"non-existent too-long section disallowed"}
133 timeout
{fail
"(timeout) non-existent too-long section disallowed"}