diff options
| author | Mark Mitchell <mark@codesourcery.com> | 2003-06-09 15:33:36 +0000 |
|---|---|---|
| committer | Mark Mitchell <mmitchel@gcc.gnu.org> | 2003-06-09 15:33:36 +0000 |
| commit | 4293f7cbbe977773709925996cfc4564ceb66ec3 (patch) | |
| tree | c487e5bc71fd623be5a400446005311c5ce7700f | |
| parent | 2859471c39a8a91040b815ff4129d3af2f79977d (diff) | |
| download | gcc-4293f7cbbe977773709925996cfc4564ceb66ec3.zip gcc-4293f7cbbe977773709925996cfc4564ceb66ec3.tar.gz gcc-4293f7cbbe977773709925996cfc4564ceb66ec3.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 6 | ||||
| -rw-r--r-- | gcc/testsuite/lib/target-supports.exp | 2 |
3 files changed, 11 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ab67d75..5ba4d12 100644 --- 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 54fdd6a..aade663 100644 --- 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 0944777..db3700a 100644 --- 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"] |