← Back to branch summary

~ubuntu-branches/ubuntu/utopic/binutils-arm64-cross/utopic

« back to all changes in this revision

Viewing changes to binutils-2.23.52.20130611/ld/testsuite/ld-mips-elf/mips-elf-flags.exp

  • Committer: Package Import Robot
  • Author(s): Matthias Klose
  • Date: 2013-06-20 17:38:09 UTC
  • Revision ID: package-import@ubuntu.com-20130620173809-app8lzgvymy5fg6c
Tags: 0.7
Build-depend on binutils-source (>= 2.23.52.20130620-1~).

Show diffs side-by-side

added added

removed removed

Lines of Context:
binutils-2.23.52.20130611/ld/testsuite/ld-mips-elf/mips-elf-flags.exp
 
1
#   Copyright 2003, 2005, 2007 Free Software Foundation, Inc.
 
2
#
 
3
# This file is part of the GNU Binutils.
 
4
#
 
5
# This program 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 3 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., 51 Franklin Street - Fifth Floor, Boston,
 
18
# MA 02110-1301, USA.
 
19
 
 
20
if {![istarget mips*-*-*] || ![is_elf_format]} {
 
21
    return
 
22
}
 
23
 
 
24
global ldemul
 
25
if {[istarget mips*-*-irix6*]} {
 
26
    set ldemul "-melf32bsmip"
 
27
} elseif {[istarget mips*el-*-linux*]} {
 
28
    set ldemul "-melf32ltsmip"
 
29
} elseif {[istarget mips*-*-linux*]} {
 
30
    set ldemul "-melf32btsmip"
 
31
} elseif {[istarget mips*el-*-*freebsd*]} {
 
32
    set ldemul "-melf32ltsmip_fbsd"
 
33
} elseif {[istarget mips*-*-*freebsd*]} {
 
34
    set ldemul "-melf32btsmip_fbsd"
 
35
} else {
 
36
    set ldemul ""
 
37
}
 
38
 
 
39
# Assemble jr.s using each of the argument lists in ARGLIST.  Return the
 
40
# list of object files on success and an empty list on failure.
 
41
proc assemble_for_flags {arglist} {
 
42
    global as srcdir subdir
 
43
 
 
44
    set objs {}
 
45
    set index 1
 
46
 
 
47
    foreach args $arglist {
 
48
        set obj "tmpdir/mips-flags-${index}.o"
 
49
        if {![ld_assemble $as "$args $srcdir/$subdir/jr.s" $obj]} {
 
50
            return ""
 
51
        }
 
52
        lappend objs $obj
 
53
        incr index
 
54
    }
 
55
    return $objs
 
56
}
 
57
 
 
58
# Assemble a file using each set of arguments in ARGLIST.  Check that
 
59
# the objects can be linked together and that the readelf output
 
60
# includes each flag named in FLAGS.
 
61
proc good_combination {arglist flags} {
 
62
    global ld ldemul READELF
 
63
 
 
64
    set finalobj "tmpdir/mips-flags.o"
 
65
    set testname "MIPS compatible objects: $arglist"
 
66
    set objs [assemble_for_flags $arglist]
 
67
 
 
68
    if {$objs == ""} {
 
69
        unresolved $testname
 
70
    } elseif {![ld_simple_link "$ld $ldemul" $finalobj "-r $objs"]} {
 
71
        fail $testname
 
72
    } else {
 
73
        catch "exec $READELF --headers $finalobj" output
 
74
        if {![regexp "Flags: *(\[^\n\]*)" $output full gotflags]} {
 
75
            unresolved $testname
 
76
        } else {
 
77
            set failed 0
 
78
 
 
79
            # GOTFLAGS is a list of flags separated by ", ".
 
80
            # Convert it to a tcl list.
 
81
            regsub -all ", " $gotflags "," gotflags
 
82
            set gotflags [split $gotflags ","]
 
83
 
 
84
            foreach flag $flags {
 
85
                if {[lsearch -exact $gotflags $flag] < 0} {
 
86
                    set failed 1
 
87
                }
 
88
            }
 
89
            if {$failed} {
 
90
                fail $testname
 
91
            } else {
 
92
                pass $testname
 
93
            }
 
94
        }
 
95
    }
 
96
}
 
97
 
 
98
# Like good_combination, but check that the objects can't be linked
 
99
# together successfully and that the output includes MESSAGE.
 
100
proc bad_combination {arglist message} {
 
101
    global link_output ld ldemul
 
102
 
 
103
    set finalobj "tmpdir/mips-flags.o"
 
104
    set testname "MIPS incompatible objects: $arglist"
 
105
    set objs [assemble_for_flags $arglist]
 
106
 
 
107
    if {$objs == ""} {
 
108
        unresolved $testname
 
109
    } elseif {[ld_simple_link "$ld $ldemul" $finalobj "-r $objs"]
 
110
              || [string first $message $link_output] < 0} {
 
111
        fail $testname
 
112
    } else {
 
113
        pass $testname
 
114
    }
 
115
}
 
116
 
 
117
# Routines to check for various kinds of incompatibility.
 
118
 
 
119
proc abi_conflict {arglist firstabi secondabi} {
 
120
    bad_combination $arglist \
 
121
      "linking $secondabi module with previous $firstabi modules"
 
122
}
 
123
 
 
124
proc isa_conflict {arglist firstisa secondisa} {
 
125
    bad_combination $arglist \
 
126
      "linking mips:$secondisa module with previous mips:$firstisa modules"
 
127
}
 
128
 
 
129
proc regsize_conflict {arglist} {
 
130
    bad_combination $arglist \
 
131
      "linking 32-bit code with 64-bit code"
 
132
}
 
133
 
 
134
abi_conflict { "-mabi=eabi -mgp32" "-mips4 -mabi=32" } EABI32 O32
 
135
abi_conflict { "-mips4 -mabi=o64" "-mips3 -mabi=eabi" } O64 EABI64
 
136
 
 
137
isa_conflict { "-march=vr5500 -32" "-march=sb1 -32" } 5500 sb1
 
138
isa_conflict { "-march=vr5400 -32" "-march=4120 -32" } 5400 4120
 
139
isa_conflict { "-march=r3900 -32" "-march=r6000 -32" } 3900 6000
 
140
isa_conflict { "-march=r4010 -32" "-march=r4650 -32" } 4010 4650
 
141
isa_conflict { "-mips3 -mgp32 -32" "-mips32 -32" } 4000 isa32
 
142
isa_conflict { "-march=sb1 -mgp32 -32" "-mips32r2 -32" } sb1 isa32r2
 
143
isa_conflict { "-march=sb1 -32" "-mips64r2 -32" } sb1 isa64r2
 
144
 
 
145
regsize_conflict { "-mips4 -mgp64 -mabi=o64" "-mips2 -32" }
 
146
regsize_conflict { "-mips4 -mabi=o64" "-mips4 -mabi=32" }
 
147
regsize_conflict { "-mips4 -mabi=eabi -mgp32" "-mips4 -mabi=eabi -mgp64" }
 
148
regsize_conflict { "-march=vr5000 -mgp64 -mabi=o64" "-march=vr5000 -mgp32 -32" }
 
149
regsize_conflict { "-mips32 -32" "-mips64 -mabi=o64" }
 
150
regsize_conflict { "-mips32r2 -32" "-mips64 -mabi=o64" }
 
151
regsize_conflict { "-mips32r2 -32" "-mips64r2 -mabi=o64" }
 
152
 
 
153
good_combination { "-mips4 -mgp32 -32" "-mips2 -32" } { mips4 o32 }
 
154
good_combination { "-mips4 -mabi=32" "-mips2 -32" } { mips4 o32 }
 
155
good_combination { "-mips2 -32" "-mips4 -mabi=32" } { mips4 o32 }
 
156
good_combination { "-mips2 -mabi=eabi" "-mips4 -mabi=eabi -mgp32" } { mips4 eabi32 }
 
157
good_combination { "-mips2 -32" "-mips32 -32" "-mips32r2 -32" } { mips32r2 }
 
158
good_combination { "-mips1 -32" "-mips32r2 -32" "-mips32 -32" } { mips32r2 }
 
159
 
 
160
good_combination { "-march=vr4100 -32" "-march=vr4120 -32" } { 4120 }
 
161
good_combination { "-march=vr5400 -32" "-march=vr5500 -32" "-mips4 -32" } { 5500 }
 
162
good_combination { "-mips3 -32" "-mips4 -32" "-march=sb1 -32" "-mips5 -32" } { sb1 }
 
163
good_combination { "-mips1 -32" "-march=3900 -32" } { 3900 }
 
164
good_combination { "-mips3 -32" "-mips64r2 -32" "-mips64 -32" } { mips64r2 }
 
165
 
 
166
good_combination { "-march=vr4120 -mabi=32" "-mips3 -mabi=32" } { 4120 o32 }
 
167
good_combination { "-march=sb1 -mgp32 -32" "-march=4000 -mgp32 -32" } { sb1 o32 }
 
168
good_combination { "-mips32 -mabi=32" "-march=sb1 -mabi=32" } { sb1 o32 }
 
169
good_combination { "-mips64r2 -mabi=32" "-mips32 -mabi=32" } { mips64r2 o32 }
 
170
good_combination { "-mips5 -mabi=o64" "-mips64r2 -mabi=o64" } { mips64r2 o64 }