1 # Copyright
1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
2 #
2004, 2007 Free Software Foundation
, Inc.
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
3 of the License
, or
7 #
(at your option
) any later version.
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.
14 # You should have received a copy of the GNU General Public License
15 # along with this
program.
If not
, see
<http
://www.gnu.org
/licenses
/>.
17 # Please email
any bugs
, comments
, and
/or additions to this file to
:
18 # bug
-gdb@prep.ai.mit.edu
20 # This file was written by Fred Fish.
(fnf@cygnus.com
)
21 # and modified by Bob Manson.
(manson@cygnus.com
)
30 set testfile
"callfuncs"
31 set srcfile $
{testfile
}.c
32 set binfile $
{objdir
}/$
{subdir
}/$
{testfile
}
34 if { [gdb_compile
"${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
35 untested callfuncs.exp
39 # Create and source the file that provides information about the compiler
40 # used to
compile the test case.
42 if [get_compiler_info $
{binfile
}] {
46 if {$hp_aCC_compiler
} {
52 # Some targets can
't do function calls, so don't even bother with this
54 if [target_info
exists gdb
,cannot_call_functions
] {
55 setup_xfail
"*-*-*" 2416
56 fail
"This target can not call functions"
60 #
Set the current language to C. This counts as a test.
If it
61 # fails
, then we skip the other tests.
66 send_gdb
"set language c\n"
68 -re
".*$gdb_prompt $" {}
69 timeout
{ fail
"set language c (timeout)" ; return 0; }
72 send_gdb
"show language\n"
74 -re
".* source language is \"c\".*$gdb_prompt $" {
75 pass
"set language to \"c\""
78 -re
".*$gdb_prompt $" {
79 fail
"setting language to \"c\""
83 fail
"can't show language (timeout)"
89 # FIXME
: Before calling this proc
, we should probably verify that
90 # we can
call inferior functions and
get a valid integral value
92 # Note that it is OK to check
for 0 or
1 as the returned
values, because C
93 # specifies that the numeric value of a relational or logical expression
94 #
(computed in the inferior
) is
1 for true and
0 for false.
96 proc do_function_calls
{} {
100 # We need to up this because this can be really slow
on some boards.
103 gdb_test
"p t_char_values(0,0)" " = 0"
104 gdb_test
"p t_char_values('a','b')" " = 1"
105 gdb_test
"p t_char_values(char_val1,char_val2)" " = 1"
106 gdb_test
"p t_char_values('a',char_val2)" " = 1"
107 gdb_test
"p t_char_values(char_val1,'b')" " = 1"
109 gdb_test
"p t_short_values(0,0)" " = 0"
110 gdb_test
"p t_short_values(10,-23)" " = 1"
111 gdb_test
"p t_short_values(short_val1,short_val2)" " = 1"
112 gdb_test
"p t_short_values(10,short_val2)" " = 1"
113 gdb_test
"p t_short_values(short_val1,-23)" " = 1"
115 gdb_test
"p t_int_values(0,0)" " = 0"
116 gdb_test
"p t_int_values(87,-26)" " = 1"
117 gdb_test
"p t_int_values(int_val1,int_val2)" " = 1"
118 gdb_test
"p t_int_values(87,int_val2)" " = 1"
119 gdb_test
"p t_int_values(int_val1,-26)" " = 1"
121 gdb_test
"p t_long_values(0,0)" " = 0"
122 gdb_test
"p t_long_values(789,-321)" " = 1"
123 gdb_test
"p t_long_values(long_val1,long_val2)" " = 1"
124 gdb_test
"p t_long_values(789,long_val2)" " = 1"
125 gdb_test
"p t_long_values(long_val1,-321)" " = 1"
127 if ![target_info
exists gdb
,skip_float_tests
] {
128 gdb_test
"p t_float_values(0.0,0.0)" " = 0"
130 # These next four tests fail
on the mn10300.
131 # The first value is passed in regs
, the other in memory.
132 # Gcc emits different stabs
for the two parameters
; the first is
133 # claimed to be a float
, the second a double.
134 # dbxout.c in gcc claims this is the desired behavior.
135 setup_xfail
"mn10300-*-*"
136 gdb_test
"p t_float_values(3.14159,-2.3765)" " = 1"
137 setup_xfail
"mn10300-*-*"
138 gdb_test
"p t_float_values(float_val1,float_val2)" " = 1"
139 setup_xfail
"mn10300-*-*"
140 gdb_test
"p t_float_values(3.14159,float_val2)" " = 1"
141 setup_xfail
"mn10300-*-*"
142 gdb_test
"p t_float_values(float_val1,-2.3765)" " = 1"
144 # Test passing of arguments which might not be widened.
145 gdb_test
"p t_float_values2(0.0,0.0)" " = 0"
147 # Although PR
5318 mentions SunOS specifically
, this seems
148 # to be a generic problem
on quite a few platforms.
149 if $prototypes
then {
150 setup_xfail
"sparc-*-*" "mips*-*-*" 5318
151 if { ! [test_compiler_info gcc
-*-*] } then {
152 setup_xfail
"alpha-dec-osf2*" "i*86-*-sysv4*" 5318
156 gdb_test
"p t_float_values2(3.14159,float_val2)" " = 1"
158 gdb_test
"p t_small_values(1,2,3,4,5,6,7,8,9,10)" " = 55"
160 gdb_test
"p t_double_values(0.0,0.0)" " = 0"
161 gdb_test
"p t_double_values(45.654,-67.66)" " = 1"
162 gdb_test
"p t_double_values(double_val1,double_val2)" " = 1"
163 gdb_test
"p t_double_values(45.654,double_val2)" " = 1"
164 gdb_test
"p t_double_values(double_val1,-67.66)" " = 1"
166 gdb_test
"p t_double_int(99.0, 1)" " = 0"
167 gdb_test
"p t_double_int(99.0, 99)" " = 1"
168 gdb_test
"p t_int_double(99, 1.0)" " = 0"
169 gdb_test
"p t_int_double(99, 99.0)" " = 1"
172 gdb_test
"p t_string_values(string_val2,string_val1)" " = 0"
173 gdb_test
"p t_string_values(string_val1,string_val2)" " = 1"
174 gdb_test
"p t_string_values(\"string 1\",\"string 2\")" " = 1"
175 gdb_test
"p t_string_values(\"string 1\",string_val2)" " = 1"
176 gdb_test
"p t_string_values(string_val1,\"string 2\")" " = 1"
178 gdb_test
"p t_char_array_values(char_array_val2,char_array_val1)" " = 0"
179 gdb_test
"p t_char_array_values(char_array_val1,char_array_val2)" " = 1"
180 gdb_test
"p t_char_array_values(\"carray 1\",\"carray 2\")" " = 1"
181 gdb_test
"p t_char_array_values(\"carray 1\",char_array_val2)" " = 1"
182 gdb_test
"p t_char_array_values(char_array_val1,\"carray 2\")" " = 1"
184 gdb_test
"p doubleit(4)" " = 8"
185 gdb_test
"p add(4,5)" " = 9"
186 gdb_test
"p t_func_values(func_val2,func_val1)" " = 0"
187 gdb_test
"p t_func_values(func_val1,func_val2)" " = 1"
189 # GDB currently screws up the passing of function parameters
for
190 # ABIs that use function descriptors. Instead of passing the
191 # address of te function descriptor
, GDB passes the address of the
192 # function body. This results in the called function treating the
193 # first few instructions of the function proper as a descriptor
194 # and attempting a jump through that
(a totally
random address
).
195 setup_kfail
"rs6000*-*-aix*" gdb/1457
196 setup_kfail
"powerpc*-*-aix*" gdb/1457
197 setup_kfail hppa
*-*-hpux
* gdb
/1457
198 gdb_test
"p t_func_values(add,func_val2)" " = 1"
199 setup_kfail
"rs6000*-*-aix*" gdb/1457
200 setup_kfail
"powerpc*-*-aix*" gdb/1457
201 setup_kfail hppa
*-*-hpux
* gdb
/1457
202 gdb_test
"p t_func_values(func_val1,doubleit)" " = 1"
203 setup_kfail
"rs6000*-*-aix*" gdb/1457
204 setup_kfail
"powerpc*-*-aix*" gdb/1457
205 setup_kfail hppa
*-*-hpux
* gdb
/1457
206 gdb_test
"p t_call_add(add,3,4)" " = 7"
207 gdb_test
"p t_call_add(func_val1,3,4)" " = 7"
209 gdb_test
"p t_enum_value1(enumval1)" " = 1"
210 gdb_test
"p t_enum_value1(enum_val1)" " = 1"
211 gdb_test
"p t_enum_value1(enum_val2)" " = 0"
213 gdb_test
"p t_enum_value2(enumval2)" " = 1"
214 gdb_test
"p t_enum_value2(enum_val2)" " = 1"
215 gdb_test
"p t_enum_value2(enum_val1)" " = 0"
217 gdb_test
"p sum_args(1,{2})" " = 2"
218 gdb_test
"p sum_args(2,{2,3})" " = 5"
219 gdb_test
"p sum_args(3,{2,3,4})" " = 9"
220 gdb_test
"p sum_args(4,{2,3,4,5})" " = 14"
222 gdb_test
"p sum10 (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)" " = 55"
224 gdb_test
"p cmp10 (0, 1, 2, 3, 4, 5, 6, 7, 8, 9)" " = 1"
226 gdb_test
"p t_structs_c(struct_val1)" "= 120 'x'" \
227 "call inferior func with struct - returns char"
228 gdb_test
"p t_structs_s(struct_val1)" "= 87" \
229 "call inferior func with struct - returns short"
230 gdb_test
"p t_structs_i(struct_val1)" "= 76" \
231 "call inferior func with struct - returns int"
232 gdb_test
"p t_structs_l(struct_val1)" "= 51" \
233 "call inferior func with struct - returns long"
234 gdb_test
"p t_structs_f(struct_val1)" "= 2.12.*" \
235 "call inferior func with struct - returns float"
236 gdb_test
"p t_structs_d(struct_val1)" "= 9.87.*" \
237 "call inferior func with struct - returns double"
238 gdb_test
"p t_structs_a(struct_val1)" "= (.unsigned char .. )?\"foo\"" \
239 "call inferior func with struct - returns char *"
242 # Procedure to
get current content of all registers.
243 proc fetch_all_registers
{test
} {
246 set all_registers_lines
{}
248 if {[gdb_test_multiple
"info all-registers" $test {
249 -re
"info all-registers\[\r\n\]+" {
252 -ex
"The program has no registers now" {
256 -re
"^bspstore\[ \t\]+\[^\r\n\]+\[\r\n\]+" {
257 if [istarget
"ia64-*-*"] {
258 # Filter out bspstore which is specially tied to bsp
,
259 # giving spurious differences.
261 lappend all_registers_lines $expect_out
(0,string
)
265 -re
"^\[^ \t\]+\[ \t\]+\[^\r\n\]+\[\r\n\]+" {
266 lappend all_registers_lines $expect_out
(0,string
)
269 -re
".*$gdb_prompt $" {
272 -re
"^\[^\r\n\]+\[\r\n\]+" {
274 warning
"Unrecognized output: $expect_out(0,string)"
289 return $all_registers_lines
293 # Start with a fresh gdb.
297 gdb_reinitialize_dir $srcdir
/$subdir
300 gdb_test
"set print sevenbit-strings" ""
301 gdb_test
"set print address off" ""
302 gdb_test
"set width 0" ""
304 if { $hp_aCC_compiler
} {
305 #
Do not
set language explicitly to
'C'. This will cause aCC
306 # tests to fail because promotion rules are different. Just let
307 # the language be
set to the default.
309 if { ![runto_main
] } {
313 # However
, turn
off overload
-resolution
for aCC. Having it
on causes
316 gdb_test
"set overload-resolution 0" ".*"
318 if { ![set_lang_c
] } {
321 if { ![runto_main
] } {
329 # Make sure that malloc gets called and that the floating point unit
330 # is initialized via a
call to t_double_values.
331 gdb_test
"next" "t_double_values\\(double_val1, double_val2\\);.*" \
332 "next to t_double_values"
333 gdb_test
"next" "t_structs_c\\(struct_val1\\);.*" \
334 "next to t_structs_c"
336 # Save all register contents.
337 set old_reg_content
[fetch_all_registers
"retrieve original register contents"]
339 # Perform function calls.
342 # Check
if all registers still have the same value.
343 set new_reg_content
[fetch_all_registers \
344 "register contents after gdb function calls"]
345 if {$old_reg_content
== $new_reg_content
} then {
346 pass
"gdb function calls preserve register contents"
348 set old_reg_content $new_reg_content
349 fail
"gdb function calls preserve register contents"
352 #
Set breakpoint at a function we will
call from gdb.
355 #
Call function
(causing a breakpoint hit in the
call dummy
) and
do a
continue,
356 # make sure we are
back at main and still have the same register contents.
357 gdb_test
"print add(4,5)" \
358 "The program being debugged stopped while.*" \
359 "stop at breakpoint in call dummy function"
360 gdb_test
"continue" "Continuing.*" "continue from call dummy breakpoint"
361 if ![gdb_test
"bt 2" \
363 "bt after continuing from call dummy breakpoint"] then {
364 set new_reg_content
[fetch_all_registers \
365 "register contents after stop in call dummy"]
366 if {$old_reg_content
== $new_reg_content
} then {
367 pass
"continue after stop in call dummy preserves register contents"
369 fail
"continue after stop in call dummy preserves register contents"
373 #
Call function
(causing a breakpoint hit in the
call dummy
) and
do a finish
,
374 # make sure we are
back at main and still have the same register contents.
375 gdb_test
"print add(4,5)" "The program being debugged stopped while.*" \
376 "call function causing a breakpoint then do a finish"
378 "Value returned is .* = 9" \
379 "finish from call dummy breakpoint returns correct value"
380 if ![gdb_test
"bt 2" \
382 "bt after finishing from call dummy breakpoint"] then {
383 set new_reg_content
[fetch_all_registers \
384 "register contents after finish in call dummy"]
385 if {$old_reg_content
== $new_reg_content
} then {
386 pass
"finish after stop in call dummy preserves register contents"
388 fail
"finish after stop in call dummy preserves register contents"
392 #
Call function
(causing a breakpoint hit in the
call dummy
) and
do a
return
393 # with a value
, make sure we are
back at main with the same register contents.
394 gdb_test
"print add(4,5)" "The program being debugged stopped while.*" \
395 "call function causing a breakpoint and then do a return"
396 if ![gdb_test
"return 7" \
398 "back at main after return from call dummy breakpoint" \
399 "Make add return now. .y or n.*" \
401 set new_reg_content
[fetch_all_registers \
402 "register contents after return in call dummy"]
403 if {$old_reg_content
== $new_reg_content
} then {
404 pass
"return after stop in call dummy preserves register contents"
406 fail
"return after stop in call dummy preserves register contents"
410 #
Call function
(causing a breakpoint hit in the
call dummy
), and
411 #
call another function from the
call dummy frame
(thereby setting up
412 # several nested
call dummy frames
). Test that backtrace and finish
413 # work when several
call dummies are nested.
415 gdb_breakpoint t_small_values
416 gdb_test
"print add(2,3)" "The program being debugged stopped while.*" \
417 "stop at nested call level 1"
418 gdb_test
"backtrace" \
419 "\#0 add \\(a=2, b=3\\).*\#1 <function called from gdb>.*\#2 main.*" \
420 "backtrace at nested call level 1"
421 gdb_test
"print add(4,5)" "The program being debugged stopped while.*" \
422 "stop at nested call level 2"
423 gdb_test
"backtrace" \
424 "\#0 add \\(a=4, b=5\\).*\#1 <function called from gdb>.*\#2 add \\(a=2, b=3\\).*\#3 <function called from gdb>.*\#4 main.*" \
425 "backtrace at nested call level 2"
426 gdb_test
"print sum10(2,4,6,8,10,12,14,16,18,20)" \
427 "The program being debugged stopped while.*" \
428 "stop at nested call level 3"
429 gdb_test
"backtrace" \
430 "\#0 sum10 \\(i0=2, i1=4, i2=6, i3=8, i4=10, i5=12, i6=14, i7=16, i8=18, i9=20\\).*\#1 <function called from gdb>.*\#2 add \\(a=4, b=5\\).*\#3 <function called from gdb>.*\#4 add \\(a=2, b=3\\).*\#5 <function called from gdb>.*\#6 main.*" \
431 "backtrace at nested call level 3"
432 gdb_test
"print t_small_values(1,3,5,7,9,11,13,15,17,19)" \
433 "The program being debugged stopped while.*" \
434 "stop at nested call level 4"
435 gdb_test
"backtrace" \
436 "\#0 t_small_values \\(arg1=1 '.001', arg2=3, arg3=5, arg4=7 '.a', arg5=9, arg6=11 '.v', arg7=13, arg8=15, arg9=17, arg10=19\\).*\#2 sum10 \\(i0=2, i1=4, i2=6, i3=8, i4=10, i5=12, i6=14, i7=16, i8=18, i9=20\\).*\#3 <function called from gdb>.*\#4 add \\(a=4, b=5\\).*\#5 <function called from gdb>.*\#6 add \\(a=2, b=3\\).*\#7 <function called from gdb>.*\#8 main.*" \
437 "backtrace at nested call level 4"
438 gdb_test
"finish" "Value returned is .* = 100" \
439 "Finish from nested call level 4"
440 gdb_test
"backtrace" \
441 "\#0 sum10 \\(i0=2, i1=4, i2=6, i3=8, i4=10, i5=12, i6=14, i7=16, i8=18, i9=20\\).*\#1 <function called from gdb>.*\#2 add \\(a=4, b=5\\).*\#3 <function called from gdb>.*\#4 add \\(a=2, b=3\\).*\#5 <function called from gdb>.*\#6 main.*" \
442 "backtrace after finish from nested call level 4"
443 gdb_test
"finish" "Value returned is .* = 110" \
444 "Finish from nested call level 3"
445 gdb_test
"backtrace" \
446 "\#0 add \\(a=4, b=5\\).*\#1 <function called from gdb>.*\#2 add \\(a=2, b=3\\).*\#3 <function called from gdb>.*\#4 main.*" \
447 "backtrace after finish from nested call level 3"
448 gdb_test
"finish" "Value returned is .* = 9" \
449 "Finish from nested call level 2"
450 gdb_test
"backtrace" \
451 "\#0 add \\(a=2, b=3\\).*\#1 <function called from gdb>.*\#2 main.*" \
452 "backtrace after finish from nested call level 2"
453 gdb_test
"finish" "Value returned is .* = 5" \
454 "Finish from nested call level 1"
455 gdb_test
"backtrace" "\#0 main .*" \
456 "backtrace after finish from nested call level 1"
458 set new_reg_content
[fetch_all_registers \
459 "register contents after nested call dummies"]
460 if {$old_reg_content
== $new_reg_content
} then {
461 pass
"nested call dummies preserve register contents"
463 fail
"nested call dummies preserve register contents"