ld/emultempl/lnk960.em

   1 # This shell script emits a C file. -*- C -*-
   2 # It does some substitutions.
   3 cat >e${EMULATION_NAME}.c <<EOF
   4 /* intel coff loader emulation specific stuff
   5    Copyright 1991, 1992, 1994, 1995, 1996, 1999, 2000, 2001, 2002
   6    Free Software Foundation, Inc.
   7    Written by Steve Chamberlain steve@cygnus.com
   8
   9 This file is part of GLD, the Gnu Linker.
  10
  11 GLD is free software; you can redistribute it and/or modify
  12 it under the terms of the GNU General Public License as published by
  13 the Free Software Foundation; either version 2, or (at your option)
  14 any later version.
  15
  16 GLD is distributed in the hope that it will be useful,
  17 but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 GNU General Public License for more details.
  20
  21 You should have received a copy of the GNU General Public License
  22 along with GLD; see the file COPYING.  If not, write to
  23 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  24
  25 #include "libiberty.h"
  26 #include "bfd.h"
  27 #include "sysdep.h"
  28 #include "bfdlink.h"
  29
  30 /*#include "archures.h"*/
  31 #include "ld.h"
  32 #include "ldmain.h"
  33 #include "ldmisc.h"
  34 #include "ldexp.h"
  35 #include "ldlang.h"
  36 #include "ldfile.h"
  37 #include "ldemul.h"
  38
  39 typedef struct lib_list {
  40   char *name;
  41   struct lib_list *next;
  42 } lib_list_type;
  43
  44 static lib_list_type *hll_list;
  45 static lib_list_type **hll_list_tail = &hll_list;
  46
  47 static lib_list_type *syslib_list;
  48 static lib_list_type **syslib_list_tail = &syslib_list;
  49
  50 static void append PARAMS ((lib_list_type ***, char *));
  51 static void lnk960_hll PARAMS ((char *));
  52 static void lnk960_syslib PARAMS ((char *));
  53 static void lnk960_before_parse PARAMS ((void));
  54 static void add_on PARAMS ((lib_list_type *, lang_input_file_enum_type));
  55 static void lnk960_after_parse PARAMS ((void));
  56 static void lnk960_before_allocation PARAMS ((void));
  57 static void lnk960_after_allocation PARAMS ((void));
  58 static void lnk960_set_output_arch PARAMS ((void));
  59 static char *lnk960_choose_target PARAMS ((int, char **));
  60 static char *lnk960_get_script PARAMS ((int *));
  61
  62
  63 static void
  64 append (list, name)
  65      lib_list_type ***list;
  66      char *name;
  67 {
  68   lib_list_type *element = (lib_list_type *) xmalloc (sizeof (lib_list_type));
  69
  70   element->name = name;
  71   element->next = (lib_list_type *) NULL;
  72   **list = element;
  73   *list = &element->next;
  74
  75 }
  76
  77 static bfd_boolean had_hll = FALSE;
  78 static bfd_boolean had_hll_name = FALSE;
  79
  80 static void
  81 lnk960_hll (name)
  82      char *name;
  83 {
  84   had_hll = TRUE;
  85   if (name != (char *) NULL)
  86     {
  87       had_hll_name = TRUE;
  88       append (&hll_list_tail, name);
  89     }
  90 }
  91
  92 static void
  93 lnk960_syslib (name)
  94      char *name;
  95 {
  96   append (&syslib_list_tail, name);
  97 }
  98
  99
 100 #ifdef GNU960
 101
 102 static void
 103 lnk960_before_parse ()
 104 {
 105   static char *env_variables[] = { "G960LIB", "G960BASE", 0 };
 106   char **p;
 107   char *env ;
 108
 109   for (p = env_variables; *p; p++)
 110     {
 111       env = (char *) getenv (*p);
 112       if (env)
 113         ldfile_add_library_path (concat (env, "/lib/libcoff", ""), FALSE);
 114     }
 115
 116   env = (char *) getenv ("I960BASE");
 117   if (env)
 118     ldfile_add_library_path(concat (env, "/lib", ""), FALSE);
 119
 120   ldfile_output_architecture = bfd_arch_i960;
 121   ldfile_output_machine = bfd_mach_i960_core;
 122 }
 123
 124 #else   /* not GNU960 */
 125
 126 static void
 127 lnk960_before_parse ()
 128 {
 129   char *name = getenv ("I960BASE");
 130
 131   if (name == (char *) NULL)
 132     {
 133       name = getenv("G960BASE");
 134       if (name == (char *) NULL)
 135         einfo ("%P%F I960BASE and G960BASE not set\n");
 136     }
 137
 138
 139   ldfile_add_library_path (concat (name, "/lib", ""), FALSE);
 140   ldfile_output_architecture = bfd_arch_i960;
 141   ldfile_output_machine = bfd_mach_i960_core;
 142 }
 143
 144 #endif  /* GNU960 */
 145
 146
 147 static void
 148 add_on (list, search)
 149      lib_list_type *list;
 150      lang_input_file_enum_type search;
 151 {
 152   while (list)
 153     {
 154       lang_add_input_file (list->name, search, (char *) NULL);
 155       list = list->next;
 156     }
 157 }
 158 static void
 159 lnk960_after_parse ()
 160 {
 161   /* If there has been no arch, default to -KB */
 162   if (ldfile_output_machine_name[0] == 0)
 163     ldfile_add_arch ("KB");
 164
 165   /* if there has been no hll list then add our own */
 166
 167   if (had_hll && !had_hll_name)
 168     {
 169       append (&hll_list_tail, "cg");
 170       if (ldfile_output_machine == bfd_mach_i960_ka_sa
 171           || ldfile_output_machine == bfd_mach_i960_ca)
 172         append (&hll_list_tail, "fpg");
 173     }
 174
 175   add_on (hll_list, lang_input_file_is_l_enum);
 176   add_on (syslib_list, lang_input_file_is_search_file_enum);
 177 }
 178
 179 static void
 180 lnk960_before_allocation ()
 181 {
 182 }
 183
 184 static void
 185 lnk960_after_allocation ()
 186 {
 187   if (!link_info.relocateable)
 188     {
 189       lang_abs_symbol_at_end_of (".text", "_etext");
 190       lang_abs_symbol_at_end_of (".data", "_edata");
 191       lang_abs_symbol_at_beginning_of (".bss", "_bss_start");
 192       lang_abs_symbol_at_end_of (".bss", "_end");
 193     }
 194 }
 195
 196
 197 static struct
 198  {
 199    unsigned  long number;
 200    char *name;
 201  }
 202 machine_table[] =
 203 {
 204   { bfd_mach_i960_core  ,"CORE" },
 205   { bfd_mach_i960_kb_sb ,"KB" },
 206   { bfd_mach_i960_kb_sb ,"SB" },
 207   { bfd_mach_i960_mc    ,"MC" },
 208   { bfd_mach_i960_xa    ,"XA" },
 209   { bfd_mach_i960_ca    ,"CA" },
 210   { bfd_mach_i960_ka_sa ,"KA" },
 211   { bfd_mach_i960_ka_sa ,"SA" },
 212   { bfd_mach_i960_jx    ,"JX" },
 213   { bfd_mach_i960_hx    ,"HX" },
 214
 215   { bfd_mach_i960_core  ,"core" },
 216   { bfd_mach_i960_kb_sb ,"kb" },
 217   { bfd_mach_i960_kb_sb ,"sb" },
 218   { bfd_mach_i960_mc    ,"mc" },
 219   { bfd_mach_i960_xa    ,"xa" },
 220   { bfd_mach_i960_ca    ,"ca" },
 221   { bfd_mach_i960_ka_sa ,"ka" },
 222   { bfd_mach_i960_ka_sa ,"sa" },
 223   { bfd_mach_i960_jx    ,"jx" },
 224   { bfd_mach_i960_hx    ,"hx" },
 225
 226   { 0, (char *) NULL }
 227 };
 228
 229 static void
 230 lnk960_set_output_arch ()
 231 {
 232   /* Set the output architecture and machine if possible */
 233   unsigned int i;
 234   ldfile_output_machine = bfd_mach_i960_core;
 235   for (i= 0; machine_table[i].name != (char*) NULL; i++)
 236     {
 237       if (strcmp (ldfile_output_machine_name, machine_table[i].name) == 0)
 238         {
 239           ldfile_output_machine = machine_table[i].number;
 240           break;
 241         }
 242     }
 243   bfd_set_arch_mach (output_bfd, ldfile_output_architecture,
 244                      ldfile_output_machine);
 245 }
 246
 247 static char *
 248 lnk960_choose_target (argc, argv)
 249     int argc ATTRIBUTE_UNUSED;
 250     char **argv ATTRIBUTE_UNUSED;
 251 {
 252 #ifdef GNU960
 253
 254   return bfd_make_targ_name (BFD_COFF_FORMAT, 0);
 255
 256 #else
 257
 258   char *from_outside = getenv (TARGET_ENVIRON);
 259   if (from_outside != (char *) NULL)
 260     return from_outside;
 261 #ifdef LNK960_LITTLE
 262   return "coff-Intel-little";
 263 #else
 264   return "coff-Intel-big";
 265 #endif
 266 #endif
 267
 268 }
 269
 270 static char *
 271 lnk960_get_script (isfile)
 272      int *isfile;
 273 EOF
 274
 275 if test -n "$COMPILE_IN"
 276 then
 277 # Scripts compiled in.
 278
 279 # sed commands to quote an ld script as a C string.
 280 sc="-f stringify.sed"
 281
 282 cat >>e${EMULATION_NAME}.c <<EOF
 283 {
 284   *isfile = 0;
 285
 286   if (link_info.relocateable && config.build_constructors)
 287     return
 288 EOF
 289 sed $sc ldscripts/${EMULATION_NAME}.xu                 >> e${EMULATION_NAME}.c
 290 echo '  ; else if (link_info.relocateable) return'     >> e${EMULATION_NAME}.c
 291 sed $sc ldscripts/${EMULATION_NAME}.xr                 >> e${EMULATION_NAME}.c
 292 echo '  ; else if (!config.text_read_only) return'     >> e${EMULATION_NAME}.c
 293 sed $sc ldscripts/${EMULATION_NAME}.xbn                >> e${EMULATION_NAME}.c
 294 echo '  ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
 295 sed $sc ldscripts/${EMULATION_NAME}.xn                 >> e${EMULATION_NAME}.c
 296 echo '  ; else return'                                 >> e${EMULATION_NAME}.c
 297 sed $sc ldscripts/${EMULATION_NAME}.x                  >> e${EMULATION_NAME}.c
 298 echo '; }'                                             >> e${EMULATION_NAME}.c
 299
 300 else
 301 # Scripts read from the filesystem.
 302
 303 cat >>e${EMULATION_NAME}.c <<EOF
 304 {
 305   *isfile = 1;
 306
 307   if (link_info.relocateable && config.build_constructors)
 308     return "ldscripts/${EMULATION_NAME}.xu";
 309   else if (link_info.relocateable)
 310     return "ldscripts/${EMULATION_NAME}.xr";
 311   else if (!config.text_read_only)
 312     return "ldscripts/${EMULATION_NAME}.xbn";
 313   else if (!config.magic_demand_paged)
 314     return "ldscripts/${EMULATION_NAME}.xn";
 315   else
 316     return "ldscripts/${EMULATION_NAME}.x";
 317 }
 318 EOF
 319
 320 fi
 321
 322 cat >>e${EMULATION_NAME}.c <<EOF
 323
 324 struct ld_emulation_xfer_struct ld_lnk960_emulation =
 325 {
 326   lnk960_before_parse,
 327   lnk960_syslib,
 328   lnk960_hll,
 329   lnk960_after_parse,
 330   NULL,                 /* after_open */
 331   lnk960_after_allocation,
 332   lnk960_set_output_arch,
 333   lnk960_choose_target,
 334   lnk960_before_allocation,
 335   lnk960_get_script,
 336   "lnk960",
 337   "",
 338   NULL, /* finish */
 339   NULL, /* create output section statements */
 340   NULL, /* open dynamic archive */
 341   NULL, /* place orphan */
 342   NULL, /* set symbols */
 343   NULL, /* parse args */
 344   NULL, /* unrecognized file */
 345   NULL, /* list options */
 346   NULL, /* recognized file */
 347   NULL, /* find_potential_libraries */
 348   NULL  /* new_vers_pattern */
 349 };
 350 EOF