449 |
# extract the options and their directory names as know by gcc |
# extract the options and their directory names as know by gcc |
450 |
foreach i "[exec $compiler --print-multi-lib]" { |
foreach i "[exec $compiler --print-multi-lib]" { |
451 |
if {$extra != ""} { |
if {$extra != ""} { |
452 |
# string trimright would do the wrong thing if we included |
# string trimright would do the wrong thing if we included |
453 |
# the leading @@ in $extra |
# the leading @@ in $extra |
454 |
set i [string trimright $i $extra] |
set i [string trimright $i $extra] |
455 |
set i [string trimright $i "@@"] |
set i [string trimright $i "@@"] |
456 |
} |
} |
457 |
set opts "" |
set opts "" |
458 |
set dir "" |
set dir "" |
847 |
lappend flags "additional_flags=[target_info wrap_compile_flags]" |
lappend flags "additional_flags=[target_info wrap_compile_flags]" |
848 |
} |
} |
849 |
if { [target_compile ${libdir}/testglue.c ${gluefile} object $flags] == "" } { |
if { [target_compile ${libdir}/testglue.c ${gluefile} object $flags] == "" } { |
850 |
set gluefile [remote_download host ${gluefile} ${tool}_tg.o] |
set gluefile [remote_download host ${gluefile} ${tool}_tg.o] |
851 |
return [list $gluefile $result] |
return [list $gluefile $result] |
852 |
} else { |
} else { |
853 |
return "" |
return "" |