tcl global directive outside proc body does nothing (gas)

* testsuite/config/default.exp: Remove global directive outside
	proc body.
	* testsuite/gas/mep/complex-relocs.exp: Likewise.
	* testsuite/gas/microblaze/relax_size.exp: Likewise.
	* testsuite/gas/microblaze/reloc_sym.exp: Likewise.
	* testsuite/gas/mt/relocs.exp: Likewise.
	* testsuite/gas/rx/rx.exp: Likewise.
This commit is contained in:
Alan Modra 2020-06-04 16:00:46 +09:30
parent 0a4f37af5c
commit 1cf67587a0
7 changed files with 10 additions and 7 deletions

View File

@ -1,3 +1,13 @@
2020-06-04 Alan Modra <amodra@gmail.com>
* testsuite/config/default.exp: Remove global directive outside
proc body.
* testsuite/gas/mep/complex-relocs.exp: Likewise.
* testsuite/gas/microblaze/relax_size.exp: Likewise.
* testsuite/gas/microblaze/reloc_sym.exp: Likewise.
* testsuite/gas/mt/relocs.exp: Likewise.
* testsuite/gas/rx/rx.exp: Likewise.
2020-06-03 Stephen Casner <casner@acm.org>
* doc/c-riscv.texi (RISC-V-Options): Fix non-ASCII apostrophe.

View File

@ -16,12 +16,10 @@
load_lib gas-defs.exp
global AS
if ![info exists AS] then {
set AS [findfile $base_dir/../as-new "../as-new" [transform as]]
}
global ASFLAGS
if ![info exists ASFLAGS] then {
set ASFLAGS ""
}

View File

@ -38,7 +38,6 @@ proc regexp_test { file1 file2 test } {
}
global srcdir subdir
if [istarget mep*-*-*] {
# test that complex relocs between files work, generally

View File

@ -13,7 +13,6 @@ proc regexp_test { file1 file2 test } {
if [regexp_diff $file1 $file2] then { fail $test } else { pass $test }
}
global srcdir subdir
if [istarget microblaze*-*-elf] {
foreach file [lsort [glob -nocomplain -- $srcdir/$subdir/relax_size*.s]] {
set file [file rootname [file tail $file]]

View File

@ -33,7 +33,6 @@ proc regexp_test { file1 file2 test } {
}
global srcdir subdir
if [istarget microblaze*-*-*] {
gas_test "reloc_strongsym.s" {-o reloc_strongsym.o} {} {assembling reloc_strongsym}
gas_test "reloc_weaksym.s" {-o reloc_weaksym.o} {} {assembling reloc_weaksym}

View File

@ -35,7 +35,6 @@ proc regexp_test { file1 file2 test } {
}
global srcdir subdir
if [istarget mt-*] {
gas_test "relocs1.s" {-o relocs1.o} {} {assembling relocs1}

View File

@ -21,7 +21,6 @@ if { ! [istarget rx-*-*] } {
return
}
global ASFLAGS
set ASFLAGS "--mcpu=rxv3-dfpu"
foreach test [lsort [glob $srcdir/$subdir/*.sm]] {