ld/testsuite/ld-m68k/m68k.exp

   1 # Expect script for run_dump_test based ld-m68k tests.
   2 #   Copyright 2006, 2007, 2008, 2009 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 # Test m68k object merging
  22
  23 if { ![is_elf_format] || ![istarget m68k-*-*] } {
  24     return
  25 }
  26
  27 # List contains test-items with 3 items followed by 2 lists:
  28 # 0:name 1:ld options 2:assembler options
  29 # 3:filenames of assembler files 4: action and options. 5: name of output file
  30
  31 # Actions:
  32 # objdump: Apply objdump options on result.  Compare with regex (last arg).
  33 # nm: Apply nm options on result.  Compare with regex (last arg).
  34 # readelf: Apply readelf options on result.  Compare with regex (last arg).
  35
  36 set m68k_mergeok_tests {
  37     {"merge isa-a isa-a:nodiv" "-T merge.ld" ""
  38         {isaa.s isaa-nodiv.s} {{objdump -p isaa.d}} "isaa-nodiv"}
  39     {"merge isa-a isa-b" "-T merge.ld" ""
  40         {isaa.s isab.s} {{objdump -p isab.d}} "isab"}
  41     {"merge isa-a isa-aplus" "-T merge.ld" ""
  42         {isaa.s isaaplus.s} {{objdump -p isaaplus.d}} "isaplus"}
  43     {"merge isa-b isa-b:nousp" "-T merge.ld" ""
  44         {isab.s isab-nousp.s} {{objdump -p isab.d}} "isab"}
  45     {"merge isa-a isa-a:mac" "-T merge.ld" ""
  46         {isaa.s isaa-mac.s} {{objdump -p isaa-mac.d}} "isaa-mac"}
  47     {"merge isa-b isa-b:float" "-T merge.ld" ""
  48         {isab.s isab-float.s} {{objdump -p isab-float.d}} "isab-float"}}
  49
  50 run_ld_link_tests $m68k_mergeok_tests
  51
  52 run_dump_test "merge-error-1a"
  53 run_dump_test "merge-error-1b"
  54 run_dump_test "merge-error-1c"
  55 run_dump_test "merge-error-1d"
  56 run_dump_test "merge-error-1e"
  57 run_dump_test "merge-ok-1a"
  58 run_dump_test "merge-ok-1b"
  59 run_dump_test "merge-ok-1c"
  60
  61 foreach { id sources } { a { plt1.s } b { plt1-empty.s plt1.s } } {
  62     foreach arch { 68020 cpu32 isab isac } {
  63         run_ld_link_tests [list \
  64             [list "PLT 1$id ($arch)" "-shared -T plt1.ld" "-m$arch" \
  65                  $sources [list [list objdump -dr plt1-$arch.d]] \
  66                  plt1-${id}-${arch}.so]]
  67     }
  68 }
  69
  70 if { [istarget m68k-*-linux*] } then {
  71     run_dump_test "tls-gd-1"
  72     run_dump_test "tls-gd-2"
  73     run_dump_test "tls-gd-ie-1"
  74     run_dump_test "tls-ie-1"
  75     run_dump_test "tls-ld-1"
  76     run_dump_test "tls-ld-2"
  77
  78     set m68k_tls_tests {
  79         {"TLS definition"
  80             "-shared" "" {tls-def-1.s}
  81             {{nm -ngD tls-def-1.d}}
  82             "tls-def-1.so"}
  83         {"TLS direct symbol use"
  84             "-shared tmpdir/tls-def-1.so" "" {tls-gd-1.s}
  85             {{nm -ngD tls-gd-1.d2} {readelf -d tls-gd-1.d3}}
  86             "tls-gd-1.so"}
  87         {"TLS indirect symbol use"
  88             "tmpdir/tls-gd-1.so -rpath-link ./" "" {tls-main-1.s}
  89             {{readelf -d tls-main-1.d}}
  90             "tls-main-1"}}
  91
  92     run_ld_link_tests $m68k_tls_tests
  93 }