ld/testsuite/ld-elf/frame.exp

   1 # 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 }