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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.3/] [gdb/] [testsuite/] [gdb.base/] [call-ar-st.exp] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1181 sfurman
#   Copyright 1998, 1999, 2000, 2001
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
 
24
if $tracelevel then {
25
        strace $tracelevel
26
}
27
 
28
set prms_id 0
29
set bug_id 0
30
 
31
set testfile "call-ar-st"
32
set srcfile ${testfile}.c
33
set binfile ${objdir}/${subdir}/${testfile}
34
 
35
# Test depends on printf, which the sparclet stub doesn't support.
36
if { [istarget "sparclet-*-*"] } {
37
    return 0;
38
}
39
 
40
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
41
    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
42
}
43
 
44
 
45
# Create and source the file that provides information about the compiler
46
# used to compile the test case.
47
 
48
if [get_compiler_info ${binfile}] {
49
    return -1;
50
}
51
 
52
# Some targets can't call functions, so don't even bother with this
53
# test.
54
if [target_info exists gdb,cannot_call_functions] {
55
    setup_xfail "*-*-*" 2416
56
    fail "This target can not call functions"
57
    continue
58
}
59
 
60
set oldtimeout $timeout
61
set timeout [expr "$timeout + 60"]
62
 
63
# Set the current language to C.  This counts as a test.  If it
64
# fails, then we skip the other tests.
65
 
66
proc set_lang_c {} {
67
    global gdb_prompt
68
 
69
    send_gdb "set language c\n"
70
    gdb_expect {
71
        -re ".*$gdb_prompt $" {}
72
        timeout { fail "set language c (timeout)" ; return 0; }
73
    }
74
 
75
    send_gdb "show language\n"
76
    gdb_expect {
77
        -re ".* source language is \"c\".*$gdb_prompt $" {
78
            pass "set language to \"c\""
79
            return 1
80
        }
81
        -re ".*$gdb_prompt $" {
82
            fail "setting language to \"c\""
83
            return 0
84
        }
85
        timeout {
86
            fail "can't show language (timeout)"
87
            return 0
88
        }
89
    }
90
}
91
 
92
source ${binfile}.ci
93
 
94
# Start with a fresh gdb.
95
 
96
gdb_exit
97
gdb_start
98
gdb_reinitialize_dir $srcdir/$subdir
99
gdb_load ${binfile}
100
send_gdb "set print sevenbit-strings\n" ; gdb_expect -re "$gdb_prompt $"
101
send_gdb "set print address off\n" ; gdb_expect -re "$gdb_prompt $"
102
send_gdb "set width 0\n" ; gdb_expect -re "$gdb_prompt $"
103
 
104
 
105
if ![runto_main] then {
106
    perror "couldn't run to breakpoint"
107
    continue
108
}
109
 
110
#go -until 1209
111
gdb_test "tbreak 1209" \
112
    "Breakpoint \[0-9\]+.*file.*$srcfile, line 1209.*" \
113
    "tbreakpoint line 1209"
114
 
115
gdb_test continue \
116
"Continuing\\..*main \\(\\) at.*$srcfile:1209.*" \
117
"run until breakpoint set at a line"
118
 
119
 
120
#call print_double_array(double_array)
121
if {![gdb_skip_float_test "print print_double_array(double_array)"] && \
122
    ![gdb_skip_stdio_test "print print_double_array(double_array)"] } {
123
  send_gdb "print print_double_array(double_array)\n"
124
  gdb_expect_list "print print_double_array(double_array)" ".*$gdb_prompt $" {
125
        "\[ \t\r\n\]+array_d :"
126
        "\[ \t\r\n\]+========="
127
        "\[ \t\r\n\]+0.000000"
128
        "\[ \t\r\n\]+23.456\[0-9\]*  46.913\[0-9\]*  70.370\[0-9\]*  93.826\[0-9\]*  117.283\[0-9\]*  140.740\[0-9\]*  164.196\[0-9\]*  187.653\[0-9\]"
129
        "\[ \t\r\n\]+"
130
  }
131
}
132
 
133
#call print_char_array(char_array)
134
 
135
if ![gdb_skip_stdio_test "print_char_array(char_array)"] {
136
    send_gdb "print print_char_array(char_array)\n"
137
    gdb_expect_list "print print_char_array(char_array)" ".*$gdb_prompt $" {
138
        "\[ \t\r\n\]+array_c :"
139
        "\[ \t\r\n\]+========="
140
        "\[ \t\r\n\]+\[ \t\r\n\]+Z"
141
        "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
142
        "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
143
        "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZa\[ \t\r\n\]+\[ \t\r\n\]+"
144
    }
145
}
146
 
147
 
148
 
149
 
150
#go -until 1216
151
gdb_test "tbreak 1216" \
152
"Breakpoint.*file.*$srcfile, line 1216.*" \
153
"tbreakpoint line 1216"
154
 
155
if ![gdb_skip_stdio_test "continue to 1216"] {
156
    send_gdb "continue\n"
157
    gdb_expect_list "continue to 1216" ".*$gdb_prompt $" {
158
        "\[ \t\r\n\]+array_c :"
159
        "\[ \t\r\n\]+========="
160
        "\[ \t\r\n\]+\[ \t\r\n\]+Z"
161
        "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
162
        "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ"
163
        "\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZa"
164
        "\[ \t\r\n\]+main.*at.*:1216"
165
        "\[ \t\r\n\]+1216.*print_double_array\\(double_array\\)"
166
    }
167
} else {
168
    gdb_test "continue" "" ""
169
}
170
 
171
# I am disabling this test, because it takes too long. I verified by
172
# hand that it works, feel free to check for yourself.
173
#call print_all_arrays(integer_array, char_array, float_array, double_array)
174
#send_gdb "print print_all_arrays(integer_array, char_array, float_array, double_array)\n"
175
#gdb_expect {
176
#    -re ".*array_i :\[ \t\r\n\]+=========\[ \t\r\n\]+\[ \t\r\n\]+0\[ \t\r\n\]+-1  -2  -3  -4  -5  -6  -7  -8\[ \t\r\n\]+-9  -10  -11  -12  -13  -14  -15  -16\[ \t\r\n\]+-17  -18  -19  -20  -21  -22  -23  -24\[ \t\r\n\]+-25  -26  -27  -28  -29  -30  -31  -32\[ \t\r\n\]+-33  -34  -35  -36  -37  -38  -39  -40\[ \t\r\n\]+-41  -42  -43  -44  -45  -46  -47  -48\[ \t\r\n\]+-49\[ \t\r\n\]+\[ \t\r\n\]+array_c :\[ \t\r\n\]+=========\[ \t\r\n\]+\[ \t\r\n\]+Z\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZ\[ \t\r\n\]+aZaZaZaZaZaZaZaZaZa\[ \t\r\n\]+\[ \t\r\n\]+array_f :\[ \t\r\n\]+=========\[ \t\r\n\]+\[ \t\r\n\]+0.000000\[ \t\r\n\]+0.142450  0.284900  0.427350  0.569801  0.712251  0.854701  0.997151  1.139601\[ \t\r\n\]+1.282051  1.424501  1.566952  1.709402  1.851852  1.994302\[ \t\r\n\]+\[ \t\r\n\]+array_d :\[ \t\r\n\]+=========\[ \t\r\n\]+\[ \t\r\n\]+0.000000\[ \t\r\n\]+23.456700  46.913400  70.370100  93.826800  117.283500  140.740200  164.196900  187.653600\[ \t\r\n\]+211.110300  234.567000  258.023700  281.480400  304.937100  328.393800  351.850500  375.307200\[ \t\r\n\]+398.763900  422.220600  445.677300  469.134000  492.590700  516.047400  539.504100  562.960800\[ \t\r\n\]+586.41750  609.874200  633.330900  656.787600  680.244300  703.701000  727.157700  750.614400\[ \t\r\n\]+774.071100  797.527800  820.984500  844.441200  867.897900  891.354600  914.811300  938.268000\[ \t\r\n\]+961.724700  985.181400  1008.638100  1032.094800  1055.551500  1079.008200  1102.464900  1125.921600\[ \t\r\n\]+1149.378300  1172.835000  1196.291700  1219.748400  1243.205100  1266.661800  1290.118500  1313.575200\[ \t\r\n\]+1337.031900  1360.488600  1383.945300  1407.402000  1430.858700  1454.315400  1477.772100  1501.228800\[ \t\r\n\]+1524.685500  1548.142200  1571.598900  1595.055600  1618.512300  1641.969000  1665.425700  1688.882400\[ \t\r\n\]+1712.339100  1735.795800  1759.252500  1782.709200  1806.165900  1829.622600  1853.079300  1876.536000\[ \t\r\n\]+1899.992700  1923.449400  1946.906100  1970.362800  1993.819500  2017.276200  2040.732900  2064.189600\[ \t\r\n\]+2087.646300  2111.103000  2134.559700  2158.016400  2181.473100  2204.929800  2228.386500  2251.843200\[ \t\r\n\]+2275.299900  2298.756600  2322.213300.*$gdb_prompt $" {
177
#        pass "print print_all_arrays(integer_array, char_array, float_array, double_array)"
178
#   }
179
#    -re ".*$gdb_prompt $" { fail "print print_all_arrays(integer_array, char_array, float_array, double_array)" }
180
#    timeout           { fail "(timeout) print print_all_arrays(integer_array, char_array, float_array, double_array)" }
181
#  }
182
 
183
#set timeout $oldtimeout
184
#go -until 1220
185
gdb_test "tbreak 1220" \
186
        "Breakpoint.* file .*$srcfile, line 1220.*" \
187
        "tbreakpoint line 1220"
188
 
189
if {![gdb_skip_float_test "continuing to breakpoint 1220"] && \
190
    ![gdb_skip_stdio_test "continuing to breakpoint 1220"] } {
191
    send_gdb "continue\n"
192
    gdb_expect_list "continuing to breakpoint 1220" ".*$gdb_prompt $" {
193
        "Continuing\\."
194
        "\[ \t\r\n\]+array_d :"
195
        "\[ \t\r\n\]+========="
196
        "\[ \t\r\n\]+0.000000"
197
        "\[ \t\r\n\]+23.456\[0-9\]*  46.913\[0-9\]*  70.370\[0-9\]*  93.826\[0-9\]*  117.283\[0-9\]*  140.740\[0-9\]*  164.196\[0-9\]*  187.653\[0-9\]*"
198
        "\[ \t\r\n\]+"
199
        ".*array_f :"
200
        ".*student id :\[\t \]+.*YELLOW"
201
        ".*array_i :"
202
        ".*main \\(\\) at .*call-ar-st.c:1220\[ \t\r\n\]+.*print_all_arrays\\(integer_array, char_array, float_array, double_array\\)."
203
    }
204
} else {
205
    gdb_test "continue" "" ""
206
}
207
 
208
#step
209
send_gdb "step\n"
210
gdb_expect {
211
    -re "print_all_arrays \\(array_i=, array_c=.ZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZaZa., array_f=, array_d=\\) at .*call-ar-st.c:306\[ \t\r\n\]+306.*print_int_array\\(array_i\\);.*$gdb_prompt $" {pass "step inside print_all_arrays"}
212
    -re ".*$gdb_prompt $" { fail "step inside print_all_arrays" }
213
    timeout { fail "step inside print_all_arrays (timeout)" }
214
}
215
 
216
 
217
#step -over
218
if ![gdb_skip_stdio_test "next over print_int_array in print_all_arrays"] {
219
    send_gdb "next\n"
220
    gdb_expect {
221
        -re "array_i :.*307.*print_char_array.*$gdb_prompt $" {
222
            pass "next over print_int_array in print-all_arrays"
223
        }
224
        -re ".*$gdb_prompt $" {
225
            fail "next over print_int_array in print-all_arrays"
226
        }
227
        timeout {
228
            fail "next over print_int_array in print-all_arrays (timeout)"
229
        }
230
    }
231
} else {
232
    gdb_test "next" "" ""
233
}
234
 
235
#call print_double_array(array_d)
236
if {![gdb_skip_float_test "print print_double_array(array_d)"] && \
237
    ![gdb_skip_stdio_test "print print_double_array(array_d)"] } {
238
    send_gdb "print print_double_array(array_d)\n"
239
    gdb_expect_list "print print_double_array(array_d)" ".*$gdb_prompt $" {
240
        "array_d :"
241
        "\[ \t\r\n\]+========="
242
        "\[ \t\r\n\]+\[ \t\r\n\]+0.000000"
243
        "\[ \t\r\n\]+23.456\[0-9\]*  46.913\[0-9\]*  70.370\[0-9\]*  93.826\[0-9\]*  117.283\[0-9\]*  140.740\[0-9\]*  164.196\[0-9\]*  187.653\[0-9\]*"
244
        "\[ \t\r\n\]+"
245
    }
246
}
247
 
248
#go -until 1236
249
gdb_test "tbreak 1236" \
250
"Breakpoint.* file .*$srcfile, line 1236.*" \
251
"tbreakpoint line 1236"
252
 
253
if {![gdb_skip_float_test "continuing to 1236"] && \
254
    ![gdb_skip_stdio_test "continuing to 1236"] } {
255
    send_gdb "continue\n"
256
    gdb_expect_list "continuing to 1236"  ".*$gdb_prompt $" {
257
        "Continuing\\..*array_c"
258
        ".*array_f"
259
        "\[ \t\r\n\]+array_d :"
260
        "\[ \t\r\n\]+========="
261
        "\[ \t\r\n\]+0.000000"
262
        "\[ \t\r\n\]+23.456\[0-9\]*  46.913\[0-9\]*  70.370\[0-9\]*  93.826\[0-9\]*  117.283\[0-9\]*  140.740\[0-9\]*  164.196\[0-9\]*  187.653\[0-9\]*"
263
        "\[ \t\r\n\]+.*HELLO WORLD.*main \\(\\) at .*call-ar-st.c:1236.*printf\\(.BYE BYE FOR NOW.n.\\)."
264
    }
265
} else {
266
    gdb_test "continue" "" ""
267
}
268
 
269
 
270
#call sum_array_print(10, *list1, *list2, *list3, *list4)
271
 
272
if ![gdb_skip_stdio_test "print sum_array_print(...)"] {
273
    send_gdb "print sum_array_print(10, *list1, *list2, *list3, *list4)\n"
274
    gdb_expect {
275
        -re ".*Sum of 4 arrays, by element \\(add in seed as well\\):\[ \t\r\n\]+Seed: 10\[ \t\r\n\]+Element Index . Sum\[ \t\r\n\]+-------------------------\[ \t\r\n\]+.*\[ \t\]+0\[ \t\]+52\[ \t\r\n\]+1\[ \t\]+60\[ \t\r\n\]+2\[ \t\]+68\[ \t\r\n\]+3\[ \t\]+76\[ \t\r\n\]+4\[ \t\]+84\[ \t\r\n\]+5\[ \t\]+92\[ \t\r\n\]+6\[ \t\]+100\[ \t\r\n\]+7\[ \t\]+108\[ \t\r\n\]+8\[ \t\]+116\[ \t\r\n\]+9\[ \t\]+124\[ \t\r\n\]+.*$gdb_prompt $" {
276
            pass "print sum_array_print(10, *list1, *list2, *list3, *list4)"
277
        }
278
        -re ".*$gdb_prompt $" { fail "print sum_array_print(10, *list1, *list2, *list3, *list4)" }
279
        timeout           { fail "(timeout) print sum_array_print(10, *list1, *list2, *list3, *list4)" }
280
    }
281
}
282
 
283
#step over
284
if ![gdb_skip_stdio_test "next to 1237"] {
285
    send_gdb "next\n"
286
    gdb_expect {
287
        -re ".*BYE BYE FOR NOW.*1237.*printf\\(.VERY GREEN GRASS.n.\\);.*$gdb_prompt $" { pass "next to 1237"}
288
        -re ".*$gdb_prompt $" { fail "next to 1237" }
289
        timeout { fail "next to 1237(timeout)" }
290
    }
291
} else {
292
    gdb_test "next" "" ""
293
}
294
 
295
#call print_array_rep(\*list1, \*list2, \*list3)
296
 
297
if ![gdb_skip_stdio_test "print print_array_rep(...)"] {
298
    send_gdb "print print_array_rep(\*list1, \*list2, \*list3)\n"
299
    gdb_expect {
300
        -re ".*$gdb_prompt $" {
301
            pass "print print_array_rep(*list1, *list2, *list3)"
302
        }
303
        -re ".*$gdb_prompt $" {
304
            fail "print print_array_rep(*list1, *list2, *list3)"
305
        }
306
        timeout               {
307
            fail "(timeout) print print_array_rep(*list1, *list2, *list3)"
308
        }
309
    }
310
}
311
 
312
#go -until 1241
313
gdb_test "tbreak 1241" \
314
    "Breakpoint..* file .*$srcfile, line 1241.*" \
315
    "tbreakpoint line 1241"
316
 
317
send_gdb  "continue\n"
318
gdb_expect {
319
 -re ".*main \\(\\) at .*call-ar-st.c:1241\r\n1241\[\t \]+sum_array_print\\(10, \\*list1, \\*list2, \\*list3, \\*list4\\);.*$gdb_prompt $" {
320
                   pass "continue to 1241"}
321
 -re ".*$gdb_prompt $" { fail "continue to 1241"}
322
 timeout           { fail "(timeout) continue to 1241"}
323
}
324
 
325
 
326
 
327
# Run into sum_array_print, and verify that the arguments were passed
328
# accurately.
329
#
330
# Note that we shouldn't use a `step' here to get into
331
# sum_array_print; GCC may emit calls to memcpy to put the arguments
332
# in the right place, and a step may end up in memcpy instead.  This
333
# may itself be a bug, but it's not the one we're trying to catch
334
# here.  I've added something to step-test.exp for this.
335
gdb_test "break sum_array_print" \
336
        ".*Breakpoint ${decimal}: file .*call-ar-st.c, line.*" \
337
        "set breakpoint in sum_array_print"
338
gdb_test "continue" \
339
        ".*Breakpoint ${decimal}, sum_array_print \\(seed=10, linked_list1=.next_index = .1, 2, 3, 4, 5, 6, 7, 8, 9, 10., values = .4, 6, 8, 10, 12, 14, 16, 18, 20, 22., head = 0., linked_list2=.next_index = .1, 2, 3, 4, 5, 6, 7, 8, 9, 10., values = .8, 10, 12, 14, 16, 18, 20, 22, 24, 26., head = 0., linked_list3=.next_index = .1, 2, 3, 4, 5, 6, 7, 8, 9, 10., values = .10, 12, 14, 16, 18, 20, 22, 24, 26, 28., head = 0., linked_list4=.next_index = .1, 2, 3, 4, 5, 6, 7, 8, 9, 10., values = .20, 22, 24, 26, 28, 30, 32, 34, 36, 38., head = 0.\\) at .*call-ar-st.c:1105\[ \t\n\r\]+1105.*printf\\(.Sum of 4 arrays, by element \\(add in seed as well\\).*\\);.*" \
340
        "check args of sum_array_print"
341
 
342
#call print_array_rep(linked_list1, linked_list2, linked_list3)
343
# this calls works from gdb without gdb_expect. But it does seem to hang
344
#from within gdb_expect.
345
#I comment this out
346
#send_gdb "print print_array_rep(linked_list1, linked_list2, linked_list3)\n"
347
#gdb_expect {
348
#    -re ".*Contents of linked list1:\[ \t\n\r\]+Element Value . Index of Next Element\[ \t\n\r\]+-------------------------------------\[ \t\n\r\]+.*\[ \t\n\r\]+.*4.*1\[ \t\n\r\]+.*6.*2\[ \t\n\r\]+.*8.*3\[ \t\n\r\]+.*10.*4\[ \t\n\r\]+.*12.*5\[ \t\n\r\]+.*14.*6\[ \t\n\r\]+.*16.*7\[ \t\n\r\]+.*18.*8\[ \t\n\r\]+.*20.*9\[ \t\n\r\]+.*22.*10\[ \t\n\r\]+Contents of linked list2:\[ \t\n\r\]+Element Value | Index of Next Element\[ \t\n\r\]+-------------------------------------\[ \t\n\r\]+.*\[ \t\n\r\]+.*8.*1\[ \t\n\r\]+.*10.*2\[ \t\n\r\]+.*12.*3\[ \t\n\r\]+.*14.*4\[ \t\n\r\]+.*16.*5\[ \t\n\r\]+.*18.*6\[ \t\n\r\]+.*20.*7\[ \t\n\r\]+.*22.*8\[ \t\n\r\]+.*24.*9\[ \t\n\r\]+.*26.*10\[ \t\n\r\]+Contents of linked list3:\[ \t\n\r\]+Element Value | Index of Next Element\[ \t\n\r\]+-------------------------------------\[ \t\n\r\]+.*\[ \t\n\r\]+.*10.*1\[ \t\n\r\]+.*12.*2\[ \t\n\r\]+.*14.*3\[ \t\n\r\]+.*16.*4\[ \t\n\r\]+.*18.*5\[ \t\n\r\]+.*20.*6\[ \t\n\r\]+.*22.*7\[ \t\n\r\]+.*24.*8\[ \t\n\r\]+.*26.*9\[ \t\n\r\]+.*28.*10\[ \t\n\r\]+.*$gdb_prompt $" {
349
#        pass "print print_array_rep(linked_list1, linked_list2, linked_list3)"
350
#      }
351
#    -re ".*$gdb_prompt $" { fail "print print_array_rep(linked_list1, linked_list2, linked_list3)" }
352
#    timeout           { fail "(timeout) print print_array_rep(linked_list1, linked_list2, linked_list3)" }
353
#}
354
 
355
 
356
#go -until 1281
357
gdb_test "tbreak 1281" \
358
    "Breakpoint.* file .*call-ar-st.c, line 1281.*" \
359
    "tbreakpoint line 1281"
360
 
361
if ![gdb_skip_stdio_test "continuing to 1281"] {
362
    send_gdb "continue\n"
363
    gdb_expect {
364
        -re  "Continuing\\..*Sum of 4 arrays.*Contents of linked list1.*Contents of two_floats_t.*main \\(\\) at .*call-ar-st.c:1281.*c = 0.*$gdb_prompt $" {
365
            pass "continue to 1281"
366
        }
367
        -re ".*$gdb_prompt $" { fail "continue to 1281"}
368
        timeout           { fail "(timeout) continue to 1281"}
369
    }
370
} else {
371
    gdb_test "continue" "" ""
372
}
373
 
374
#call print_small_structs(*struct1, *struct2, *struct3, *struct4,
375
#                         *flags, *flags_combo, *three_char, *five_char,
376
#                         *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)
377
 
378
if {![gdb_skip_float_test "print print_small_structs(...)"] && \
379
    ![gdb_skip_stdio_test "print print_small_structs(...)"] } {
380
    send_gdb "print print_small_structs(*struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)\n"
381
    gdb_expect_list "print print_small_structs" ".*$gdb_prompt $" {
382
        "\[\t\r\n \]+alpha"
383
        "\[\t\r\n \]+gamma"
384
        "\[\t\r\n \]+epsilon"
385
        "\[\t\r\n \]+alpha"
386
        "\[\t\r\n \]+gamma"
387
        "\[\t\r\n \]+epsilon"
388
        "\[\t\r\n \]+ch1: y[ \t]*ch2: n"
389
        "\[\t\r\n \]+Contents of three_char_t:"
390
        "\[\t\r\n \]+a[ \t]*b[ \t]*c"
391
        "\[\t\r\n \]+Contents of five_char_t:"
392
        "\[\t\r\n \]+l[ \t]*m[ \t]*n[ \t]*o[ \t]*p"
393
        "\[\t\r\n \]+Contents of int_char_combo_t:"
394
        "\[\t\r\n \]+123[ \t]*z"
395
        "\[\t\r\n \]+Sum of the 4 struct values and seed :"
396
        "\[\t\r\n \]+52"
397
        "\[\t\r\n \]+Contents of struct1:"
398
        "\[\t\r\n \]+6[ \t]*0"
399
        "\[\t\r\n \]+Contents of struct2:"
400
        "\[\t\r\n \]+10[ \t]*0"
401
        "\[\t\r\n \]+Contents of struct3:"
402
        "\[\t\r\n \]+12[ \t]*0"
403
        "\[\t\r\n \]+Contents of one_double_t:"
404
        "\[\t\r\n \]+10.500000"
405
        "\[\t\r\n \]+Contents of one_double_t:"
406
        "\[\t\r\n \]+-3.375000"
407
        "\[\t\r\n \]+Contents of one_double_t:"
408
        "\[\t\r\n \]+675.093750"
409
        "\[\t\r\n \]+Contents of two_floats_t:"
410
        "\[\t\r\n \]+45.234001[ \t]*43.599998"
411
        "\[\t\r\n \]+Contents of two_floats_t:"
412
        "\[\t\r\n \]+78.010002[ \t]*122.099998"
413
        "\[\t\r\n \]+Contents of two_floats_t:"
414
        "\[\t\r\n \]+-1232.344971[ \t]*-199.210007"
415
    }
416
}
417
 
418
#call compute_with_small_structs(20)
419
send_gdb "print compute_with_small_structs(20)\n"
420
gdb_expect {
421
    -re ".*\[0-9\]+ =.*$gdb_prompt $" {
422
        pass "print compute_with_small_structs(20)"
423
      }
424
    -re ".*$gdb_prompt $" { fail "print compute_with_small_structs(20)" }
425
    timeout           { fail "(timeout) compute_with_small_structs(20)" }
426
  }
427
 
428
 
429
#call print_ten_doubles(123.456, 123.456, -0.12, -1.23, 343434.8, 89.098,
430
#                       3.14, -5678.12345, -0.11111111, 216.97065)
431
 
432
if {![gdb_skip_float_test "print print_ten_doubles(...)"] && \
433
    ![gdb_skip_stdio_test "print print_ten_doubles(...)"]} {
434
    send_gdb "print print_ten_doubles(123.456, 123.456, -0.12, -1.23, 343434.8, 89.098, 3.14, -5678.12345, -0.11111111, 216.97065)\n"
435
    gdb_expect_list "print print_ten_doubles" ".*$gdb_prompt $" {
436
        "\[\t\r\n \]+Two Doubles : 123.45\[0-9\]*.*123.45\[0-9\]*"
437
        "\[\t\r\n \]+Two Doubles : -0.1200\[0-9\]*.*-1.2300\[0-9\]*"
438
        "\[\t\r\n \]+Two Doubles : 343434.\[0-9\]*.*89.09\[0-9\]*"
439
        "\[\t\r\n \]+Two Doubles : 3.1400\[0-9\]*.*-5678.123\[0-9\]*"
440
        "\[\t\r\n \]+Two Doubles : -0.1111\[0-9\]*.*216.97\[0-9\]*"
441
    }
442
}
443
 
444
#go -until 1286
445
gdb_test "tbreak 1286" \
446
    "Breakpoint .* file .*call-ar-st.c, line 1286.*" \
447
    "tbreakpoint line 1286"
448
 
449
gdb_test continue "Continuing\\..*main \\(.*\\) at.*call-ar-st.c:1286\[\t\r\n \]+1286.*print_long_arg_list \\( a, b, c, d, e, f, .struct1, .struct2, .struct3, .struct4,.*" "continue to 1286"
450
 
451
if { [istarget "hppa*-*-hpux*"] } {
452
    #
453
    # NOTE:(FIXME)
454
    # the aCC demangler cannot demangle the name of a function with >10 args.
455
    # so I added a .* after the name of the function, to match the
456
    # incredibly long mangled name
457
    # (getting aCC's libdemangle.a bundled w/ the system?)
458
    # DTS CLLbs16994  coulter 990114
459
    #
460
    # FIXME: use step for hppa* testing for now
461
    # guo 990621
462
    #
463
    send_gdb "step\n"
464
    gdb_expect {
465
        -re ".*print_long_arg_list.*\\(a=22.25, b=33.375, c=0, d=-25, e=100, f=2345, struct1=\{value = 6, head = 0\}, struct2=\{value = 10, head = 0\}, struct3=\{value = 12, head = 0\}, struct4=\{value = 14, head = 0\}, flags=\{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}, flags_combo=\{alpha = 1, beta = 0, ch1 = 121 \'y\', gamma = 1, delta = 0, ch2 = 110 \'n\', epsilon = 1, omega = 0\}, three_char=\{ch1 = 97 \'a\', ch2 = 98 \'b\', ch3 = 99 \'c\'\}, five_char=\{ch1 = 108 \'l\', ch2 = 109 \'m\', ch3 = 110 \'n\', ch4 = 111 \'o\', ch5 = 112 \'p\'\}, int_char_combo=\{int1 = 123, ch1 = 122 \'z\'\}, d1=\{double1 = 10.5\}, d2=\{double1 = -3.375\}, d3=\{double1 = 675.09375\}, f1=\{float1 = 45.2340012, float2 = 43.5999985\}, f2=\{float1 = 78.0100021, float2 = 122.099998\}, f3=\{float1 = -1232.34497, float2 = -199.210007\}\\) at .*${srcfile}:992\[\r\n\]+992\[ \t\]+printf\\(\"double :.*\", a\\);.*$gdb_prompt $" {pass "step into print_long_arg_list"}
466
        -re ".*$gdb_prompt $" { fail "step into print_long_arg_list" }
467
        timeout { fail "step into print_long_arg_list (timeout)" }
468
    }
469
} else {
470
 
471
    # We can't just assume that a "step" will get us into
472
    # print_long_arg_list here,either.
473
    gdb_test "tbreak print_long_arg_list" \
474
        "Breakpoint .* file .*call-ar-st.c, line .*" \
475
        "tbreak in print_long_arg_list after stepping into memcpy"
476
    # The short match case below handles cases where a buffer
477
    # overflows or something, and expect can't deal with the full
478
    # line.  Perhaps a more elegant solution exists... -sts 1999-08-17
479
    send_gdb "continue\n"
480
    if {![gdb_skip_float_test "step into print_long_arg_list"]} {
481
        gdb_expect {
482
            -re ".*print_long_arg_list \\(a=22.25, b=33.375, c=0, d=-25, e=100, f=2345, struct1=\{value = 6, head = 0\}, struct2=\{value = 10, head = 0\}, struct3=\{value = 12, head = 0\}, struct4=\{value = 14, head = 0\}, flags=\{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}, flags_combo=\{alpha = 1, beta = 0, ch1 = 121 \'y\', gamma = 1, delta = 0, ch2 = 110 \'n\', epsilon = 1, omega = 0\}, three_char=\{ch1 = 97 \'a\', ch2 = 98 \'b\', ch3 = 99 \'c\'\}, five_char=\{ch1 = 108 \'l\', ch2 = 109 \'m\', ch3 = 110 \'n\', ch4 = 111 \'o\', ch5 = 112 \'p\'\}, int_char_combo=\{int1 = 123, ch1 = 122 \'z\'\}, d1=\{double1 = 10.5\}, d2=\{double1 = -3.375\}, d3=\{double1 = 675.09375\}, f1=\{float1 = 45.2340012, float2 = 43.5999985\}, f2=\{float1 = 78.0100021, float2 = 122.099998\}, f3=\{float1 = -1232.34497, float2 = -199.210007\}\\) at .*${srcfile}:992\[\r\n\]+992\[ \t\]+printf\\(\"double :.*\", a\\);.*$gdb_prompt $" { pass "step into print_long_arg_list" }
483
            -re ".*print_long_arg_list.*\\(a=22.25, b=33.375, c=0, d=-25, e=100, f=2345, struct1=\{value = 6, head = 0\}, struct2=\{value = 10, head = 0\}, struct3=\{value = 12, head = 0\}, struct4=\{value = 14, head = 0\}, flags=\{alpha = 1, beta = 0, gamma = 1, delta = 0, epsilon = 1, omega = 0\}, flags_combo=\{alpha = 1, beta = 0, ch1 = 121 \'y\', gamma = 1, delta = 0, ch2 = 110 \'n\', epsilon = 1, omega = 0\}, three_char=\{ch1 = 97 \'a\', ch2 = 98 \'b\', ch3 = 99 \'c\'\}.*\\) at .*${srcfile}:992\[\r\n\]+992\[ \t\]+printf\\(\"double :.*\", a\\);.*$gdb_prompt $" {pass "step into print_long_arg_list (short match)"}
484
            -re ".*$gdb_prompt $" { fail "step into print_long_arg_list" }
485
            timeout { fail "step into print_long_arg_list (timeout)" }
486
        }
487
    } else {
488
        # If skipping float tests, don't expect anything in arg list.
489
        gdb_expect {
490
            -re ".*print_long_arg_list \\(.*\\).*$gdb_prompt $" { pass "step into print_long_arg_list" }
491
            -re ".*$gdb_prompt $" { fail "step into print_long_arg_list" }
492
            timeout { fail "step into print_long_arg_list (timeout)" }
493
        }
494
    }
495
}
496
 
497
set ws "\[\n\r\t \]+"
498
 
499
#call print_small_structs(struct1, struct2, struct3, struct4, flags,
500
#                         flags_combo, three_char, five_char, int_char_combo,
501
#                         d1, d2, d3, f1, f2, f3)
502
 
503
if {![gdb_skip_float_test "print_small_structs from print_long_arg_list"] && \
504
    ![gdb_skip_stdio_test "print_small_structs from print_long_arg_list"] } {
505
    # On Solaris, some of the args are passed by ref, others by value,
506
    # and GDB gets confused and says "Invalid cast" because it thinks
507
    # it has to cast the structure into a pointer to structure.  A real
508
    # GDB bug, probably for all Sparc configs, but obscure. -sts 1999-08-17.
509
    setup_xfail "sparc*-*-solaris*"
510
    send_gdb "print print_small_structs(struct1, struct2, struct3, struct4, flags, flags_combo, three_char, five_char, int_char_combo, d1, d2, d3, f1, f2, f3)\n"
511
    gdb_expect_list "print print_small_structs from print_long_arg_list" ".*$gdb_prompt $" {
512
        "\[\t\r\n \]+alpha"
513
        "\[\t\r\n \]+gamma"
514
        "\[\t\r\n \]+epsilon"
515
        "\[\t\r\n \]+alpha"
516
        "\[\t\r\n \]+gamma"
517
        "\[\t\r\n \]+epsilon"
518
        "\[\t\r\n \]+ch1: y[ \t]*ch2: n"
519
        "\[\t\r\n \]+Contents of three_char_t:"
520
        "\[\t\r\n \]+a\[ \t\]*b\[ \t\]*c"
521
        "\[\t\r\n \]+Contents of five_char_t:"
522
        "\[\t\r\n \]+l\[ \t\]*m\[ \t\]*n\[ \t\]*o\[ \t\]*p"
523
        "\[\t\r\n \]+Contents of int_char_combo_t:"
524
        "\[\t\r\n \]+123\[ \t\]*z"
525
        "\[\t\r\n \]+Sum of the 4 struct values and seed :"
526
        "\[\t\r\n \]+52"
527
        "\[\t\r\n \]+Contents of struct1:"
528
        "\[\t\r\n \]+6\[ \t\]*0"
529
        "\[\t\r\n \]+Contents of struct2:"
530
        "\[\t\r\n \]+10\[ \t\]*0"
531
        "\[\t\r\n \]+Contents of struct3:"
532
        "\[\t\r\n \]+12\[ \t\]*0"
533
        "\[\t\r\n \]+Contents of one_double_t:"
534
        "\[\t\r\n \]+10.500000"
535
        "\[\t\r\n \]+Contents of one_double_t:"
536
        "\[\t\r\n \]+-3.375000"
537
        "\[\t\r\n \]+Contents of one_double_t:"
538
        "\[\t\r\n \]+675.093750"
539
        "\[\t\r\n \]+Contents of two_floats_t:"
540
        "\[\t\r\n \]+45.234001\[ \t\]*43.599998"
541
        "\[\t\r\n \]+Contents of two_floats_t:"
542
        "\[\t\r\n \]+78.010002\[ \t\]*122.099998"
543
        "\[\t\r\n \]+Contents of two_floats_t:"
544
        "\[\t\r\n \]+-1232.344971\[ \t\]*-199.210007"
545
    }
546
}
547
 
548
 
549
#go -until 1300
550
gdb_test "tbreak 1300" \
551
    "Breakpoint.* file .*call-ar-st.c, line 1300.*" \
552
    "tbreakpoint line 1300"
553
 
554
if ![gdb_skip_stdio_test "continuing to 1300"] {
555
    gdb_test "continue" "Continuing\\..*Contents of two_floats_t:.*main \\(\\) at.*call-ar-st.c:1300.*1300.*init_bit_flags_combo\\(flags_combo, \\(unsigned\\)1, \\(unsigned\\)0, .y.,.*" \
556
            "continue to 1300"
557
} else {
558
    gdb_test "continue" "" ""
559
}
560
 
561
#step
562
    send_gdb "step\n"
563
    gdb_expect {
564
        -re "
565
init_bit_flags_combo \\(bit_flags_combo=, a=1, b=0, ch1=121 .y., g=1, d=0, ch2=110 .n., e=1, o=0\\) at .*call-ar-st.c:416\[ \t\n\r\]+416.*bit_flags_combo->alpha = a;.*$gdb_prompt $" {
566
                            pass "step into init_bit_flags_combo"}
567
        -re ".*$gdb_prompt $" { fail "step into init_bit_flags_combo" }
568
        timeout { fail "step into init_bit_flags_combo (timeout)" }
569
    }
570
 
571
#call print_bit_flags_combo(*bit_flags_combo)
572
if ![gdb_skip_stdio_test "continuing to 1300"] {
573
    send_gdb "print print_bit_flags_combo(*bit_flags_combo)\n"
574
    gdb_expect {
575
        -re ".*alpha.*gamma.*epsilon.*ch1: y.*ch2: n.*$gdb_prompt $" {
576
            pass "print print_bit_flags_combo from init_bit_flags_combo"
577
        }
578
        -re ".*$gdb_prompt $" {
579
            fail "print print_bit_flags_combo from init_bit_flags_combo"
580
        }
581
        timeout           {
582
            fail "(timeout) print_bit_flags_combo from init_bit_flags_combo"
583
        }
584
    }
585
}
586
 
587
 
588
#go -until 1305
589
gdb_test "tbreak 1305" \
590
    "Breakpoint.* file .*call-ar-st.c, line 1305.*" \
591
    "tbreakpoint line 1305"
592
 
593
gdb_test continue "Continuing\\..*main \\(\\) at .*call-ar-st.c:1305\[\r\n\t \]+1305.*init_int_char_combo\\(int_char_combo, 13, .!.\\);" \
594
"continue to 1305"
595
 
596
#call print_long_arg_list(a, b, c, d, e, f, *struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)
597
 
598
# FIXME:
599
# HP aCC demangler currently does not handle hp aCC functions with >10 args
600
# DTS CLLbs16994  coulter 990114
601
 
602
if {$hp_aCC_compiler} {setup_xfail "hppa*-*-*" CLLbs16994}
603
 
604
if {![gdb_skip_float_test "print print_long_arg_list"] && \
605
    ![gdb_skip_stdio_test "print print_long_arg_list"] } {
606
    send_gdb "print print_long_arg_list(a, b, c, d, e, f, *struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)\n"
607
    gdb_expect_list "print print_long_arg_list" ".*$gdb_prompt $" {
608
        "\[ \n\r\t\]+double : 22.250000"
609
        "\[ \n\r\t\]+double : 33.375000"
610
        "\[ \n\r\t\]+int : 0"
611
        "\[ \n\r\t\]+int : -25"
612
        "\[ \n\r\t\]+int : 100"
613
        "\[ \n\r\t\]+int : 2345"
614
        "\[ \n\r\t\]+alpha"
615
        "\[ \n\r\t\]+gamma"
616
        "\[ \n\r\t\]+epsilon"
617
        "\[ \n\r\t\]+ch1: y\[ \t\]+ch2: n"
618
        "\[ \n\r\t\]+Contents of three_char_t:"
619
        "\[ \n\r\t\]+x\[ \t\]+y\[ \t\]+z"
620
        "\[ \n\r\t\]+Contents of five_char_t:"
621
        "\[ \n\r\t\]+h\[ \t\]+e\[ \t\]+l\[ \t\]+l\[ \t\]+o"
622
        "\[ \n\r\t\]+Contents of int_char_combo_t:"
623
        "\[ \n\r\t\]+123\[ \t\]+z"
624
        "\[ \n\r\t\]+Sum of the 4 struct values and seed :"
625
        "\[ \n\r\t\]+52"
626
        "\[ \n\r\t\]+Contents of struct1:"
627
        "\[ \n\r\t\]+6\[ \t\]+0"
628
        "\[ \n\r\t\]+Contents of struct2:"
629
        "\[ \n\r\t\]+10\[ \t\]+0"
630
        "\[ \n\r\t\]+Contents of struct3:"
631
        "\[ \n\r\t\]+12\[ \t\]+0"
632
        "\[ \n\r\t\]+Contents of one_double_t:"
633
        "\[ \n\r\t\]+1.111110"
634
        "\[ \n\r\t\]+Contents of one_double_t:"
635
        "\[ \n\r\t\]+-345.340000"
636
        "\[ \n\r\t\]+Contents of one_double_t:"
637
        "\[ \n\r\t\]+546464.200000"
638
        "\[ \n\r\t\]+Contents of two_floats_t:"
639
        "\[ \n\r\t\]+0.234000\[ \t\]+453.100006"
640
        "\[ \n\r\t\]+Contents of two_floats_t:"
641
        "\[ \n\r\t\]+78.345001\[ \t\]+23.090000"
642
        "\[ \n\r\t\]+Contents of two_floats_t:"
643
        "\[ \n\r\t\]+-2.345000\[ \t\]+1.000000"
644
    }
645
}
646
 
647
 
648
#go -until 1311
649
gdb_test "tbreak 1311" \
650
    "Breakpoint.* file .*call-ar-st.c, line 1311.*" \
651
    "tbreakpoint line 1311"
652
 
653
gdb_test continue "Continuing\\..*main \\(\\) at .*call-ar-st.c:1311\[ \t\n\r\]+1311.*compute_with_small_structs\\(35\\);" \
654
"continue to 1311"
655
 
656
 
657
#call sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)
658
if ![gdb_skip_stdio_test "print sum_struct_print(...)"] {
659
    send_gdb "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)\n"
660
    gdb_expect {
661
        -re ".*Sum of the 4 struct values and seed :\[ \t\n\r\]+218.*$gdb_prompt $" {
662
            pass "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)"
663
        }
664
        -re ".*$gdb_prompt $" {
665
            fail "print sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)"
666
        }
667
        timeout           {
668
            fail "(timeout) sum_struct_print(10, *struct1, *struct2, *struct3, *struct4)"
669
        }
670
    }
671
}
672
 
673
 
674
#call print_struct_rep(*struct1, *struct2, *struct3)
675
if ![gdb_skip_stdio_test "print print_struct_rep(...)"] {
676
    send_gdb "print print_struct_rep(*struct1, *struct2, *struct3)\n"
677
    gdb_expect_list "print print_struct_rep(*struct1, *struct2, *struct3)" \
678
            ".*$gdb_prompt $" {
679
        "\[ \t\n\r\]+Contents of struct1:"
680
        "\[ \t\n\r\]+        22         0"
681
        "\[ \t\n\r\]+Contents of struct2:"
682
        "\[ \t\n\r\]+        42         0"
683
        "\[ \t\n\r\]+Contents of struct3:"
684
        "\[ \t\n\r\]+        62         0"
685
    }
686
}
687
 
688
if ![gdb_skip_stdio_test "print print_one_large_struct(...)"] {
689
    send_gdb "print print_one_large_struct(*list1)\n"
690
    gdb_expect {
691
        -re ".*         4         1.*$gdb_prompt $" {
692
            pass "print print_one_large_struct(*list1)"
693
        }
694
        -re ".*$gdb_prompt $" {
695
            fail "print print_one_large_struct(*list1)"
696
        }
697
        timeout           {
698
            fail "(timeout) print_one_large_struct(*list1)"
699
        }
700
    }
701
}
702
 
703
set timeout $oldtimeout
704
return
705
 

powered by: WebSVN 2.1.0

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