gcc-dg.exp (dg-require-weak): Fix typo.

	* lib/gcc-dg.exp (dg-require-weak): Fix typo.
	(dg-require-alias): Likewise.
	(dg-require-gc-sections): Likewise.
	* lib/target-supports.exp (check_gc_sections_available): Likewise.

From-SVN: r67665

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ab67d7519d3f8d9451ff27adfd8d07132a8668a3..5ba4d12bfcd2972596eacbd1a944e554c80df2c8 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2003-06-09  Mark Mitchell  <mark@codesourcery.com>
+
+       * lib/gcc-dg.exp (dg-require-weak): Fix typo.
+       (dg-require-alias): Likewise.
+       (dg-require-gc-sections): Likewise.
+       * lib/target-supports.exp (check_gc_sections_available): Likewise.
+
 2003-06-08  Richard Henderson  <rth@redhat.com>
 
        * gcc.dg/20011029-2.c: Fix the array reference.

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 54fdd6abe3c81d4a0486cdabdc7bc3fea334a495..aade663aa7802d75156eeca246b59143ddb4fdf8 100644 (file)
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -262,7 +262,7 @@ proc dg-require-weak { args } {
        unresolved "$name"
     }
     if { $weak_available != 1 } {
-       set dg-do-what [list [lindex $dg_do_what 0] "N" "P"]
+       set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
     }
 }
@@ -279,7 +279,7 @@ proc dg-require-alias { args } {
        unresolved "$name"
     }
     if { $alias_available < 2 } {
-       set dg-do-what [list [lindex $dg-do-what 0] "N" "P"]
+       set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
     }
 }
@@ -290,7 +290,7 @@ proc dg-require-alias { args } {
 proc dg-require-gc-sections { args } {
     if { ![ check_gc_sections_available ] } {
        upvar dg-do-what dg-do-what
-       set dg-do-what [list [lindex $dg-do-what 0] "N" "P"]
+       set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
        return
     }
 }

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 0944777c9d27c4c12ad28ddf0d98574ed7c918a4..db3700a0aff89e4b44cdf2450147b17a90f64411 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -122,7 +122,7 @@ proc check_alias_available { } {
 proc check_gc_sections_available { } {
     global gc_sections_available_saved
 
-    if {![info exists alias_available_saved]} {
+    if {![info exists gc_sections_available_saved]} {
        # Check if the ld used by gcc supports --gc-sections.
        set gcc_ld [lindex [gcc_target_compile "-print-prog-name=ld" "" "none" ""] 0]
        set ld_output [remote_exec host "$gcc_ld" "--help"]