]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - binutils/testsuite/binutils-all/i386/i386.exp
tcl global directive outside proc body does nothing (binutils)
[thirdparty/binutils-gdb.git] / binutils / testsuite / binutils-all / i386 / i386.exp
1 # Copyright (C) 2010-2020 Free Software Foundation, Inc.
2
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
7 #
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
12 #
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
16
17 if {!([istarget "i*86-*-linux*"]
18 || [istarget "i*86-*-gnu*"]
19 || [istarget "i*86-*-nacl*"]
20 || [istarget "x86_64-*-linux*"]
21 || [istarget "x86_64-*-nacl*"])
22 || ![is_elf_format]
23 || [is_remote host]} then {
24 return
25 }
26
27 set tempfile tmpdir/i386temp.o
28 set copyfile tmpdir/i386copy
29
30 set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
31 foreach t $test_list {
32 # We need to strip the ".d", but can leave the dirname.
33 verbose [file rootname $t]
34 run_dump_test [file rootname $t]
35 }