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
This commit is contained in:
parent
2859471c39
commit
4293f7cbbe
@ -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.
|
||||
|
@ -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
|
||||
}
|
||||
}
|
||||
|
@ -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"]
|
||||
|
Loading…
x
Reference in New Issue
Block a user