diff options
| author | J.T. Conklin <jtc@acorntoolworks.com> | 1994-07-20 17:38:05 +0000 |
|---|---|---|
| committer | J.T. Conklin <jtc@acorntoolworks.com> | 1994-07-20 17:38:05 +0000 |
| commit | fafc71bab73f4f60d3b3b108817c7cd9aed2f360 (patch) | |
| tree | d15219a10b195b1368d28e4c6c1c17b5f782cd7f /gdb/testsuite/gdb.base | |
| parent | 959fea03b51d7106fe2fa8362c9e74d4085927fb (diff) | |
| download | gdb-fafc71bab73f4f60d3b3b108817c7cd9aed2f360.zip gdb-fafc71bab73f4f60d3b3b108817c7cd9aed2f360.tar.gz gdb-fafc71bab73f4f60d3b3b108817c7cd9aed2f360.tar.bz2 | |
Use gdb_run_cmd
Diffstat (limited to 'gdb/testsuite/gdb.base')
| -rw-r--r-- | gdb/testsuite/gdb.base/opaque.exp | 23 |
1 files changed, 5 insertions, 18 deletions
diff --git a/gdb/testsuite/gdb.base/opaque.exp b/gdb/testsuite/gdb.base/opaque.exp index 544023d..3ba955e 100644 --- a/gdb/testsuite/gdb.base/opaque.exp +++ b/gdb/testsuite/gdb.base/opaque.exp @@ -1,4 +1,4 @@ -# Copyright (C) 1992 Free Software Foundation, Inc. +# Copyright (C) 1992, 1994 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -156,10 +156,6 @@ if [istarget "mips-idt-*"] then { gdb_start } gdb_reinitialize_dir $srcdir/$subdir -if [istarget "a29k-*-udi"] then { - # FIXME: If PR 2415 is fixed, this is not needed. - gdb_target_udi -} gdb_load $objdir/$subdir/$binfile # Set breakpoint on main, where struct foo is incomplete. @@ -175,9 +171,9 @@ expect { # Run until break at main. Struct foo is opaque in the file containing # main(). -send "run\n" +gdb_run_cmd expect { - -re "Starting program:.*Breakpoint 1.*$prompt $" {} + -re "Breakpoint 1.*$prompt $" {} -re ".*$prompt $" { fail "run until main()" } timeout { fail "(timeout) run until main()" } } @@ -258,10 +254,6 @@ $prompt $" { pass "ptype on opaque struct tagname (dynamically)" } # have learned reading the symbols during the previous tests. gdb_reinitialize_dir $srcdir/$subdir -if [istarget "a29k-*-udi"] then { - # FIXME: If PR 2415 is fixed, this is not needed. - gdb_target_udi -} gdb_load $objdir/$subdir/$binfile # Disable the breakoint on main(). @@ -285,9 +277,9 @@ expect { # Run until break at getfoo(). Struct foo is defined here. # Retry all the tests we we tried at main() where struct foo was opaque. -send "run\n" +gdb_run_cmd expect { - -re "Starting program:.*Breakpoint.*$prompt $" {} + -re "Breakpoint.*$prompt $" {} -re ".*$prompt $" { fail "run until getfoo()" } timeout { fail "(timeout) run until getfoo()" } } @@ -360,8 +352,3 @@ $prompt $" { pass "ptype on opaque struct tagname (dynamically)" } -re ".*$prompt $" { fail "ptype on opaque struct" } timeout { fail "(timeout) ptype on opaque struct" } } - -if [istarget "a29k-*-udi"] then { - # FIXME: If PR 2415 is fixed, this is not needed. - gdb_target_udi -} |