ld/testsuite/ld-elfcomm/elfcomm.exp

   1 # Expect script for common symbol tests
   2 #   Copyright 2003, 2005, 2006, 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 (hjl@gnu.org)
  22 #
  23
  24 # Make sure that ld correctly handles common symbols in ELF.
  25
  26 # This test can only be run on ELF platforms.
  27 if ![is_elf_format] {
  28     return
  29 }
  30
  31 set test1       "size/aligment change of common symbols"
  32 set test1w1     "$test1 (warning 1)"
  33 set test1w2     "$test1 (warning 2)"
  34 set test1c1     "$test1 (change 1)"
  35 set test1c2     "$test1 (change 2)"
  36
  37 if { [which $CC] == 0 } {
  38     untested $test1w1
  39     untested $test1w2
  40     untested $test1c1
  41     untested $test1c2
  42     return
  43 }
  44 if { [istarget score-*-*] } {
  45     untested $test1w1
  46     untested $test1w2
  47     untested $test1c1
  48     untested $test1c2
  49     return
  50 }
  51
  52 proc dump_common1 { testname } {
  53     global exec_output
  54     global READELF
  55
  56     send_log "$READELF -s tmpdir/common1.o | grep foo\n"
  57     catch "exec $READELF -s tmpdir/common1.o | grep foo" exec_output
  58     if { ![regexp "(\[  \]*)(\[0-9\]+):(\[      \]*)(\[0\]*)80(\[       \]+)4(\[        \]+)OBJECT(\[   \]+)GLOBAL(\[   \]+)DEFAULT(\[  \]+)(PRC\\\[0xff03\\\]|COM|SCOM)(\[     \]+)_?foo2" $exec_output]
  59          || ![regexp "(\[       \]*)(\[0-9\]+):(\[      \]*)(\[0-9\]+)(\[       \]+)21(\[       \]+)OBJECT(\[   \]+)GLOBAL(\[   \]+)DEFAULT(\[  \]+)(\[0-9\]+)(\[       \]+)_?foo1" $exec_output] } {
  60         send_log "$exec_output\n"
  61         verbose $exec_output
  62         fail $testname
  63         return 0
  64     }
  65
  66     return 1
  67 }
  68
  69 if { ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/common1a.c tmpdir/common1a.o]
  70     || ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/common1b.c tmpdir/common1b.o] } {
  71     unresolved $test1
  72     return
  73 }
  74
  75 global ld
  76 global link_output
  77
  78 if { [ld_simple_link $ld tmpdir/common1.o "-r tmpdir/common1a.o tmpdir/common1b.o"] } {
  79     unresolved $test1w1
  80     return
  81 }
  82
  83 # This test fails on MIPS because the backend sets type_change_ok.
  84 # The size change warning is suppressed.
  85 if {[istarget mips*-*-*]} {
  86     if { ![regexp "Warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output] } {
  87         fail $test1w1
  88     } else {
  89         pass $test1w1
  90     }
  91 } else {
  92     pass $test1w1
  93     if { ![regexp "Warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output]
  94          || ![regexp "Warning: size of symbol \`_?foo1\' changed from 2 in tmpdir/common1a.o to 21 in tmpdir/common1b.o" $link_output] } {
  95         fail $test1w1
  96     } else {
  97         pass $test1w1
  98     }
  99 }
 100
 101 if { [dump_common1 $test1c1] } {
 102     pass $test1c1
 103 }
 104
 105 if { [ld_simple_link $ld tmpdir/common1.o "-r tmpdir/common1b.o tmpdir/common1a.o"] } {
 106     unresolved $test1w2
 107     return
 108 }
 109
 110 if { ![regexp "Warning: alignment (\[0-9\]+) of symbol \`_?foo1\' in tmpdir/common1b.o is smaller than 64 in tmpdir/common1a.o" $link_output] } {
 111     fail $test1w2
 112 } else {
 113     pass $test1w2
 114 }
 115
 116 if { [dump_common1 $test1c2] } {
 117     pass $test1c2
 118 }