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

* lib/gdb.exp (test_xfail_format): Simplify.

Browse Source 
* lib/gdb.exp (setup_xfail_format): Don't forget to put a `$' in
front of the variable name `format'.  Simplify `if'.
This commit is contained in:
Jim Blandy
2001-10-02 19:42:10 +00:00
parent ea04a8f6ec
commit 838ae6c473
2 changed files with 21 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2001-10-02 Jim Blandy <jimb@redhat.com>
* lib/gdb.exp (test_xfail_format): Simplify.
* lib/gdb.exp (setup_xfail_format): Don't forget to put a `$' in
front of the variable name `format'. Simplify `if'.
2001-10-01 Daniel Jacobowitz <drow@mvista.com> 2001-10-01 Daniel Jacobowitz <drow@mvista.com>
* gdb.threads/pthreads.exp: Wait for output and delay * gdb.threads/pthreads.exp: Wait for output and delay

26
gdb/testsuite/lib/gdb.exp
View File

@ -1417,26 +1417,28 @@ proc get_debug_format { } {
} }
} }
# Return true if FORMAT matches the debug format the current test was
# compiled with. FORMAT is a shell-style globbing pattern; it can use
# `*', `[...]', and so on.
#
# This function depends on variables set by `get_debug_format', above.
proc test_debug_format {format} {
global debug_format
return [expr [string match $format $debug_format] != 0]
}
# Like setup_xfail, but takes the name of a debug format (DWARF 1, # Like setup_xfail, but takes the name of a debug format (DWARF 1,
# COFF, stabs, etc). If that format matches the format that the # COFF, stabs, etc). If that format matches the format that the
# current test was compiled with, then the next test is expected to # current test was compiled with, then the next test is expected to
# fail for any target. Returns 1 if the next test or set of tests is # fail for any target. Returns 1 if the next test or set of tests is
# expected to fail, 0 otherwise (or if it is unknown). Must have # expected to fail, 0 otherwise (or if it is unknown). Must have
# previously called get_debug_format. # previously called get_debug_format.
proc test_debug_format { format } {
global debug_format
if [string match $debug_format $format] then {
return 1;
}
return 0
}
proc setup_xfail_format { format } { proc setup_xfail_format { format } {
set ret [test_debug_format format]; set ret [test_debug_format $format];
if [expr $ret != 0] then { if {$ret} then {
setup_xfail "*-*-*" setup_xfail "*-*-*"
} }
return $ret; return $ret;