OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [ld/] [testsuite/] [ld-sh/] [sh64/] [relax.exp] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
# Expect script for ld-sh tests
2
#   Copyright (C) 2001, 2002, 2003, 2004, 2007 Free Software Foundation
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.