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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [ld/] [testsuite/] [ld-elf/] [frame.exp] - Blame information for rev 866

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
# Expect script for frame section tests
2
#   Copyright 2004, 2007 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
# Written by H.J. Lu (hongjiu.lu@intel.com)
22
#
23
 
24
# Make sure that ld correctly handles frame sections in ELF.
25
 
26
# This test can only be run on ELF platforms.
27
if ![is_elf_format] {
28
    return
29
}
30
 
31
# No shared lib support on this target.
32
if { [istarget "mcore-*-*"] } {
33
    return
34
}
35
 
36
# Too small MAXPAGESIZE on this target.
37
if { [istarget "sh*-*-elf*"] } {
38
    return
39
}
40
 
41
# ??? These targets have their own .tbss section, with different meaning
42
# to the usual ELF .tbss.
43
if { [istarget "hppa64-*-*"] || [istarget "v850-*-*"] } {
44
    return
45
}
46
 
47
set test1       "read-only .eh_frame section"
48
set test2       "read-only .gcc_except_table section"
49
 
50
global as
51
global ld
52
 
53
if { ![ld_assemble $as $srcdir/$subdir/tbss.s tmpdir/tbss.o ]
54
     || ![ld_assemble $as $srcdir/$subdir/frame.s tmpdir/frame.o] } {
55
    unresolved "$test1"
56
    return
57
}
58
 
59
if { [ld_simple_link $ld tmpdir/frame.so "--shared tmpdir/frame.o tmpdir/tbss.o"] } {
60
    pass "$test1"
61
} else {
62
    if [string match "*shared not supported*" $link_output] {
63
        unsupported "-shared is not supported by this target"
64
    } else {
65
        fail "$test1"
66
    }
67
}
68
 
69
if ![ld_assemble $as $srcdir/$subdir/table.s tmpdir/table.o ] {
70
    unresolved "$test2"
71
    return
72
}
73
 
74
if { [ld_simple_link $ld tmpdir/table.so "--shared tmpdir/table.o tmpdir/tbss.o"] } {
75
    pass "$test2"
76
} else {
77
    if [string match "*shared not supported*" $link_output] {
78
        unsupported "-shared is not supported by this target"
79
    } else {
80
        fail "$test2"
81
    }
82
}

powered by: WebSVN 2.1.0

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