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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [testsuite/] [gdb.base/] [bitops.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 expressions with bitwise operators, and some
21
# logical operators
22
# Does not use a target program
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
 
37
gdb_exit
38
gdb_start
39
gdb_reinitialize_dir $srcdir/$subdir
40
 
41
 
42
send_gdb "print !1\n"
43
gdb_expect {
44
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
45
        pass "print value of !1"
46
      }
47
    -re ".*$gdb_prompt $" { fail "print value of !1" }
48
    timeout           { fail "(timeout) print value of !1" }
49
  }
50
 
51
 
52
send_gdb "print !0\n"
53
gdb_expect {
54
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
55
        pass "print value of !0"
56
      }
57
    -re ".*$gdb_prompt $" { fail "print value of !0" }
58
    timeout           { fail "(timeout) print value of !0" }
59
  }
60
 
61
 
62
send_gdb "print !100\n"
63
gdb_expect {
64
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
65
        pass "print value of !100"
66
      }
67
    -re ".*$gdb_prompt $" { fail "print value of !100" }
68
    timeout           { fail "(timeout) print value of !100" }
69
  }
70
 
71
 
72
send_gdb "print !1000\n"
73
gdb_expect {
74
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
75
        pass "print value of !1000"
76
      }
77
    -re ".*$gdb_prompt $" { fail "print value of !1000" }
78
    timeout           { fail "(timeout) print value of !1000" }
79
  }
80
 
81
 
82
send_gdb "print !10\n"
83
gdb_expect {
84
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
85
        pass "print value of !10"
86
      }
87
    -re ".*$gdb_prompt $" { fail "print value of !10" }
88
    timeout           { fail "(timeout) print value of !10" }
89
  }
90
 
91
 
92
send_gdb "print !2\n"
93
gdb_expect {
94
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
95
        pass "print value of !2 "
96
      }
97
    -re ".*$gdb_prompt $" { fail "print value of !2" }
98
    timeout           { fail "(timeout) print value of !2" }
99
  }
100
 
101
 
102
send_gdb "print 10 | 5\n"
103
gdb_expect {
104
    -re ".\[0-9\]* = 15.*$gdb_prompt $" {
105
        pass "print value of 10 | 5"
106
      }
107
    -re ".*$gdb_prompt $" { fail "print value of 10 | 5" }
108
    timeout           { fail "(timeout) print value of 10 | 5" }
109
  }
110
 
111
 
112
send_gdb "print 10 & 5\n"
113
gdb_expect {
114
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
115
        pass "print value of 10 & 5"
116
      }
117
    -re ".*$gdb_prompt $" { fail "print value of 10 & 5" }
118
    timeout           { fail "(timeout) print value of 10 & 5" }
119
  }
120
 
121
 
122
send_gdb "print 10 ^ 5\n"
123
gdb_expect {
124
    -re ".\[0-9\]* = 15.*$gdb_prompt $" {
125
        pass "print value of 10 ^ 5"
126
      }
127
    -re ".*$gdb_prompt $" { fail "print value of 10 ^ 5" }
128
    timeout           { fail "(timeout) print value of 10 ^ 5" }
129
  }
130
 
131
 
132
send_gdb "print -!0\n"
133
gdb_expect {
134
    -re ".\[0-9\]* = -1.*$gdb_prompt $" {
135
        pass "print value of -!0"
136
      }
137
    -re ".*$gdb_prompt $" { fail "print value of -!0" }
138
    timeout           { fail "(timeout) print value of -!0" }
139
  }
140
 
141
 
142
send_gdb "print ~-!0\n"
143
gdb_expect {
144
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
145
        pass "print value of ~-!0"
146
      }
147
    -re ".*$gdb_prompt $" { fail "print value of ~-!0" }
148
    timeout           { fail "(timeout) print value of ~-!0" }
149
  }
150
 
151
 
152
 
153
send_gdb "print 3 * 2 / 4.0 * 2.0\n"
154
gdb_expect {
155
    -re ".\[0-9\]* = 3.*$gdb_prompt $" {
156
        pass "print value of 3 * 2 / 4.0 * 2.0"
157
      }
158
    -re ".*$gdb_prompt $" { fail "print value of 3 * 2 / 4.0 * 2.0" }
159
    timeout           { fail "(timeout) print value of 3 * 2 / 4.0 * 2.0" }
160
  }
161
 
162
 
163
send_gdb "print 8 << 2 >> 4\n"
164
gdb_expect {
165
    -re ".\[0-9\]* = 2.*$gdb_prompt $" {
166
        pass "print value of 8 << 2 >> 4"
167
      }
168
    -re ".*$gdb_prompt $" { fail "print value of 8 << 2 >> 4" }
169
    timeout           { fail "(timeout) print value of 8 << 2 >> 4" }
170
  }
171
 
172
 
173
send_gdb "print -1 < 0 > 1\n"
174
gdb_expect {
175
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
176
        pass "print value of -1 < 0 > 1"
177
      }
178
    -re ".*$gdb_prompt $" { fail "print value of -1 < 0 > 1" }
179
    timeout           { fail "(timeout) print value of -1 < 0 > 1" }
180
  }
181
 
182
 
183
send_gdb "print 15 ^ 10 ^ 5 ^ 7\n"
184
gdb_expect {
185
    -re ".\[0-9\]* = 7.*$gdb_prompt $" {
186
        pass "print value of 15 ^ 10 ^ 5 ^ 7"
187
      }
188
    -re ".*$gdb_prompt $" { fail "print value of 15 ^ 10 ^ 5 ^ 7" }
189
    timeout           { fail "(timeout) print value of 15 ^ 10 ^ 5 ^ 7" }
190
  }
191
 
192
 
193
send_gdb "print 3.5 < 4.0\n"
194
gdb_expect {
195
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
196
        pass "print value of 3.5 < 4.0"
197
      }
198
    -re ".*$gdb_prompt $" { fail "print value of 3.5 < 4.0" }
199
    timeout           { fail "(timeout) print value of 3.5 < 4.0" }
200
  }
201
 
202
 
203
send_gdb "print 3.5 < -4.0\n"
204
gdb_expect {
205
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
206
        pass "print value of 3.5 < -4.0"
207
      }
208
    -re ".*$gdb_prompt $" { fail "print value of 3.5 < -4.0" }
209
    timeout           { fail "(timeout) print value of 3.5 < -4.0" }
210
  }
211
 
212
 
213
send_gdb "print 2 > -3\n"
214
gdb_expect {
215
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
216
        pass "print value of 2 > -3"
217
      }
218
    -re ".*$gdb_prompt $" { fail "print value of 2 > -3" }
219
    timeout           { fail "(timeout) print value of 2 > -3" }
220
  }
221
 
222
 
223
send_gdb "print -3>4\n"
224
gdb_expect {
225
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
226
        pass "print value of -3>4"
227
      }
228
    -re ".*$gdb_prompt $" { fail "print value of -3>4" }
229
    timeout           { fail "(timeout) print value of -3>4" }
230
  }
231
 
232
 
233
send_gdb "print (-3 > 4)\n"
234
gdb_expect {
235
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
236
        pass "print value of (-3 > 4)"
237
      }
238
    -re ".*$gdb_prompt $" { fail "print value of (-3 > 4)" }
239
    timeout           { fail "(timeout) print value of (-3 > 4)" }
240
  }
241
 
242
 
243
send_gdb "print 3>=2.5\n"
244
gdb_expect {
245
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
246
        pass "print value of 3>=2.5"
247
      }
248
    -re ".*$gdb_prompt $" { fail "print value of 3>=2.5" }
249
    timeout           { fail "(timeout) print value of 3>=2.5" }
250
  }
251
 
252
 
253
send_gdb "print 3>=4.5\n"
254
gdb_expect {
255
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
256
        pass "print value of 3>=4.5"
257
      }
258
    -re ".*$gdb_prompt $" { fail "print value of 3>=4.5" }
259
    timeout           { fail "(timeout) print value of 3>=4.5" }
260
  }
261
 
262
 
263
send_gdb "print 3==3.0\n"
264
gdb_expect {
265
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
266
        pass "print value of 3==3.0"
267
      }
268
    -re ".*$gdb_prompt $" { fail "print value of 3==3.0" }
269
    timeout           { fail "(timeout) print value of 3==3.0" }
270
  }
271
 
272
 
273
send_gdb "print 3==4.0\n"
274
gdb_expect {
275
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
276
        pass "print value of 3==4.0"
277
      }
278
    -re ".*$gdb_prompt $" { fail "print value of 3==4.0" }
279
    timeout           { fail "(timeout) print value of 3==4.0" }
280
  }
281
 
282
 
283
send_gdb "print 3!=3.0\n"
284
gdb_expect {
285
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
286
        pass "print value of 3!=3.0"
287
      }
288
    -re ".*$gdb_prompt $" { fail "print value of 3!=3.0" }
289
    timeout           { fail "(timeout) print value of 3!=3.0" }
290
  }
291
 
292
 
293
send_gdb "print 3!=5.0\n"
294
gdb_expect {
295
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
296
        pass "print value of 3!=5.0"
297
      }
298
    -re ".*$gdb_prompt $" { fail "print value of 3!=5.0" }
299
    timeout           { fail "(timeout) print value of 3!=5.0" }
300
  }
301
 
302
 
303
send_gdb "print 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2\n"
304
gdb_expect {
305
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
306
        pass "print value of 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2"
307
      }
308
    -re ".*$gdb_prompt $" { fail "print value of 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2" }
309
    timeout           { fail "(timeout) print value of 0 || 1 && 0 | 0 ^ 0 == 8 > 128 >>1 +2 *2" }
310
  }
311
 
312
 
313
send_gdb "print 1.0 || 0\n"
314
gdb_expect {
315
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
316
        pass "print value of 1.0 || 0"
317
      }
318
    -re ".*$gdb_prompt $" { fail "print value of 1.0 || 0" }
319
    timeout           { fail "(timeout) print value of 1.0 || 0" }
320
  }
321
 
322
 
323
send_gdb "print 0.0 || 1.0\n"
324
gdb_expect {
325
    -re ".\[0-9\]* = 1.*$gdb_prompt $" {
326
        pass "print value of 0.0 || 1.0"
327
      }
328
    -re ".*$gdb_prompt $" { fail "print value of 0.0 || 1.0" }
329
    timeout           { fail "(timeout) print value of 0.0 || 1.0" }
330
  }
331
 
332
 
333
send_gdb "print 0.0 || 0\n"
334
gdb_expect {
335
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
336
        pass "print value of 0.0 || 0"
337
      }
338
    -re ".*$gdb_prompt $" { fail "print value of 0.0 || 0" }
339
    timeout           { fail "(timeout) print value of 0.0 || 0" }
340
  }
341
 
342
 
343
send_gdb "print 0 || 1 && 0 | 0 ^ 0 == 8\n"
344
gdb_expect {
345
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
346
        pass "print value of 0 || 1 && 0 | 0 ^ 0 == 8"
347
      }
348
    -re ".*$gdb_prompt $" { fail "print value of 0 || 1 && 0 | 0 ^ 0 == 8" }
349
    timeout           { fail "(timeout) print value of 0 || 1 && 0 | 0 ^ 0 == 8" }
350
  }
351
 
352
 
353
send_gdb "print 0 == 8 > 128 >> 1 + 2 * 2\n"
354
gdb_expect {
355
    -re ".\[0-9\]* = 0.*$gdb_prompt $" {
356
        pass "print value of 0 == 8 > 128 >> 1 + 2 * 2"
357
      }
358
    -re ".*$gdb_prompt $" { fail "print value of 0 == 8 > 128 >> 1 + 2 * 2" }
359
    timeout           { fail "(timeout) print value of 0 == 8 > 128 >> 1 + 2 * 2" }
360
  }
361
 

powered by: WebSVN 2.1.0

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