OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

2010-11-29 Michael Snyder <msnyder@msnyder-server.eng.vmware.com> 

* gdb.base/callfuncs.exp: Test for skip_float_tests.
	* gdb.base/call-sc.exp: Ditto.
	* gdb.base/finish.exp: Ditto.
	* gdb.base/return.exp: Ditto.
	* gdb.base/return2.exp: Ditto.
This commit is contained in:
Michael Snyder 2010-12-02 21:34:14 +00:00
parent d03a3acf07
commit d426f7b419
6 changed files with 43 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2010-11-29 Michael Snyder <msnyder@msnyder-server.eng.vmware.com>
* gdb.base/callfuncs.exp: Test for skip_float_tests.
* gdb.base/call-sc.exp: Ditto.
* gdb.base/finish.exp: Ditto.
* gdb.base/return.exp: Ditto.
* gdb.base/return2.exp: Ditto.
2010-11-30 Doug Evans <dje@google.com>
* lib/gdb.exp (gdb_test_sequence): Return result of gdb_expect_list.

26
gdb/testsuite/gdb.base/call-sc.exp
View File

@ -440,20 +440,22 @@ start_scalars_test tll
test_scalar_calls
test_scalar_returns
# Approx size: 4, 8, ...
start_scalars_test tf
test_scalar_calls
test_scalar_returns
if ![target_info exists gdb,skip_float_tests] {
# Approx size: 4, 8, ...
start_scalars_test tf
test_scalar_calls
test_scalar_returns
# Approx size: 8, 16, ...
start_scalars_test td
test_scalar_calls
test_scalar_returns
# Approx size: 8, 16, ...
start_scalars_test td
test_scalar_calls
test_scalar_returns
# Approx size: 16, 32, ...
start_scalars_test tld
test_scalar_calls
test_scalar_returns
# Approx size: 16, 32, ...
start_scalars_test tld
test_scalar_calls
test_scalar_returns
}
# Approx size: 4, 8, ...
start_scalars_test te

12
gdb/testsuite/gdb.base/callfuncs.exp
View File

@ -209,10 +209,14 @@ proc do_function_calls {} {
"call inferior func with struct - returns int"
gdb_test "p t_structs_l(struct_val1)" "= 51" \
"call inferior func with struct - returns long"
gdb_test "p t_structs_f(struct_val1)" "= 2.12.*" \
"call inferior func with struct - returns float"
gdb_test "p t_structs_d(struct_val1)" "= 9.87.*" \
"call inferior func with struct - returns double"
if ![target_info exists gdb,skip_float_tests] {
gdb_test "p t_structs_f(struct_val1)" "= 2.12.*" \
"call inferior func with struct - returns float"
gdb_test "p t_structs_d(struct_val1)" "= 9.87.*" \
"call inferior func with struct - returns double"
}
gdb_test "p t_structs_a(struct_val1)" "= (.unsigned char .. )?\"foo\"" \
"call inferior func with struct - returns char *"
}

6
gdb/testsuite/gdb.base/finish.exp
View File

@ -103,8 +103,10 @@ proc finish_tests { } {
finish_1 "int"
finish_1 "long"
finish_1 "long_long"
finish_1 "float"
finish_1 "double"
if ![target_info exists gdb,skip_float_tests] {
finish_1 "float"
finish_1 "double"
}
finish_abbreviation "fin"
}

5
gdb/testsuite/gdb.base/return.exp
View File

@ -89,7 +89,10 @@ proc return_tests { } {
# is not xfailed.
setup_xfail "sparc-*-solaris2.3*" "sparc-*-solaris2.4*" "m6811-*-*"
gdb_test "p tmp3" ".* = 5.*" "correct value returned double test (known problem with sparc solaris)"
if ![target_info exists gdb,skip_float_tests] {
gdb_test "p tmp3" ".* = 5.*" \
"correct value returned double test (known problem with sparc solaris)"
}
}
set prev_timeout $timeout

8
gdb/testsuite/gdb.base/return2.exp
View File

@ -98,9 +98,11 @@ proc return2_tests { } {
if { ! [istarget "m6811-*-*"] && ![istarget "h8300*-*"] } then {
return_1 "long_long"
}
return_1 "float"
if { ! [istarget "m6811-*-*"] } then {
return_1 "double"
if ![target_info exists gdb,skip_float_tests] {
return_1 "float"
if { ! [istarget "m6811-*-*"] } then {
return_1 "double"
}
}
}