Subversion Repositories open8_urisc

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

#   Copyright 2010

#   Free Software Foundation, Inc.

#

# 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.

#

# This file is sourced from generic.em.

fragment <

#include "getopt.h"

static void

gld${EMULATION_NAME}_before_parse (void)

{

  ldfile_set_output_arch ("${ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`);

  config.dynamic_link = TRUE;

  config.has_shared = FALSE; /* Not yet.  */

}

/* This is called before the input files are opened.  We add the

   standard library.  */

static void

gld${EMULATION_NAME}_create_output_section_statements (void)

{

  lang_add_input_file ("imagelib", lang_input_file_is_l_enum, NULL);

  lang_add_input_file ("starlet", lang_input_file_is_l_enum, NULL);

  lang_add_input_file ("sys\$public_vectors", lang_input_file_is_l_enum, NULL);

}

/* Try to open a dynamic archive.  This is where we know that VMS

   shared images (dynamic libraries) have an extension of .exe.  */

static bfd_boolean

gld${EMULATION_NAME}_open_dynamic_archive (const char *arch ATTRIBUTE_UNUSED,

                                           search_dirs_type *search,

                                           lang_input_statement_type *entry)

{

  char *string;

  if (! entry->maybe_archive)

    return FALSE;

  string = (char *) xmalloc (strlen (search->name)

                             + strlen (entry->filename)

                             + sizeof "/.exe");

  sprintf (string, "%s/%s.exe", search->name, entry->filename);

  if (! ldfile_try_open_bfd (string, entry))

    {

      free (string);

      return FALSE;

    }

  entry->filename = string;

  return TRUE;

}

static int

gld${EMULATION_NAME}_find_potential_libraries

  (char *name, lang_input_statement_type *entry)

{

  return ldfile_open_file_search (name, entry, "", ".olb");

}

/* Place an orphan section.  We use this to put random OVR sections.

   Much borrowed from elf32.em.  */

static lang_output_section_statement_type *

vms_place_orphan (asection *s,

                  const char *secname ATTRIBUTE_UNUSED,

                  int constraint ATTRIBUTE_UNUSED)

{

  static struct orphan_save hold_data =

    {

      "\$DATA\$",

      SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA,

      0, 0, 0, 0

    };

  /* We have nothing to say for anything other than a final link or an excluded

     section.  */

  if (link_info.relocatable

      || (s->flags & (SEC_EXCLUDE | SEC_LOAD)) != SEC_LOAD)

    return NULL;

  /* FIXME: we should place sections by VMS program section flags.  */

  /* Only handle data sections.  */

  if ((s->flags & SEC_DATA) == 0)

    return NULL;

  if (hold_data.os == NULL)

    hold_data.os = lang_output_section_find (hold_data.name);

  if (hold_data.os != NULL)

    {

      lang_add_section (&hold_data.os->children, s, hold_data.os);

      return hold_data.os;

    }

  else

    return NULL;

}

/* VMS specific options.  */

#define OPTION_IDENTIFICATION           (300  + 1)

static void

gld${EMULATION_NAME}_add_options

  (int ns ATTRIBUTE_UNUSED,

   char **shortopts ATTRIBUTE_UNUSED,

   int nl,

   struct option **longopts,

   int nrl ATTRIBUTE_UNUSED,

   struct option **really_longopts ATTRIBUTE_UNUSED)

{

  static const struct option xtra_long[] = {

    {"identification", required_argument, NULL, OPTION_IDENTIFICATION},

    {NULL, no_argument, NULL, 0}

  };

  *longopts

    = xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long));

  memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long));

}

static void

gld${EMULATION_NAME}_list_options (FILE *file)

{

  fprintf (file, _("  --identification           Set the identification of the output\n"));

}

static bfd_boolean

gld${EMULATION_NAME}_handle_option (int optc)

{

  switch (optc)

    {

    default:

      return FALSE;

    case OPTION_IDENTIFICATION:

      /* Currently ignored.  */

      break;

    }

  return TRUE;

}

EOF

LDEMUL_PLACE_ORPHAN=vms_place_orphan

LDEMUL_BEFORE_PARSE=gld"$EMULATION_NAME"_before_parse

LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=gld"$EMULATION_NAME"_create_output_section_statements

LDEMUL_FIND_POTENTIAL_LIBRARIES=gld"$EMULATION_NAME"_find_potential_libraries

LDEMUL_OPEN_DYNAMIC_ARCHIVE=gld"$EMULATION_NAME"_open_dynamic_archive

LDEMUL_ADD_OPTIONS=gld"$EMULATION_NAME"_add_options

LDEMUL_HANDLE_OPTION=gld"$EMULATION_NAME"_handle_option

LDEMUL_LIST_OPTIONS=gld"$EMULATION_NAME"_list_options