From 40ac16240a6232f31d8b29278a610cee3b6a35cf Mon Sep 17 00:00:00 2001 From: Bob Manson Date: Mon, 24 Feb 1997 05:43:35 +0000 Subject: * config/vr4300.exp: New file. * gdb.*/*.exp: Call gdb_expect instead of expect. * lib/gdb.exp(gdb_expect): New function. --- gdb/testsuite/gdb.base/structs.exp | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'gdb/testsuite/gdb.base/structs.exp') diff --git a/gdb/testsuite/gdb.base/structs.exp b/gdb/testsuite/gdb.base/structs.exp index 76e4b05..3424278 100644 --- a/gdb/testsuite/gdb.base/structs.exp +++ b/gdb/testsuite/gdb.base/structs.exp @@ -100,28 +100,21 @@ proc do_function_calls {} { # Now print the L* variables and examine their values. gdb_test "p L1" " = {a = 49 '1'}" - setup_xfail "mn10200*-*-*" gdb_test "p L2" " = {a = 97 'a', b = 98 'b'}" - setup_xfail "mn10200*-*-*" gdb_test "p L3" " = {a = 65 'A', b = 66 'B', c = 67 'C'}" - setup_xfail "mn10200*-*-*" gdb_test "p L4" " = {a = 49 '1', b = 50 '2', c = 51 '3', d = 52 '4'}" if {$gcc_compiled} then { setup_xfail "hppa*-*-*" } - setup_xfail "mn10200*-*-*" gdb_test "p L5" " = {a = 97 'a', b = 98 'b', c = 99 'c', d = 100 'd', e = 101 'e'}" if {$gcc_compiled} then { setup_xfail "hppa*-*-*" } - setup_xfail "mn10200*-*-*" gdb_test "p L6" " = {a = 65 'A', b = 66 'B', c = 67 'C', d = 68 'D', e = 69 'E', f = 70 'F'}" if {$gcc_compiled} then { setup_xfail "hppa*-*-*" } - setup_xfail "mn10200*-*-*" gdb_test "p L7" " = {a = 49 '1', b = 50 '2', c = 51 '3', d = 52 '4', e = 53 '5', f = 54 '6', g = 55 '7'}" - setup_xfail "mn10200*-*-*" gdb_test "p L8" " = {a = 49 '1', b = 50 '2', c = 51 '3', d = 52 '4', e = 53 '5', f = 54 '6', g = 55 '7', h = 56 '8'}" gdb_test "p L9" " = {a = 97 'a', b = 98 'b', c = 99 'c', d = 100 'd', e = 101 'e', f = 102 'f', g = 103 'g', h = 104 'h', i = 105 'i'}" gdb_test "p L10" " = {a = 65 'A', b = 66 'B', c = 67 'C', d = 68 'D', e = 69 'E', f = 70 'F', g = 71 'G', h = 72 'H', i = 73 'I', j = 74 'J'}" @@ -136,9 +129,9 @@ gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} -send_gdb "set print sevenbit-strings\n" ; expect -re "$gdb_prompt $" -send_gdb "set print address off\n" ; expect -re "$gdb_prompt $" -send_gdb "set width 0\n" ; expect -re "$gdb_prompt $" +send_gdb "set print sevenbit-strings\n" ; gdb_expect -re "$gdb_prompt $" +send_gdb "set print address off\n" ; gdb_expect -re "$gdb_prompt $" +send_gdb "set width 0\n" ; gdb_expect -re "$gdb_prompt $" if [target_info exists gdb,cannot_call_functions] { setup_xfail "*-*-*" 2416 -- cgit v1.1