Home | History | Annotate | Download | only in sh64 
      1 # Expect script for ld-sh tests
      2 #   Copyright (C) 2001-2016 Free Software Foundation, Inc.
      3 #
      4 # This file is part of the GNU Binutils.
      5 #
      6 # This program is free software; you can redistribute it and/or modify
      7 # it under the terms of the GNU General Public License as published by
      8 # the Free Software Foundation; either version 3 of the License, or
      9 # (at your option) any later version.
     10 #
     11 # This program is distributed in the hope that it will be useful,
     12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
     13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     14 # GNU General Public License for more details.
     15 #
     16 # You should have received a copy of the GNU General Public License
     17 # along with this program; if not, write to the Free Software
     18 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
     19 # MA 02110-1301, USA.
     20 #
     21 
     22 # Test SH relaxing - that is, that it's disabled when SHmedia sections
     23 # are present.
     24 
     25 if ![istarget sh64-*-*] {
     26     return
     27 }
     28 
     29 # There are four source files: the first is SHcompact only, the second
     30 # is SHmedia only, the third has both, and the fourth has only a
     31 # .cranges section.  The table below has:
     32 #   Title
     33 #   as flags for first source (else "n/a" to skip)
     34 #   ditto, other three files
     35 #   ld flags
     36 #   1/0 whether relaxing should have been done or not, or -1 if we expect
     37 #     the linker to not produce an output file.
     38 
     39 if [istarget sh64*-*-linux*] {
     40     set emul32 "shlelf32_linux"
     41 } elseif { [istarget sh64*-*-netbsd*] || [istarget sh5*-*-netbsd*] } {
     42     set emul32 "shelf32_nbsd"
     43 } else {
     44     set emul32 "shelf32"
     45 }
     46 
     47 set sh64relaxtests {
     48     {"SH64 not relaxing, shcompact"
     49       {"-relax -isa shcompact" "n/a" "n/a" "n/a"} "-m$emul32" 0}
     50     {"SH64 relaxing, shcompact"
     51       {"-relax -isa shcompact" "n/a" "n/a" "n/a"} "-relax -m$emul32" 1}
     52     {"SH64 relaxing, shcompacts"
     53       {"-relax -isa shcompact" "-isa shcompact" "n/a" "n/a"} "-relax -m$emul32" 1}
     54     {"SH64 relaxing disabled, shmedia"
     55       {"-relax -isa shcompact" "-isa shmedia -no-mix" "n/a" "n/a"} "-relax -m$emul32" 0}
     56     {"SH64 relaxing disabled, mixed"
     57       {"-relax -isa shcompact" "n/a" "-isa shcompact" "n/a"} "-relax -m$emul32" 0}
     58     {"SH64 relaxing disabled, cranges"
     59       {"-relax -isa shcompact" "n/a" "n/a" ""} "-relax -m$emul32" 0}
     60 }
     61 
     62 proc run_sh64relaxtest {sh64relaxtests} {
     63     global ld
     64     global as
     65     global nm
     66     global objdump
     67     global readelf
     68     global srcdir
     69     global subdir
     70     global emul32
     71 
     72     set testindex 0
     73 
     74     set sh64relaxfiles {
     75 	"relax1.s" "relax2.s" "relax3.s" "relax4.s"
     76     }
     77 
     78     foreach testentry $sh64relaxtests {
     79 	set testname [lindex $testentry 0]
     80 	set as_options [lindex $testentry 1]
     81 	set ld_options [subst [lindex $testentry 2]]
     82 	set expect_relaxed [lindex $testentry 3]
     83 
     84 	set is_unresolved 0
     85 	set objfiles {}
     86 
     87 	incr testindex
     88 
     89 	# Assemble each file in the test.
     90 	for {set i 0} {$i < 4} {incr i} {
     91 	    set as_file [lindex $sh64relaxfiles $i]
     92 	    set as_opt [lindex $as_options $i]
     93 	    if { [string compare $as_opt "n/a"] != 0 } {
     94 		set objfile "tmpdir/[file rootname $as_file]-$testindex.o"
     95 		lappend objfiles $objfile
     96 
     97 		if ![ld_assemble $as "$as_opt $srcdir/$subdir/$as_file" $objfile] {
     98 		    set is_unresolved 1
     99 		    break
    100 		}
    101 	    }
    102 	}
    103 
    104 	# Catch assembler errors.
    105 	if { $is_unresolved != 0 } {
    106 	    unresolved $testname
    107 	    continue
    108 	}
    109 
    110 	set binfile "tmpdir/relax-$testindex.x"
    111 
    112 	# We're not interested in the pass/fail of the linker as much
    113 	# as we're interested in whether or not relaxing got properly
    114 	# disabled.  Hence the lax checking here.
    115 
    116 	file delete $binfile
    117 	set result [ld_simple_link $ld $binfile " --no-warn-mismatch $ld_options $objfiles"]
    118 	if ![file exists $binfile] {
    119 
    120 	    if {$expect_relaxed == -1} {
    121 		pass $testname
    122 		continue
    123 	    }
    124 
    125 	    verbose "$testname: file $binfile doesn't exist" 1
    126 	    fail $testname
    127 	    continue
    128 	}
    129 
    130 	catch "exec $objdump -d $binfile" objdump_output
    131 
    132 	regexp "\[ \t](jsr|bsr)\[ \t]" $objdump_output ignore calltype
    133 
    134 	if [string match $calltype "bsr"] {
    135 	    set relaxed 1
    136 	} elseif [string match $calltype "jsr"] {
    137 	    set relaxed 0
    138 	} else {
    139 	    verbose "$testname: neither jsr nor bsr found" 1
    140 	    verbose $objdump_output 2
    141 	    fail $testname
    142 	    continue
    143 	}
    144 
    145 	if {$relaxed != $expect_relaxed} {
    146 	    verbose $objdump_output 2
    147 	    fail $testname
    148 	    exit
    149 	} else {
    150 	    pass $testname
    151 	}
    152     }
    153 }
    154 
    155 run_sh64relaxtest $sh64relaxtests
    156