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.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 210017b491d52c65e13725518522b31635316b4b..6484c62d308eba1392933d44b36c8e9924386ae6 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -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.

diff --git a/gas/testsuite/config/default.exp b/gas/testsuite/config/default.exp
index f8e49d89aac0c9e1724806da670425afe9d4473f..4a2a5437531543a4c7f99e7a22771ead9501cad7 100644 (file)
--- a/gas/testsuite/config/default.exp
+++ b/gas/testsuite/config/default.exp
@@ -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 ""
 }

diff --git a/gas/testsuite/gas/mep/complex-relocs.exp b/gas/testsuite/gas/mep/complex-relocs.exp
index 7eb9473599b43ebbee2db29913735a6487e140c8..081231174d7a52af42829f93f78a75e60fb58080 100644 (file)
--- a/gas/testsuite/gas/mep/complex-relocs.exp
+++ b/gas/testsuite/gas/mep/complex-relocs.exp
@@ -38,7 +38,6 @@ proc regexp_test { file1 file2 test } {
 }
 
 
-global srcdir subdir
 if [istarget mep*-*-*] {
 
     # test that complex relocs between files work, generally

diff --git a/gas/testsuite/gas/microblaze/relax_size.exp b/gas/testsuite/gas/microblaze/relax_size.exp
index a733dc851ad2f8084dca4daacf581228df742617..6aace5374517078ece56f73caff6295e8174a0ed 100644 (file)
--- a/gas/testsuite/gas/microblaze/relax_size.exp
+++ b/gas/testsuite/gas/microblaze/relax_size.exp
@@ -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]]

diff --git a/gas/testsuite/gas/microblaze/reloc_sym.exp b/gas/testsuite/gas/microblaze/reloc_sym.exp
index 4fe96ff7ef27b69fc849daa6b8a48395de9c33a8..ee07f56259dd121c2aff47628ffd2ddfe9580ab5 100644 (file)
--- a/gas/testsuite/gas/microblaze/reloc_sym.exp
+++ b/gas/testsuite/gas/microblaze/reloc_sym.exp
@@ -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}

diff --git a/gas/testsuite/gas/mt/relocs.exp b/gas/testsuite/gas/mt/relocs.exp
index 2c650f43aacc9b36d01d2655977077ac1f7843fb..0e200bea694232ff40915d1e624722c4838a87b0 100644 (file)
--- a/gas/testsuite/gas/mt/relocs.exp
+++ b/gas/testsuite/gas/mt/relocs.exp
@@ -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}
 

diff --git a/gas/testsuite/gas/rx/rx.exp b/gas/testsuite/gas/rx/rx.exp
index f9e4db4a66d26989d02af5e2dd9e1b76e0464187..8f5d510dde1443df5a3bbed10df67cf0706589c3 100644 (file)
--- a/gas/testsuite/gas/rx/rx.exp
+++ b/gas/testsuite/gas/rx/rx.exp
@@ -21,7 +21,6 @@ if { ! [istarget rx-*-*] } {
     return
 }
 
-global ASFLAGS
 set ASFLAGS "--mcpu=rxv3-dfpu"
 
 foreach test [lsort [glob $srcdir/$subdir/*.sm]] {