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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
#   Copyright (C) 1999
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 2 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, write to the Free Software
16
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17
 
18
# Please email any bugs, comments, and/or additions to this file to:
19
# bug-gdb@prep.ai.mit.edu
20
 
21
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
22
 
23
if $tracelevel then {
24
    strace $tracelevel
25
}
26
 
27
 
28
#
29
# test running programs
30
#
31
set prms_id 0
32
set bug_id 0
33
 
34
set testfile "annota1"
35
set srcfile ${testfile}.c
36
set binfile ${objdir}/${subdir}/${testfile}
37
 
38
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
39
    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
40
}
41
 
42
 
43
# are we on a target board? If so, don't run these tests.
44
# note: this is necessary because we cannot use runto_main (which would
45
# work for remote targets too) because of the different prompt we get
46
# when using annotation level 2.
47
#
48
if ![isnative] then {
49
    return 0
50
}
51
 
52
 
53
gdb_exit
54
gdb_start
55
gdb_reinitialize_dir $srcdir/$subdir
56
gdb_load ${binfile}
57
 
58
if [target_info exists gdb_stub] {
59
    gdb_step_for_stub;
60
}
61
 
62
#
63
# the line at which break main will put the breakpoint
64
#
65
set main_line 32
66
 
67
# The commands we test here produce many lines of output; disable "press
68
#  to continue" prompts.
69
send_gdb "set height 0\n"
70
gdb_expect -re "$gdb_prompt $"
71
 
72
#
73
# break at main
74
#
75
gdb_test "break main" \
76
    "Breakpoint.*at.* file .*$srcfile, line.*" \
77
    "breakpoint main"
78
 
79
 
80
#
81
# NOTE: this prompt is OK only when the annotation level is > 1
82
# NOTE: When this prompt is in use the gdb_test procedure cannot be used because
83
# it assumes that the last char after the gdb_prompt is a white space. This is not
84
# true with this annotated prompt. So we must use send_gdb and gdb_expect.
85
#
86
 
87
set old_gdb_prompt $gdb_prompt
88
set gdb_prompt "\r\n\032\032pre-prompt\r\n$gdb_prompt \r\n\032\032prompt\r\n"
89
 
90
 
91
 
92
#
93
# set the annotation level to 2
94
#
95
# of course, this will test:
96
# annotate-pre-prompt
97
# annotate-prompt
98
# annotate-post-prompt (in the next block)
99
#
100
send_gdb "set annotate 2\n"
101
gdb_expect {
102
    -re "set annotate 2\r\n$gdb_prompt$" { pass "annotation set at level 2" }
103
    -re ".*$gdb_prompt$"       { fail "annotation set at level 2" }
104
    timeout                 { fail "annotation set at level 2 (timeout)" }
105
  }
106
 
107
 
108
#
109
# info break will test:
110
# annotate-breakpoints-headers
111
# annotate-field
112
# annotate-breakpoints-table
113
# annotate-record
114
# annotate-breakpoints-table-end
115
#
116
send_gdb "info break\n"
117
gdb_expect {
118
 -re "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-headers\r\n\r\n\032\032field 0\r\nNum \r\n\032\032field 1\r\nType           \r\n\032\032field 2\r\nDisp \r\n\032\032field 3\r\nEnb \r\n\032\032field 4\r\nAddress    \r\n\032\032field 5\r\nWhat\r\n\r\n\032\032breakpoints-table\r\n\r\n\032\032record\r\n\r\n\032\032field 0\r\n1   \r\n\032\032field 1\r\nbreakpoint     \r\n\032\032field 2\r\nkeep \r\n\032\032field 3\r\ny   \r\n\032\032field 4\r\n$hex \r\n\032\032field 5\r\nin main at ${srcdir}/${subdir}/${srcfile}:$main_line\r\n\r\n\032\032breakpoints-table-end\r\n$gdb_prompt$" \
119
        {pass "breakpoint info"}
120
   -re ".*$gdb_prompt$" { fail "breakpoint info" }
121
   timeout { fail "breakpoint info (timeout)" }
122
}
123
 
124
 
125
#
126
# run to a break point will test:
127
# annotate-frames-invalid
128
# annotate-breakpoints-invalid (a.k.a. breakpoints-changed)
129
# annotate-starting
130
# annotate-breakpoint
131
# annotate-frame-begin
132
# annotate-frame-function-name
133
# annotate-frame-args
134
# annotate-frame-source-begin
135
# annotate-frame-source-file
136
# annotate-frame-source-file-end
137
# annotate-frame-source-line
138
# annotate-frame-source-end
139
# annotate-source
140
# annotate-frame-end
141
# annotate-stopped
142
#
143
#exp_internal 1
144
send_gdb "run\n"
145
  gdb_expect {
146
    -re "\r\n\032\032post-prompt\r\nStarting program: $binfile \(\r\n\r\n\032\032frames-invalid\)+\(\r\n\r\n\032\032breakpoints-invalid\)*.*\(\r\n\r\n\032\032frames-invalid\)*\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032breakpoint 1\r\n\r\nBreakpoint 1, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nmain\r\n\032\032frame-args\r\n \\(\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*annota1.c\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n$main_line\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*$srcfile:$main_line:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n.*$gdb_prompt$" \
147
                            { pass "run until main breakpoint" }
148
    -re ".*$gdb_prompt$"       { fail "run until main breakpoint" }
149
    timeout                 { fail "run until main breakpoint (timeout)" }
150
  }
151
#exp_internal 0
152
#exit 0
153
 
154
#
155
# Let's do a next, to get to a point where the array is initialized
156
# We don't care about the annotated output for this operation, it is the same as
157
# the one produced by run above
158
#
159
send_gdb "next\n"
160
gdb_expect {
161
    -re ".*$gdb_prompt$" { pass "go after array init line" }
162
    timeout { fail "go after array init line (timeout)" }
163
}
164
 
165
 
166
#
167
# printing the array will test:
168
# annotate-value-history-begin
169
# annotate-value-history-value
170
# annotate-array-section-begin
171
# annotate-elt
172
# FIXME: annotate-elt-rep and annotate-elt-rep-end not tested
173
# annotate-array-section-end
174
# annotate-value-history-end
175
# FIXME: annotate-value-begin and annotate-value-end not tested (the gdb output
176
#              command would cause them to be used)
177
#
178
send_gdb "print my_array\n"
179
gdb_expect {
180
  -re "\r\n\032\032post-prompt\r\n\r\n\032\032value-history-begin 1 -\r\n.*= \r\n\032\032value-history-value\r\n.\r\n\032\032array-section-begin 0 -\r\n1\r\n\032\032elt\r\n, 2\r\n\032\032elt\r\n, 3\r\n\032\032elt\r\n\r\n\032\032array-section-end\r\n.\r\n\r\n\032\032value-history-end\r\n$gdb_prompt$" \
181
        { pass "print array" }
182
  -re ".*$gdb_prompt$"     { fail "print array" }
183
  timeout                   { fail "print array (timeout)" }
184
}
185
 
186
 
187
#
188
# this should generate an error message, so to test:
189
# annotate-error-begin
190
# FIXME: annotate-error not tested
191
#
192
 
193
#exp_internal 1
194
send_gdb "print non_existent_value\n"
195
gdb_expect {
196
  -re "\r\n\032\032post-prompt\r\n\r\n\032\032error-begin\r\nNo symbol \"non_existent_value\" in current context.\r\n\r\n\032\032error\r\n$gdb_prompt$" \
197
        { pass "print non_existent_value" }
198
  -re ".*$gdb_prompt$"     { fail "print non_existent_value" }
199
  timeout                   { fail "print non_existent_value (timeout)" }
200
}
201
 
202
 
203
#
204
# break at signal handler. So that, once we are in the sig handler, if we do a bt
205
# we can test annotate-signal-handler-caller
206
#
207
send_gdb "break handle_USR1\n"
208
gdb_expect {
209
  -re  "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex: file.*$srcfile, line.*\r\n$gdb_prompt$" \
210
            { pass "breakpoint handle_USR1" }
211
  -re ".*$gdb_prompt$"     { fail "break at handle_USR1" }
212
  timeout                   { fail "break at handle_USR1 (timeout)" }
213
}
214
 
215
#
216
# break at printf. When we are stopped at printf, we can test
217
#
218
send_gdb "break printf\n"
219
gdb_expect {
220
  -re  "\r\n\032\032post-prompt\r\n\r\n\032\032breakpoints-invalid\r\nBreakpoint.*at $hex.*$gdb_prompt$" \
221
            { pass "breakpoint printf" }
222
  -re ".*$gdb_prompt$"     { fail "break printf" }
223
  timeout                   { fail "break printf (timeout)" }
224
}
225
 
226
#
227
# get to printf
228
#
229
send_gdb "continue\n"
230
gdb_expect {
231
  -re "\r\n\032\032post-prompt\r\nContinuing.\r\n\r\n\032\032starting\r\n\r\n\032\032frames-invalid\r\n\r\n\032\032breakpoint 3\r\n\r\nBreakpoint 3, \r\n\032\032frame-begin 0 $hex\r\n\r\n(\032\032frame-address\r\n$hex\r\n\032\032frame-address-end\r\n in \r\n)*\032\032frame-function-name\r\nprintf\r\n\032\032frame-args\r\n.*\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
232
          { pass "continue to printf" }
233
  -re ".*$gdb_prompt$"     { fail "continue to printf" }
234
  timeout                   { fail "continue to printf (timeout)" }
235
}
236
 
237
#
238
# test:
239
# annotate-frame-where
240
# annotate-frame-address
241
# annotate-frame-address-end
242
#
243
send_gdb "backtrace\n"
244
gdb_expect {
245
  -re "\r\n\032\032post-prompt\r\n\r\n\032\032frame-begin 0 $hex\r\n.0  \r\n(\032\032frame-address\r\n$hex\r\n\032\032frame-address-end\r\n in \r\n)*\032\032frame-function-name\r\nprintf\r\n\032\032frame-args\r\n \\(.*frame-end\r\n\r\n\032\032frame-begin 1 $hex\r\n.1  \r\n\032\032frame-address\r\n$hex\r\n\032\032frame-address-end\r\n in \r\n\032\032frame-function-name\r\nmain\r\n\032\032frame-args\r\n \\(\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n${srcdir}/${subdir}/${srcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032frame-end\r\n$gdb_prompt$" \
246
          { pass "bactrace from shlibrary" }
247
  -re ".*$gdb_prompt$"     { fail "backtrace from shlibrary" }
248
  timeout                   { fail "backtrace from shlibrary (timeout)" }
249
}
250
 
251
 
252
#
253
# test printing a frame with some arguments:
254
# annotate-arg-begin
255
# annotate-arg-name-end
256
# annotate-arg-value
257
# annotate-arg-end
258
#
259
send_gdb "signal SIGUSR1\n"
260
gdb_expect {
261
  -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\r\n\r\n\032\032frames-invalid\r\n\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n${srcdir}/${subdir}/${srcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
262
        { pass "send SIGUSR1" }
263
  -re ".*$gdb_prompt$"     { fail "send SIGUSR1" }
264
  timeout                   { fail "send SIGUSR1 (timeout)" }
265
}
266
 
267
 
268
#
269
# test:
270
# annotate-signal-handler-caller
271
#
272
verbose "match_max local is: [match_max]"
273
verbose "match_max default is: [match_max -d]"
274
# This is necessary because a 2000 buffer is not enought to get everything
275
# up to the prompt ad the test gets a timeout.
276
match_max 3000
277
verbose "match_max now is: [match_max]"
278
send_gdb "backtrace\n"
279
gdb_expect {
280
  -re "frame-begin 0 $hex.*0.*frame-end.*frame-begin 1 $hex.*1.*(\032\032signal-handler-caller\r\n.signal handler called.\r\n\r\n)*\032\032frame-end\r\n\r\n\032\032frame-begin 2 $hex.*2.*(frame-begin 3 $hex.*3.*)*frame-end.*$gdb_prompt$" \
281
        { pass "backtrace @ signal handler" }
282
  -re ".*$gdb_prompt$"     { fail "backtrace @ signal handler" }
283
  timeout                   { fail "backtrace @ signal handler (timeout)" }
284
}
285
 
286
#
287
# delete all the breakpoints
288
#
289
send_gdb "delete 1\n"
290
gdb_expect {
291
     -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" \
292
          { pass "delete bp 1" }
293
     -re ".*$gdb_prompt$"  { fail "delete bp 1" }
294
     timeout { fail "delete bp 1 (timeout)" }
295
}
296
 
297
send_gdb "delete 2\n"
298
gdb_expect {
299
     -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" \
300
             { pass "delete bp 2" }
301
     -re ".*$gdb_prompt$"  { fail "delete bp 2 " }
302
     timeout { fail "delete bp 2 (timeout)" }
303
}
304
 
305
send_gdb "delete 3\n"
306
gdb_expect {
307
     -re "\r\n\032\032post-prompt\r\n$gdb_prompt$" \
308
             { pass "delete bp 3" }
309
     -re ".*$gdb_prompt$"  { fail "delete bp 3" }
310
     timeout { fail "delete bp 3 (timeout)" }
311
}
312
 
313
#
314
# break at main, after value is initialized. This is in preparation
315
# to test the annotate output for the display command.
316
#
317
send_gdb "break main\n"
318
gdb_expect {
319
     -re "post-prompt.*\032\032breakpoints-invalid.*Breakpoint 4 at $hex: file ${srcdir}/${subdir}/${srcfile}, line $main_line.*$gdb_prompt$" \
320
             { pass "break at 28" }
321
     -re ".*$gdb_prompt$"  { fail "break at 28" }
322
     timeout { fail "break at 28 (timeout)" }
323
}
324
 
325
#
326
# display the value; test:
327
# annotate-display-begin
328
# annotate-display-number-end
329
# annotate-display-format
330
# annotate-display-expression
331
# annotate-display-expression-end
332
# annotate-display-end
333
# FIXME: annotate-display-value not tested
334
#
335
send_gdb "display value\n"
336
gdb_expect {
337
    -re "post-prompt\r\n\r\n\032\032display-begin\r\n1\r\n\032\032display-number-end\r\n: \r\n\032\032display-format\r\n\r\n\032\032display-expression\r\nvalue\r\n\032\032display-expression-end\r\n = \r\n\032\032display-expression\r\n7\r\n\r\n\032\032display-end\r\n$gdb_prompt$" \
338
             { pass "set up display" }
339
     -re ".*$gdb_prompt$"  { fail "set up display" }
340
     timeout { fail "set up display (timeout)" }
341
}
342
 
343
 
344
# should ask query. Test annotate-query.
345
# we don't care about anything else here, only the query.
346
 
347
send_gdb "run\n"
348
gdb_expect {
349
  -re "pre-query.*already.*\\(y or n\\).*query\r\n" {
350
         send_gdb "y\n"
351
         gdb_expect {
352
             -re ".*post-query.*$gdb_prompt$" \
353
                     { pass "re-run" }
354
             -re ".*$gdb_prompt$"  { fail "re-run" }
355
             timeout { fail "re-run (timeout)" }
356
         }
357
     }
358
  -re ".*$gdb_prompt$"  { fail "re-run" }
359
  timeout { fail "re-run (timeout)" }
360
}
361
 
362
#
363
# Test that breakpoints-invalid is issued once and only once for
364
# breakpoint ignore count changes, after annotation stopped.
365
#
366
send_gdb "break 46\n"
367
gdb_expect {
368
    -re "Breakpoint 5 at $hex: file .*$srcfile, line 46.*$gdb_prompt$" {
369
        pass "break at 46"
370
    }
371
    -re ".*$gdb_prompt$" { fail "break at 46" }
372
    timeout { fail "break at 46 (timeout)" }
373
}
374
 
375
send_gdb "ignore 5 4\n"
376
gdb_expect {
377
    -re "Will ignore next 4 crossings of breakpoint 5.*$gdb_prompt$" {
378
        pass "ignore 5 4"
379
    }
380
    -re ".*$gdb_prompt$" { fail "ignore 5 4" }
381
    timeout { fail "ignore 5 4 (timeout)" }
382
}
383
 
384
send_gdb "continue\n"
385
gdb_expect {
386
    -re ".*$srcfile:46:.*\032\032stopped\r\n\r\n\032\032breakpoints-invalid\r\n$gdb_prompt$" {
387
        pass "annotate ignore count change"
388
    }
389
    -re ".*$gdb_prompt$" { fail "annotate ignore count change" }
390
    timeout { fail "annotate ignore count change (timeout)" }
391
}
392
 
393
# check that ignore command is working, or the above can provide
394
# misleading assurance ...
395
 
396
send_gdb "next\n"
397
gdb_expect {
398
    -re "$gdb_prompt$" {}
399
    timeout { fail "next to exit loop" }
400
}
401
 
402
send_gdb "next\n"
403
gdb_expect {
404
    -re ".*$srcfile:49:.*$gdb_prompt$" {
405
        pass "breakpoint ignore count"
406
    }
407
    -re ".*$gdb_prompt$" { fail "breakpoint ignore count" }
408
    timeout { fail "breakpoint ignore count (timeout)" }
409
}
410
 
411
#
412
# Send a signal that is not handled; test:
413
# annotate-signalled
414
# annotate-signal-name
415
# annotate-signal-name-end
416
# annotate-signal-string
417
# annotate-signal-string-end
418
# FIXME: annotate-signal not tested (requires that the inferior be
419
#                        stopped by a "random" signal)
420
#
421
send_gdb "signal SIGTRAP\n"
422
gdb_expect {
423
  -re ".*\032\032post-prompt\r\nContinuing with signal SIGTRAP.\r\n\r\n\032\032starting\r\n\r\n\032\032frames-invalid\r\n\r\n\032\032frames-invalid\r\n\r\n\032\032signalled\r\n\r\nProgram terminated with signal \r\n\032\032signal-name\r\nSIGTRAP\r\n\032\032signal-name-end\r\n, \r\n\032\032signal-string\r\nTrace.breakpoint trap\r\n\032\032signal-string-end\r\n.\r\nThe program no longer exists.\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
424
          { pass "signal sent" }
425
  -re ".*$gdb_prompt$" { fail "signal sent" }
426
  timeout { fail "signal sent (timeout)" }
427
}
428
 
429
 
430
# Check for production of a core file
431
# and remove it!
432
 
433
set exec_output [remote_exec build "ls core"]
434
 
435
if [ regexp "core not found" $exec_output]  {
436
    pass "No core dumped"
437
} else {
438
  if [ regexp "No such file or directory" $exec_output] {
439
      pass "No core dumped"
440
  } else {
441
      remote_exec build "rm -f core"
442
      pass "Core dumped and removed"
443
  }
444
}
445
 
446
# restore the original prompt for the rest of the testsuite
447
 
448
set gdb_prompt $old_gdb_prompt

powered by: WebSVN 2.1.0

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