ld/testsuite/ld-plugin/plugin.exp

   1 # Expect script for ld-plugin tests
   2 #   Copyright (C) 2010-2015 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 # These tests require the plugin API to be configured in.
  22 if ![check_plugin_api_available] {
  23     return
  24 }
  25
  26 # And a compiler to be available.
  27 set can_compile 1
  28 set failure_kind "unresolved"
  29 if { [which $CC] == 0 } {
  30   # Don't fail immediately,
  31   set can_compile 0
  32   set failure_kind "unsupported"
  33 }
  34
  35 pass "plugin API enabled"
  36
  37 global base_dir
  38
  39 # Look for the name we can dlopen in the test plugin's libtool control script.
  40 set plugin_name [file_contents "$base_dir/libldtestplug.la"]
  41 set plugin_name [regsub "'.*" [regsub ".*dlname='" "$plugin_name" ""] ""]
  42 verbose "plugin name is '$plugin_name'"
  43
  44 # Use libtool to find full path to plugin rather than worrying
  45 # about run paths or anything like that.
  46 catch "exec $base_dir/libtool --config" lt_config
  47 verbose "Full lt config: $lt_config" 3
  48 # Look for "objdir=.libs"
  49 regexp -line "^objdir=.*$" "$lt_config" lt_objdir
  50 verbose "lt_objdir line is '$lt_objdir'" 3
  51 set lt_objdir [regsub "objdir=" "$lt_objdir" ""]
  52 set plugin_path "$base_dir/$lt_objdir/$plugin_name"
  53 verbose "Full plugin path $plugin_path" 2
  54
  55 set regclm "-plugin-opt registerclaimfile"
  56 set regas "-plugin-opt registerallsymbolsread"
  57 set regcln "-plugin-opt registercleanup"
  58
  59 if { [istarget m681*-*-*] || [istarget m68hc1*-*-*] || [istarget m9s12x*-*-*] } {
  60     # otherwise get FAILS due to _.frame
  61     set CFLAGS "$CFLAGS -fomit-frame-pointer"
  62 }
  63 # In order to define symbols in plugin options in the list of tests below,
  64 # we need to know if the platform prepends an underscore to C symbols,
  65 # which we find out by compiling the test objects now.  If there is any
  66 # error compiling, we defer reporting it until after the list of tests has
  67 # been initialised, so that we can use the names in the list to report;
  68 # otherwise, we scan one of the files with 'nm' and look for a known symbol
  69 # in the output to see if it is prefixed or not.
  70 set failed_compile 0
  71 set _ ""
  72 set plugin_nm_output ""
  73 if { $can_compile && \
  74         (![ld_compile "$CC $CFLAGS" $srcdir/$subdir/main.c tmpdir/main.o] \
  75         || ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/func.c tmpdir/func.o] \
  76         || ![ld_compile "$CC $CFLAGS" $srcdir/$subdir/text.c tmpdir/text.o]) } {
  77     # Defer fail until we have list of tests set.
  78     set failed_compile 1
  79 }
  80
  81 if { $can_compile && !$failed_compile } {
  82     # Find out if symbols have prefix on this platform before setting tests.
  83     catch "exec $NM tmpdir/func.o" plugin_nm_output
  84     if { [regexp "_func" "$plugin_nm_output"] } {
  85         set _ "_"
  86     }
  87 }
  88
  89 set testobjfiles "tmpdir/main.o tmpdir/func.o tmpdir/text.o"
  90 set testobjfiles_notext "tmpdir/main.o tmpdir/func.o"
  91 # Rather than having libs we just define dummy values for anything
  92 # we may need to link a target exe; we aren't going to run it anyway.
  93 set libs "[ld_simple_link_defsyms] --defsym ${_}printf=${_}main --defsym ${_}puts=${_}main"
  94
  95 set plugin_tests [list \
  96     [list "load plugin" "-plugin $plugin_path \
  97     $testobjfiles $libs" "" "" "" {{ld plugin-1.d}} "main.x" ] \
  98     [list "fail plugin onload" "-plugin $plugin_path -plugin-opt failonload \
  99     $testobjfiles $libs" "" "" "" {{ld plugin-2.d}} "main.x" ] \
 100     [list "fail plugin allsymbolsread" "-plugin $plugin_path $regas \
 101                         -plugin-opt failallsymbolsread \
 102     $testobjfiles $libs" "" "" "" {{ld plugin-3.d}} "main.x" ] \
 103     [list "fail plugin cleanup" "-plugin $plugin_path -plugin-opt failcleanup \
 104                         $regcln \
 105     $testobjfiles $libs" "" "" "" {{ld plugin-4.d}} "main.x" ] \
 106     [list "plugin all hooks" "-plugin $plugin_path $regclm $regas $regcln \
 107     $testobjfiles $libs" "" "" "" {{ld plugin-5.d}} "main.x" ] \
 108     [list "plugin claimfile lost symbol" "-plugin $plugin_path $regclm \
 109                         $regas $regcln -plugin-opt claim:tmpdir/func.o \
 110     $testobjfiles $libs" "" "" "" {{ld plugin-6.d}} "main.x" ] \
 111     [list "plugin claimfile replace symbol" "-plugin $plugin_path $regclm \
 112                         $regas $regcln -plugin-opt claim:tmpdir/func.o \
 113                         -plugin-opt sym:${_}func::0:0:0 \
 114     $testobjfiles $libs" "" "" "" {{ld plugin-7.d}} "main.x" ] \
 115     [list "plugin claimfile resolve symbol" "-plugin $plugin_path $regclm \
 116                         $regas $regcln -plugin-opt claim:tmpdir/func.o \
 117                         -plugin-opt sym:${_}func::0:0:0 \
 118                         -plugin-opt sym:${_}func2::0:0:0 \
 119                         -plugin-opt dumpresolutions \
 120     $testobjfiles $libs" "" "" "" {{ld plugin-8.d}} "main.x" ] \
 121     [list "plugin claimfile replace file" "-plugin $plugin_path $regclm \
 122                         $regas $regcln -plugin-opt claim:tmpdir/func.o \
 123                         -plugin-opt sym:${_}func::0:0:0 \
 124                         -plugin-opt sym:${_}func2::0:0:0 \
 125                         -plugin-opt dumpresolutions \
 126                         -plugin-opt add:tmpdir/func.o \
 127     $testobjfiles $libs" "" "" "" {{ld plugin-9.d}} "main.x" ] \
 128 ]
 129
 130 set plugin_lib_tests [list \
 131     [list "plugin ignore lib" "-plugin $plugin_path $regclm \
 132                         $regas $regcln -plugin-opt claim:tmpdir/func.o \
 133                         -plugin-opt sym:${_}func::0:0:0 \
 134                         -plugin-opt sym:${_}func2::0:0:0 \
 135                         -plugin-opt dumpresolutions \
 136                         -plugin-opt add:tmpdir/func.o \
 137     $testobjfiles_notext -Ltmpdir -ltext $libs" "" "" "" {{ld plugin-10.d}} "main.x" ] \
 138     [list "plugin claimfile replace lib" "-plugin $plugin_path $regclm \
 139                         $regas $regcln -plugin-opt claim:tmpdir/func.o \
 140                         -plugin-opt sym:${_}func::0:0:0 \
 141                         -plugin-opt sym:${_}func2::0:0:0 \
 142                         -plugin-opt dumpresolutions \
 143                         -plugin-opt add:tmpdir/func.o \
 144                         -plugin-opt claim:tmpdir/libtext.a \
 145                         -plugin-opt sym:${_}text::0:0:0 \
 146                         -plugin-opt add:tmpdir/text.o \
 147     $testobjfiles_notext -Ltmpdir -ltext $libs" "" "" "" {{ld plugin-11.d}} "main.x" ] \
 148 ]
 149
 150 set plugin_extra_elf_tests [list \
 151     [list "plugin set symbol visibility" "-plugin $plugin_path $regclm \
 152                         $regas $regcln -plugin-opt claim:tmpdir/func.o \
 153                         -plugin-opt sym:${_}func::0:0:0 \
 154                         -plugin-opt sym:${_}func1::0:1:0 \
 155                         -plugin-opt sym:${_}func2::0:2:0 \
 156                         -plugin-opt sym:${_}func3::0:3:0 \
 157                         -plugin-opt dumpresolutions \
 158                         -plugin-opt add:tmpdir/func.o \
 159                         -plugin-opt add:tmpdir/func1p.o \
 160                         -plugin-opt add:tmpdir/func2i.o \
 161                         -plugin-opt add:tmpdir/func3h.o \
 162     $testobjfiles $libs --verbose=2" "" "" "" {{ld plugin-12.d} \
 163                                 {readelf -s plugin-vis-1.d}} "main.x" ] \
 164 ]
 165
 166 if { !$can_compile || $failed_compile } {
 167     foreach testitem $plugin_tests {
 168         $failure_kind [lindex $testitem 0]
 169     }
 170     if { [is_elf_format] } {
 171         foreach testitem $plugin_extra_elf_tests {
 172             $failure_kind [lindex $testitem 0]
 173         }
 174     }
 175     return
 176 }
 177
 178 run_ld_link_tests $plugin_tests
 179
 180 if { [is_elf_format] \
 181      && [ld_compile "$CC $CFLAGS" $srcdir/$subdir/func1p.c tmpdir/func1p.o] \
 182      && [ld_compile "$CC $CFLAGS" $srcdir/$subdir/func2i.c tmpdir/func2i.o] \
 183      && [ld_compile "$CC $CFLAGS" $srcdir/$subdir/func3h.c tmpdir/func3h.o] } {
 184     run_ld_link_tests $plugin_extra_elf_tests
 185 }
 186
 187 if ![ar_simple_create $ar "" "tmpdir/libtext.a" "tmpdir/text.o"] {
 188     foreach testitem $plugin_lib_tests {
 189         unresolved [lindex $testitem 0]
 190     }
 191 } else {
 192     run_ld_link_tests $plugin_lib_tests
 193 }