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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.base/] [all-bin.exp] - Blame information for rev 842

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
# Copyright 1998, 1999, 2007, 2008, 2009, 2010 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 3 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, see .
15
 
16
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
17
 
18
# This file is part of the gdb testsuite
19
#
20
# tests for arithmetic, logical and relational operators
21
# with mixed types
22
#
23
 
24
 
25
 
26
if $tracelevel then {
27
        strace $tracelevel
28
        }
29
 
30
#
31
# test running programs
32
#
33
set prms_id 0
34
set bug_id 0
35
 
36
set testfile "all-types"
37
set srcfile ${testfile}.c
38
set binfile ${objdir}/${subdir}/${testfile}
39
 
40
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
41
    untested all-bin.exp
42
    return -1
43
    }
44
 
45
if [get_compiler_info ${binfile}] {
46
    return -1
47
}
48
 
49
gdb_exit
50
gdb_start
51
gdb_reinitialize_dir $srcdir/$subdir
52
gdb_load ${binfile}
53
 
54
 
55
#
56
# set it up at a breakpoint so we can play with the variable values
57
#
58
 
59
if ![runto_main] then {
60
    perror "couldn't run to breakpoint"
61
    continue
62
}
63
 
64
gdb_test "next" "return 0;" "continuing after dummy()"
65
 
66
send_gdb "print v_int+v_char\n"
67
gdb_expect {
68
    -re ".*71.*$gdb_prompt $" {
69
        pass "print value of v_int+v_char"
70
      }
71
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_char" }
72
    timeout           { fail "(timeout) print value of v_int+v_char" }
73
  }
74
 
75
send_gdb "print v_int+v_short\n"
76
gdb_expect {
77
    -re ".*9.*$gdb_prompt $" {
78
        pass "print value of v_int+v_short"
79
      }
80
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_short" }
81
    timeout           { fail "(timeout) print value of v_int+v_short" }
82
  }
83
 
84
 
85
send_gdb "print v_int+v_signed_char\n"
86
gdb_expect {
87
    -re ".*72.*$gdb_prompt $" {
88
        pass "print value of v_int+v_signed_char"
89
      }
90
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_char" }
91
    timeout           { fail "(timeout) print value of v_int+v_signed_char" }
92
  }
93
 
94
 
95
send_gdb "print v_int+v_unsigned_char\n"
96
gdb_expect {
97
    -re ".*73.*$gdb_prompt $" {
98
        pass "print value of v_int+v_unsigned_char"
99
      }
100
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_char" }
101
    timeout           { fail "(timeout) print value of v_int+v_unsigned_char" }
102
  }
103
 
104
 
105
send_gdb "print v_int+v_signed_short\n"
106
gdb_expect {
107
    -re ".*10.*$gdb_prompt $" {
108
        pass "print value of v_int+v_signed_short"
109
      }
110
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_short" }
111
    timeout           { fail "(timeout) print value of v_int+v_signed_short" }
112
  }
113
 
114
 
115
send_gdb "print v_int+v_unsigned_short\n"
116
gdb_expect {
117
    -re ".*11.*$gdb_prompt $" {
118
        pass "print value of v_int+v_unsigned_short"
119
      }
120
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_short" }
121
    timeout           { fail "(timeout) print value of v_int+v_unsigned_short" }
122
  }
123
 
124
 
125
send_gdb "print v_int+v_signed_int\n"
126
gdb_expect {
127
    -re ".*13.*$gdb_prompt $" {
128
        pass "print value of v_int+v_signed_int"
129
      }
130
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_int" }
131
    timeout           { fail "(timeout) print value of v_int+v_signed_int" }
132
  }
133
 
134
 
135
send_gdb "print v_int+v_unsigned_int\n"
136
gdb_expect {
137
    -re ".*14.*$gdb_prompt $" {
138
        pass "print value of v_int+v_unsigned_int"
139
      }
140
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_int" }
141
    timeout           { fail "(timeout) print value of v_int+v_unsigned_int" }
142
  }
143
 
144
 
145
send_gdb "print v_int+v_long\n"
146
gdb_expect {
147
    -re ".*15.*$gdb_prompt $" {
148
        pass "print value of v_int+v_long"
149
      }
150
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_long" }
151
    timeout           { fail "(timeout) print value of v_int+v_long" }
152
  }
153
 
154
 
155
send_gdb "print v_int+v_signed_long\n"
156
gdb_expect {
157
    -re ".*16.*$gdb_prompt $" {
158
        pass "print value of v_int+v_signed_long"
159
      }
160
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_signed_long" }
161
    timeout           { fail "(timeout) print value of v_int+v_signed_long" }
162
  }
163
 
164
 
165
send_gdb "print v_int+v_unsigned_long\n"
166
gdb_expect {
167
    -re ".*17.*$gdb_prompt $" {
168
        pass "print value of v_int+v_unsigned_long"
169
      }
170
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_unsigned_long" }
171
    timeout           { fail "(timeout) print value of v_int+v_unsigned_long" }
172
  }
173
 
174
 
175
send_gdb "print v_int+v_float\n"
176
gdb_expect {
177
    -re ".*106.34343.*$gdb_prompt $" {
178
        pass "print value of v_int+v_float"
179
      }
180
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_float" }
181
    timeout           { fail "(timeout) print value of v_int+v_float" }
182
  }
183
 
184
 
185
send_gdb "print v_int+v_double\n"
186
gdb_expect {
187
    -re ".*206.565.*$gdb_prompt $" {
188
        pass "print value of v_int+v_double"
189
    }
190
    -re ".*$gdb_prompt $" { fail "print value of v_int+v_double" }
191
    timeout     { fail "(timeout) print value of v_int+v_double" }
192
}
193
 
194
 
195
#
196
# test the relational operators with mixed types
197
#
198
 
199
send_gdb "print v_int <= v_char\n"
200
gdb_expect {
201
    -re ".*1.*$gdb_prompt $" {
202
        pass "print value of v_int<=v_char"
203
      }
204
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_char" }
205
    timeout           { fail "(timeout) print value of v_int<=v_char" }
206
  }
207
 
208
send_gdb "print v_int <= v_short\n"
209
gdb_expect {
210
    -re ".*$false.*$gdb_prompt $" {
211
        pass "print value of v_int<=v_short"
212
      }
213
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_short" }
214
    timeout           { fail "(timeout) print value of v_int<=v_short" }
215
  }
216
 
217
 
218
send_gdb "print v_int <= v_signed_char\n"
219
gdb_expect {
220
    -re ".*1.*$gdb_prompt $" {
221
        pass "print value of v_int<=v_signed_char"
222
      }
223
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_char" }
224
    timeout           { fail "(timeout) print value of v_int<=v_signed_char" }
225
  }
226
 
227
 
228
send_gdb "print v_int <= v_unsigned_char\n"
229
gdb_expect {
230
    -re ".*1.*$gdb_prompt $" {
231
        pass "print value of v_int<=v_unsigned_char"
232
      }
233
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_char" }
234
    timeout           { fail "(timeout) print value of v_int<=v_unsigned_char" }
235
  }
236
 
237
 
238
send_gdb "print v_int <= v_signed_short\n"
239
gdb_expect {
240
    -re ".*$false.*$gdb_prompt $" {
241
        pass "print value of v_int<=v_signed_short"
242
      }
243
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_short" }
244
    timeout           { fail "(timeout) print value of v_int<=v_signed_short" }
245
  }
246
 
247
 
248
send_gdb "print v_int <= v_unsigned_short\n"
249
gdb_expect {
250
    -re ".*$false.*$gdb_prompt $" {
251
        pass "print value of v_int<=v_unsigned_short"
252
      }
253
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_short" }
254
    timeout           { fail "(timeout) print value of v_int<=v_unsigned_short" }
255
  }
256
 
257
 
258
send_gdb "print v_int <= v_signed_int\n"
259
gdb_expect {
260
    -re ".*$true.*$gdb_prompt $" {
261
        pass "print value of v_int<=v_signed_int"
262
      }
263
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_int" }
264
    timeout           { fail "(timeout) print value of v_int<=v_signed_int" }
265
  }
266
 
267
 
268
send_gdb "print v_int <= v_unsigned_int\n"
269
gdb_expect {
270
    -re ".*$true.*$gdb_prompt $" {
271
        pass "print value of v_int<=v_unsigned_int"
272
      }
273
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_int" }
274
    timeout           { fail "(timeout) print value of v_int<=v_unsigned_int" }
275
  }
276
 
277
 
278
send_gdb "print v_int <= v_long\n"
279
gdb_expect {
280
    -re ".*$true.*$gdb_prompt $" {
281
        pass "print value of v_int<=v_long"
282
      }
283
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_long" }
284
    timeout           { fail "(timeout) print value of v_int<=v_long" }
285
  }
286
 
287
 
288
send_gdb "print v_int <= v_signed_long\n"
289
gdb_expect {
290
    -re ".*$true.*$gdb_prompt $" {
291
        pass "print value of v_int<=v_signed_long"
292
      }
293
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_signed_long" }
294
    timeout           { fail "(timeout) print value of v_int<=v_signed_long" }
295
  }
296
 
297
 
298
send_gdb "print v_int <= v_unsigned_long\n"
299
gdb_expect {
300
    -re ".*$true.*$gdb_prompt $" {
301
        pass "print value of v_int<=v_unsigned_long"
302
      }
303
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_unsigned_long" }
304
    timeout           { fail "(timeout) print value of v_int<=v_unsigned_long" }
305
  }
306
 
307
 
308
send_gdb "print v_int <= v_float\n"
309
gdb_expect {
310
    -re ".*$true.*$gdb_prompt $" {
311
        pass "print value of v_int<=v_float"
312
      }
313
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_float" }
314
    timeout           { fail "(timeout) print value of v_int<=v_float" }
315
  }
316
 
317
 
318
send_gdb "print v_int <= v_double\n"
319
gdb_expect {
320
    -re ".*$true.*$gdb_prompt $" {
321
        pass "print value of v_int<=v_double"
322
      }
323
    -re ".*$gdb_prompt $" { fail "print value of v_int<=v_double" }
324
    timeout           { fail "(timeout) print value of v_int<=v_double" }
325
  }
326
 
327
 
328
 
329
#
330
# test the logical operators with mixed types
331
#
332
 
333
gdb_test "set variable v_char=0" "" "set v_char=0"
334
gdb_test "set variable v_double=0.0" "" "set v_double=0"
335
gdb_test "set variable v_unsigned_long=0" "" "set v_unsigned_long=0"
336
 
337
send_gdb "print v_int && v_char\n"
338
gdb_expect {
339
    -re ".*$false.*$gdb_prompt $" {
340
        pass "print value of v_int&&v_char"
341
      }
342
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_char" }
343
    timeout           { fail "(timeout) print value of v_int&&v_char" }
344
  }
345
 
346
send_gdb "print v_int && v_short\n"
347
gdb_expect {
348
    -re ".*$true.*$gdb_prompt $" {
349
        pass "print value of v_int&&v_short"
350
      }
351
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_short" }
352
    timeout           { fail "(timeout) print value of v_int&&v_short" }
353
  }
354
 
355
 
356
send_gdb "print v_int && v_signed_char\n"
357
gdb_expect {
358
    -re ".*$true.*$gdb_prompt $" {
359
        pass "print value of v_int&&v_signed_char"
360
      }
361
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_char" }
362
    timeout           { fail "(timeout) print value of v_int&&v_signed_char" }
363
  }
364
 
365
 
366
send_gdb "print v_int && v_unsigned_char\n"
367
gdb_expect {
368
    -re ".*$true.*$gdb_prompt $" {
369
        pass "print value of v_int&&v_unsigned_char"
370
      }
371
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_char" }
372
    timeout           { fail "(timeout) print value of v_int&&v_unsigned_char" }
373
  }
374
 
375
 
376
send_gdb "print v_int && v_signed_short\n"
377
gdb_expect {
378
    -re ".*$true.*$gdb_prompt $" {
379
        pass "print value of v_int&&v_signed_short"
380
      }
381
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_short" }
382
    timeout           { fail "(timeout) print value of v_int&&v_signed_short" }
383
  }
384
 
385
 
386
send_gdb "print v_int && v_unsigned_short\n"
387
gdb_expect {
388
    -re ".*$true.*$gdb_prompt $" {
389
        pass "print value of v_int&&v_unsigned_short"
390
      }
391
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_short" }
392
    timeout           { fail "(timeout) print value of v_int&&v_unsigned_short" }
393
  }
394
 
395
 
396
send_gdb "print v_int && v_signed_int\n"
397
gdb_expect {
398
    -re ".*$true.*$gdb_prompt $" {
399
        pass "print value of v_int&&v_signed_int"
400
      }
401
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_int" }
402
    timeout           { fail "(timeout) print value of v_int&&v_signed_int" }
403
  }
404
 
405
 
406
send_gdb "print v_int && v_unsigned_int\n"
407
gdb_expect {
408
    -re ".*$true.*$gdb_prompt $" {
409
        pass "print value of v_int&&v_unsigned_int"
410
      }
411
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_int" }
412
    timeout           { fail "(timeout) print value of v_int&&v_unsigned_int" }
413
  }
414
 
415
 
416
send_gdb "print v_int && v_long\n"
417
gdb_expect {
418
    -re ".*$true.*$gdb_prompt $" {
419
        pass "print value of v_int&&v_long"
420
      }
421
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_long" }
422
    timeout           { fail "(timeout) print value of v_int&&v_long" }
423
  }
424
 
425
 
426
send_gdb "print v_int && v_signed_long\n"
427
gdb_expect {
428
    -re ".*$true.*$gdb_prompt $" {
429
        pass "print value of v_int&&v_signed_long"
430
      }
431
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_signed_long" }
432
    timeout           { fail "(timeout) print value of v_int&&v_signed_long" }
433
  }
434
 
435
 
436
send_gdb "print v_int && v_unsigned_long\n"
437
gdb_expect {
438
    -re ".*$false.*$gdb_prompt $" {
439
        pass "print value of v_int&&v_unsigned_long"
440
      }
441
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_unsigned_long" }
442
    timeout           { fail "(timeout) print value of v_int&&v_unsigned_long" }
443
  }
444
 
445
 
446
send_gdb "print v_int && v_float\n"
447
gdb_expect {
448
    -re ".*$true.*$gdb_prompt $" {
449
        pass "print value of v_int&&v_float"
450
      }
451
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_float" }
452
    timeout           { fail "(timeout) print value of v_int&&v_float" }
453
  }
454
 
455
 
456
send_gdb "print v_int && v_double\n"
457
gdb_expect {
458
    -re ".*$false.*$gdb_prompt $" {
459
        pass "print value of v_int&&v_double"
460
      }
461
    -re ".*$gdb_prompt $" { fail "print value of v_int&&v_double" }
462
    timeout           { fail "(timeout) print value of v_int&&v_double" }
463
  }
464
 
465
 
466
 
467
 
468
 

powered by: WebSVN 2.1.0

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