1# Basic expect script for LD Regression Tests 2# Copyright 1993, 1994, 1995, 1997, 1998, 1999 3# Free Software Foundation, Inc. 4# 5# This file is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 2 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program; if not, write to the Free Software 17# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 18# 19# Written by Jeffrey Wheat (cassidy@cygnus.com) 20# 21 22if ![info exists ld] then { 23 set ld [findfile $base_dir/ld-new $base_dir/ld-new [transform ld]] 24} 25 26if ![info exists as] then { 27 set as [findfile $base_dir/../gas/as-new $base_dir/../gas/as-new [transform as]] 28} 29 30if ![info exists nm] then { 31 set nm [findfile $base_dir/../binutils/nm-new $base_dir/../binutils/nm-new [transform nm]] 32} 33 34if ![info exists objdump] then { 35 set objdump [findfile $base_dir/../binutils/objdump] 36} 37 38if ![info exists objcopy] then { 39 set objcopy [findfile $base_dir/../binutils/objcopy] 40} 41 42if ![info exists ar] then { 43 set ar [findfile $base_dir/../binutils/ar] 44} 45 46if ![info exists strip] then { 47 set strip [findfile $base_dir/../binutils/strip-new $base_dir/../binutils/strip-new [transform strip]] 48} 49 50if {![file isdirectory tmpdir]} then { 51 catch "exec mkdir tmpdir" status 52} 53 54# Make a symlink from tmpdir/as to the assembler in the build tree, so 55# that we can use a -B option to gcc to force it to use the newly 56# built assembler. 57if {![file isdirectory tmpdir/gas]} then { 58 catch "exec mkdir tmpdir/gas" status 59 catch "exec ln -s ../../../gas/as-new tmpdir/gas/as" status 60} 61set gcc_gas_flag "-B[pwd]/tmpdir/gas/" 62 63# Make a symlink from tmpdir/ld to the linker in the build tree, so 64# that we can use a -B option to gcc to force it to use the newly 65# built linker. 66if {![file isdirectory tmpdir/ld]} then { 67 catch "exec mkdir tmpdir/ld" status 68 catch "exec ln -s ../../ld-new tmpdir/ld/ld" status 69} 70set gcc_ld_flag "-B[pwd]/tmpdir/ld/" 71 72# load the linker path 73load_lib tmpdir/libpath.exp 74 75foreach dir $libpath { 76 set gcc_ld_flag "$gcc_ld_flag -L$dir" 77} 78 79# The mips64-*-linux-gnu compiler defaults to the N32 ABI after 80# installed, but to the O32 ABI in the build tree, because of some 81# specs-file hacks. Make sure we use an ABI that is compatible with 82# the one we expect. 83if {[istarget mips64*-*-linux*] && 84 (![board_info [target_info name] exists multilib_flags] || 85 ![string match "*-mabi" [board_info [target_info name] multilib_flags]]) 86 } { 87 append gcc_gas_flag " -mabi=n32" 88} 89 90# load the utility procedures 91load_lib ld-lib.exp 92 93proc get_link_files {varname} { 94 global $varname 95 global target_triplet 96 global srcdir 97 global CC 98 if ![info exists $varname] { 99 set status [catch "exec sh -c \"host='$target_triplet' && CC='$CC' && . $srcdir/../configure.host && eval echo \\$$varname\"" result] 100 if $status { error "Error getting native link files: $result" } 101 set $varname $result 102 } 103} 104 105proc get_target_emul {} { 106 global target_triplet 107 global srcdir 108 set status [catch "exec sh -c \"targ='$target_triplet' && . $srcdir/../configure.tgt && echo \\\$targ_emul\"" result] 109 if $status { error "Error getting emulation name: $result" } 110 return $result 111} 112 113if [isnative] { 114 foreach x {HOSTING_CRT0 HOSTING_LIBS} { 115 get_link_files $x 116 } 117} else { 118 foreach x {HOSTING_CRT0 HOSTING_LIBS} { set $x "" } 119} 120if ![info exists HOSTING_EMU] { set HOSTING_EMU "-m [get_target_emul]" } 121 122# 123# ld_version -- extract and print the version number of ld compiler (GCC) 124# 125proc ld_version {} { 126 global ld 127 default_ld_version $ld 128} 129 130# 131# ld_exit -- just a stub for ld 132# 133proc ld_exit {} { 134} 135 136# 137# ld_start 138# relink the linker 139# 140proc ld_start { ld target } { 141 # 142} 143 144# 145# ld_relocate 146# link an object using relocation 147# 148proc ld_relocate { ld target objects } { 149 default_ld_relocate $ld $target $objects 150} 151 152# 153# ld_link 154# link a program using ld 155# 156proc ld_link { ld target objects } { 157 default_ld_link $ld $target $objects 158} 159 160# 161# ld_simple_link 162# link a program using ld, without including any libraries 163# 164proc ld_simple_link { ld target objects } { 165 default_ld_simple_link $ld $target $objects 166} 167 168# 169# ld_compile 170# compile an object using $cc 171# 172proc ld_compile { cc source object } { 173 default_ld_compile $cc $source $object 174} 175 176# 177# ld_assemble 178# assemble a file 179# 180proc ld_assemble { as source object } { 181 default_ld_assemble $as $source $object 182} 183 184# 185# ld_nm 186# run nm on a file 187# 188proc ld_nm { nm nmflags object } { 189 default_ld_nm $nm $nmflags $object 190} 191 192# 193# ld_exec 194# execute ithe target 195# 196proc ld_exec { target output } { 197 default_ld_exec $target $output 198} 199 200# From gas-defs.exp, to support run_dump_test. 201if ![info exists AS] then { 202 set AS $as 203} 204 205if ![info exists GASP] then { 206 set GASP [findfile $base_dir/../gas/gasp-new $base_dir/../gas/gasp-new [transform gasp]] 207} 208 209if ![info exists ASFLAGS] then { 210 set ASFLAGS "" 211} 212 213if ![info exists OBJDUMP] then { 214 set OBJDUMP $objdump 215} 216 217if ![info exists OBJDUMPFLAGS] then { 218 set OBJDUMPFLAGS {} 219} 220 221if ![info exists NM] then { 222 set NM $nm 223} 224 225if ![info exists NMFLAGS] then { 226 set NMFLAGS {} 227} 228 229if ![info exists OBJCOPY] then { 230 set OBJCOPY $objcopy 231} 232 233if ![info exists OBJCOPYFLAGS] then { 234 set OBJCOPYFLAGS {} 235} 236 237if ![info exists READELF] then { 238 set READELF [findfile $base_dir/../binutils/readelf] 239} 240 241if ![info exists READELFFLAGS] then { 242 set READELFFLAGS {} 243} 244 245if ![info exists LD] then { 246 set LD [findfile $base_dir/ld-new ./ld-new [transform ld]] 247} 248 249if ![info exists LDFLAGS] then { 250 set LDFLAGS {} 251} 252