1# Expect script for ld-sh tests 2# Copyright 1995, 1996, 1997, 2001, 2002, 2003, 2005, 2006, 2007, 2010 3# Free Software Foundation, Inc. 4# 5# This file is part of the GNU Binutils. 6# 7# This program is free software; you can redistribute it and/or modify 8# it under the terms of the GNU General Public License as published by 9# the Free Software Foundation; either version 3 of the License, or 10# (at your option) any later version. 11# 12# This program is distributed in the hope that it will be useful, 13# but WITHOUT ANY WARRANTY; without even the implied warranty of 14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15# GNU General Public License for more details. 16# 17# You should have received a copy of the GNU General Public License 18# along with this program; if not, write to the Free Software 19# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, 20# MA 02110-1301, USA. 21# 22# Written by Ian Lance Taylor (ian@cygnus.com) 23# 24 25# Test SH relaxing. This tests the compiler and assembler as well as 26# the linker. 27 28if ![istarget sh*-*-*] { 29 return 30} 31 32if { ([istarget sh64*-*-*] || [istarget sh5*-*-*])} { 33 # relaxing not supported on sh64 yet. 34 return 35} 36 37set testsimple "SH simple relaxing" 38 39if ![ld_assemble $as "-relax $srcdir/$subdir/sh1.s" tmpdir/sh1.o] { 40 unresolved $testsimple 41} else { if ![ld_simple_link $ld tmpdir/sh1 "-relax tmpdir/sh1.o"] { 42 fail $testsimple 43} else { 44 if ![ld_nm $nm "" tmpdir/sh1] { 45 unresolved $testsimple 46 } else { 47 if {![info exists nm_output(bar)] \ 48 || ![info exists nm_output(foo)]} { 49 send_log "bad output from nm\n" 50 verbose "bad output from nm" 51 fail $testsimple 52 } else { 53 if {$nm_output(bar) != $nm_output(foo) + 4} { 54 send_log "foo == $nm_output(foo)\n" 55 verbose "foo == $nm_output(foo)" 56 send_log "bar == $nm_output(bar)\n" 57 verbose "bar == $nm_output(bar)" 58 fail $testsimple 59 } else { 60 pass $testsimple 61 } 62 } 63 } 64} } 65 66set testsrec "SH relaxing to S-records" 67 68if { [istarget sh*-linux-*] || [istarget sh-*-vxworks] } { 69 # On these "non-embedded" targets, the default ELF and srec start 70 # addresses will be SIZEOF_HEADERS bytes apart. Ensure consistency 71 # by feeding the ELF start address to the srec link line. 72 catch "exec $objdump -x tmpdir/sh1 | grep start\\ address | sed s/start\\ address//" entry_addr 73 set srec_relax_arg "-Ttext $entry_addr -relax --oformat srec tmpdir/sh1.o" 74} else { 75 set srec_relax_arg "-relax --oformat srec tmpdir/sh1.o" 76} 77if ![ld_simple_link $ld tmpdir/sh1.s1 $srec_relax_arg ] { 78 fail $testsrec 79} else { 80 # The file name is embedded in the S-records, so create both 81 # files with the same name. 82 catch "exec rm -f tmpdir/sh1.s2" exec_output 83 send_log "mv tmpdir/sh1.s1 tmpdir/sh1.s2\n" 84 verbose "mv tmpdir/sh1.s1 tmpdir/sh1.s2" 85 catch "exec mv tmpdir/sh1.s1 tmpdir/sh1.s2" exec_output 86 if ![string match "" $exec_output] { 87 send_log "$exec_output\n" 88 verbose "$exec_output" 89 unresolved $testsrec 90 } else { 91 send_log "$objcopy -O srec tmpdir/sh1 tmpdir/sh1.s1\n" 92 verbose "$objcopy -O srec tmpdir/sh1 tmpdir/sh1.s1" 93 catch "exec $objcopy -O srec tmpdir/sh1 tmpdir/sh1.s1" exec_output 94 if ![string match "" $exec_output] { 95 send_log "$exec_output\n" 96 verbose "$exec_output" 97 unresolved $testsrec 98 } else { 99 send_log "cmp tmpdir/sh1.s1 tmpdir/sh1.s2\n" 100 verbose "cmp tmpdir/sh1.s1 tmpdir/sh1.s2" 101 catch "exec cmp tmpdir/sh1.s1 tmpdir/sh1.s2" exec_output 102 set exec_output [prune_warnings $exec_output] 103 if ![string match "" $exec_output] { 104 send_log "$exec_output\n" 105 verbose "$exec_output" 106 fail $testsrec 107 } else { 108 pass $testsrec 109 } 110 } 111 } 112} 113 114set testlink "SH relaxing" 115set testjsr "SH confirm relaxing" 116set testrun "SH relaxing execution" 117 118if { [which $CC] == 0 } { 119 untested $testlink 120 untested $testjsr 121 untested $testrun 122 return 123} 124 125if [istarget sh*-*linux*] { 126 exec sed -e s/_main/main/ -e s/_trap/trap/ -e s/_stack/stack/ \ 127 < $srcdir/$subdir/start.s >tmpdir/start.s 128} else { 129 exec cp $srcdir/$subdir/start.s tmpdir/start.s 130} 131 132if {![ld_assemble $as "-relax tmpdir/start.s" tmpdir/start.o] \ 133 || ![ld_compile $CC "-O -mrelax $srcdir/$subdir/sh2.c" tmpdir/sh2.o]} { 134 unresolved $testlink 135 unresolved $testjsr 136 unresolved $testrun 137 return 138} 139 140if ![ld_simple_link $ld tmpdir/sh2 "-relax tmpdir/start.o tmpdir/sh2.o"] { 141 fail $testlink 142 unresolved $testjsr 143 unresolved $testrun 144 return 145} 146 147pass $testlink 148 149send_log "$objdump -d tmpdir/sh2\n" 150verbose "$objdump -d tmpdir/sh2" 151catch "exec $objdump -d tmpdir/sh2" exec_output 152if [string match "*jsr*" $exec_output] { 153 fail $testjsr 154} else { 155 pass $testjsr 156} 157 158if { ![info exists SIM] || [which $SIM] == 0 } { 159 untested $testrun 160 return 161} 162 163set status [catch "exec $SIM tmpdir/sh2" exec_output] 164if { $status == 0 } { 165 pass $testrun 166} else { 167 fail $testrun 168} 169