Subversion Repositories openrisc_me

# This shell script emits a C file. -*- C -*-

# It does some substitutions.

fragment <

/* intel coff loader emulation specific stuff

   Copyright 1991, 1992, 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2003,

   2005, 2007, 2008 Free Software Foundation, Inc.

   Written by Steve Chamberlain steve@cygnus.com

   This file is part of the GNU Binutils.

   This program is free software; you can redistribute it and/or modify

   it under the terms of the GNU General Public License as published by

   the Free Software Foundation; either version 3 of the License, or

   (at your option) any later version.

   This program is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License

   along with this program; if not, write to the Free Software

   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,

   MA 02110-1301, USA.  */

#include "sysdep.h"

#include "libiberty.h"

#include "bfd.h"

#include "bfdlink.h"

/*#include "archures.h"*/

#include "ld.h"

#include "ldmain.h"

#include "ldmisc.h"

#include "ldexp.h"

#include "ldlang.h"

#include "ldfile.h"

#include "ldemul.h"

typedef struct lib_list {

  char *name;

  struct lib_list *next;

} lib_list_type;

static lib_list_type *hll_list;

static lib_list_type **hll_list_tail = &hll_list;

static lib_list_type *syslib_list;

static lib_list_type **syslib_list_tail = &syslib_list;

static void

append (lib_list_type ***list, char *name)

{

  lib_list_type *element = (lib_list_type *) xmalloc (sizeof (lib_list_type));

  element->name = name;

  element->next = (lib_list_type *) NULL;

  **list = element;

  *list = &element->next;

}

static bfd_boolean had_hll = FALSE;

static bfd_boolean had_hll_name = FALSE;

static void

lnk960_hll (char *name)

{

  had_hll = TRUE;

  if (name != (char *) NULL)

    {

      had_hll_name = TRUE;

      append (&hll_list_tail, name);

    }

}

static void

lnk960_syslib (char *name)

{

  append (&syslib_list_tail, name);

}

static void

lnk960_before_parse (void)

{

  char *name = getenv ("I960BASE");

  if (name == (char *) NULL)

    {

      name = getenv("G960BASE");

      if (name == (char *) NULL)

        einfo ("%P%F I960BASE and G960BASE not set\n");

    }

  ldfile_add_library_path (concat (name, "/lib", (const char *) NULL), FALSE);

  ldfile_output_architecture = bfd_arch_i960;

  ldfile_output_machine = bfd_mach_i960_core;

}

static void

add_on (lib_list_type *list, lang_input_file_enum_type search)

{

  while (list)

    {

      lang_add_input_file (list->name, search, (char *) NULL);

      list = list->next;

    }

}

static void

lnk960_after_parse (void)

{

  /* If there has been no arch, default to -KB */

  if (ldfile_output_machine_name[0] == 0)

    ldfile_add_arch ("KB");

  /* if there has been no hll list then add our own */

  if (had_hll && !had_hll_name)

    {

      append (&hll_list_tail, "cg");

      if (ldfile_output_machine == bfd_mach_i960_ka_sa

          || ldfile_output_machine == bfd_mach_i960_ca)

        append (&hll_list_tail, "fpg");

    }

  add_on (hll_list, lang_input_file_is_l_enum);

  add_on (syslib_list, lang_input_file_is_search_file_enum);

}

static void

lnk960_after_allocation (void)

{

  if (!link_info.relocatable)

    {

      lang_abs_symbol_at_end_of (".text", "_etext");

      lang_abs_symbol_at_end_of (".data", "_edata");

      lang_abs_symbol_at_beginning_of (".bss", "_bss_start");

      lang_abs_symbol_at_end_of (".bss", "_end");

    }

}

static struct

 {

   unsigned  long number;

   char *name;

 }

machine_table[] =

{

  { bfd_mach_i960_core  ,"CORE" },

  { bfd_mach_i960_kb_sb ,"KB" },

  { bfd_mach_i960_kb_sb ,"SB" },

  { bfd_mach_i960_mc    ,"MC" },

  { bfd_mach_i960_xa    ,"XA" },

  { bfd_mach_i960_ca    ,"CA" },

  { bfd_mach_i960_ka_sa ,"KA" },

  { bfd_mach_i960_ka_sa ,"SA" },

  { bfd_mach_i960_jx    ,"JX" },

  { bfd_mach_i960_hx    ,"HX" },

  { bfd_mach_i960_core  ,"core" },

  { bfd_mach_i960_kb_sb ,"kb" },

  { bfd_mach_i960_kb_sb ,"sb" },

  { bfd_mach_i960_mc    ,"mc" },

  { bfd_mach_i960_xa    ,"xa" },

  { bfd_mach_i960_ca    ,"ca" },

  { bfd_mach_i960_ka_sa ,"ka" },

  { bfd_mach_i960_ka_sa ,"sa" },

  { bfd_mach_i960_jx    ,"jx" },

  { bfd_mach_i960_hx    ,"hx" },

  { 0, (char *) NULL }

};

static void

lnk960_set_output_arch (void)

{

  /* Set the output architecture and machine if possible */

  unsigned int i;

  ldfile_output_machine = bfd_mach_i960_core;

  for (i= 0; machine_table[i].name != (char*) NULL; i++)

    {

      if (strcmp (ldfile_output_machine_name, machine_table[i].name) == 0)

        {

          ldfile_output_machine = machine_table[i].number;

          break;

        }

    }

  bfd_set_arch_mach (link_info.output_bfd, ldfile_output_architecture,

                     ldfile_output_machine);

}

static char *

lnk960_choose_target (int argc ATTRIBUTE_UNUSED, char **argv ATTRIBUTE_UNUSED)

{

  char *from_outside = getenv (TARGET_ENVIRON);

  if (from_outside != (char *) NULL)

    return from_outside;

#ifdef LNK960_LITTLE

  return "coff-Intel-little";

#else

  return "coff-Intel-big";

#endif

}

static char *

lnk960_get_script (int *isfile)

EOF

if test -n "$COMPILE_IN"

then

# Scripts compiled in.

# sed commands to quote an ld script as a C string.

sc="-f stringify.sed"

fragment <

{

  *isfile = 0;

  if (link_info.relocatable && config.build_constructors)

    return

EOF

sed $sc ldscripts/${EMULATION_NAME}.xu                 >> e${EMULATION_NAME}.c

echo '  ; else if (link_info.relocatable) return'     >> e${EMULATION_NAME}.c

sed $sc ldscripts/${EMULATION_NAME}.xr                 >> e${EMULATION_NAME}.c

echo '  ; else if (!config.text_read_only) return'     >> e${EMULATION_NAME}.c

sed $sc ldscripts/${EMULATION_NAME}.xbn                >> e${EMULATION_NAME}.c

echo '  ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c

sed $sc ldscripts/${EMULATION_NAME}.xn                 >> e${EMULATION_NAME}.c

echo '  ; else return'                                 >> e${EMULATION_NAME}.c

sed $sc ldscripts/${EMULATION_NAME}.x                  >> e${EMULATION_NAME}.c

echo '; }'                                             >> e${EMULATION_NAME}.c

else

# Scripts read from the filesystem.

fragment <

{

  *isfile = 1;

  if (link_info.relocatable && config.build_constructors)

    return "ldscripts/${EMULATION_NAME}.xu";

  else if (link_info.relocatable)

    return "ldscripts/${EMULATION_NAME}.xr";

  else if (!config.text_read_only)

    return "ldscripts/${EMULATION_NAME}.xbn";

  else if (!config.magic_demand_paged)

    return "ldscripts/${EMULATION_NAME}.xn";

  else

    return "ldscripts/${EMULATION_NAME}.x";

}

EOF

fi

fragment <

struct ld_emulation_xfer_struct ld_lnk960_emulation =

{

  lnk960_before_parse,

  lnk960_syslib,

  lnk960_hll,

  lnk960_after_parse,

  NULL,                 /* after_open */

  lnk960_after_allocation,

  lnk960_set_output_arch,

  lnk960_choose_target,

  before_allocation_default,

  lnk960_get_script,

  "lnk960",

  "",

  finish_default,

  NULL, /* create output section statements */

  NULL, /* open dynamic archive */

  NULL, /* place orphan */

  NULL, /* set symbols */

  NULL, /* parse args */

  NULL, /* add_options */

  NULL, /* handle_option */

  NULL, /* unrecognized file */

  NULL, /* list options */

  NULL, /* recognized file */

  NULL, /* find_potential_libraries */

  NULL  /* new_vers_pattern */

};

EOF