* scripttempl/elf.sc: Remove commented out defines.
[deliverable/binutils-gdb.git] / ld / testsuite / ld-elf / frame.exp
CommitLineData
117a3ac8
L
1# Expect script for common symbol tests
2# Copyright 2004 Free Software Foundation, Inc.
3#
4# This file is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 2 of the License, or
7# (at your option) any later version.
8#
9# This program is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12# GNU General Public License for more details.
13#
14# You should have received a copy of the GNU General Public License
15# along with this program; if not, write to the Free Software
75be928b 16# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
117a3ac8
L
17#
18# Written by H.J. Lu (hongjiu.lu@intel.com)
19#
20
21# Make sure that ld correctly handles frame sections in ELF.
22
23# This test can only be run on ELF platforms.
24if ![is_elf_format] {
25 return
26}
27
3874ed78
AM
28# No shared lib support on this target.
29if { [istarget "mcore-*-*"] } {
30 return
31}
32
f6a8ae81
KK
33# Too small MAXPAGESIZE on this target.
34if { [istarget "sh*-*-elf*"] } {
35 return
36}
37
117a3ac8
L
38set test1 "read-only .eh_frame section"
39set test2 "read-only .gcc_except_table section"
40
41global as
42global ld
43
44if { ![ld_assemble $as $srcdir/$subdir/tbss.s tmpdir/tbss.o ]
45 || ![ld_assemble $as $srcdir/$subdir/frame.s tmpdir/frame.o] } {
46 unresolved "$test1"
47 return
48}
49
50if { [ld_simple_link $ld tmpdir/frame.so "--shared tmpdir/frame.o tmpdir/tbss.o"] } {
51 pass "$test1"
52} else {
e6f12cf6
NC
53 if [string match "*shared not supported*" $link_output] {
54 unsupported "-shared is not supported by this target"
55 } else {
56 fail "$test1"
57 }
117a3ac8
L
58}
59
60if ![ld_assemble $as $srcdir/$subdir/table.s tmpdir/table.o ] {
61 unresolved "$test2"
62 return
63}
64
65if { [ld_simple_link $ld tmpdir/table.so "--shared tmpdir/table.o tmpdir/tbss.o"] } {
66 pass "$test2"
67} else {
e6f12cf6
NC
68 if [string match "*shared not supported*" $link_output] {
69 unsupported "-shared is not supported by this target"
70 } else {
71 fail "$test2"
72 }
117a3ac8 73}
This page took 0.087117 seconds and 4 git commands to generate.