4 |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
5 |
# the Free Software Foundation; either version 2 of the License, or |
# the Free Software Foundation; either version 2 of the License, or |
6 |
# (at your option) any later version. |
# (at your option) any later version. |
7 |
# |
# |
8 |
# This program is distributed in the hope that it will be useful, |
# This program is distributed in the hope that it will be useful, |
9 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 |
# GNU General Public License for more details. |
# GNU General Public License for more details. |
12 |
# |
# |
13 |
# You should have received a copy of the GNU General Public License |
# You should have received a copy of the GNU General Public License |
14 |
# along with this program; if not, write to the Free Software |
# along with this program; if not, write to the Free Software |
15 |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
16 |
|
|
17 |
# Please email any bugs, comments, and/or additions to this file to: |
# Please email any bugs, comments, and/or additions to this file to: |
18 |
# bug-dejagnu@prep.ai.mit.edu |
# bug-dejagnu@prep.ai.mit.edu |
377 |
|
|
378 |
# |
# |
379 |
# Get the list of directories and -m options for gcc. This is kinda bogus that |
# Get the list of directories and -m options for gcc. This is kinda bogus that |
380 |
# generic testing software needs support for gcc hardwired in, but to make |
# generic testing software needs support for gcc hardwired in, but to make |
381 |
# testing the GNU tools work right, there didn't seem to be any other way. |
# testing the GNU tools work right, there didn't seem to be any other way. |
382 |
# |
# |
383 |
|
|
513 |
|
|
514 |
# extract the MULTILIB_MATCHES from dumpspecs |
# extract the MULTILIB_MATCHES from dumpspecs |
515 |
set multimatches "" |
set multimatches "" |
516 |
set lines [split [exec $compiler -dumpspecs] "\n"] |
set lines [split [exec $compiler -dumpspecs] "\n"] |
517 |
for {set i 0} {$i <= [llength $lines] - 1} {incr i 1} { |
for {set i 0} {$i <= [llength $lines] - 1} {incr i 1} { |
518 |
if {"*multilib_matches:" == "[lindex $lines $i]"} { |
if {"*multilib_matches:" == "[lindex $lines $i]"} { |
519 |
set multimatches [lindex $lines [expr $i + 1]] |
set multimatches [lindex $lines [expr $i + 1]] |
597 |
global tool_root_dir |
global tool_root_dir |
598 |
|
|
599 |
if ![is_remote host] { |
if ![is_remote host] { |
600 |
|
|
601 |
set file [lookfor_file $tool_root_dir $name] |
set file [lookfor_file $tool_root_dir $name] |
602 |
if { $file == "" } { |
if { $file == "" } { |
603 |
set file [lookfor_file $tool_root_dir ${name}-new] |
set file [lookfor_file $tool_root_dir ${name}-new] |
878 |
} |
} |
879 |
} |
} |
880 |
verbose "No winsup support for this target" |
verbose "No winsup support for this target" |
881 |
|
|
882 |
} |
} |
883 |
# |
# |
884 |
# Find the winsup libraries in the current source tree. |
# Find the winsup libraries in the current source tree. |