1 # Copyright
1993, 1994, 1995, 1997, 1999, 2001, 2002, 2004, 2005, 2007, 2009
2 # Free Software Foundation
, Inc.
4 # This
program is free software
; you can redistribute it and
/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation
; either version
3 of the License
, or
7 #
(at your option
) any later version.
9 # This
program is distributed in the hope that it will be useful
,
10 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License
for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this
program; if not
, write to the Free Software
16 # Foundation
, Inc.
, 51 Franklin Street
- Fifth Floor
, Boston
, MA
02110-1301, USA.
18 # Please email
any bugs
, comments
, and
/or additions to this file to
:
19 # bug
-dejagnu@prep.ai.mit.edu
21 # This file was written by Rob Savoye.
(rob@cygnus.com
)
23 load_lib utils
-lib.exp
25 if ![info exists NM
] then {
26 set NM
[findfile $base_dir
/nm
-new $base_dir
/nm
-new
[transform nm
]]
28 if ![info exists NMFLAGS
] then {
31 if ![info exists SIZE
] then {
32 set SIZE
[findfile $base_dir
/size
]
34 if ![info exists SIZEFLAGS
] then {
37 if ![info exists OBJDUMP
] then {
38 set OBJDUMP
[findfile $base_dir
/objdump
]
40 if ![info exists OBJDUMPFLAGS
] then {
43 if ![info exists OBJCOPY
] then {
44 set OBJCOPY
[findfile $base_dir
/objcopy
]
46 if ![info exists OBJCOPYFLAGS
] then {
49 if ![info exists AR
] then {
50 set AR
[findfile $base_dir
/ar
]
52 if ![info exists STRIP] then {
53 set STRIP [findfile $base_dir
/strip-new $base_dir
/strip-new
[transform
strip]]
55 if ![info exists STRIPFLAGS
] then {
58 if ![info exists READELF
] then {
59 set READELF
[findfile $base_dir
/readelf
]
61 if ![info exists READELFFLAGS
] then {
64 if ![info exists ELFEDIT
] then {
65 set ELFEDIT
[findfile $base_dir
/elfedit
]
67 if ![info exists ELFEDITFLAGS
] then {
70 if ![info exists WINDRES
] then {
71 set WINDRES
[findfile $base_dir
/windres
]
73 if ![info exists DLLTOOL
] then {
74 set DLLTOOL
[findfile $base_dir
/dlltool
]
77 if ![file isdirectory tmpdir
] {catch
"exec mkdir tmpdir" status}
79 # Make a copy from tmpdir
/gas
/as and tmpdir
/gas
/ld to the assembler
80 # and linker in the build tree
, so that we can use a
-B option to gcc
81 # to force it to use the newly built assembler
/linker.
82 if {![file isdirectory tmpdir
/gas
]} {catch
"exec mkdir tmpdir/gas" status}
84 proc link_or_copy
{ src dst
} {
85 if ![catch
"exec ln -sf ../../../$src tmpdir/gas/$dst" status] then {return 0}
86 if ![catch
"exec ln -f ../$src tmpdir/gas/$dst" status] then {return 0}
87 catch
"exec cp -fpu ../$src tmpdir/gas/$dst" status
90 if {[file isfile gas
/as
-new
[exe_ext
]]} then {
91 link_or_copy gas
/as
-new
[exe_ext
] as
[exe_ext
]
93 #
For non
-Windows hosts there may be an executable
94 # without a .exe suffix
, so try copying that instead.
95 link_or_copy gas
/as
-new as
[exe_ext
]
97 # This may not be needed
any more...
98 if {[file isfile
ld/ld-new
[exe_ext
]]} then {
99 link_or_copy
ld/ld-new
[exe_ext
] ld[exe_ext
]
101 link_or_copy
ld/ld-new
ld[exe_ext
]
103 if {[file isfile tmpdir
/gas
/as
[exe_ext
]]} then {
104 set gcc_gas_flag
"-B[pwd]/tmpdir/gas/"
105 set dlltool_gas_flag
"-S [pwd]/tmpdir/gas/as[exe_ext]"
107 # Testing an installed toolchain.
109 set dlltool_gas_flag
""
114 # run a
program, returning the output
115 # sets binutils_run_failed
if the
program does not exist
117 proc binutils_run
{ prog progargs
} {
118 default_binutils_run $prog $progargs
125 proc binutils_assemble
{ source object
} {
126 default_binutils_assemble_flags $source $object
""
130 # binutils_assemble_flags
133 proc binutils_assemble_flags
{ source object asflags
} {
134 default_binutils_assemble_flags $source $object $asflags