binutils-gdb/ld/emultempl/mmix-elfnmmo.em

# This shell script emits a C file. -*- C -*-
#   Copyright 2001, 2002 Free Software Foundation, Inc.
#
# This file is part of GLD, the Gnu Linker.
#
# 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#

# This file is sourced from elf32.em and mmo.em, used to define
# MMIX-specific things common to ELF and MMO.

cat >>e${EMULATION_NAME}.c <<EOF
#include "elf/mmix.h"

static void mmix_before_allocation PARAMS ((void));
static void mmix_after_allocation PARAMS ((void));

/* Set up handling of linker-allocated global registers.  */

static void
mmix_before_allocation ()
{
  /* Call the default first.  */
  gld${EMULATION_NAME}_before_allocation ();

  /* There's a needrelax.em which uses this ..._before_allocation-hook and
     just has the statement below as payload.  It's more of a hassle to
     use that than to just include these two lines and take the
     maintenance burden to keep them in sync.  (Of course we lose the
     maintenance burden of checking that it still does what we need.)  */

  /* Force -relax on if not doing a relocatable link.  */
  if (! link_info.relocateable)
    command_line.relax = true;

  if (!_bfd_mmix_prepare_linker_allocated_gregs (output_bfd, &link_info))
    einfo ("%X%P: Internal problems setting up section %s",
	   MMIX_LD_ALLOCATED_REG_CONTENTS_SECTION_NAME);
}

/* We need to set the VMA of the .MMIX.reg_contents section when it has
   been allocated, and produce the final settings for the linker-generated
   GREGs.  */

static void
mmix_after_allocation ()
{
  asection *sec
    = bfd_get_section_by_name (output_bfd, MMIX_REG_CONTENTS_SECTION_NAME);
  bfd_vma regvma;

  /* If there's no register section, we don't need to do anything.  */
  if (sec == NULL)
    return;

  regvma = 256 * 8 - sec->_raw_size - 8;

  /* If we start on a local register, we have too many global registers.  */
  if (regvma < 32 * 8)
    einfo ("%X%P: Too many global registers: %u, max 223\n",
	   (unsigned) sec->_raw_size / 8);

  /* Set vma to correspond to first such register number * 8.  */
  bfd_set_section_vma (output_bfd, sec, regvma);

  /* ??? Why isn't the section size (_cooked_size) set?  Doesn't it get
     set regardless of presence of relocations?  */
  if (sec->_cooked_size == 0
      && ! bfd_set_section_size (output_bfd, sec, sec->_raw_size))
    {
      einfo ("%X%P: Can't set section %s size to %u\n",
	     MMIX_REG_CONTENTS_SECTION_NAME, (unsigned) sec->_raw_size);
      return;
    }

  /* Simplify symbol output for the register section (without contents;
     created for register symbols) by setting the output offset to 0.
     This section is only present when there are register symbols.  */
  sec = bfd_get_section_by_name (output_bfd, MMIX_REG_SECTION_NAME);
  if (sec != NULL)
    bfd_set_section_vma (abfd, sec, 0);

  if (!_bfd_mmix_finalize_linker_allocated_gregs (output_bfd, &link_info))
    {
      einfo ("%X%P: Can't finalize linker-allocated global registers\n");
      /* In case stuff is added after this conditional.  */
      return;
    }
}
EOF

LDEMUL_AFTER_ALLOCATION=mmix_after_allocation
LDEMUL_BEFORE_ALLOCATION=mmix_before_allocation