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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.cp/] [ovldbreak.exp] - Blame information for rev 157

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# Copyright (C) 1998, 1999, 2001, 2004, 2007, 2008
2
# Free Software Foundation, Inc.
3
 
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 3 of the License, or
7
# (at your option) any later version.
8
#
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
# GNU General Public License for more details.
13
#
14
# You should have received a copy of the GNU General Public License
15
# along with this program.  If not, see .
16
 
17
# written by Elena Zannoni (ezannoni@cygnus.com)
18
# modified by Michael Chastain (chastain@redhat.com)
19
 
20
# This file is part of the gdb testsuite
21
#
22
# tests for overloaded member functions. Set breakpoints on
23
# overloaded member functions
24
#
25
 
26
 
27
if $tracelevel then {
28
        strace $tracelevel
29
        }
30
 
31
#
32
# test running programs
33
#
34
set prms_id 0
35
set bug_id 0
36
 
37
if { [skip_cplus_tests] } { continue }
38
 
39
set testfile "ovldbreak"
40
set srcfile ${testfile}.cc
41
set binfile ${objdir}/${subdir}/${testfile}
42
 
43
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
44
     untested ovldbreak.exp
45
     return -1
46
}
47
 
48
gdb_exit
49
gdb_start
50
gdb_reinitialize_dir $srcdir/$subdir
51
gdb_load ${binfile}
52
 
53
# set it up at a breakpoint so we can play with the variable values
54
#
55
if ![runto_main] then {
56
    perror "couldn't run to breakpoint"
57
    continue
58
}
59
 
60
 
61
 
62
# When I ask gdb to set a breakpoint on an overloaded function,
63
# gdb gives me a choice menu.  I might get stuck in that choice menu
64
# (for example, if C++ name mangling is not working properly).
65
#
66
# This procedure issues a command that works at either the menu
67
# prompt or the command prompt to get back to the command prompt.
68
#
69
# Note that an empty line won't do it (it means 'repeat the previous command'
70
# at top level).  A line with a single space in it works nicely.
71
 
72
proc take_gdb_out_of_choice_menu {} {
73
    global gdb_prompt
74
    send_gdb " \n"
75
    gdb_expect {
76
        -re ".*$gdb_prompt $" {
77
        }
78
        timeout {
79
            perror "could not resynchronize to command prompt (timeout)"
80
            continue
81
        }
82
    }
83
}
84
 
85
 
86
 
87
# This procedure sets an overloaded breakpoint.
88
# When I ask for such a breakpoint, gdb gives me a menu of 'cancel' 'all'
89
# and a bunch of choices.  I then choose from that menu by number.
90
 
91
proc set_bp_overloaded {name expectedmenu mychoice bpnumber linenumber} {
92
    global gdb_prompt hex srcfile
93
 
94
    # Get into the overload menu.
95
    send_gdb "break $name\n"
96
    gdb_expect {
97
        -re "$expectedmenu" {
98
            pass "bp menu for $name choice $mychoice"
99
 
100
            # Choose my choice.
101
            send_gdb "$mychoice\n"
102
            gdb_expect {
103
                -re "Breakpoint $bpnumber at $hex: file.*$srcfile, line $linenumber.\r\n$gdb_prompt $" {
104
                    pass "set bp $bpnumber on $name $mychoice line $linenumber"
105
                }
106
                -re ".*$gdb_prompt $" {
107
                    fail "set bp $bpnumber on $name $mychoice line $linenumber (bad bp)"
108
                }
109
                timeout {
110
                    fail "set bp $bpnumber on $name $mychoice line $linenumber (timeout)"
111
                    take_gdb_out_of_choice_menu
112
                }
113
            }
114
        }
115
        -re ".*\r\n> " {
116
            fail "bp menu for $name choice $mychoice (bad menu)"
117
            take_gdb_out_of_choice_menu
118
        }
119
        -re ".*$gdb_prompt $" {
120
            fail "bp menu for $name choice $mychoice (no menu)"
121
        }
122
        timeout {
123
            fail "bp menu for $name choice $mychoice (timeout)"
124
            take_gdb_out_of_choice_menu
125
        }
126
    }
127
}
128
 
129
# This is the expected menu for overload1arg.
130
# Note the arg type variations on lines 6 and 13.
131
# This accommodates different versions of g++.
132
 
133
set menu_overload1arg "\\\[0\\\] cancel\r\n\\\[1\\\] all\r\n\\\[2\\\] foo::overload1arg\\(double\\) at.*$srcfile:121\r\n\\\[3\\\] foo::overload1arg\\(float\\) at.*$srcfile:120\r\n\\\[4\\\] foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r\n\\\[5\\\] foo::overload1arg\\(long\\) at.*$srcfile:118\r\n\\\[6\\\] foo::overload1arg\\((unsigned int|unsigned)\\) at.*$srcfile:117\r\n\\\[7\\\] foo::overload1arg\\(int\\) at.*$srcfile:116\r\n\\\[8\\\] foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r\n\\\[9\\\] foo::overload1arg\\(short\\) at.*$srcfile:114\r\n\\\[10\\\] foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r\n\\\[11\\\] foo::overload1arg\\(signed char\\) at.*$srcfile:112\r\n\\\[12\\\] foo::overload1arg\\(char\\) at.*$srcfile:111\r\n\\\[13\\\] foo::overload1arg\\((void|)\\) at.*$srcfile:110\r\n> $"
134
 
135
 
136
 
137
# Set breakpoints on foo::overload1arg, one by one.
138
 
139
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 12    2 111
140
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 11    3 112
141
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 10    4 113
142
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  9    5 114
143
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  8    6 115
144
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  7    7 116
145
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  6    8 117
146
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  5    9 118
147
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  4   10 119
148
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  3   11 120
149
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg"  2   12 121
150
set_bp_overloaded "foo::overload1arg" "$menu_overload1arg" 13   13 110
151
 
152
 
153
 
154
# Verify the breakpoints.
155
 
156
gdb_test "info break" \
157
    "Num     Type\[\t \]+Disp Enb Address\[\t \]+What.*
158
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in main at.*$srcfile:49\r
159
\[\t \]+breakpoint already hit 1 time\r
160
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
161
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
162
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
163
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
164
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
165
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
166
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
167
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
168
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
169
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
170
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
171
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
172
    "breakpoint info (after setting one-by-one)"
173
 
174
 
175
 
176
# Test choice "cancel".
177
# This is copy-and-paste from set_bp_overloaded.
178
 
179
send_gdb "break foo::overload1arg\n"
180
gdb_expect {
181
    -re "$menu_overload1arg" {
182
        pass "bp menu for foo::overload1arg choice cancel"
183
        # Choose cancel.
184
        send_gdb "0\n"
185
        gdb_expect {
186
            -re "canceled\r\n$gdb_prompt $" {
187
                pass "set bp on overload1arg canceled"
188
            }
189
            -re "cancelled\r\n$gdb_prompt $" {
190
                pass "set bp on overload1arg canceled"
191
            }
192
            -re ".*$gdb_prompt $" {
193
                fail "set bp on overload1arg canceled (bad message)"
194
            }
195
            timeout {
196
                fail "set bp on overload1arg canceled (timeout)"
197
                take_gdb_out_of_choice_menu
198
            }
199
        }
200
    }
201
    -re ".*\r\n> " {
202
        fail "bp menu for foo::overload1arg choice cancel (bad menu)"
203
        take_gdb_out_of_choice_menu
204
    }
205
    -re ".*$gdb_prompt $" {
206
        fail "bp menu for foo::overload1arg choice cancel (no menu)"
207
    }
208
    timeout {
209
        fail "bp menu for foo::overload1arg choice cancel (timeout)"
210
        take_gdb_out_of_choice_menu
211
    }
212
}
213
 
214
gdb_test "info break" \
215
    "Num     Type\[\t \]+Disp Enb Address\[\t \]+What.*
216
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in main at.*$srcfile:49\r
217
\[\t \]+breakpoint already hit 1 time\r
218
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
219
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
220
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
221
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
222
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
223
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
224
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
225
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
226
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
227
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
228
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
229
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
230
    "breakpoint info (after cancel)"
231
 
232
 
233
 
234
# Delete these breakpoints.
235
 
236
send_gdb "delete breakpoints\n"
237
gdb_expect {
238
    -re "Delete all breakpoints.* $" {
239
        send_gdb "y\n"
240
        gdb_expect {
241
            -re ".*$gdb_prompt $" {
242
                pass "delete all breakpoints"
243
            }
244
            timeout {
245
                fail "delete all breakpoints (timeout)"
246
            }
247
        }
248
    }
249
    timeout {
250
        fail "delete all breakpoints (timeout)"
251
    }
252
}
253
 
254
gdb_test "info breakpoints" "No breakpoints or watchpoints." "breakpoint info (after delete)"
255
 
256
 
257
 
258
# Test choice "all".
259
# This is copy-and-paste from set_bp_overloaded.
260
 
261
send_gdb "break foo::overload1arg\n"
262
gdb_expect {
263
    -re "$menu_overload1arg" {
264
        pass "bp menu for foo::overload1arg choice all"
265
        # Choose all.
266
        send_gdb "1\n"
267
        gdb_expect {
268
            -re "Breakpoint $decimal at $hex: file.*$srcfile, line 121.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 120.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 119.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 118.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 117.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 116.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 115.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 114.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 113.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 112.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 111.\r\nBreakpoint $decimal at $hex: file.*$srcfile, line 110.\r\nwarning: Multiple breakpoints were set.\r\nUse the .delete. command to delete unwanted breakpoints.\r\n$gdb_prompt $" {
269
                pass "set bp on overload1arg all"
270
            }
271
            -re ".*$gdb_prompt $" {
272
                fail "set bp on overload1arg all (bad message)"
273
            }
274
            timeout {
275
                fail "set bp on overload1arg all (timeout)"
276
                take_gdb_out_of_choice_menu
277
            }
278
        }
279
    }
280
    -re ".*\r\n> " {
281
        fail "bp menu for foo::overload1arg choice all (bad menu)"
282
        take_gdb_out_of_choice_menu
283
    }
284
    -re ".*$gdb_prompt $" {
285
        fail "bp menu for foo::overload1arg choice all (no menu)"
286
    }
287
    timeout {
288
        fail "bp menu for foo::overload1arg choice all (timeout)"
289
        take_gdb_out_of_choice_menu
290
    }
291
}
292
 
293
gdb_test "info break" \
294
    "Num     Type\[\t \]+Disp Enb Address\[\t \]+What.*
295
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(double\\) at.*$srcfile:121\r
296
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(float\\) at.*$srcfile:120\r
297
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned long\\) at.*$srcfile:119\r
298
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(long\\) at.*$srcfile:118\r
299
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((unsigned|unsigned int)\\) at.*$srcfile:117\r
300
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(int\\) at.*$srcfile:116\r
301
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned short\\) at.*$srcfile:115\r
302
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(short\\) at.*$srcfile:114\r
303
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(unsigned char\\) at.*$srcfile:113\r
304
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(signed char\\) at.*$srcfile:112\r
305
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\(char\\) at.*$srcfile:111\r
306
\[0-9\]+\[\t \]+breakpoint     keep y\[\t \]+$hex\[\t \]+in foo::overload1arg\\((void|)\\) at.*$srcfile:110" \
307
    "breakpoint info (after setting on all)"
308
 
309
 
310
 
311
# Run through each breakpoint.
312
 
313
# NOTE: carlton/2003-02-03: I'm seeing failures on some of the tests,
314
# with the wrong arg being printed out.  Michael Chastain sees
315
# failures at times, too, albeit fewer than I do.
316
 
317
proc continue_to_bp_overloaded {might_kfail bpnumber argtype actuals} {
318
    global gdb_prompt hex decimal srcfile
319
 
320
    send_gdb "continue\n"
321
    gdb_expect {
322
        -re "Continuing.\r\n\r\nBreakpoint ${bpnumber}, (${hex} in )?foo::overload1arg(\\(${argtype}\\))? \\(this=${hex}(, )?${actuals}\\) at.*${srcfile}:${decimal}\r\n${decimal}\[\t \]+int foo::overload1arg \\(${argtype}( arg)?\\).*\r\n.*$gdb_prompt $" {
323
            pass "continue to bp overloaded : ${argtype}"
324
        }
325
        -re "Continuing.\r\n\r\nBreakpoint ${bpnumber}, (${hex} in )?foo::overload1arg(\\(${argtype}\\))? \\(this=${hex}, arg=.*\\) at.*${srcfile}:${decimal}\r\n${decimal}\[\t \]+int foo::overload1arg \\(${argtype}( arg)?\\).*\r\n.*$gdb_prompt $" {
326
            if $might_kfail {
327
                kfail "gdb/1025" "continue to bp overloaded : ${argtype}"
328
            } else {
329
                fail "continue to bp overloaded : ${argtype}"
330
            }
331
        }
332
        -re ".*$gdb_prompt $" {
333
            fail "continue to bp overloaded : ${argtype}"
334
        }
335
        timeout {
336
            fail "continue to bp overloaded : ${argtype} (timeout)"
337
        }
338
    }
339
}
340
 
341
continue_to_bp_overloaded 0 25 "(void|)" ""
342
continue_to_bp_overloaded 1 24 "char" "arg=2 \\'\\\\002\\'"
343
continue_to_bp_overloaded 1 23 "signed char" "arg=3 \\'\\\\003\\'"
344
continue_to_bp_overloaded 1 22 "unsigned char" "arg=4 \\'\\\\004\\'"
345
continue_to_bp_overloaded 1 21 "short" "arg=5"
346
continue_to_bp_overloaded 1 20 "unsigned short" "arg=6"
347
continue_to_bp_overloaded 0 19 "int" "arg=7"
348
continue_to_bp_overloaded 0 18 "(unsigned|unsigned int)" "arg=8"
349
continue_to_bp_overloaded 0 17 "long" "arg=9"
350
continue_to_bp_overloaded 0 16 "unsigned long" "arg=10"
351
continue_to_bp_overloaded 0 15 "float" "arg=100"
352
continue_to_bp_overloaded 1 14 "double" "arg=200"
353
 
354
 
355
 
356
# That's all, folks.
357
 
358
gdb_continue_to_end "finish program"

powered by: WebSVN 2.1.0

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