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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.c++/] [ctti.exp] - Blame information for rev 107

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
# Copyright (C) 1998, 1999 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 2 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, write to the Free Software
15
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
16
 
17
# Please email any bugs, comments, and/or additions to this file to:
18
# bug-gdb@prep.ai.mit.edu
19
 
20
 
21
# This file is part of the gdb testsuite
22
# file written by Elena Zannoni (ezannoni@cygnus.com)
23
#
24
# source files cttiadd.cc, cttiadd1.cc, cttiadd2.cc, cttiadd3.cc
25
#
26
 
27
 
28
if $tracelevel then {
29
        strace $tracelevel
30
}
31
 
32
if { [skip_cplus_tests] } { continue }
33
 
34
set testfile "cttiadd"
35
set srcfile  ${testfile}.cc
36
set srcfile1 ${testfile}1.cc
37
set srcfile2 ${testfile}2.cc
38
set srcfile3 ${testfile}3.cc
39
set binfile ${objdir}/${subdir}/${testfile}
40
 
41
if [get_compiler_info ${binfile} "c++"] {
42
    return -1;
43
}
44
 
45
if { $gcc_compiled } then { continue }
46
 
47
#if  { [gdb_compile "${srcdir}/${subdir}/${srcfile} ${srcdir}/${subdir}/${srcfile1} ${srcdir}/${subdir}/${srcfile2} ${srcdir}/${subdir}/${srcfile3}" "${binfile}" executable {debug c++}] != "" } {
48
#     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
49
#}
50
 
51
set cmdline "$CXX_FOR_TARGET ${srcdir}/${subdir}/${srcfile} ${srcdir}/${subdir}/${srcfile1} ${srcdir}/${subdir}/${srcfile2} ${srcdir}/${subdir}/${srcfile3} -g -o ${binfile}"
52
 
53
remote_exec build $cmdline
54
 
55
gdb_exit
56
gdb_start
57
gdb_reinitialize_dir $srcdir/$subdir
58
gdb_load ${binfile}
59
 
60
 
61
 
62
if ![runto_main] then {
63
    perror "couldn't run to breakpoint"
64
    continue
65
}
66
 
67
 
68
send_gdb "n\n"
69
gdb_expect {
70
    -re "$decimal.*i = 2;.*$gdb_prompt $" {
71
        pass "next "
72
      }
73
    -re ".*$gdb_prompt $" { fail "next " }
74
    timeout           { fail "next " }
75
  }
76
 
77
 
78
send_gdb "n\n"
79
gdb_expect {
80
    -re "$decimal.*f = 4.5;.*$gdb_prompt $" {
81
        pass "next "
82
      }
83
    -re ".*$gdb_prompt $" { fail "next " }
84
    timeout           { fail "next " }
85
  }
86
 
87
send_gdb "n\n"
88
gdb_expect {
89
    -re "$decimal.*c = add\\(c, c\\);.*$gdb_prompt $" {
90
        pass "next "
91
      }
92
    -re ".*$gdb_prompt $" { fail "next " }
93
    timeout           { fail "next " }
94
  }
95
 
96
send_gdb "n\n"
97
gdb_expect {
98
    -re "$decimal.*i = add\\(i, i\\);.*$gdb_prompt $" {
99
        pass "next "
100
      }
101
    -re ".*$gdb_prompt $" { fail "next " }
102
    timeout           { fail "next " }
103
  }
104
 
105
send_gdb "n\n"
106
gdb_expect {
107
    -re "$decimal.*f = add\\(f, f\\);.*$gdb_prompt $" {
108
        pass "next "
109
      }
110
    -re ".*$gdb_prompt $" { fail "next " }
111
    timeout           { fail "next " }
112
  }
113
 
114
send_gdb "n\n"
115
gdb_expect {
116
    -re "$decimal.*add1\\(\\);.*$gdb_prompt $" {
117
        pass "next "
118
      }
119
    -re ".*$gdb_prompt $" { fail "next " }
120
    timeout           { fail "next " }
121
  }
122
 
123
send_gdb "print c\n"
124
gdb_expect {
125
    -re ".$decimal = -62.*\r\n$gdb_prompt $" {
126
        pass "print value of c"
127
      }
128
    -re ".*$gdb_prompt $" { fail "print value of c" }
129
    timeout           { fail "(timeout) print value of c" }
130
  }
131
 
132
 
133
send_gdb "print f\n"
134
gdb_expect {
135
    -re ".$decimal = 9\r\n$gdb_prompt $" {
136
        pass "print value of f"
137
      }
138
    -re ".*$gdb_prompt $" { fail "print value of f" }
139
    timeout           { fail "(timeout) print value of f" }
140
  }
141
 
142
 
143
send_gdb "print i\n"
144
gdb_expect {
145
    -re ".$decimal = 4\r\n$gdb_prompt $" {
146
        pass "print value of i"
147
      }
148
    -re ".*$gdb_prompt $" { fail "print value of i" }
149
    timeout           { fail "(timeout) print value of i" }
150
  }
151
 
152
 
153
 
154
send_gdb "print add(2,2)\n"
155
gdb_expect {
156
    -re ".$decimal = 4\r\n$gdb_prompt $" {
157
        pass "print value of add(2,2)"
158
      }
159
    -re ".*$gdb_prompt $" { fail "print value of add(2,2)" }
160
    timeout           { fail "(timeout) print value of add(2,2)" }
161
  }
162
 
163
send_gdb "print add(2.3,2.3)\n"
164
gdb_expect {
165
    -re ".$decimal = 4\\.5\[0-9\]+\r\n$gdb_prompt $" {
166
        pass "print value of add(2.3,2.3)"
167
      }
168
    -re ".*$gdb_prompt $" { fail "print value of add(2.3,2.3)" }
169
    timeout           { fail "(timeout) print value of add(2.3,2.3)" }
170
  }
171
 
172
send_gdb "print add('A','A')\n"
173
gdb_expect {
174
    -re ".$decimal = -126.*202.\r\n$gdb_prompt $" {
175
        pass "print value of add('A','A')"
176
      }
177
    -re ".*$gdb_prompt $" { fail "print value of add('A','A')" }
178
    timeout           { fail "(timeout) print value of add('A','A')" }
179
  }
180
 
181
 
182
send_gdb "print add2(2,2)\n"
183
gdb_expect {
184
    -re ".$decimal = 4\r\n$gdb_prompt $" {
185
        pass "print value of add2(2,2)"
186
      }
187
    -re ".*$gdb_prompt $" { fail "print value of add2(2,2)" }
188
    timeout           { fail "(timeout) print value of add2(2,2)" }
189
  }
190
 
191
send_gdb "print add2(2.3,2.3)\n"
192
gdb_expect {
193
    -re ".$decimal = 4\\.5\[0-9\]+\r\n$gdb_prompt $" {
194
        pass "print value of add2(2.3,2.3)"
195
      }
196
    -re ".*$gdb_prompt $" { fail "print value of add2(2.3,2.3)" }
197
    timeout           { fail "(timeout) print value of add2(2.3,2.3)" }
198
  }
199
 
200
send_gdb "print add2('A','A')\n"
201
gdb_expect {
202
    -re ".$decimal = -126.*202.\r\n$gdb_prompt $" {
203
        pass "print value of add2('A','A')"
204
      }
205
    -re ".*$gdb_prompt $" { fail "print value of add2('A','A')" }
206
    timeout           { fail "(timeout) print value of add2('A','A')" }
207
  }
208
 
209
send_gdb "print add3(2,2)\n"
210
gdb_expect {
211
    -re ".$decimal = 4\r\n$gdb_prompt $" {
212
        pass "print value of add3(2,2)"
213
      }
214
    -re ".*$gdb_prompt $" { fail "print value of add3(2,2)" }
215
    timeout           { fail "(timeout) print value of add3(2,2)" }
216
  }
217
 
218
send_gdb "print add3(2.3,2.3)\n"
219
gdb_expect {
220
    -re ".$decimal = 4\\.5\[0-9\]+\r\n$gdb_prompt $" {
221
        pass "print value of add3(2.3,2.3)"
222
      }
223
    -re ".*$gdb_prompt $" { fail "print value of add3(2.3,2.3)" }
224
    timeout           { fail "(timeout) print value of add3(2.3,2.3)" }
225
  }
226
 
227
send_gdb "print add3('A','A')\n"
228
gdb_expect {
229
    -re ".$decimal = -126.*202.\r\n$gdb_prompt $" {
230
        pass "print value of add3('A','A')"
231
      }
232
    -re ".*$gdb_prompt $" { fail "print value of add3('A','A')" }
233
    timeout           { fail "(timeout) print value of add3('A','A')" }
234
  }
235
 
236
send_gdb "print add4(2,2)\n"
237
gdb_expect {
238
    -re ".$decimal = 4\r\n$gdb_prompt $" {
239
        pass "print value of add4(2,2)"
240
      }
241
    -re ".*$gdb_prompt $" { fail "print value of add4(2,2)" }
242
    timeout           { fail "(timeout) print value of add4(2,2)" }
243
  }
244
 
245
send_gdb "print add4(2.3,2.3)\n"
246
gdb_expect {
247
    -re ".$decimal = 4\\.5\[0-9\]+\r\n$gdb_prompt $" {
248
        pass "print value of add4(2.3,2.3)"
249
      }
250
    -re ".*$gdb_prompt $" { fail "print value of add4(2.3,2.3)" }
251
    timeout           { fail "(timeout) print value of add4(2.3,2.3)" }
252
  }
253
 
254
send_gdb "print add4('A','A')\n"
255
gdb_expect {
256
    -re ".$decimal = -126.*202.\r\n$gdb_prompt $" {
257
        pass "print value of add4('A','A')"
258
      }
259
    -re ".*$gdb_prompt $" { fail "print value of add4('A','A')" }
260
    timeout           { fail "(timeout) print value of add4('A','A')" }
261
  }
262
 
263
 
264
gdb_exit
265
return 0

powered by: WebSVN 2.1.0

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