ld/testsuite/ld-size/size.exp

   1 # Expect script for linker support of size relocations.
   2 #
   3 #   Copyright 2013 Free Software Foundation, Inc.
   4 #
   5 # This file is part of the GNU Binutils.
   6 #
   7 # This program is free software; you can redistribute it and/or modify
   8 # it under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # This program is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with this program; if not, write to the Free Software
  19 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20 # MA 02110-1301, USA.
  21 #
  22
  23
  24 # Size relications have only been implemented for the ix86 and x86_64,
  25 # so far.
  26 if {!(([istarget "i?86-*-*"]
  27        || [istarget "x86_64-*-*"])
  28       && ([istarget "*-*-elf*"]
  29           || [istarget "*-*-nacl*"]
  30           || (([istarget "*-*-linux*"]
  31                || [istarget "*-*-gnu*"])
  32               && ![istarget "*-*-*aout*"]
  33               && ![istarget "*-*-*oldld*"]))) } {
  34     verbose "Size relocations tests not run - no target support"
  35     return
  36 }
  37
  38 # So as to avoid rewriting every last test case here in a nacl variant,
  39 # we use black magic to massage the generic cases into nacl-variant cases.
  40 if [istarget "*-*-nacl*"] {
  41     # Change all the -melf_i386 to -melf_i386_nacl so linking can succeed.
  42     set options_regsub(ld) {-m(\\S+) -m\\1_nacl}
  43 }
  44
  45 set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
  46 foreach t $test_list {
  47     # We need to strip the ".d", but can leave the dirname.
  48     verbose [file rootname $t]
  49     run_dump_test [file rootname $t]
  50 }
  51
  52 # We need a native system.
  53 if ![isnative] {
  54     verbose "Native size relocation tests not run - not a native toolchain"
  55     return
  56 }
  57
  58 # We need a working compiler.
  59 if { [which $CC] == 0 } {
  60     verbose "Native size relocation tests not run - no compiler available"
  61     return
  62 }
  63
  64 set build_tests {
  65   {"Build libsize-1.so"
  66    "-shared" "-fPIC"
  67    {size-1a.c size-1b.c} {} "libsize-1.so"}
  68   {"Build libsize-2.so"
  69    "-shared" "-fPIC"
  70    {size-2a.c size-2b.c} {} "libsize-2.so"}
  71   {"Build libsize-3a.so"
  72    "-shared" "-fPIC"
  73    {size-3a.c} {} "libsize-3a.so"}
  74   {"Build libsize-3b.so"
  75    "-shared" "-fPIC"
  76    {size-3b.c} {} "libsize-3b.so"}
  77   {"Build libsize-3c.so"
  78    "-shared" "-fPIC"
  79    {size-3c.c} {} "libsize-3c.so"}
  80   {"Build libsize-6b.so"
  81    "-shared" "-fPIC"
  82    {size-6b.c} {} "libsize-6b.so"}
  83   {"Build libsize-7.so"
  84    "-shared" "-fPIC"
  85    {size-7b.c} {} "libsize-7.so"}
  86   {"Build size-7"
  87    "-Wl,--no-as-needed tmpdir/libsize-7.so" ""
  88    {size-7a.c} {{readelf -rW size-7.rd}} "size-7.exe"}
  89   {"Build libsize-8.so"
  90    "-shared" "-fPIC"
  91    {size-8b.c} {} "libsize-8.so"}
  92   {"Build size-8"
  93    "-Wl,--no-as-needed tmpdir/libsize-8.so" ""
  94    {size-8a.c} {{readelf -rW size-8.rd}} "size-8.exe"}
  95   {"Build libsize-9.so"
  96    "-shared" "-fPIC"
  97    {size-9b.c} {{readelf -rW size-9.rd}} "libsize-9.so"}
  98   {"Build libsize-10.so"
  99    "-shared" "-fPIC"
 100    {size-10b.c} {{readelf -rW size-10.rd}} "libsize-10.so"}
 101 }
 102
 103 run_cc_link_tests $build_tests
 104
 105 set run_tests {
 106     {"Run size-1"
 107      "tmpdir/libsize-1.so" ""
 108      {size-1.c} "size-1" "size-1.out"}
 109     {"Run size-2"
 110      "tmpdir/libsize-2.so" ""
 111      {size-2.c} "size-2" "size-2.out"}
 112     {"Run size-3a"
 113      "" ""
 114      {size-3.c size-3a.c} "size-3a" "size-3.out"}
 115     {"Run size-3b"
 116      "tmpdir/libsize-3a.so" ""
 117      {size-3.c} "size-3b" "size-3.out"}
 118     {"Run size-3c"
 119      "" ""
 120      {size-3.c size-3b.c} "size-3c" "size-3.out"}
 121     {"Run size-3d"
 122      "tmpdir/libsize-3b.so" ""
 123      {size-3.c} "size-3d" "size-3.out"}
 124     {"Run size-3d"
 125      "" ""
 126      {size-3.c size-3c.c} "size-3d" "size-3.out"}
 127     {"Run size-3e"
 128      "tmpdir/libsize-3c.so" ""
 129      {size-3.c} "size-3e" "size-3.out"}
 130     {"Run size-4a"
 131      "" ""
 132      {size-4a.c size-4b.c} "size-4a" "size-4.out"}
 133     {"Run size-4b"
 134      "" ""
 135      {size-4b.c size-4a.c} "size-4b" "size-4.out"}
 136     {"Run size-5a"
 137      "" ""
 138      {size-5a.c size-5b.c} "size-5a" "size-5.out"}
 139     {"Run size-5b"
 140      "" ""
 141      {size-5b.c size-5a.c} "size-5b" "size-5.out"}
 142     {"Run size-6"
 143      "tmpdir/libsize-6b.so" ""
 144      {size-6a.c} "size-6" "size-6.out"}
 145 }
 146
 147 run_ld_link_exec_tests [] $run_tests
 148
 149 # Check if size relocation works at run-time.
 150 catch "exec tmpdir/size-7.exe > tmpdir/dump.out" exec_output
 151 if ![string match "" $exec_output] then {
 152     send_log "No run-time size relocation support: $exec_output\n"
 153     verbose "No run-time size relocation support: $exec_output" 1
 154     return
 155 }
 156
 157 if { [regexp_diff "tmpdir/dump.out" "$srcdir/$subdir/size-7.out" ] } then {
 158     verbose "output is [file_contents "tmpdir/dump.out"]" 2
 159     fail "Run-time size relocation"
 160     return
 161 }
 162
 163 # Run-time size relocation tests.
 164 set run_time_tests {
 165     {"Run size-8"
 166      "tmpdir/libsize-8.so --hash-styl=gnu" ""
 167      {size-8a.c} "size-8" "size-8.out"}
 168     {"Run size-9"
 169      "tmpdir/libsize-9.so" ""
 170      {size-9a.c} "size-9" "size-9.out"}
 171     {"Run size-10"
 172      "tmpdir/libsize-10.so" ""
 173      {size-10a.c} "size-10" "size-10.out"}
 174 }
 175
 176 run_ld_link_exec_tests [] $run_time_tests