diff options
Diffstat (limited to 'binutils/testsuite/lib/binutils-common.exp')
| -rw-r--r-- | binutils/testsuite/lib/binutils-common.exp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/binutils/testsuite/lib/binutils-common.exp b/binutils/testsuite/lib/binutils-common.exp index 48f1420..e6d9f40 100644 --- a/binutils/testsuite/lib/binutils-common.exp +++ b/binutils/testsuite/lib/binutils-common.exp @@ -127,6 +127,17 @@ proc is_elf64 { binary_file } { return 0 } +# True if the target matches TARGET, specified as a TCL procedure if +# in square brackets or as machine triplet otherwise. +# +proc match_target { target } { + if [string match {\[*\]} $target] { + return $target + } else { + return [istarget $target] + } +} + # True if the ELF target supports STB_GNU_UNIQUE with the ELF header's # OSABI field set to ELFOSABI_GNU. # |