espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-19 09:14:14 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use gdb_run_cmd

Browse Source
This commit is contained in:
J.T. Conklin
1994-07-20 17:38:05 +00:00
parent 959fea03b5
commit fafc71bab7
1 changed files with 5 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
gdb/testsuite/gdb.base/opaque.exp
View File

@ -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 # 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 # 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_start
} }
gdb_reinitialize_dir $srcdir/$subdir 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 gdb_load $objdir/$subdir/$binfile
# Set breakpoint on main, where struct foo is incomplete. # 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 # Run until break at main. Struct foo is opaque in the file containing
# main(). # main().
send "run\n" gdb_run_cmd
expect { expect {
-re "Starting program:.*Breakpoint 1.*$prompt $" {} -re "Breakpoint 1.*$prompt $" {}
-re ".*$prompt $" { fail "run until main()" } -re ".*$prompt $" { fail "run until main()" }
timeout { fail "(timeout) 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. # have learned reading the symbols during the previous tests.
gdb_reinitialize_dir $srcdir/$subdir 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 gdb_load $objdir/$subdir/$binfile
# Disable the breakoint on main(). # Disable the breakoint on main().
@ -285,9 +277,9 @@ expect {
# Run until break at getfoo(). Struct foo is defined here. # Run until break at getfoo(). Struct foo is defined here.
# Retry all the tests we we tried at main() where struct foo was opaque. # Retry all the tests we we tried at main() where struct foo was opaque.
send "run\n" gdb_run_cmd
expect { expect {
-re "Starting program:.*Breakpoint.*$prompt $" {} -re "Breakpoint.*$prompt $" {}
-re ".*$prompt $" { fail "run until getfoo()" } -re ".*$prompt $" { fail "run until getfoo()" }
timeout { fail "(timeout) 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" } -re ".*$prompt $" { fail "ptype on opaque struct" }
timeout { fail "(timeout) 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
}