| # Expect script for common symbol tests |
| # Copyright 2004 Free Software Foundation, Inc. |
| # |
| # This file is free software; you can redistribute it and/or modify |
| # it under the terms of the GNU General Public License as published by |
| # the Free Software Foundation; either version 2 of the License, or |
| # (at your option) any later version. |
| # |
| # This program is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| # GNU General Public License for more details. |
| # |
| # You should have received a copy of the GNU General Public License |
| # along with this program; if not, write to the Free Software |
| # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
| # |
| # Written by H.J. Lu (hongjiu.lu@intel.com) |
| # |
| |
| # Make sure that ld correctly handles frame sections in ELF. |
| |
| # This test can only be run on ELF platforms. |
| if ![is_elf_format] { |
| return |
| } |
| |
| # No shared lib support on this target. |
| if { [istarget "mcore-*-*"] } { |
| return |
| } |
| |
| # Too small MAXPAGESIZE on this target. |
| if { [istarget "sh*-*-elf*"] } { |
| return |
| } |
| |
| set test1 "read-only .eh_frame section" |
| set test2 "read-only .gcc_except_table section" |
| |
| global as |
| global ld |
| |
| if { ![ld_assemble $as $srcdir/$subdir/tbss.s tmpdir/tbss.o ] |
| || ![ld_assemble $as $srcdir/$subdir/frame.s tmpdir/frame.o] } { |
| unresolved "$test1" |
| return |
| } |
| |
| if { [ld_simple_link $ld tmpdir/frame.so "--shared tmpdir/frame.o tmpdir/tbss.o"] } { |
| pass "$test1" |
| } else { |
| if [string match "*shared not supported*" $link_output] { |
| unsupported "-shared is not supported by this target" |
| } else { |
| fail "$test1" |
| } |
| } |
| |
| if ![ld_assemble $as $srcdir/$subdir/table.s tmpdir/table.o ] { |
| unresolved "$test2" |
| return |
| } |
| |
| if { [ld_simple_link $ld tmpdir/table.so "--shared tmpdir/table.o tmpdir/tbss.o"] } { |
| pass "$test2" |
| } else { |
| if [string match "*shared not supported*" $link_output] { |
| unsupported "-shared is not supported by this target" |
| } else { |
| fail "$test2" |
| } |
| } |