1# Copyright 1997, 1998, 1999, 2003 Free Software Foundation, Inc.
2
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 2 of the License, or
6# (at your option) any later version.
7#
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.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program; if not, write to the Free Software
15# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
16
17# Please email any bugs, comments, and/or additions to this file to:
18# bug-gdb@prep.ai.mit.edu
19
20if $tracelevel then {
21	strace $tracelevel
22	}
23
24global usestubs
25
26#
27# test running programs
28#
29set prms_id 0
30set bug_id 0
31
32# This test exists solely to exercise the "section" command for
33# code-coverage on HP-UX.  (So far as I can tell, the "section"
34# command isn't needed on HP-UX, but probably is for embedded
35# apps.)
36#
37if ![istarget "hppa*-*-hpux*"] then {
38  return
39}
40
41set testfile "break"
42set srcfile ${testfile}.c
43set srcfile1 ${testfile}1.c
44set binfile ${objdir}/${subdir}/${testfile}
45
46if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug additional_flags=-w}] != "" } {
47    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
48}
49
50if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug additional_flags=-w}] != "" } {
51    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
52}
53
54if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug additional_flags=-w}] != "" } {
55    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
56}
57
58gdb_exit
59gdb_start
60gdb_reinitialize_dir $srcdir/$subdir
61gdb_load ${binfile}
62
63if ![runto_main] then { fail "section command tests suppressed" }
64
65# Get the $CODE$ section's starting address.
66#
67# (Note that this works for PA32 programs, which use the SOM file
68# format.  PA64 uses ELF, and when support for that is added, it's
69# not clear that there'll be a section named "$CODE$" in such
70# programs.)
71#
72
73set address1 ""
74set address2 ""
75send_gdb "info files\n"
76gdb_expect {
77  -re ".*(0x\[0-9a-fA-F\]*) - (0x\[0-9a-fA-F\]*) is .(CODE|text).*$gdb_prompt $"\
78          {pass "info files"
79	   set address1 $expect_out(1,string)
80	   set address2 $expect_out(2,string)}
81  -re "$gdb_prompt $"\
82          {fail "info files"}
83  timeout {fail "(timeout) info files"}
84}
85
86# Reset the section to that same starting address, which should be
87# harmless (i.e., we just want to exercise the section command).
88#
89if [istarget "hppa2.0w-*-*"] then {
90  send_gdb "section \.text $address1\n"
91  gdb_expect {
92    -re ".*$address1 \- $address2 is .text.*$gdb_prompt $"\
93            {pass "set section command"}
94    -re "$gdb_prompt $"\
95            {fail "set section command"}
96    timeout {fail "(timeout) set section command"}
97  }
98} else {
99  send_gdb "section \$CODE\$ $address1\n"
100  gdb_expect {
101    -re ".*$address1 \- $address2 is .CODE..*$gdb_prompt $"\
102            {pass "set section command"}
103    -re "$gdb_prompt $"\
104            {fail "set section command"}
105    timeout {fail "(timeout) set section command"}
106  }
107}
108
109# Verify that GDB responds gracefully to a non-existent section name.
110#
111send_gdb "section FOOBARBAZ 0x1234\n"
112gdb_expect {
113  -re "Section FOOBARBAZ not found\r\n$gdb_prompt $"\
114          {pass "non-existent section disallowed"}
115  -re "$gdb_prompt $"\
116          {fail "non-existent section disallowed"}
117  timeout {fail "(timeout) non-existent section disallowed"}
118}
119
120# We "happen to know" that GDB uses a fixed size character buffer to
121# parse the section name into, and the buffer is declared to be 100
122# characters in length.  Verify that GDB gracefully handles section
123# names longer than that.  (The section is also non-existent.)
124#
125send_gdb "section A234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123 0x1234\n"
126gdb_expect {
127  -re "Section A23456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789 not found\r\n$gdb_prompt $"\
128          {pass "non-existent too-long section disallowed"}
129  -re "$gdb_prompt $"\
130          {fail "non-existent too-long section disallowed"}
131  timeout {fail "(timeout) non-existent too-long section disallowed"}
132}
133
134gdb_exit
135return 0
136