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.base/] [maint.exp] - Blame information for rev 157

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# Copyright 1998, 1999, 2000, 2001, 2002, 2003, 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
# Please email any bugs, comments, and/or additions to this file to:
18
# bug-gdb@prep.ai.mit.edu
19
 
20
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
21
 
22
# this file tests maintenance commands and help on those.
23
 
24
# source file used is break.c
25
 
26
 
27
#maintenance check-symtabs -- Check consistency of psymtabs and symtabs
28
#maintenance space -- Set the display of space usage
29
#maintenance set -- Set GDB internal variables used by the GDB maintainer
30
#maintenance show -- Show GDB internal variables used by the GDB maintainer
31
#maintenance time -- Set the display of time usage
32
#maintenance demangle -- Demangle a C++ mangled name
33
#maintenance dump-me -- Get fatal error; make debugger dump its core
34
#maintenance print -- Maintenance command for printing GDB internal state
35
#maintenance info -- Commands for showing internal info about the program being debugged
36
#maintenance internal-error -- Give GDB an internal error.
37
#
38
#maintenance print dummy-frames -- Print the dummy frame stack
39
#maintenance print statistics -- Print statistics about internal gdb state
40
#maintenance print objfiles -- Print dump of current object file definitions
41
#maintenance print psymbols -- Print dump of current partial symbol definitions
42
#maintenance print msymbols -- Print dump of current minimal symbol definitions
43
#maintenance print symbols -- Print dump of current symbol definitions
44
#maintenance print type -- Print a type chain for a given symbol
45
#maintenance print unwind -- Print unwind table entry at given address
46
#
47
#
48
#maintenance info sections -- List the BFD sections of the exec and core files
49
#maintenance info breakpoints -- Status of all breakpoints
50
#
51
 
52
 
53
 
54
if $tracelevel then {
55
        strace $tracelevel
56
        }
57
 
58
global usestubs
59
 
60
#
61
# test running programs
62
#
63
set prms_id 0
64
set bug_id 0
65
 
66
set testfile "break"
67
set srcfile ${testfile}.c
68
set srcfile1 ${testfile}1.c
69
set binfile ${objdir}/${subdir}/${testfile}
70
 
71
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
72
     untested maint.exp
73
     return -1
74
}
75
 
76
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
77
     untested maint.exp
78
     return -1
79
}
80
 
81
if  { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
82
     untested maint.exp
83
     return -1
84
}
85
 
86
 
87
gdb_exit
88
gdb_start
89
gdb_reinitialize_dir $srcdir/$subdir
90
gdb_load ${binfile}
91
 
92
if ![runto_main] then {
93
        perror "tests suppressed"
94
}
95
 
96
 
97
# The commands we test here produce many lines of output; disable "press
98
#  to continue" prompts.
99
send_gdb "set height 0\n"
100
gdb_expect -re "$gdb_prompt $"
101
 
102
# use a larger expect input buffer for long help outputs.
103
match_max 6000
104
 
105
#
106
# this command does not produce any output
107
# unless there is some problem with the symtabs and psymtabs
108
# so that branch will really never be covered in this tests here!!
109
#
110
 
111
# guo: on linux this command output is huge.  for some reason splitting up
112
# the regexp checks works.
113
#
114
send_gdb "maint check-symtabs\n"
115
gdb_expect  {
116
        -re "^maint check-symtabs" {
117
            gdb_expect {
118
                -re "$gdb_prompt $" \
119
                          { pass "maint check-symtabs" }
120
                timeout { fail "(timeout) maint check-symtabs" }
121
            }
122
        }
123
        -re ".*$gdb_prompt $"       { fail "maint check-symtabs" }
124
        timeout         { fail "(timeout) maint check-symtabs" }
125
        }
126
 
127
send_gdb "maint space\n"
128
gdb_expect  {
129
        -re "\"maintenance space\" takes a numeric argument\\..*$gdb_prompt $"\
130
                        { pass "maint space" }
131
        -re ".*$gdb_prompt $"       { fail "maint space" }
132
        timeout         { fail "(timeout) maint space" }
133
        }
134
 
135
send_gdb "maint space 1\n"
136
gdb_expect  {
137
        -re "Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\
138
                        { pass "maint space 1" }
139
        -re ".*$gdb_prompt $"       { fail "maint space 1" }
140
        timeout         { fail "(timeout) maint space 1" }
141
        }
142
 
143
 
144
send_gdb "maint time\n"
145
gdb_expect  {
146
        -re "\"maintenance time\" takes a numeric argument\\..*Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\
147
                        { pass "maint time" }
148
        -re ".*$gdb_prompt $"       { fail "maint time" }
149
        timeout         { fail "(timeout) maint time" }
150
        }
151
 
152
send_gdb "maint time 1\n"
153
gdb_expect  {
154
        -re "Command execution time: $decimal.*Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\
155
                        { pass "maint time 1" }
156
        -re ".*$gdb_prompt $"       { fail "maint time 1" }
157
        timeout         { fail "(timeout) maint time 1" }
158
        }
159
 
160
send_gdb "maint time 0\n"
161
gdb_expect  {
162
        -re "Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\
163
                        { pass "maint time 0" }
164
        -re ".*$gdb_prompt $"       { fail "maint time 0" }
165
        timeout         { fail "(timeout) maint time 0" }
166
        }
167
 
168
 
169
send_gdb "maint space 0\n"
170
gdb_expect  {
171
        -re "maint space 0\r\n$gdb_prompt $"\
172
                        { pass "maint space 0" }
173
        -re ".*$gdb_prompt $"       { fail "maint space 0" }
174
        timeout         { fail "(timeout) maint space 0" }
175
        }
176
 
177
send_gdb "maint demangle\n"
178
gdb_expect  {
179
        -re "\"maintenance demangle\" takes an argument to demangle\\..*$gdb_prompt $"\
180
                        { pass "maint demangle" }
181
        -re ".*$gdb_prompt $"       { fail "maint demangle" }
182
        timeout         { fail "(timeout) maint demangle" }
183
        }
184
 
185
send_gdb "maint demangle main\n"
186
gdb_expect  {
187
        -re "Can't demangle \"main\".*$gdb_prompt $"\
188
                        { pass "maint demangle" }
189
        -re ".*$gdb_prompt $"       { fail "maint demangle" }
190
        timeout         { fail "(timeout) maint demangle" }
191
        }
192
 
193
# The timeout value is raised, because printing all the symbols and
194
# statistical information about Cygwin and Windows libraries takes a lot
195
# of time.
196
if [istarget "*-*-cygwin*"] {
197
        set oldtimeout $timeout
198
        set timeout [expr $timeout + 500]
199
}
200
 
201
send_gdb "maint print statistics\n"
202
gdb_expect  {
203
        -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for psymbol obstack.*Total memory used for psymbol cache.*Total memory used for symbol obstack.*Total memory used for type obstack.*$gdb_prompt $"\
204
                        {
205
                            # Old output for gdb 6.0 and earlier
206
                            pass "maint print statistics"
207
                        }
208
        -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for objfile obstack.*Total memory used for psymbol cache.*Total memory used for macro cache.*$gdb_prompt $"\
209
                        { pass "maint print statistics" }
210
        -re ".*$gdb_prompt $"       { fail "maint print statistics" }
211
        timeout         { fail "(timeout) maint print statistics" }
212
        }
213
 
214
# There aren't any ...
215
gdb_test "maint print dummy-frames" ""
216
 
217
send_gdb "maint print objfiles\n"
218
 
219
# To avoid timeouts, we avoid expects with many .* patterns that match
220
# many lines.  Instead, we keep track of which milestones we've seen
221
# in the output, and stop when we've seen all of them.
222
 
223
set header 0
224
set psymtabs 0
225
set symtabs 0
226
set keep_looking 1
227
 
228
while {$keep_looking} {
229
    gdb_expect  {
230
 
231
        -re ".*Object file.*break($EXEEXT)?:  Objfile at $hex, bfd at $hex, \[0-9\]* minsyms\[\r\t \]+\n" { set header 1 }
232
        -re ".*Psymtabs:\[\r\t \]+\n" { set psymtabs 1 }
233
        -re ".*Symtabs:\[\r\t \]+\n" { set symtabs 1 }
234
 
235
        -re ".*$gdb_prompt $" {
236
            set keep_looking 0
237
        }
238
        timeout {
239
            fail "(timeout) maint print objfiles"
240
            set keep_looking 0
241
        }
242
    }
243
}
244
 
245
proc maint_pass_if {val name} {
246
    if $val { pass $name } else { fail $name }
247
}
248
 
249
maint_pass_if $header   "maint print objfiles: header"
250
maint_pass_if $psymtabs "maint print objfiles: psymtabs"
251
maint_pass_if $symtabs  "maint print objfiles: symtabs"
252
 
253
send_gdb "maint print psymbols\n"
254
gdb_expect  {
255
        -re "print-psymbols takes an output file name and optional symbol file name.*$gdb_prompt $"\
256
                        { pass "maint print psymbols w/o args" }
257
        -re ".*$gdb_prompt $"       { fail "maint print psymbols w/o args" }
258
        timeout         { fail "(timeout) maint print psymbols w/o args" }
259
        }
260
 
261
send_gdb "maint print psymbols psymbols_output ${srcdir}/${subdir}/${srcfile}\n"
262
gdb_expect  {
263
        -re "^maint print psymbols psymbols_output \[^\n\]*\r\n$gdb_prompt $"\
264
         {
265
          send_gdb "shell ls psymbols_output\n"
266
          gdb_expect {
267
                -re "psymbols_output\r\n$gdb_prompt $"\
268
                 {
269
                  # We want this grep to be as specific as possible,
270
                  # so it's less likely to match symbol file names in
271
                  # psymbols_output.  Yes, this actually happened;
272
                  # poor expect got tons of output, and timed out
273
                  # trying to match it.   --- Jim Blandy 
274
                  send_gdb "shell grep 'main.*function' psymbols_output\n"
275
                  gdb_expect {
276
                        -re ".main., function, $hex.*$gdb_prompt $"\
277
                                               { pass "maint print psymbols 1" }
278
                        -re ".*main.  .., function, $hex.*$gdb_prompt $"\
279
                                               { pass "maint print psymbols 2" }
280
                        -re ".*$gdb_prompt $"       { fail "maint print psymbols" }
281
                         timeout         { fail "(timeout) maint print psymbols" }
282
                         }
283
                  gdb_test "shell rm -f psymbols_output" ""
284
 
285
                  }
286
                 -re ".*$gdb_prompt $"       { fail "maint print psymbols" }
287
                  timeout         { fail "(timeout) maint print psymbols" }
288
                  }
289
         }
290
        -re ".*$gdb_prompt $"       { fail "maint print psymbols" }
291
        timeout         { fail "(timeout) maint print psymbols" }
292
        }
293
 
294
 
295
send_gdb  "maint print msymbols\n"
296
gdb_expect  {
297
        -re "print-msymbols takes an output file name and optional symbol file name.*$gdb_prompt $"\
298
                        { pass "maint print msymbols w/o args" }
299
        -re ".*$gdb_prompt $"       { fail "maint print msymbols w/o args" }
300
        timeout         { fail "(timeout) maint print msymbols w/o args" }
301
        }
302
 
303
send_gdb "maint print msymbols msymbols_output ${binfile}\n"
304
gdb_expect  {
305
        -re "^maint print msymbols msymbols_output \[^\n\]*\r\n$gdb_prompt $"\
306
         {
307
          send_gdb "shell ls msymbols_output\n"
308
          gdb_expect {
309
                -re "msymbols_output\r\n$gdb_prompt $"\
310
                 {
311
                  send_gdb "shell grep factorial msymbols_output\n"
312
                  gdb_expect {
313
                        -re "\\\[ *$decimal\\\] T\[ \t\]+$hex factorial.*$gdb_prompt $"\
314
                                               { pass "maint print msymbols" }
315
                        -re ".*$gdb_prompt $"       { fail "maint print msymbols" }
316
                         timeout         { fail "(timeout) maint print msymbols" }
317
                         }
318
                  gdb_test "shell rm -f msymbols_output" ""
319
 
320
                  }
321
                 -re ".*$gdb_prompt $"       { fail "maint print msymbols" }
322
                  timeout         { fail "(timeout) maint print msymbols" }
323
                  }
324
         }
325
        -re ".*$gdb_prompt $"       { fail "maint print msymbols" }
326
        timeout         { fail "(timeout) maint print msymbols" }
327
        }
328
 
329
# Check that maint print msymbols allows relative pathnames
330
set mydir [pwd]
331
gdb_test "cd ${objdir}" "Working directory [string_to_regexp ${objdir}]\..*" "cd to objdir"
332
gdb_test_multiple "maint print msymbols msymbols_output2 ${subdir}/${testfile}" "maint print msymbols" {
333
    -re "^maint print msymbols msymbols_output2 \[^\n\]*\r\n$gdb_prompt $" {
334
        gdb_test_multiple "shell ls msymbols_output2" "maint print msymbols" {
335
            -re "msymbols_output2\r\n$gdb_prompt $" {
336
                gdb_test_multiple "shell grep factorial msymbols_output2" "maint print msymbols" {
337
                    -re "\\\[ *$decimal\\\] T\[ \t\]+$hex factorial.*$gdb_prompt $" {
338
                        pass "maint print msymbols"
339
                    }
340
                    -re ".*$gdb_prompt $" {
341
                        fail "maint print msymbols"
342
                    }
343
                    timeout {
344
                        fail "(timeout) maint print msymbols"
345
                    }
346
                }
347
                gdb_test "shell rm -f msymbols_output2" ""
348
            }
349
            -re ".*$gdb_prompt $" {
350
                fail "maint print msymbols"
351
            }
352
            timeout {
353
                fail "(timeout) maint print msymbols"
354
            }
355
        }
356
    }
357
    -re ".*$gdb_prompt $" {
358
        fail "maint print msymbols"
359
    }
360
    timeout {
361
        fail "(timeout) maint print msymbols"
362
    }
363
}
364
gdb_test "cd ${mydir}" "Working directory [string_to_regexp ${mydir}]\..*" "cd to mydir"
365
 
366
send_gdb "maint print symbols\n"
367
gdb_expect  {
368
        -re "Arguments missing: an output file name and an optional symbol file name.*$gdb_prompt $"\
369
                        { pass "maint print symbols w/o args" }
370
        -re ".*$gdb_prompt $"       { fail "maint print symbols w/o args" }
371
        timeout         { fail "(timeout) maint print symbols w/o args" }
372
        }
373
 
374
# Request symbols for one particular source file so that we don't try to
375
# dump the symbol information for the entire C library - over 500MB nowadays
376
# for GNU libc.
377
 
378
send_gdb "maint print symbols symbols_output ${srcdir}/${subdir}/${srcfile}\n"
379
gdb_expect  {
380
        -re "^maint print symbols symbols_output \[^\n\]*\r\n$gdb_prompt $"\
381
         {
382
          send_gdb "shell ls symbols_output\n"
383
          gdb_expect {
384
                -re "symbols_output\r\n$gdb_prompt $"\
385
                 {
386
                  # See comments for `maint print psymbols'.
387
                  send_gdb "shell grep 'main(.*block' symbols_output\n"
388
                  gdb_expect {
389
                        -re "int main\\(int, char \\*\\*, char \\*\\*\\); block.*$gdb_prompt $"\
390
                                               { pass "maint print symbols" }
391
                        -re ".*$gdb_prompt $"       { fail "maint print symbols" }
392
                         timeout         { fail "(timeout) maint print symbols" }
393
                         }
394
                  gdb_test "shell rm -f symbols_output" ""
395
 
396
                  }
397
                 -re ".*$gdb_prompt $"       { fail "maint print symbols" }
398
                  timeout         { fail "(timeout) maint print symbols" }
399
                  }
400
         }
401
        -re ".*$gdb_prompt $"       { fail "maint print symbols" }
402
        timeout         { fail "(timeout) maint print symbols" }
403
        }
404
 
405
send_gdb "maint print type argc\n"
406
gdb_expect  {
407
        -re "type node $hex\r\nname .int. \\($hex\\)\r\ntagname .. \\($hex\\)\r\ncode $hex \\(TYPE_CODE_INT\\)\r\nlength \[24\]\r\nupper_bound_type $hex \\(BOUND_SIMPLE\\)\r\nlower_bound_type $hex \\(BOUND_SIMPLE\\)\r\nobjfile $hex\r\ntarget_type $hex\r\npointer_type $hex\r\nreference_type $hex\r\ntype_chain $hex\r\ninstance_flags $hex\r\nflags $hex\r\nnfields 0 $hex\r\nvptr_basetype $hex\r\nvptr_fieldno -1\r\ntype_specific $hex\r\n$gdb_prompt $"\
408
                        { pass "maint print type" }
409
        -re ".*$gdb_prompt $"       { fail "maint print type" }
410
        timeout         { fail "(timeout) maint print type" }
411
        }
412
 
413
if [istarget "hppa*-*-11*"] {
414
    setup_xfail hppa*-*-*11* CLLbs14860
415
    send "maint print unwind &main\n"
416
    expect  {
417
        -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex 
\r\n\tregion_end = $hex \r\n\tflags = Args_stored Save_RP\r\n\tRegion_description = $hex\r\n\tEntry_FR = $hex\r\n\tEntry_GR = $hex\r\n\tTotal_frame_size = $hex\r\n$gdb_prompt $"\
418
            { pass "maint print unwind" }
419
        -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex 
\r\n\tregion_end = $hex \r\n\tflags = Args_stored Save_RP\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n$gdb_prompt $"\
420
            { xfail "maint print unwind" }
421
        -re ".*$gdb_prompt $"       { xfail "maint info unwind" }
422
        timeout         { fail "(timeout) maint print unwind" }
423
    }
424
}
425
 
426
set oldtimeout $timeout
427
set timeout [expr $timeout + 300]
428
 
429
# It'd be nice to check for every possible section.  However, that's
430
# problematic, since the relative ordering wanders from release to
431
# release of the compilers.  Instead, we'll just check for two
432
# sections which appear to always come out in the same relative
433
# order.  (If that changes, then we should just check for one
434
# section.)
435
#
436
# And by the way: This testpoint will break for PA64, where a.out's
437
# are ELF files.
438
#
439
send_gdb "maint info sections\n"
440
gdb_expect  {
441
        -re "Exec file:\r\n.*break($EXEEXT)?., file type.*$gdb_prompt $"\
442
                        { pass "maint info sections" }
443
        -re ".*$gdb_prompt $"       { fail "maint info sections" }
444
        timeout         { fail "(timeout) maint info sections" }
445
        }
446
 
447
# Test for new option: maint info sections 
448
# If you don't have a .text section, this will require tweaking.
449
send_gdb "maint info sections .text\n"
450
gdb_expect {
451
    -re ".* \\.bss .*$gdb_prompt $"      { fail "maint info sections .text" }
452
    -re ".* \\.data .*$gdb_prompt $"     { fail "maint info sections .text" }
453
    -re ".* \\.text .*$gdb_prompt $"  { pass "maint info sections .text" }
454
    -re ".*$gdb_prompt $"           { fail "maint info sections .text" }
455
    timeout               { fail "(timeout) maint info sections .text" }
456
}
457
 
458
# Test for new option: CODE section flag
459
# If your data section is tagged CODE, xfail this test.
460
send_gdb "maint info sections CODE\n"
461
gdb_expect {
462
    -re ".* \\.data .*$gdb_prompt $" { fail "maint info sections CODE" }
463
    -re ".* \\.text .*$gdb_prompt $" { pass "maint info sections CODE" }
464
    -re ".*$gdb_prompt $"          { fail "maint info sections CODE" }
465
    timeout              { fail "(timeout) maint info sections CODE" }
466
}
467
 
468
# Test for new option: DATA section flag
469
# If your text section is tagged DATA, xfail this test.
470
#
471
# The "maint info sections DATA" test is marked for XFAIL on Cygwin,
472
# because Windows has text sections marked DATA.
473
setup_xfail "*-*-*cygwin*"
474
send_gdb "maint info sections DATA\n"
475
gdb_expect {
476
    -re ".* \\.text .*$gdb_prompt $" { fail "maint info sections DATA" }
477
    -re ".* \\.data .*$gdb_prompt $" { pass "maint info sections DATA" }
478
    -re ".*$gdb_prompt $"          { fail "maint info sections DATA" }
479
    timeout              { fail "(timeout) maint info sections DATA" }
480
}
481
 
482
set bp_location6 [gdb_get_line_number "set breakpoint 6 here"]
483
 
484
send_gdb "maint info breakpoints\n"
485
gdb_expect {
486
    -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex\[ \t\]+in main at.*break.c:$bp_location6\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $"\
487
                { pass "maint info breakpoints" }
488
        -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:$bp_location6\r\n\[ \t\]+breakpoint already hit 1 time\r\n-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $"\
489
                { pass "maint info breakpoints (with shlib events)" }
490
        -re ".*$gdb_prompt $"       { fail "maint info breakpoints" }
491
        timeout         { fail "(timeout) maint info breakpoints" }
492
}
493
 
494
send_gdb "maint print\n"
495
gdb_expect  {
496
        -re "\"maintenance print\" must be followed by the name of a print command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\
497
                        { pass "maint print w/o args" }
498
        -re ".*$gdb_prompt $"       { fail "maint print w/o args" }
499
        timeout         { fail "(timeout) maint print w/o args" }
500
        }
501
 
502
send_gdb "maint info\n"
503
gdb_expect  {
504
        -re "\"maintenance info\" must be followed by the name of an info command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\
505
                        { pass "maint info w/o args" }
506
        -re ".*$gdb_prompt $"       { fail "maint info w/o args" }
507
        timeout         { fail "(timeout) maint info w/o args" }
508
        }
509
 
510
send_gdb "maint\n"
511
gdb_expect  {
512
        -re "\"maintenance\" must be followed by the name of a maintenance command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\
513
                        { pass "maint w/o args" }
514
        -re ".*$gdb_prompt $"       { fail "maint w/o args" }
515
        timeout         { fail "(timeout) maint w/o args" }
516
        }
517
 
518
 
519
set timeout $oldtimeout
520
 
521
#============test help on maint commands
522
 
523
send_gdb "help maint\n"
524
gdb_expect  {
525
        -re "Commands for use by GDB maintainers\\..*Includes commands to dump specific internal GDB structures in.*a human readable form, to cause GDB to deliberately dump core,.*to test internal functions such as the C../ObjC demangler, etc\\..*List of maintenance subcommands:.*maintenance check-symtabs.*maintenance demangle.*(maintenance dump-me.*)?maintenance info.*maintenance internal-error.*maintenance print.*maintenance set.*maintenance show.*maintenance space.*maintenance time.*Type.*help maintenance.*followed by maintenance subcommand name for full documentation\\..*Command name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\
526
 { pass "help maint" }
527
        -re ".*$gdb_prompt $"       { fail "help maint" }
528
        timeout         { fail "(timeout) help maint" }
529
        }
530
 
531
 
532
send_gdb "help maint check-symtabs\n"
533
gdb_expect  {
534
        -re "Check consistency of psymtabs and symtabs\\..*$gdb_prompt $"\
535
                        { pass "help maint check-symtabs" }
536
        -re ".*$gdb_prompt $"       { fail "help maint check-symtabs" }
537
        timeout         { fail "(timeout) help maint check-symtabs" }
538
        }
539
 
540
send_gdb "help maint space\n"
541
gdb_expect  {
542
        -re "Set the display of space usage\\.\r\nIf nonzero, will cause the execution space for each command to be\r\ndisplayed, following the command's output\\..*$gdb_prompt $"\
543
                        { pass "help maint space" }
544
        -re ".*$gdb_prompt $"       { fail "help maint space" }
545
        timeout         { fail "(timeout) help maint space" }
546
        }
547
 
548
send_gdb "help maint time\n"
549
gdb_expect  {
550
        -re "Set the display of time usage\\.\r\nIf nonzero, will cause the execution time for each command to be\r\ndisplayed, following the command's output\\..*$gdb_prompt $"\
551
                        { pass "help maint time" }
552
        -re ".*$gdb_prompt $"       { fail "help maint time" }
553
        timeout         { fail "(timeout) help maint time" }
554
        }
555
 
556
send_gdb "help maint demangle\n"
557
gdb_expect  {
558
        -re "Demangle a C\\+\\+/ObjC mangled name\\.\r\nCall internal GDB demangler routine to demangle a C\\+\\+ link name\r\nand prints the result\\..*$gdb_prompt $"\
559
                        { pass "help maint demangle" }
560
        -re ".*$gdb_prompt $"       { fail "help maint demangle" }
561
        timeout         { fail "(timeout) help maint demangle" }
562
        }
563
 
564
send_gdb "help maint dump-me\n"
565
gdb_expect  {
566
        -re "Get fatal error; make debugger dump its core\\.\r\nGDB sets its handling of SIGQUIT back to SIG_DFL and then sends\r\nitself a SIGQUIT signal\\..*$gdb_prompt $"\
567
                        { pass "help maint dump-me" }
568
        -re ".*$gdb_prompt $"       { fail "help maint dump-me" }
569
        timeout         { fail "(timeout) help maint dump-me" }
570
        }
571
 
572
send_gdb "help maint internal-error\n"
573
gdb_expect  {
574
        -re "Give GDB an internal error\\.\r\nCause GDB to behave as if an internal error was detected\\..*$gdb_prompt $"\
575
                        { pass "help maint internal-error" }
576
        -re ".*$gdb_prompt $"       { fail "help maint internal-error" }
577
        timeout         { fail "(timeout) help maint internal-error" }
578
        }
579
 
580
send_gdb "help maint internal-warning\n"
581
gdb_expect  {
582
        -re "Give GDB an internal warning\\.\r\nCause GDB to behave as if an internal warning was reported\\..*$gdb_prompt $"\
583
                        { pass "help maint internal-warning" }
584
        -re ".*$gdb_prompt $"       { fail "help maint internal-warning" }
585
        timeout         { fail "(timeout) help maint internal-warning" }
586
        }
587
 
588
send_gdb "help maint print statistics\n"
589
gdb_expect  {
590
        -re "Print statistics about internal gdb state\\..*$gdb_prompt $"\
591
                        { pass "help maint print statistics" }
592
        -re ".*$gdb_prompt $"       { fail "help maint print statistics" }
593
        timeout         { fail "(timeout) help maint print statistics" }
594
        }
595
 
596
gdb_test "help maint print dummy-frames" \
597
        "Print the contents of the internal dummy-frame stack."
598
 
599
send_gdb "help maint print objfiles\n"
600
gdb_expect  {
601
        -re "Print dump of current object file definitions\\..*$gdb_prompt $"\
602
                        { pass "help maint print objfiles" }
603
        -re ".*$gdb_prompt $"       { fail "help maint print objfiles" }
604
        timeout         { fail "(timeout) help maint print objfiles" }
605
        }
606
 
607
send_gdb "help maint print psymbols\n"
608
gdb_expect  {
609
        -re "Print dump of current partial symbol definitions\\.\r\nEntries in the partial symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's partial symbols\\..*$gdb_prompt $"\
610
                        { pass "help maint print psymbols" }
611
        -re ".*$gdb_prompt $"       { fail "help maint print psymbols" }
612
        timeout         { fail "(timeout) help maint print psymbols" }
613
        }
614
 
615
send_gdb "help maint print msymbols\n"
616
gdb_expect  {
617
        -re "Print dump of current minimal symbol definitions\\.\r\nEntries in the minimal symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's minimal symbols\\..*$gdb_prompt $"\
618
                        { pass "help maint print msymbols" }
619
        -re ".*$gdb_prompt $"       { fail "help maint print msymbols" }
620
        timeout         { fail "(timeout) help maint print msymbols" }
621
        }
622
 
623
send_gdb "help maint print symbols\n"
624
gdb_expect  {
625
        -re "Print dump of current symbol definitions\\.\r\nEntries in the full symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's symbols\\..*$gdb_prompt $"\
626
                        { pass "help maint print symbols" }
627
        -re ".*$gdb_prompt $"       { fail "help maint print symbols" }
628
        timeout         { fail "(timeout) help maint print symbols" }
629
        }
630
 
631
 
632
send_gdb "help maint print type\n"
633
gdb_expect  {
634
        -re "Print a type chain for a given symbol\\.\r\nFor each node in a type chain, print the raw data for each member of\r\nthe type structure, and the interpretation of the data\\..*$gdb_prompt $"\
635
                        { pass "help maint print type" }
636
        -re ".*$gdb_prompt $"       { fail "help maint print type" }
637
        timeout         { fail "(timeout) help maint print type" }
638
        }
639
 
640
if [istarget "hppa*-*-*"] {
641
    send_gdb "help maint print unwind\n"
642
    gdb_expect  {
643
        -re "Print unwind table entry at given address\\..*$gdb_prompt $"\
644
            { pass "help maint print unwind" }
645
        -re ".*$gdb_prompt $"       { fail "help maint print unwind" }
646
        timeout         { fail "(timeout) help maint print unwind" }
647
    }
648
}
649
 
650
send_gdb "help maint info sections\n"
651
gdb_expect  {
652
        -re "List the BFD sections of the exec and core files\\..*$gdb_prompt $"\
653
                        { pass "help maint info sections" }
654
        -re ".*$gdb_prompt $"       { fail "help maint info sections" }
655
        timeout         { fail "(timeout) help maint info sections" }
656
        }
657
 
658
 
659
send_gdb "help maint info breakpoints\n"
660
gdb_expect  {
661
-re "Status of all breakpoints, or breakpoint number NUMBER.*$gdb_prompt $" { pass "help maint info breakpoints" }
662
        -re ".*$gdb_prompt $"       { fail "help maint info breakpoints" }
663
        timeout         { fail "(timeout) help maint info breakpoints" }
664
        }
665
 
666
#send_gdb "help maint info breakpoints\n"
667
#expect  {
668
#        -re "Status of all breakpoints, or breakpoint number NUMBER\\.\[ \r\n\t\]+The \"Type\" column indicates one of:\[ \r\n\t\]+breakpoint\[ \t\]+- normal breakpoint\[ \r\n\t\]+watchpoint\[ \t\]+- watchpoint\[ \r\n\t\]+longjmp\[ \t\]+- internal breakpoint used to step through longjmp\\(\\)\[ \r\n\t\]+longjmp resume - internal breakpoint at the target of longjmp\\(\\)\[ \r\n\t\]+until\[ \t\]+- internal breakpoint used by the \"until\" command\[ \r\n\t\]+finish\[ \t\]+- internal breakpoint used by the \"finish\" command\[ \r\n\t\]+The \"Disp\" column contains one of \"keep\", \"del\", or \"dis\" to indicate\[ \r\n\t\]+the disposition of the breakpoint after it gets hit\\.  \"dis\" means that the\[ \r\n\t\]+breakpoint will be disabled\\.  The \"Address\" and \"What\" columns indicate the\[ \r\n\t\]+address and file.line number respectively\\.\[ \r\n\t\]+Convenience variable \".*\" and default examine address for \"x\"\[ \r\n\t\]+are set to the address of the last breakpoint listed\\.\[ \r\n\t\]+Convenience variable \".bpnum\" contains the number of the last\[ \r\n\t\]+breakpoint set\\..*$gdb_prompt $"\
669
#                        { pass "help maint info breakpoints" }
670
#        -re ".*$gdb_prompt $"       { fail "help maint info breakpoints" }
671
#        timeout         { fail "(timeout) help maint info breakpoints" }
672
#        }
673
 
674
send_gdb "help maint info\n"
675
gdb_expect  {
676
        -re "Commands for showing internal info about the program being debugged.*unambiguous\\..*$gdb_prompt $"\
677
                        { pass "help maint info" }
678
        -re ".*$gdb_prompt $"       { fail "help maint info" }
679
        timeout         { fail "(timeout) help maint info" }
680
        }
681
 
682
test_prefix_command_help {"maint print" "maintenance print"} {
683
    "Maintenance command for printing GDB internal state\\.\[\r\n\]+"
684
}
685
 
686
test_prefix_command_help {"maint" "maintenance"} {
687
    "Commands for use by GDB maintainers\\.\[\r\n\]+"
688
    "Includes commands to dump specific internal GDB structures in\[\r\n\]+"
689
    "a human readable form, to cause GDB to deliberately dump core,\[\r\n\]+"
690
    "to test internal functions such as the C\\+\\+/ObjC demangler, etc\\.\[\r\n\]+"
691
}
692
 
693
#set oldtimeout $timeout
694
#set timeout [expr $timeout + 300]
695
 
696
send_gdb "maint dump-me\n"
697
gdb_expect  {
698
        -re "Should GDB dump core.*\\(y or n\\) $"\
699
          { send_gdb "n\n"
700
            gdb_expect {
701
                    -re ".*$gdb_prompt $"       { pass "maint dump-me" }
702
                    timeout         { fail "(timeout)  maint dump-me" }
703
                   }
704
          }
705
        -re ".*$gdb_prompt $"       { fail "maint dump-me" }
706
        timeout         { fail "(timeout) maint dump-me" }
707
        }
708
 
709
send_gdb "maint internal-error\n"
710
gdb_expect {
711
    -re "A problem internal to GDB has been detected" {
712
        pass "maint internal-error"
713
        if [gdb_internal_error_resync] {
714
            pass "internal-error resync"
715
        } else {
716
            fail "internal-error resync"
717
        }
718
    }
719
    -re ".*$gdb_prompt $" {
720
        fail "maint internal-error"
721
        untested "internal-error resync"
722
    }
723
    timeout {
724
        fail "maint internal-error (timeout)"
725
        untested "internal-error resync"
726
    }
727
}
728
 
729
#set timeout $oldtimeout
730
 
731
 
732
gdb_exit
733
return 0

powered by: WebSVN 2.1.0

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