[thirdparty/binutils-gdb.git] / ld / emultempl / msp430.em

# 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-2016 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;
  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)
    {
      name = ACONCAT ((secname, NULL));

      * strchr (name + 1, '.') = 0;
    }
  else
    name = (char *) secname;
  
  lower_name = ACONCAT ((".lower", name, NULL));
  upper_name = ACONCAT ((".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);
	  return NULL;
	}
    }
  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);
  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
# \f
# Local Variables:
# mode: c
# End:
Commit	Line	Data
837a17b3 NC	1	# This shell script emits a C file. -- C --
	2	# It does some substitutions.
	3	fragment <<EOF
	4	/* This file is is generated by a shell script. DO NOT EDIT! */
	5
	6	/* Emulate the original gld for the given ${EMULATION_NAME}
6f2750fe	7	Copyright (C) 2014-2016 Free Software Foundation, Inc.
837a17b3 NC	8	Written by Steve Chamberlain steve@cygnus.com
	9	Extended for the MSP430 by Nick Clifton nickc@redhat.com
	10
	11	This file is part of the GNU Binutils.
	12
	13	This program is free software; you can redistribute it and/or modify
	14	it under the terms of the GNU General Public License as published by
	15	the Free Software Foundation; either version 3 of the License, or
	16	(at your option) any later version.
	17
	18	This program is distributed in the hope that it will be useful,
	19	but WITHOUT ANY WARRANTY; without even the implied warranty of
	20	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	21	GNU General Public License for more details.
	22
	23	You should have received a copy of the GNU General Public License
	24	along with this program; if not, write to the Free Software
	25	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
	26	MA 02110-1301, USA. */
	27
	28	#define TARGET_IS_${EMULATION_NAME}
	29
	30	#include "sysdep.h"
	31	#include "bfd.h"
	32	#include "bfdlink.h"
	33
	34	#include "ld.h"
	35	#include "ldmain.h"
	36	#include "ldmisc.h"
	37	#include "ldexp.h"
	38	#include "ldlang.h"
	39	#include "ldfile.h"
	40	#include "ldemul.h"
	41	#include "libiberty.h"
	42
	43	EOF
	44
	45	# Import any needed special functions and/or overrides.
	46	#
	47	if test -n "$EXTRA_EM_FILE" ; then
	48	source_em ${srcdir}/emultempl/${EXTRA_EM_FILE}.em
	49	fi
	50
	51	if test x"$LDEMUL_BEFORE_PARSE" != xgld"$EMULATION_NAME"_before_parse; then
	52	fragment <<EOF
	53
	54	static void
	55	gld${EMULATION_NAME}_before_parse (void)
	56	{
	57	#ifndef TARGET_ /* I.e., if not generic. */
	58	ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown);
	59	#endif /* not TARGET_ */
	60
	61	/* The MSP430 port needs linker relaxtion in order to cope with large
	62	functions where conditional branches do not fit into a +/- 1024 byte range. */
0e1862bb	63	if (!bfd_link_relocatable (&link_info))
837a17b3 NC	64	TARGET_ENABLE_RELAXATION;
	65	}
	66
	67	EOF
	68	fi
	69
	70	if test x"$LDEMUL_GET_SCRIPT" != xgld"$EMULATION_NAME"_get_script; then
	71	fragment <<EOF
	72
	73	static char *
	74	gld${EMULATION_NAME}_get_script (int *isfile)
	75	EOF
	76
	77	if test x"$COMPILE_IN" = xyes
	78	then
	79	# Scripts compiled in.
	80
	81	# sed commands to quote an ld script as a C string.
	82	sc="-f stringify.sed"
	83
	84	fragment <<EOF
	85	{
	86	*isfile = 0;
	87
0e1862bb	88	if (bfd_link_relocatable (&link_info) && config.build_constructors)
837a17b3 NC	89	return
	90	EOF
	91	sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
0e1862bb	92	echo ' ; else if (bfd_link_relocatable (&link_info)) return' >> e${EMULATION_NAME}.c
837a17b3 NC	93	sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
	94	echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
	95	sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
	96	echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
	97	sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
	98	echo ' ; else return' >> e${EMULATION_NAME}.c
	99	sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
	100	echo '; }' >> e${EMULATION_NAME}.c
	101
	102	else
	103	# Scripts read from the filesystem.
	104
	105	fragment <<EOF
	106	{
	107	*isfile = 1;
	108
0e1862bb	109	if (bfd_link_relocatable (&link_info) && config.build_constructors)
837a17b3	110	return "ldscripts/${EMULATION_NAME}.xu";
0e1862bb	111	else if (bfd_link_relocatable (&link_info))
837a17b3 NC	112	return "ldscripts/${EMULATION_NAME}.xr";
	113	else if (!config.text_read_only)
	114	return "ldscripts/${EMULATION_NAME}.xbn";
	115	else if (!config.magic_demand_paged)
	116	return "ldscripts/${EMULATION_NAME}.xn";
	117	else
	118	return "ldscripts/${EMULATION_NAME}.x";
	119	}
	120	EOF
	121	fi
	122	fi
	123
	124	if test x"$LDEMUL_PLACE_ORPHAN" != xgld"$EMULATION_NAME"_place_orphan; then
	125	fragment <<EOF
	126
	127	/* Helper function for place_orphan that computes the size
	128	of sections already mapped to the given statement. */
	129
	130	static bfd_size_type
	131	scan_children (lang_statement_union_type * l)
	132	{
	133	bfd_size_type amount = 0;
	134
	135	while (l != NULL)
	136	{
	137	switch (l->header.type)
	138	{
	139	case lang_input_section_enum:
	140	if (l->input_section.section->flags & SEC_ALLOC)
	141	amount += l->input_section.section->size;
	142	break;
	143
	144	case lang_constructors_statement_enum:
	145	case lang_assignment_statement_enum:
	146	break;
	147
	148	case lang_wild_statement_enum:
	149	amount += scan_children (l->wild_statement.children.head);
	150	break;
	151
	152	default:
	153	fprintf (stderr, "msp430 orphan placer: unhandled lang type %d\n", l->header.type);
	154	break;
	155	}
	156
	157	l = l->header.next;
	158	}
	159
	160	return amount;
	161	}
	162
	163	/* Place an orphan section. We use this to put .either sections
	164	into either their lower or their upper equivalents. */
	165
	166	static lang_output_section_statement_type *
	167	gld${EMULATION_NAME}_place_orphan (asection * s,
	168	const char * secname,
	169	int constraint)
	170	{
	171	char * lower_name;
	172	char * upper_name;
	173	char * name;
	174	lang_output_section_statement_type * lower;
	175	lang_output_section_statement_type * upper;
176	lang_output_section_statement_type * os;
177
178	if ((s->flags & SEC_ALLOC) == 0)
179	return NULL;
180
0e1862bb	181	if (bfd_link_relocatable (&link_info))
837a17b3 NC	182	return NULL;
	183
	184	/* If constraints are involved let the linker handle the placement normally. */
	185	if (constraint != 0)
	186	return NULL;
	187
	188	/* We only need special handling for .either sections. */
	189	if (strncmp (secname, ".either.", 8) != 0)
	190	return NULL;
	191
	192	/* Skip the .either prefix. */
	193	secname += 7;
	194
	195	/* Compute the names of the corresponding upper and lower
	196	sections. If the input section name contains another period,
	197	only use the part of the name before the second dot. */
	198	if (strchr (secname + 1, '.') != NULL)
	199	{
	200	name = ACONCAT ((secname, NULL));
	201
	202	* strchr (name + 1, '.') = 0;
	203	}
	204	else
	205	name = (char *) secname;
	206
	207	lower_name = ACONCAT ((".lower", name, NULL));
	208	upper_name = ACONCAT ((".upper", name, NULL));
	209
	210	/* Find the corresponding lower and upper sections. */
	211	lower = lang_output_section_find (lower_name);
	212	upper = lang_output_section_find (upper_name);
	213	/* If the upper section does not exist, try again without the suffix. */
	214	if (upper == NULL)
	215	upper = lang_output_section_find (name);
	216
	217	if (lower == NULL)
	218	{
	219	os = upper;
	220	if (upper == NULL)
	221	{
	222	einfo ("%P: error: no section named %s or %s in linker script\n", lower_name, upper_name);
	223	return NULL;
	224	}
	225	}
	226	else if (upper == NULL)
	227	os = lower;
	228	else if (lower->region == NULL)
	229	os = lower;
	230	/* If the section is too big for the region containing
	231	the lower section then do not even try to use it. */
	232	else if (lower->region->length < s->size)
	233	os = upper;
	234	else
	235	{
	236	bfd_size_type amount = 0;
	237	struct lang_output_section_statement_struct * p;
	238
	239	amount += scan_children (lower->children.head);
	240
	241	/* Also check forwards for other statements assigned to the same region. */
	242	for (p = lower->next; p != NULL; p = p->next)
	243	if (p->region == lower->region)
	244	amount += scan_children (p->children.head);
	245
246	/* Scan backwards as well. */
247	for (p = lower->prev; p != NULL; p = p->prev)
248	if (p->region == lower->region)
249	amount += scan_children (p->children.head);
250
251	if (amount + s->size >= lower->region->length)
252	os = upper;
253	else
254	os = lower;
255	}
256
257	lang_add_section (& os->children, s, NULL, os);
258	return os;
259	}
260	EOF
261	fi
262
263	fragment <<EOF
264
265	struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
266	{
267	${LDEMUL_BEFORE_PARSE-gld${EMULATION_NAME}_before_parse},
268	${LDEMUL_SYSLIB-syslib_default},
269	${LDEMUL_HLL-hll_default},
270	${LDEMUL_AFTER_PARSE-after_parse_default},
271	${LDEMUL_AFTER_OPEN-after_open_default},
272	${LDEMUL_AFTER_ALLOCATION-after_allocation_default},
273	${LDEMUL_SET_OUTPUT_ARCH-set_output_arch_default},
274	${LDEMUL_CHOOSE_TARGET-ldemul_default_target},
275	${LDEMUL_BEFORE_ALLOCATION-before_allocation_default},
276	${LDEMUL_GET_SCRIPT-gld${EMULATION_NAME}_get_script},
277	"${EMULATION_NAME}",
278	"${OUTPUT_FORMAT}",
279	${LDEMUL_FINISH-finish_default},
280	${LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS-NULL},
281	${LDEMUL_OPEN_DYNAMIC_ARCHIVE-NULL},
282	${LDEMUL_PLACE_ORPHAN-gld${EMULATION_NAME}_place_orphan},
283	${LDEMUL_SET_SYMBOLS-NULL},
284	${LDEMUL_PARSE_ARGS-NULL},
285	${LDEMUL_ADD_OPTIONS-NULL},
286	${LDEMUL_HANDLE_OPTION-NULL},
287	${LDEMUL_UNRECOGNIZED_FILE-NULL},
288	${LDEMUL_LIST_OPTIONS-NULL},
289	${LDEMUL_RECOGNIZED_FILE-NULL},
290	${LDEMUL_FIND_POTENTIAL_LIBRARIES-NULL},
291	${LDEMUL_NEW_VERS_PATTERN-NULL},
292	${LDEMUL_EXTRA_MAP_FILE_TEXT-NULL}
293	};
294	EOF
295	# \f
296	# Local Variables:
297	# mode: c
298	# End: