mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-02 18:53:22 +00:00
305 lines
8.6 KiB
Plaintext
305 lines
8.6 KiB
Plaintext
# This shell script emits a C file. -*- C -*-
|
||
# It does some substitutions.
|
||
fragment <<EOF
|
||
/* This file is is generated by a shell script. DO NOT EDIT! */
|
||
|
||
/* Emulate the original gld for the given ${EMULATION_NAME}
|
||
Copyright (C) 2014-2017 Free Software Foundation, Inc.
|
||
Written by Steve Chamberlain steve@cygnus.com
|
||
Extended for the MSP430 by Nick Clifton nickc@redhat.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. */
|
||
|
||
#define TARGET_IS_${EMULATION_NAME}
|
||
|
||
#include "sysdep.h"
|
||
#include "bfd.h"
|
||
#include "bfdlink.h"
|
||
|
||
#include "ld.h"
|
||
#include "ldmain.h"
|
||
#include "ldmisc.h"
|
||
#include "ldexp.h"
|
||
#include "ldlang.h"
|
||
#include "ldfile.h"
|
||
#include "ldemul.h"
|
||
#include "libiberty.h"
|
||
|
||
EOF
|
||
|
||
# Import any needed special functions and/or overrides.
|
||
#
|
||
if test -n "$EXTRA_EM_FILE" ; then
|
||
source_em ${srcdir}/emultempl/${EXTRA_EM_FILE}.em
|
||
fi
|
||
|
||
if test x"$LDEMUL_BEFORE_PARSE" != xgld"$EMULATION_NAME"_before_parse; then
|
||
fragment <<EOF
|
||
|
||
static void
|
||
gld${EMULATION_NAME}_before_parse (void)
|
||
{
|
||
#ifndef TARGET_ /* I.e., if not generic. */
|
||
ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown);
|
||
#endif /* not TARGET_ */
|
||
|
||
/* The MSP430 port *needs* linker relaxtion in order to cope with large
|
||
functions where conditional branches do not fit into a +/- 1024 byte range. */
|
||
if (!bfd_link_relocatable (&link_info))
|
||
TARGET_ENABLE_RELAXATION;
|
||
}
|
||
|
||
EOF
|
||
fi
|
||
|
||
if test x"$LDEMUL_GET_SCRIPT" != xgld"$EMULATION_NAME"_get_script; then
|
||
fragment <<EOF
|
||
|
||
static char *
|
||
gld${EMULATION_NAME}_get_script (int *isfile)
|
||
EOF
|
||
|
||
if test x"$COMPILE_IN" = xyes
|
||
then
|
||
# Scripts compiled in.
|
||
|
||
# sed commands to quote an ld script as a C string.
|
||
sc="-f stringify.sed"
|
||
|
||
fragment <<EOF
|
||
{
|
||
*isfile = 0;
|
||
|
||
if (bfd_link_relocatable (&link_info) && config.build_constructors)
|
||
return
|
||
EOF
|
||
sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
|
||
echo ' ; else if (bfd_link_relocatable (&link_info)) 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 <<EOF
|
||
{
|
||
*isfile = 1;
|
||
|
||
if (bfd_link_relocatable (&link_info) && config.build_constructors)
|
||
return "ldscripts/${EMULATION_NAME}.xu";
|
||
else if (bfd_link_relocatable (&link_info))
|
||
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
|
||
fi
|
||
|
||
if test x"$LDEMUL_PLACE_ORPHAN" != xgld"$EMULATION_NAME"_place_orphan; then
|
||
fragment <<EOF
|
||
|
||
/* Helper function for place_orphan that computes the size
|
||
of sections already mapped to the given statement. */
|
||
|
||
static bfd_size_type
|
||
scan_children (lang_statement_union_type * l)
|
||
{
|
||
bfd_size_type amount = 0;
|
||
|
||
while (l != NULL)
|
||
{
|
||
switch (l->header.type)
|
||
{
|
||
case lang_input_section_enum:
|
||
if (l->input_section.section->flags & SEC_ALLOC)
|
||
amount += l->input_section.section->size;
|
||
break;
|
||
|
||
case lang_constructors_statement_enum:
|
||
case lang_assignment_statement_enum:
|
||
break;
|
||
|
||
case lang_wild_statement_enum:
|
||
amount += scan_children (l->wild_statement.children.head);
|
||
break;
|
||
|
||
default:
|
||
fprintf (stderr, "msp430 orphan placer: unhandled lang type %d\n", l->header.type);
|
||
break;
|
||
}
|
||
|
||
l = l->header.next;
|
||
}
|
||
|
||
return amount;
|
||
}
|
||
|
||
/* Place an orphan section. We use this to put .either sections
|
||
into either their lower or their upper equivalents. */
|
||
|
||
static lang_output_section_statement_type *
|
||
gld${EMULATION_NAME}_place_orphan (asection * s,
|
||
const char * secname,
|
||
int constraint)
|
||
{
|
||
char * lower_name;
|
||
char * upper_name;
|
||
char * name;
|
||
char * buf = NULL;
|
||
lang_output_section_statement_type * lower;
|
||
lang_output_section_statement_type * upper;
|
||
lang_output_section_statement_type * os;
|
||
|
||
if ((s->flags & SEC_ALLOC) == 0)
|
||
return NULL;
|
||
|
||
if (bfd_link_relocatable (&link_info))
|
||
return NULL;
|
||
|
||
/* If constraints are involved let the linker handle the placement normally. */
|
||
if (constraint != 0)
|
||
return NULL;
|
||
|
||
/* We only need special handling for .either sections. */
|
||
if (strncmp (secname, ".either.", 8) != 0)
|
||
return NULL;
|
||
|
||
/* Skip the .either prefix. */
|
||
secname += 7;
|
||
|
||
/* Compute the names of the corresponding upper and lower
|
||
sections. If the input section name contains another period,
|
||
only use the part of the name before the second dot. */
|
||
if (strchr (secname + 1, '.') != NULL)
|
||
{
|
||
buf = name = xstrdup (secname);
|
||
|
||
* strchr (name + 1, '.') = 0;
|
||
}
|
||
else
|
||
name = (char *) secname;
|
||
|
||
lower_name = concat (".lower", name, NULL);
|
||
upper_name = concat (".upper", name, NULL);
|
||
|
||
/* Find the corresponding lower and upper sections. */
|
||
lower = lang_output_section_find (lower_name);
|
||
upper = lang_output_section_find (upper_name);
|
||
/* If the upper section does not exist, try again without the suffix. */
|
||
if (upper == NULL)
|
||
upper = lang_output_section_find (name);
|
||
|
||
if (lower == NULL)
|
||
{
|
||
os = upper;
|
||
if (upper == NULL)
|
||
{
|
||
einfo ("%P: error: no section named %s or %s in linker script\n", lower_name, upper_name);
|
||
goto end;
|
||
}
|
||
}
|
||
else if (upper == NULL)
|
||
os = lower;
|
||
else if (lower->region == NULL)
|
||
os = lower;
|
||
/* If the section is too big for the region containing
|
||
the lower section then do not even try to use it. */
|
||
else if (lower->region->length < s->size)
|
||
os = upper;
|
||
else
|
||
{
|
||
bfd_size_type amount = 0;
|
||
struct lang_output_section_statement_struct * p;
|
||
|
||
amount += scan_children (lower->children.head);
|
||
|
||
/* Also check forwards for other statements assigned to the same region. */
|
||
for (p = lower->next; p != NULL; p = p->next)
|
||
if (p->region == lower->region)
|
||
amount += scan_children (p->children.head);
|
||
|
||
/* Scan backwards as well. */
|
||
for (p = lower->prev; p != NULL; p = p->prev)
|
||
if (p->region == lower->region)
|
||
amount += scan_children (p->children.head);
|
||
|
||
if (amount + s->size >= lower->region->length)
|
||
os = upper;
|
||
else
|
||
os = lower;
|
||
}
|
||
|
||
lang_add_section (& os->children, s, NULL, os);
|
||
end:
|
||
free (upper_name);
|
||
free (lower_name);
|
||
if (buf)
|
||
free (buf);
|
||
return os;
|
||
}
|
||
EOF
|
||
fi
|
||
|
||
fragment <<EOF
|
||
|
||
struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
|
||
{
|
||
${LDEMUL_BEFORE_PARSE-gld${EMULATION_NAME}_before_parse},
|
||
${LDEMUL_SYSLIB-syslib_default},
|
||
${LDEMUL_HLL-hll_default},
|
||
${LDEMUL_AFTER_PARSE-after_parse_default},
|
||
${LDEMUL_AFTER_OPEN-after_open_default},
|
||
${LDEMUL_AFTER_ALLOCATION-after_allocation_default},
|
||
${LDEMUL_SET_OUTPUT_ARCH-set_output_arch_default},
|
||
${LDEMUL_CHOOSE_TARGET-ldemul_default_target},
|
||
${LDEMUL_BEFORE_ALLOCATION-before_allocation_default},
|
||
${LDEMUL_GET_SCRIPT-gld${EMULATION_NAME}_get_script},
|
||
"${EMULATION_NAME}",
|
||
"${OUTPUT_FORMAT}",
|
||
${LDEMUL_FINISH-finish_default},
|
||
${LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS-NULL},
|
||
${LDEMUL_OPEN_DYNAMIC_ARCHIVE-NULL},
|
||
${LDEMUL_PLACE_ORPHAN-gld${EMULATION_NAME}_place_orphan},
|
||
${LDEMUL_SET_SYMBOLS-NULL},
|
||
${LDEMUL_PARSE_ARGS-NULL},
|
||
${LDEMUL_ADD_OPTIONS-NULL},
|
||
${LDEMUL_HANDLE_OPTION-NULL},
|
||
${LDEMUL_UNRECOGNIZED_FILE-NULL},
|
||
${LDEMUL_LIST_OPTIONS-NULL},
|
||
${LDEMUL_RECOGNIZED_FILE-NULL},
|
||
${LDEMUL_FIND_POTENTIAL_LIBRARIES-NULL},
|
||
${LDEMUL_NEW_VERS_PATTERN-NULL},
|
||
${LDEMUL_EXTRA_MAP_FILE_TEXT-NULL}
|
||
};
|
||
EOF
|
||
#
|
||
# Local Variables:
|
||
# mode: c
|
||
# End:
|