ld/ldemul.c

   1 /* ldemul.c -- clearing house for ld emulation states
   2    Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000
   3    Free Software Foundation, Inc.
   4
   5 This file is part of GLD, the Gnu Linker.
   6
   7 GLD 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 2, or (at your option)
  10 any later version.
  11
  12 GLD 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 GLD; see the file COPYING.  If not, write to the Free
  19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.  */
  21
  22 #include "bfd.h"
  23 #include "sysdep.h"
  24
  25 #include "ld.h"
  26 #include "ldmisc.h"
  27 #include "ldexp.h"
  28 #include "ldlang.h"
  29 #include "ldfile.h"
  30 #include "ldemul.h"
  31 #include "ldmain.h"
  32 #include "ldemul-list.h"
  33
  34 ld_emulation_xfer_type *ld_emulation;
  35
  36 void
  37 ldemul_hll (name)
  38      char *name;
  39 {
  40   ld_emulation->hll (name);
  41 }
  42
  43 void
  44 ldemul_syslib (name)
  45      char *name;
  46 {
  47   ld_emulation->syslib (name);
  48 }
  49
  50 void
  51 ldemul_after_parse ()
  52 {
  53   ld_emulation->after_parse ();
  54 }
  55
  56 void
  57 ldemul_before_parse ()
  58 {
  59   ld_emulation->before_parse ();
  60 }
  61
  62 void
  63 ldemul_after_open ()
  64 {
  65   ld_emulation->after_open ();
  66 }
  67
  68 void
  69 ldemul_after_allocation ()
  70 {
  71   ld_emulation->after_allocation ();
  72 }
  73
  74 void
  75 ldemul_before_allocation ()
  76 {
  77   if (ld_emulation->before_allocation)
  78     ld_emulation->before_allocation ();
  79 }
  80
  81 void
  82 ldemul_set_output_arch ()
  83 {
  84   ld_emulation->set_output_arch ();
  85 }
  86
  87 void
  88 ldemul_finish ()
  89 {
  90   if (ld_emulation->finish)
  91     ld_emulation->finish ();
  92 }
  93
  94 void
  95 ldemul_set_symbols ()
  96 {
  97   if (ld_emulation->set_symbols)
  98     ld_emulation->set_symbols ();
  99 }
 100
 101 void
 102 ldemul_create_output_section_statements ()
 103 {
 104   if (ld_emulation->create_output_section_statements)
 105     ld_emulation->create_output_section_statements ();
 106 }
 107
 108 char *
 109 ldemul_get_script (isfile)
 110      int *isfile;
 111 {
 112   return ld_emulation->get_script (isfile);
 113 }
 114
 115 boolean
 116 ldemul_open_dynamic_archive (arch, search, entry)
 117      const char *arch;
 118      search_dirs_type *search;
 119      lang_input_statement_type *entry;
 120 {
 121   if (ld_emulation->open_dynamic_archive)
 122     return (*ld_emulation->open_dynamic_archive) (arch, search, entry);
 123   return false;
 124 }
 125
 126 boolean
 127 ldemul_place_orphan (file, s)
 128      lang_input_statement_type *file;
 129      asection *s;
 130 {
 131   if (ld_emulation->place_orphan)
 132     return (*ld_emulation->place_orphan) (file, s);
 133   return false;
 134 }
 135
 136 int
 137 ldemul_parse_args (argc, argv)
 138      int argc;
 139      char **argv;
 140 {
 141   /* Try and use the emulation parser if there is one.  */
 142   if (ld_emulation->parse_args)
 143     {
 144       return ld_emulation->parse_args (argc, argv);
 145     }
 146   return 0;
 147 }
 148
 149 /* Let the emulation code handle an unrecognized file.  */
 150
 151 boolean
 152 ldemul_unrecognized_file (entry)
 153      lang_input_statement_type *entry;
 154 {
 155   if (ld_emulation->unrecognized_file)
 156     return (*ld_emulation->unrecognized_file) (entry);
 157   return false;
 158 }
 159
 160 /* Let the emulation code handle a recognized file.  */
 161
 162 boolean
 163 ldemul_recognized_file (entry)
 164      lang_input_statement_type *entry;
 165 {
 166   if (ld_emulation->recognized_file)
 167     return (*ld_emulation->recognized_file) (entry);
 168   return false;
 169 }
 170
 171 char *
 172 ldemul_choose_target ()
 173 {
 174   return ld_emulation->choose_target ();
 175 }
 176
 177 /* The default choose_target function.  */
 178
 179 char *
 180 ldemul_default_target ()
 181 {
 182   char *from_outside = getenv (TARGET_ENVIRON);
 183   if (from_outside != (char *) NULL)
 184     return from_outside;
 185   return ld_emulation->target_name;
 186 }
 187
 188 void
 189 after_parse_default ()
 190 {
 191
 192 }
 193
 194 void
 195 after_open_default ()
 196 {
 197 }
 198
 199 void
 200 after_allocation_default ()
 201 {
 202
 203 }
 204
 205 void
 206 before_allocation_default ()
 207 {
 208
 209 }
 210
 211 void
 212 set_output_arch_default ()
 213 {
 214   /* Set the output architecture and machine if possible.  */
 215   bfd_set_arch_mach (output_bfd,
 216                      ldfile_output_architecture, ldfile_output_machine);
 217 }
 218
 219 void
 220 syslib_default (ignore)
 221      char *ignore ATTRIBUTE_UNUSED;
 222 {
 223   info_msg (_("%S SYSLIB ignored\n"));
 224 }
 225
 226 void
 227 hll_default (ignore)
 228      char *ignore ATTRIBUTE_UNUSED;
 229 {
 230   info_msg (_("%S HLL ignored\n"));
 231 }
 232
 233 ld_emulation_xfer_type *ld_emulations[] = { EMULATION_LIST };
 234
 235 void
 236 ldemul_choose_mode (target)
 237      char *target;
 238 {
 239   ld_emulation_xfer_type **eptr = ld_emulations;
 240   /* Ignore "gld" prefix.  */
 241   if (target[0] == 'g' && target[1] == 'l' && target[2] == 'd')
 242     target += 3;
 243   for (; *eptr; eptr++)
 244     {
 245       if (strcmp (target, (*eptr)->emulation_name) == 0)
 246         {
 247           ld_emulation = *eptr;
 248           return;
 249         }
 250     }
 251   einfo (_("%P: unrecognised emulation mode: %s\n"), target);
 252   einfo (_("Supported emulations: "));
 253   ldemul_list_emulations (stderr);
 254   einfo ("%F\n");
 255 }
 256
 257 void
 258 ldemul_list_emulations (f)
 259      FILE *f;
 260 {
 261   ld_emulation_xfer_type **eptr = ld_emulations;
 262   boolean first = true;
 263
 264   for (; *eptr; eptr++)
 265     {
 266       if (first)
 267         first = false;
 268       else
 269         fprintf (f, " ");
 270       fprintf (f, "%s", (*eptr)->emulation_name);
 271     }
 272 }
 273
 274 void
 275 ldemul_list_emulation_options (f)
 276      FILE *f;
 277 {
 278   ld_emulation_xfer_type **eptr;
 279   int options_found = 0;
 280
 281   for (eptr = ld_emulations; *eptr; eptr++)
 282     {
 283       ld_emulation_xfer_type *emul = *eptr;
 284
 285       if (emul->list_options)
 286         {
 287           fprintf (f, "%s: \n", emul->emulation_name);
 288
 289           emul->list_options (f);
 290
 291           options_found = 1;
 292         }
 293     }
 294
 295   if (! options_found)
 296     fprintf (f, _("  no emulation specific options.\n"));
 297 }
 298
 299 int
 300 ldemul_find_potential_libraries (name, entry)
 301      char *name;
 302      lang_input_statement_type *entry;
 303 {
 304   if (ld_emulation->find_potential_libraries)
 305     return ld_emulation->find_potential_libraries (name, entry);
 306
 307   return 0;
 308 }