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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.base/] [callfuncs.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) 92, 96, 1997 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
# This file was written by Fred Fish. (fnf@cygnus.com)
21
# and modified by Bob Manson. (manson@cygnus.com)
22
 
23
if $tracelevel then {
24
        strace $tracelevel
25
}
26
 
27
set prms_id 0
28
set bug_id 0
29
 
30
set testfile "callfuncs"
31
set srcfile ${testfile}.c
32
set binfile ${objdir}/${subdir}/${testfile}
33
 
34
if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
35
     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
36
}
37
 
38
# Create and source the file that provides information about the compiler
39
# used to compile the test case.
40
 
41
if [get_compiler_info ${binfile}] {
42
    return -1;
43
}
44
 
45
if {$hp_aCC_compiler} {
46
    set prototypes 1
47
} else {
48
    set prototypes 0
49
}
50
 
51
# The a29k can't call functions, so don't even bother with this test.
52
if [target_info exists gdb,cannot_call_functions] {
53
    setup_xfail "*-*-*" 2416
54
    fail "This target can not call functions"
55
    continue
56
}
57
 
58
# Set the current language to C.  This counts as a test.  If it
59
# fails, then we skip the other tests.
60
 
61
proc set_lang_c {} {
62
    global gdb_prompt
63
 
64
    send_gdb "set language c\n"
65
    gdb_expect {
66
        -re ".*$gdb_prompt $" {}
67
        timeout { fail "set language c (timeout)" ; return 0; }
68
    }
69
 
70
    send_gdb "show language\n"
71
    gdb_expect {
72
        -re ".* source language is \"c\".*$gdb_prompt $" {
73
            pass "set language to \"c\""
74
            return 1
75
        }
76
        -re ".*$gdb_prompt $" {
77
            fail "setting language to \"c\""
78
            return 0
79
        }
80
        timeout {
81
            fail "can't show language (timeout)"
82
            return 0
83
        }
84
    }
85
}
86
 
87
# FIXME:  Before calling this proc, we should probably verify that
88
# we can call inferior functions and get a valid integral value
89
# returned.
90
# Note that it is OK to check for 0 or 1 as the returned values, because C
91
# specifies that the numeric value of a relational or logical expression
92
# (computed in the inferior) is 1 for true and 0 for false.
93
 
94
proc do_function_calls {} {
95
    global prototypes
96
    global gcc_compiled
97
    global gdb_prompt
98
 
99
    # We need to up this because this can be really slow on some boards.
100
    set timeout 60;
101
 
102
    gdb_test "p t_char_values(0,0)" " = 0"
103
    gdb_test "p t_char_values('a','b')" " = 1"
104
    gdb_test "p t_char_values(char_val1,char_val2)" " = 1"
105
    gdb_test "p t_char_values('a',char_val2)" " = 1"
106
    gdb_test "p t_char_values(char_val1,'b')" " = 1"
107
 
108
    gdb_test "p t_short_values(0,0)" " = 0"
109
    gdb_test "p t_short_values(10,-23)" " = 1"
110
    gdb_test "p t_short_values(short_val1,short_val2)" " = 1"
111
    gdb_test "p t_short_values(10,short_val2)" " = 1"
112
    gdb_test "p t_short_values(short_val1,-23)" " = 1"
113
 
114
    gdb_test "p t_int_values(0,0)" " = 0"
115
    gdb_test "p t_int_values(87,-26)" " = 1"
116
    gdb_test "p t_int_values(int_val1,int_val2)" " = 1"
117
    gdb_test "p t_int_values(87,int_val2)" " = 1"
118
    gdb_test "p t_int_values(int_val1,-26)" " = 1"
119
 
120
    gdb_test "p t_long_values(0,0)" " = 0"
121
    gdb_test "p t_long_values(789,-321)" " = 1"
122
    gdb_test "p t_long_values(long_val1,long_val2)" " = 1"
123
    gdb_test "p t_long_values(789,long_val2)" " = 1"
124
    gdb_test "p t_long_values(long_val1,-321)" " = 1"
125
 
126
    if ![target_info exists gdb,skip_float_tests] {
127
        gdb_test "p t_float_values(0.0,0.0)" " = 0"
128
 
129
        # These next four tests fail on the mn10300.
130
        # The first value is passed in regs, the other in memory.
131
        # Gcc emits different stabs for the two parameters; the first is
132
        # claimed to be a float, the second a double.
133
        # dbxout.c in gcc claims this is the desired behavior.
134
        setup_xfail "mn10300-*-*"
135
        gdb_test "p t_float_values(3.14159,-2.3765)" " = 1"
136
        setup_xfail "mn10300-*-*"
137
        gdb_test "p t_float_values(float_val1,float_val2)" " = 1"
138
        setup_xfail "mn10300-*-*"
139
        gdb_test "p t_float_values(3.14159,float_val2)" " = 1"
140
        setup_xfail "mn10300-*-*"
141
        gdb_test "p t_float_values(float_val1,-2.3765)" " = 1"
142
 
143
        # Test passing of arguments which might not be widened.
144
        gdb_test "p t_float_values2(0.0,0.0)" " = 0"
145
 
146
        # Although PR 5318 mentions SunOS specifically, this seems
147
        # to be a generic problem on quite a few platforms.
148
        if $prototypes then {
149
            setup_xfail "sparc-*-*" "mips*-*-*" 5318
150
            if {!$gcc_compiled} then {
151
                setup_xfail "alpha-dec-osf2*" "i*86-*-sysv4*" 5318
152
            }
153
        }
154
        gdb_test "p t_float_values2(3.14159,float_val2)" " = 1"
155
        gdb_test "p t_small_values(1,2,3,4,5,6,7,8,9,10)" " = 55"
156
 
157
        gdb_test "p t_double_values(0.0,0.0)" " = 0"
158
        gdb_test "p t_double_values(45.654,-67.66)" " = 1"
159
        gdb_test "p t_double_values(double_val1,double_val2)" " = 1"
160
        gdb_test "p t_double_values(45.654,double_val2)" " = 1"
161
        gdb_test "p t_double_values(double_val1,-67.66)" " = 1"
162
    }
163
 
164
    gdb_test "p t_string_values(string_val2,string_val1)" " = 0"
165
    gdb_test "p t_string_values(string_val1,string_val2)" " = 1"
166
    gdb_test "p t_string_values(\"string 1\",\"string 2\")" " = 1"
167
    gdb_test "p t_string_values(\"string 1\",string_val2)" " = 1"
168
    gdb_test "p t_string_values(string_val1,\"string 2\")" " = 1"
169
 
170
    gdb_test "p t_char_array_values(char_array_val2,char_array_val1)" " = 0"
171
    gdb_test "p t_char_array_values(char_array_val1,char_array_val2)" " = 1"
172
    gdb_test "p t_char_array_values(\"carray 1\",\"carray 2\")" " = 1"
173
    gdb_test "p t_char_array_values(\"carray 1\",char_array_val2)" " = 1"
174
    gdb_test "p t_char_array_values(char_array_val1,\"carray 2\")" " = 1"
175
 
176
    gdb_test "p doubleit(4)" " = 8"
177
    gdb_test "p add(4,5)" " = 9"
178
    gdb_test "p t_func_values(func_val2,func_val1)" " = 0"
179
    gdb_test "p t_func_values(func_val1,func_val2)" " = 1"
180
 
181
    # On the rs6000, we need to pass the address of the trampoline routine,
182
    # not the address of add itself.  I don't know how to go from add to
183
    # the address of the trampoline.  Similar problems exist on the HPPA,
184
    # and in fact can present an unsolvable problem as the stubs may not
185
    # even exist in the user's program.  We've slightly recoded t_func_values
186
    # to avoid such problems in the common case.  This may or may not help
187
    # the RS6000.
188
    setup_xfail "rs6000*-*-*"
189
    setup_xfail "powerpc*-*-*"
190
    if {![istarget hppa*-*-hpux*]} then {
191
        gdb_test "p t_func_values(add,func_val2)" " = 1"
192
    }
193
 
194
    setup_xfail "rs6000*-*-*"
195
    setup_xfail "powerpc*-*-*"
196
    if {![istarget hppa*-*-hpux*]} then {
197
        gdb_test "p t_func_values(func_val1,doubleit)" " = 1"
198
    }
199
 
200
    setup_xfail "rs6000*-*-*"
201
    setup_xfail "powerpc*-*-*"
202
    if {![istarget hppa*-*-hpux*]} then {
203
        gdb_test "p t_call_add(add,3,4)" " = 7"
204
    }
205
    gdb_test "p t_call_add(func_val1,3,4)" " = 7"
206
 
207
    gdb_test "p t_enum_value1(enumval1)" " = 1"
208
    gdb_test "p t_enum_value1(enum_val1)" " = 1"
209
    gdb_test "p t_enum_value1(enum_val2)" " = 0"
210
 
211
    gdb_test "p t_enum_value2(enumval2)" " = 1"
212
    gdb_test "p t_enum_value2(enum_val2)" " = 1"
213
    gdb_test "p t_enum_value2(enum_val1)" " = 0"
214
 
215
    gdb_test "p sum_args(1,{2})" " = 2"
216
    gdb_test "p sum_args(2,{2,3})" " = 5"
217
    gdb_test "p sum_args(3,{2,3,4})" " = 9"
218
    gdb_test "p sum_args(4,{2,3,4,5})" " = 14"
219
 
220
    gdb_test "p sum10 (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)" " = 55"
221
 
222
    gdb_test "p cmp10 (0, 1, 2, 3, 4, 5, 6, 7, 8, 9)" " = 1"
223
 
224
    gdb_test "p t_structs_c(struct_val1)" "= 120 'x'" \
225
        "call inferior func with struct - returns char"
226
    gdb_test "p t_structs_s(struct_val1)" "= 87" \
227
        "call inferior func with struct -  returns short"
228
    gdb_test "p t_structs_i(struct_val1)" "= 76" \
229
        "call inferior func with struct - returns int"
230
    gdb_test "p t_structs_l(struct_val1)" "= 51" \
231
        "call inferior func with struct - returns long"
232
    gdb_test "p t_structs_f(struct_val1)" "= 2.12.*" \
233
        "call inferior func with struct - returns float"
234
    gdb_test "p t_structs_d(struct_val1)" "= 9.87.*" \
235
        "call inferior func with struct - returns double"
236
    gdb_test "p t_structs_a(struct_val1)" "= (.unsigned char .. )?\"foo\"" \
237
        "call inferior func with struct - returns char *"
238
}
239
 
240
# Start with a fresh gdb.
241
 
242
gdb_exit
243
gdb_start
244
gdb_reinitialize_dir $srcdir/$subdir
245
gdb_load ${binfile}
246
 
247
gdb_test "set print sevenbit-strings" ""
248
gdb_test "set print address off" ""
249
gdb_test "set width 0" ""
250
 
251
if { $hp_aCC_compiler } {
252
    # Do not set language explicitly to 'C'.  This will cause aCC
253
    # tests to fail because promotion rules are different.  Just let
254
    # the language be set to the default.
255
 
256
    if { ![runto_main] } {
257
        gdb_suppress_tests;
258
    }
259
 
260
    # However, turn off overload-resolution for aCC.  Having it on causes
261
    # a lot of failures.
262
 
263
    gdb_test "set overload-resolution 0" ".*"
264
} else {
265
    if { ![set_lang_c] } {
266
        gdb_suppress_tests;
267
    } else {
268
        if { ![runto_main] } {
269
            gdb_suppress_tests;
270
        }
271
    }
272
}
273
 
274
gdb_test "next" "t_structs_c\\(struct_val1\\);.*"
275
do_function_calls
276
 
277
return 0

powered by: WebSVN 2.1.0

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