|
|
|
@ -162,7 +162,6 @@ proc float_and_integral_args {} { |
|
|
|
global gdb_prompt |
|
|
|
global det_file |
|
|
|
global gcc_compiled |
|
|
|
global hp_cc_compiler |
|
|
|
|
|
|
|
delete_breakpoints |
|
|
|
|
|
|
|
@ -178,8 +177,6 @@ proc float_and_integral_args {} { |
|
|
|
# Run; should stop at call2a and print actual arguments. |
|
|
|
|
|
|
|
if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "mips-sgi-irix5*" } |
|
|
|
# The debug info. for "f" is not correct. It's a known bug. |
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
gdb_run_cmd |
|
|
|
gdb_expect { |
|
|
|
-re ".* call2a \\(c=97 'a', f1=4, s=1, d1=5, i=2, f2=4, l=3, d2=5\\) .*$gdb_prompt $" { pass "run to call2a" } |
|
|
|
@ -190,55 +187,46 @@ proc float_and_integral_args {} { |
|
|
|
|
|
|
|
# Print each arg as a double check to see if we can print |
|
|
|
gdb_test "print c" ".* = 97 'a'" "print c after run to call2a" |
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
gdb_test "print f1" ".* = 4" "print f1 after run to call2a" |
|
|
|
gdb_test "print s" ".* = 1" "print s after run to call2a" |
|
|
|
gdb_test "print d1" ".* = 5" "print d1 after run to call2a" |
|
|
|
gdb_test "print i" ".* = 2" "print i after run to call2a" |
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
gdb_test "print f2" ".* = 4" "print f2 after run to call2a" |
|
|
|
gdb_test "print l" ".* = 3" "print l after run to call2a" |
|
|
|
gdb_test "print d2" ".* = 5" "print d2 after run to call2a" |
|
|
|
|
|
|
|
setup_xfail "rs6000-*-*" |
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix*" } |
|
|
|
# Continue; should stop at call2b and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2b \\(f1=4, s=1, d1=5, i=2, f2=4, l=3, d2=5, c=97 'a'\\) .*" "continue to call2b"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
} |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
# Continue; should stop at call2c and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2c \\(s=1, d1=5, i=2, f2=4, l=3, d2=5, c=97 'a', f1=4\\) .*" "continue to call2c"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
} |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
# Continue; should stop at call2d and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2d \\(d1=5, i=2, f2=4, l=3, d2=5, c=97 'a', f1=4, s=1\\) .*" "continue to call2d"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
} |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
# Continue; should stop at call2e and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2e \\(i=2, f2=4, l=3, d2=5, c=97 'a', f1=4, s=1, d1=5\\) .*" "continue to call2e"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
} |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
# Continue; should stop at call2f and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2f \\(f2=4, l=3, d2=5, c=97 'a', f1=4, s=1, d1=5, i=2\\) .*" "continue to call2f"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
} |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
# Continue; should stop at call2g and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2g \\(l=3, d2=5, c=97 'a', f1=4, s=1, d1=5, i=2, f2=4\\) .*" "continue to call2g"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
} |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
# Continue; should stop at call2h and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2h \\(d2=5, c=97 'a', f1=4, s=1, d1=5, i=2, f2=4, l=3\\) .*" "continue to call2h"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
@ -249,7 +237,6 @@ proc float_and_integral_args {} { |
|
|
|
delete_breakpoints |
|
|
|
gdb_breakpoint call2i |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
# Continue; should stop at call2i and print actual arguments. |
|
|
|
if [gdb_test "cont" ".* call2i \\(c1=97 'a', f1=4, c2=97 'a', c3=97 'a', d1=5, c4=97 'a', c5=97 'a', c6=97 'a', f2=4, s=1, c7=97 'a', d2=5\\) .*" "continue to call2i"] { |
|
|
|
gdb_suppress_tests; |
|
|
|
@ -445,7 +432,6 @@ proc discard_and_shuffle {} { |
|
|
|
global decimal |
|
|
|
global det_file |
|
|
|
global gcc_compiled |
|
|
|
global hp_cc_compiler |
|
|
|
|
|
|
|
delete_breakpoints |
|
|
|
|
|
|
|
@ -474,8 +460,6 @@ proc discard_and_shuffle {} { |
|
|
|
setup_xfail "mips-sgi-irix5*" |
|
|
|
} |
|
|
|
|
|
|
|
# The debug info. for "f" is not correct. It's a known bug. |
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
gdb_expect { |
|
|
|
-re "backtrace 100\[\r\n\]+ |
|
|
|
@ -505,7 +489,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6b |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6b" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) " |
|
|
|
@ -520,7 +503,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6c |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6c" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) " |
|
|
|
@ -535,7 +517,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6d |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6d" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) " |
|
|
|
@ -552,7 +533,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6e |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6e" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) " |
|
|
|
@ -570,7 +550,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6f |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6f" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) " |
|
|
|
@ -589,7 +568,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6g |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6g" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) " |
|
|
|
@ -609,7 +587,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6h |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6h" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6h \\(us=6, ui=7, ul=8\\) " |
|
|
|
@ -637,7 +614,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6i |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6i" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6i \\(ui=7, ul=8\\) " |
|
|
|
@ -659,7 +635,6 @@ $gdb_prompt $" { |
|
|
|
|
|
|
|
gdb_continue call6j |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6j" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6j \\(ul=8\\) " |
|
|
|
@ -681,7 +656,6 @@ $gdb_prompt $" { |
|
|
|
# Print backtrace. |
|
|
|
gdb_continue call6k |
|
|
|
|
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
if [gdb_expect_list "backtrace from call6k" ".*$gdb_prompt $" { |
|
|
|
".*\[\r\n\]#0 .* call6k \\(\\) " |
|
|
|
@ -713,7 +687,6 @@ proc shuffle_round_robin {} { |
|
|
|
global decimal |
|
|
|
global det_file |
|
|
|
global gcc_compiled |
|
|
|
global hp_cc_compiler |
|
|
|
|
|
|
|
delete_breakpoints |
|
|
|
|
|
|
|
@ -739,8 +712,6 @@ proc shuffle_round_robin {} { |
|
|
|
} |
|
|
|
|
|
|
|
if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "mips-sgi-irix5*" } |
|
|
|
# The debug info. for "f" is not correct. It's a known bug. |
|
|
|
if {$hp_cc_compiler} {setup_xfail hppa2.0w-*-*} |
|
|
|
send_gdb "backtrace 100\n" |
|
|
|
gdb_expect { |
|
|
|
-re "backtrace 100\[\r\n\]+ |
|
|
|
|