contrib/binutils/ld/emultempl/ppc32elf.em

   1 # This shell script emits a C file. -*- C -*-
   2 #   Copyright 2003, 2005, 2007 Free Software Foundation, Inc.
   3 #
   4 # This file is part of GLD, the Gnu Linker.
   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 2 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, MA 02110-1301, USA.
  19 #
  20
  21 # This file is sourced from elf32.em, and defines extra powerpc32-elf
  22 # specific routines.
  23 #
  24 cat >>e${EMULATION_NAME}.c <<EOF
  25
  26 #include "libbfd.h"
  27 #include "elf32-ppc.h"
  28
  29 extern const bfd_target bfd_elf32_powerpc_vec;
  30 extern const bfd_target bfd_elf32_powerpcle_vec;
  31 extern const bfd_target bfd_elf32_powerpc_vxworks_vec;
  32
  33 static inline int
  34 is_ppc_elf32_vec(const bfd_target * vec)
  35 {
  36   return (vec == &bfd_elf32_powerpc_vec
  37           || vec == &bfd_elf32_powerpc_vxworks_vec
  38           || vec == &bfd_elf32_powerpcle_vec);
  39 }
  40
  41 /* Whether to run tls optimization.  */
  42 static int notlsopt = 0;
  43
  44 /* Whether to emit symbols for stubs.  */
  45 static int emit_stub_syms = 0;
  46
  47 /* Chooses the correct place for .plt and .got.  */
  48 static enum ppc_elf_plt_type plt_style = PLT_UNSET;
  49 static int old_got = 0;
  50
  51 static void
  52 ppc_after_open (void)
  53 {
  54   if (is_ppc_elf32_vec (link_info.hash->creator))
  55     {
  56       int new_plt;
  57       int keep_new;
  58       unsigned int num_plt;
  59       unsigned int num_got;
  60       lang_output_section_statement_type *os;
  61       lang_output_section_statement_type *plt_os[2];
  62       lang_output_section_statement_type *got_os[2];
  63
  64       emit_stub_syms |= link_info.emitrelocations;
  65       new_plt = ppc_elf_select_plt_layout (output_bfd, &link_info, plt_style,
  66                                            emit_stub_syms);
  67       if (new_plt < 0)
  68         einfo ("%X%P: select_plt_layout problem %E\n");
  69
  70       num_got = 0;
  71       num_plt = 0;
  72       for (os = &lang_output_section_statement.head->output_section_statement;
  73            os != NULL;
  74            os = os->next)
  75         {
  76           if (os->constraint == SPECIAL && strcmp (os->name, ".plt") == 0)
  77             {
  78               if (num_plt < 2)
  79                 plt_os[num_plt] = os;
  80               ++num_plt;
  81             }
  82           if (os->constraint == SPECIAL && strcmp (os->name, ".got") == 0)
  83             {
  84               if (num_got < 2)
  85                 got_os[num_got] = os;
  86               ++num_got;
  87             }
  88         }
  89
  90       keep_new = new_plt == 1 ? 0 : -1;
  91       if (num_plt == 2)
  92         {
  93           plt_os[0]->constraint = keep_new;
  94           plt_os[1]->constraint = ~keep_new;
  95         }
  96       if (num_got == 2)
  97         {
  98           if (old_got)
  99             keep_new = -1;
 100           got_os[0]->constraint = keep_new;
 101           got_os[1]->constraint = ~keep_new;
 102         }
 103     }
 104
 105   gld${EMULATION_NAME}_after_open ();
 106 }
 107
 108 static void
 109 ppc_before_allocation (void)
 110 {
 111   if (is_ppc_elf32_vec (link_info.hash->creator))
 112     {
 113       if (ppc_elf_tls_setup (output_bfd, &link_info) && !notlsopt)
 114         {
 115           if (!ppc_elf_tls_optimize (output_bfd, &link_info))
 116             {
 117               einfo ("%X%P: TLS problem %E\n");
 118               return;
 119             }
 120         }
 121     }
 122
 123   gld${EMULATION_NAME}_before_allocation ();
 124
 125   /* Turn on relaxation if executable sections have addresses that
 126      might make branches overflow.  */
 127   if (!command_line.relax)
 128     {
 129       bfd_vma low = (bfd_vma) -1;
 130       bfd_vma high = 0;
 131       asection *o;
 132
 133       /* Run lang_size_sections (if not already done).  */
 134       if (expld.phase != lang_mark_phase_enum)
 135         {
 136           expld.phase = lang_mark_phase_enum;
 137           expld.dataseg.phase = exp_dataseg_none;
 138           one_lang_size_sections_pass (NULL, FALSE);
 139           lang_reset_memory_regions ();
 140         }
 141
 142       for (o = output_bfd->sections; o != NULL; o = o->next)
 143         {
 144           if ((o->flags & (SEC_ALLOC | SEC_CODE)) != (SEC_ALLOC | SEC_CODE))
 145             continue;
 146           if (o->rawsize == 0)
 147             continue;
 148           if (low > o->vma)
 149             low = o->vma;
 150           if (high < o->vma + o->rawsize - 1)
 151             high = o->vma + o->rawsize - 1;
 152         }
 153       if (high > low && high - low > (1 << 25) - 1)
 154         command_line.relax = TRUE;
 155     }
 156 }
 157
 158 EOF
 159
 160 if grep -q 'ld_elf32_spu_emulation' ldemul-list.h; then
 161   cat >>e${EMULATION_NAME}.c <<EOF
 162 /* Special handling for embedded SPU executables.  */
 163 extern bfd_boolean embedded_spu_file (lang_input_statement_type *, const char *);
 164 static bfd_boolean gld${EMULATION_NAME}_load_symbols (lang_input_statement_type *);
 165
 166 static bfd_boolean
 167 ppc_recognized_file (lang_input_statement_type *entry)
 168 {
 169   if (embedded_spu_file (entry, "-m32"))
 170     return TRUE;
 171
 172   return gld${EMULATION_NAME}_load_symbols (entry);
 173 }
 174
 175 EOF
 176 LDEMUL_RECOGNIZED_FILE=ppc_recognized_file
 177 fi
 178
 179 # Define some shell vars to insert bits of code into the standard elf
 180 # parse_args and list_options functions.
 181 #
 182 PARSE_AND_LIST_PROLOGUE='
 183 #define OPTION_NO_TLS_OPT               301
 184 #define OPTION_NEW_PLT                  302
 185 #define OPTION_OLD_PLT                  303
 186 #define OPTION_OLD_GOT                  304
 187 #define OPTION_STUBSYMS                 305
 188 '
 189
 190 PARSE_AND_LIST_LONGOPTS='
 191   { "emit-stub-syms", no_argument, NULL, OPTION_STUBSYMS },
 192   { "no-tls-optimize", no_argument, NULL, OPTION_NO_TLS_OPT },
 193   { "secure-plt", no_argument, NULL, OPTION_NEW_PLT },
 194   { "bss-plt", no_argument, NULL, OPTION_OLD_PLT },
 195   { "sdata-got", no_argument, NULL, OPTION_OLD_GOT },
 196 '
 197
 198 PARSE_AND_LIST_OPTIONS='
 199   fprintf (file, _("\
 200   --emit-stub-syms      Label linker stubs with a symbol.\n\
 201   --no-tls-optimize     Don'\''t try to optimize TLS accesses.\n\
 202   --secure-plt          Use new-style PLT if possible.\n\
 203   --bss-plt             Force old-style BSS PLT.\n\
 204   --sdata-got           Force GOT location just before .sdata.\n"
 205                    ));
 206 '
 207
 208 PARSE_AND_LIST_ARGS_CASES='
 209     case OPTION_STUBSYMS:
 210       emit_stub_syms = 1;
 211       break;
 212
 213     case OPTION_NO_TLS_OPT:
 214       notlsopt = 1;
 215       break;
 216
 217     case OPTION_NEW_PLT:
 218       plt_style = PLT_NEW;
 219       break;
 220
 221     case OPTION_OLD_PLT:
 222       plt_style = PLT_OLD;
 223       break;
 224
 225     case OPTION_OLD_GOT:
 226       old_got = 1;
 227       break;
 228 '
 229
 230 # Put these extra ppc32elf routines in ld_${EMULATION_NAME}_emulation
 231 #
 232 LDEMUL_AFTER_OPEN=ppc_after_open
 233 LDEMUL_BEFORE_ALLOCATION=ppc_before_allocation