OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.base/] [sigall.exp] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
#   Copyright (C) 1995, 1997 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
if [target_info exists gdb,nosignals] {
18
    verbose "Skipping sigall.exp because of nosignals."
19
    continue
20
}
21
 
22
if $tracelevel then {
23
        strace $tracelevel
24
}
25
 
26
set prms_id 0
27
set bug_id 0
28
 
29
gdb_exit
30
gdb_start
31
gdb_reinitialize_dir $srcdir/$subdir
32
 
33
set testfile sigall
34
set srcfile ${testfile}.c
35
set binfile ${objdir}/${subdir}/${testfile}
36
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
37
     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
38
}
39
 
40
# Make the first signal SIGABRT because it is always supported.
41
set sig_supported 1
42
set thissig "ABRT"
43
 
44
proc test_one_sig {nextsig} {
45
    global sig_supported
46
    global gdb_prompt
47
    global thissig
48
 
49
    set this_sig_supported $sig_supported
50
    gdb_test "handle SIG$thissig stop print" \
51
        "SIG$thissig\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
52
    gdb_test "b handle_$thissig" "Breakpoint \[0-9\]+ .*"
53
    gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]+ .*"
54
 
55
    set need_another_continue 1
56
    set missed_handler 0
57
    if $this_sig_supported then {
58
        send_gdb "continue\n"
59
        if { $thissig == "IO" } {
60
            setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
61
        }
62
        gdb_expect {
63
            -re "Continuing.*Program received signal SIG$thissig.*$gdb_prompt $" {
64
                pass "get signal $thissig"
65
            }
66
            -re ".*$gdb_prompt $" {
67
                fail "get signal $thissig"
68
                set need_another_continue 0
69
            }
70
            default {
71
                fail "get signal $thissig (eof or timeout)"
72
            }
73
        }
74
    }
75
    if [ istarget "alpha-dec-osf3*" ] then {
76
        # OSF/1-3.x is unable to continue with a job control stop signal.
77
        # The inferior remains stopped without an event of interest
78
        # and GDB waits forever for the inferior to stop on an event
79
        # of interest. Work around the kernel bug.
80
        if { $thissig == "TSTP" || $thissig == "TTIN" || $thissig == "TTOU" } {
81
            setup_xfail "alpha-dec-osf3*"
82
            fail "cannot continue from signal $thissig"
83
            set need_another_continue 0
84
        }
85
    }
86
 
87
    if $need_another_continue then {
88
        send_gdb "continue\n"
89
        if { $thissig == "URG" } {
90
            setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
91
        }
92
        # Either Lynx or GDB screws up on SIGPRIO
93
        if { $thissig == "PRIO" } {
94
            setup_xfail "*-*-*lynx*"
95
        }
96
        gdb_expect {
97
            -re "Breakpoint.*handle_$thissig.*$gdb_prompt $" {
98
                pass "send signal $thissig"
99
            }
100
            -re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
101
                fail "missed breakpoint at handle_$thissig"
102
                set missed_handler 1
103
            }
104
        }
105
    }
106
 
107
    if { $missed_handler == "0" } then {
108
        send_gdb "signal 0\n"
109
        gdb_expect {
110
            -re "Breakpoint.*gen_$nextsig.*kill.*$gdb_prompt $" {
111
                pass "advance to $nextsig"
112
                set sig_supported 1
113
            }
114
            -re "Breakpoint.*gen_$nextsig.*handle.*$gdb_prompt $" {
115
                pass "advance to $nextsig"
116
                set sig_supported 0
117
            }
118
            -re ".*$gdb_prompt $" { fail "advance to $nextsig" }
119
            default { fail "advance to $nextsig (eof or timeout)" }
120
        }
121
    }
122
    set thissig $nextsig
123
}
124
 
125
gdb_load $binfile
126
 
127
runto gen_ABRT
128
test_one_sig HUP
129
test_one_sig QUIT
130
test_one_sig ILL
131
test_one_sig EMT
132
test_one_sig FPE
133
test_one_sig BUS
134
test_one_sig SEGV
135
test_one_sig SYS
136
test_one_sig PIPE
137
test_one_sig ALRM
138
test_one_sig URG
139
test_one_sig TSTP
140
test_one_sig CONT
141
test_one_sig CHLD
142
test_one_sig TTIN
143
test_one_sig TTOU
144
test_one_sig IO
145
test_one_sig XCPU
146
test_one_sig XFSZ
147
test_one_sig VTALRM
148
test_one_sig PROF
149
test_one_sig WINCH
150
test_one_sig LOST
151
test_one_sig USR1
152
test_one_sig USR2
153
test_one_sig PWR
154
test_one_sig POLL
155
test_one_sig WIND
156
test_one_sig PHONE
157
test_one_sig WAITING
158
test_one_sig LWP
159
test_one_sig DANGER
160
test_one_sig GRANT
161
test_one_sig RETRACT
162
test_one_sig MSG
163
test_one_sig SOUND
164
test_one_sig SAK
165
test_one_sig PRIO
166
test_one_sig 33
167
test_one_sig 34
168
test_one_sig 35
169
test_one_sig 36
170
test_one_sig 37
171
test_one_sig 38
172
test_one_sig 39
173
test_one_sig 40
174
test_one_sig 41
175
test_one_sig 42
176
test_one_sig 43
177
test_one_sig 44
178
test_one_sig 45
179
test_one_sig 46
180
test_one_sig 47
181
test_one_sig 48
182
test_one_sig 49
183
test_one_sig 50
184
test_one_sig 51
185
test_one_sig 52
186
test_one_sig 53
187
test_one_sig 54
188
test_one_sig 55
189
test_one_sig 56
190
test_one_sig 57
191
test_one_sig 58
192
test_one_sig 59
193
test_one_sig 60
194
test_one_sig 61
195
test_one_sig 62
196
test_one_sig 63
197
test_one_sig TERM
198
 
199
# The last signal (SIGTERM) gets handled slightly differently because
200
# we are not setting up for another test.
201
gdb_test "handle SIGTERM stop print" \
202
    "SIGTERM\[ \t\]*Yes\[ \t\]*Yes\[ \t\]*Yes.*"
203
gdb_test "b handle_TERM" "Breakpoint \[0-9\]+ .*"
204
gdb_test "continue" \
205
    "Continuing.*Program received signal SIGTERM.*" \
206
    "get signal TERM"
207
gdb_test "continue" "Breakpoint.*handle_TERM.*" "send signal TERM"
208
gdb_continue_to_end "continue to sigall exit"
209
 
210
return 0

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.