[deliverable/binutils-gdb.git] / ld / emultempl / armelf.em

# This shell script emits a C file. -*- C -*-
#   Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004
#   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 defines extra arm-elf
# specific routines.
#
test -z $TARGET2_TYPE && TARGET2_TYPE="rel"
cat >>e${EMULATION_NAME}.c <<EOF

static int no_pipeline_knowledge = 0;
static char *thumb_entry_symbol = NULL;
static bfd *bfd_for_interwork;
static int byteswap_code = 0;
static int target1_is_rel = 0${TARGET1_IS_REL};
static char *target2_type = "${TARGET2_TYPE}";

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_ */
  config.dynamic_link = ${DYNAMIC_LINK-TRUE};
  config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo TRUE ; else echo FALSE ; fi`;
}

static void
arm_elf_after_open (void)
{
  if (strstr (bfd_get_target (output_bfd), "arm") == NULL)
    {
      /* The arm backend needs special fields in the output hash structure.
	 These will only be created if the output format is an arm format,
	 hence we do not support linking and changing output formats at the
	 same time.  Use a link followed by objcopy to change output formats.  */
      einfo ("%F%X%P: error: cannot change output format whilst linking ARM binaries\n");
      return;
    }

  {
    LANG_FOR_EACH_INPUT_STATEMENT (is)
      {
	bfd_elf32_arm_add_glue_sections_to_bfd (is->the_bfd, & link_info);
      }
  }

  /* Call the standard elf routine.  */
  gld${EMULATION_NAME}_after_open ();
}

static void
arm_elf_set_bfd_for_interworking (lang_statement_union_type *statement)
{
  if (statement->header.type == lang_input_section_enum
      && !statement->input_section.ifile->just_syms_flag
      && (statement->input_section.section->flags & SEC_EXCLUDE) == 0)
    {
      asection *i = statement->input_section.section;
      asection *output_section = i->output_section;

      ASSERT (output_section->owner == output_bfd);

      /* Don't attach the interworking stubs to a dynamic object, to
	 an empty section, etc.  */
      if ((output_section->flags & SEC_HAS_CONTENTS) != 0
	  && (i->flags & SEC_NEVER_LOAD) == 0
	  && ! (i->owner->flags & DYNAMIC)
	  && ! i->owner->output_has_begun)
	{
	  bfd_for_interwork = i->owner;
	  bfd_for_interwork->output_has_begun = TRUE;
	}
    }
}

static void
arm_elf_before_allocation (void)
{
  bfd *tem;

  /* Call the standard elf routine.  */
  gld${EMULATION_NAME}_before_allocation ();

  if (link_info.input_bfds != NULL)
    {
      /* The interworking bfd must be the last one in the link.  */
      bfd_for_interwork = NULL;
      for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next)
	tem->output_has_begun = FALSE;

      lang_for_each_statement (arm_elf_set_bfd_for_interworking);
      for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next)
	tem->output_has_begun = FALSE;

      /* If bfd_for_interwork is NULL, then there are no loadable sections
	 with real contents to be linked, so we are not going to have to
	 create any interworking stubs, so it is OK not to call
	 bfd_elf32_arm_get_bfd_for_interworking.  */
      if (bfd_for_interwork != NULL)
	bfd_elf32_arm_get_bfd_for_interworking (bfd_for_interwork, &link_info);
    }
  /* We should be able to set the size of the interworking stub section.  */

  /* Here we rummage through the found bfds to collect glue information.  */
  /* FIXME: should this be based on a command line option? krk@cygnus.com  */
  {
    LANG_FOR_EACH_INPUT_STATEMENT (is)
      {
	if (!bfd_elf32_arm_process_before_allocation (is->the_bfd, & link_info,
						      no_pipeline_knowledge,
						      byteswap_code))
	  {
	    /* xgettext:c-format */
	    einfo (_("Errors encountered processing file %s"), is->filename);
	  }
      }
  }

  /* We have seen it all. Allocate it, and carry on.  */
  bfd_elf32_arm_allocate_interworking_sections (& link_info);
}

static void
arm_elf_finish (void)
{
  struct bfd_link_hash_entry * h;

  /* Call the elf32.em routine.  */
  gld${EMULATION_NAME}_finish ();

  if (thumb_entry_symbol == NULL)
    return;

  h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol,
			    FALSE, FALSE, TRUE);

  if (h != (struct bfd_link_hash_entry *) NULL
      && (h->type == bfd_link_hash_defined
	  || h->type == bfd_link_hash_defweak)
      && h->u.def.section->output_section != NULL)
    {
      static char buffer[32];
      bfd_vma val;

      /* Special procesing is required for a Thumb entry symbol.  The
	 bottom bit of its address must be set.  */
      val = (h->u.def.value
	     + bfd_get_section_vma (output_bfd,
				    h->u.def.section->output_section)
	     + h->u.def.section->output_offset);

      val |= 1;

      /* Now convert this value into a string and store it in entry_symbol
	 where the lang_finish() function will pick it up.  */
      buffer[0] = '0';
      buffer[1] = 'x';

      sprintf_vma (buffer + 2, val);

      if (entry_symbol.name != NULL && entry_from_cmdline)
	einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"),
	       thumb_entry_symbol, entry_symbol.name);
      entry_symbol.name = buffer;
    }
  else
    einfo (_("%P: warning: connot find thumb start symbol %s\n"),
	   thumb_entry_symbol);
}

/* This is a convenitent point to tell BFD about target specific flags.
   After the output has been created, but before inputs are read.  */
static void
arm_elf_create_output_section_statements (void)
{
  bfd_elf32_arm_set_target_relocs (&link_info, target1_is_rel, target2_type);
}

EOF

# Define some shell vars to insert bits of code into the standard elf
# parse_args and list_options functions.
#
PARSE_AND_LIST_PROLOGUE='
#define OPTION_THUMB_ENTRY		301
#define OPTION_BE8			302
#define OPTION_TARGET1_REL		303
#define OPTION_TARGET1_ABS		304
#define OPTION_TARGET2			305
'

PARSE_AND_LIST_SHORTOPTS=p

PARSE_AND_LIST_LONGOPTS='
  { "no-pipeline-knowledge", no_argument, NULL, '\'p\''},
  { "thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
  { "be8", no_argument, NULL, OPTION_BE8},
  { "target1-rel", no_argument, NULL, OPTION_TARGET1_REL},
  { "target1-abs", no_argument, NULL, OPTION_TARGET1_ABS},
  { "target2", required_argument, NULL, OPTION_TARGET2},
'

PARSE_AND_LIST_OPTIONS='
  fprintf (file, _("  -p --no-pipeline-knowledge  Stop the linker knowing about the pipeline length\n"));
  fprintf (file, _("     --thumb-entry=<sym>      Set the entry point to be Thumb symbol <sym>\n"));
  fprintf (file, _("     --be8                    Oputput BE8 format image\n"));
  fprintf (file, _("     --target1=rel            Interpret R_ARM_TARGET1 as R_ARM_REL32\n"));
  fprintf (file, _("     --target1=abs            Interpret R_ARM_TARGET1 as R_ARM_ABS32\n"));
  fprintf (file, _("     --target2=<type>         Specify definition of R_ARM_TARGET2\n"));
'

PARSE_AND_LIST_ARGS_CASES='
    case '\'p\'':
      no_pipeline_knowledge = 1;
      break;

    case OPTION_THUMB_ENTRY:
      thumb_entry_symbol = optarg;
      break;

    case OPTION_BE8:
      byteswap_code = 1;
      break;

    case OPTION_TARGET1_REL:
      target1_is_rel = 1;
      break;

    case OPTION_TARGET1_ABS:
      target1_is_rel = 0;
      break;

    case OPTION_TARGET2:
      target2_type = optarg;
      break;
'

# We have our own after_open and before_allocation functions, but they call
# the standard routines, so give them a different name.
LDEMUL_AFTER_OPEN=arm_elf_after_open
LDEMUL_BEFORE_ALLOCATION=arm_elf_before_allocation
LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=arm_elf_create_output_section_statements

# Replace the elf before_parse function with our own.
LDEMUL_BEFORE_PARSE=gld"${EMULATION_NAME}"_before_parse

# Call the extra arm-elf function
LDEMUL_FINISH=arm_elf_finish
Commit	Line	Data
252b5132	1	# This shell script emits a C file. -- C --
5e2f1575	2	# Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004
41392f03 AM	3	# Free Software Foundation, Inc.
	4	#
	5	# This file is part of GLD, the Gnu Linker.
	6	#
	7	# This program is free software; you can redistribute it and/or modify
	8	# it under the terms of the GNU General Public License as published by
	9	# the Free Software Foundation; either version 2 of the License, or
	10	# (at your option) any later version.
	11	#
	12	# This program is distributed in the hope that it will be useful,
	13	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with this program; if not, write to the Free Software
	19	# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
	20	#
	21
	22	# This file is sourced from elf32.em, and defines extra arm-elf
	23	# specific routines.
	24	#
3674e28a	25	test -z $TARGET2_TYPE && TARGET2_TYPE="rel"
41392f03	26	cat >>e${EMULATION_NAME}.c <<EOF
7ca69e9e	27
88f7bcd5 NC	28	static int no_pipeline_knowledge = 0;
	29	static char *thumb_entry_symbol = NULL;
	30	static bfd *bfd_for_interwork;
e489d0ae	31	static int byteswap_code = 0;
9c504268	32	static int target1_is_rel = 0${TARGET1_IS_REL};
3674e28a	33	static char *target2_type = "${TARGET2_TYPE}";
7ca69e9e	34
252b5132	35	static void
0c7a8e5a	36	gld${EMULATION_NAME}_before_parse (void)
252b5132 RH	37	{
252b5132 RH	38	#ifndef TARGET_ /* I.e., if not generic. */
5e2f1575	39	ldfile_set_output_arch ("`echo ${ARCH}`", bfd_arch_unknown);
252b5132	40	#endif /* not TARGET_ */
b34976b6 AM	41	config.dynamic_link = ${DYNAMIC_LINK-TRUE};
b34976b6 AM	42	config.has_shared = `if test -n "$GENERATE_SHLIB_SCRIPT" ; then echo TRUE ; else echo FALSE ; fi`;
252b5132 RH	43	}
252b5132 RH	44
1220a729	45	static void
0c7a8e5a	46	arm_elf_after_open (void)
1220a729	47	{
f11523b0	48	if (strstr (bfd_get_target (output_bfd), "arm") == NULL)
1220a729	49	{
f11523b0 NC	50	/* The arm backend needs special fields in the output hash structure.
	51	These will only be created if the output format is an arm format,
	52	hence we do not support linking and changing output formats at the
	53	same time. Use a link followed by objcopy to change output formats. */
	54	einfo ("%F%X%P: error: cannot change output format whilst linking ARM binaries\n");
	55	return;
1220a729 NC	56	}
1220a729 NC	57
f11523b0 NC	58	{
	59	LANG_FOR_EACH_INPUT_STATEMENT (is)
	60	{
8afb0e02	61	bfd_elf32_arm_add_glue_sections_to_bfd (is->the_bfd, & link_info);
f11523b0 NC	62	}
	63	}
	64
41392f03 AM	65	/* Call the standard elf routine. */
41392f03 AM	66	gld${EMULATION_NAME}_after_open ();
1220a729 NC	67	}
1220a729 NC	68
8afb0e02	69	static void
0c7a8e5a	70	arm_elf_set_bfd_for_interworking (lang_statement_union_type *statement)
8afb0e02 NC	71	{
8afb0e02 NC	72	if (statement->header.type == lang_input_section_enum
57ceae94 AM	73	&& !statement->input_section.ifile->just_syms_flag
57ceae94 AM	74	&& (statement->input_section.section->flags & SEC_EXCLUDE) == 0)
8afb0e02	75	{
88f7bcd5 NC	76	asection *i = statement->input_section.section;
88f7bcd5 NC	77	asection *output_section = i->output_section;
8afb0e02 NC	78
	79	ASSERT (output_section->owner == output_bfd);
	80
b7693d02 DJ	81	/* Don't attach the interworking stubs to a dynamic object, to
b7693d02 DJ	82	an empty section, etc. */
8afb0e02 NC	83	if ((output_section->flags & SEC_HAS_CONTENTS) != 0
8afb0e02 NC	84	&& (i->flags & SEC_NEVER_LOAD) == 0
b7693d02	85	&& ! (i->owner->flags & DYNAMIC)
8afb0e02 NC	86	&& ! i->owner->output_has_begun)
	87	{
	88	bfd_for_interwork = i->owner;
b34976b6	89	bfd_for_interwork->output_has_begun = TRUE;
8afb0e02 NC	90	}
	91	}
	92	}
1220a729	93
1220a729	94	static void
0c7a8e5a	95	arm_elf_before_allocation (void)
1220a729	96	{
88f7bcd5	97	bfd *tem;
8afb0e02	98
41392f03 AM	99	/* Call the standard elf routine. */
41392f03 AM	100	gld${EMULATION_NAME}_before_allocation ();
1220a729	101
2004afbc NC	102	if (link_info.input_bfds != NULL)
	103	{
	104	/* The interworking bfd must be the last one in the link. */
	105	bfd_for_interwork = NULL;
	106	for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next)
b34976b6	107	tem->output_has_begun = FALSE;
252b5132	108
2004afbc	109	lang_for_each_statement (arm_elf_set_bfd_for_interworking);
2004afbc	110	for (tem = link_info.input_bfds; tem != NULL; tem = tem->link_next)
b34976b6	111	tem->output_has_begun = FALSE;
8afb0e02	112
06aa7234 NC	113	/* If bfd_for_interwork is NULL, then there are no loadable sections
	114	with real contents to be linked, so we are not going to have to
	115	create any interworking stubs, so it is OK not to call
	116	bfd_elf32_arm_get_bfd_for_interworking. */
	117	if (bfd_for_interwork != NULL)
	118	bfd_elf32_arm_get_bfd_for_interworking (bfd_for_interwork, &link_info);
2004afbc	119	}
8afb0e02 NC	120	/* We should be able to set the size of the interworking stub section. */
	121
	122	/* Here we rummage through the found bfds to collect glue information. */
	123	/* FIXME: should this be based on a command line option? krk@cygnus.com */
252b5132 RH	124	{
	125	LANG_FOR_EACH_INPUT_STATEMENT (is)
	126	{
7ca69e9e	127	if (!bfd_elf32_arm_process_before_allocation (is->the_bfd, & link_info,
e489d0ae	128	no_pipeline_knowledge,
3674e28a	129	byteswap_code))
252b5132 RH	130	{
	131	/* xgettext:c-format */
	132	einfo (_("Errors encountered processing file %s"), is->filename);
	133	}
	134	}
	135	}
	136
8afb0e02	137	/* We have seen it all. Allocate it, and carry on. */
252b5132 RH	138	bfd_elf32_arm_allocate_interworking_sections (& link_info);
	139	}
	140
6f798e5c	141	static void
0c7a8e5a	142	arm_elf_finish (void)
6f798e5c NC	143	{
	144	struct bfd_link_hash_entry * h;
	145
c56feb2b AM	146	/* Call the elf32.em routine. */
	147	gld${EMULATION_NAME}_finish ();
	148
88f7bcd5 NC	149	if (thumb_entry_symbol == NULL)
88f7bcd5 NC	150	return;
0c7a8e5a	151
88f7bcd5	152	h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol,
b34976b6	153	FALSE, FALSE, TRUE);
6f798e5c NC	154
	155	if (h != (struct bfd_link_hash_entry *) NULL
	156	&& (h->type == bfd_link_hash_defined
	157	\|\| h->type == bfd_link_hash_defweak)
	158	&& h->u.def.section->output_section != NULL)
	159	{
	160	static char buffer[32];
88f7bcd5	161	bfd_vma val;
0c7a8e5a	162
88f7bcd5 NC	163	/* Special procesing is required for a Thumb entry symbol. The
	164	bottom bit of its address must be set. */
	165	val = (h->u.def.value
	166	+ bfd_get_section_vma (output_bfd,
	167	h->u.def.section->output_section)
	168	+ h->u.def.section->output_offset);
0c7a8e5a	169
88f7bcd5	170	val \|= 1;
6f798e5c	171
88f7bcd5	172	/* Now convert this value into a string and store it in entry_symbol
0c7a8e5a	173	where the lang_finish() function will pick it up. */
88f7bcd5 NC	174	buffer[0] = '0';
88f7bcd5 NC	175	buffer[1] = 'x';
0c7a8e5a	176
88f7bcd5	177	sprintf_vma (buffer + 2, val);
6f798e5c	178
88f7bcd5 NC	179	if (entry_symbol.name != NULL && entry_from_cmdline)
	180	einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"),
	181	thumb_entry_symbol, entry_symbol.name);
	182	entry_symbol.name = buffer;
6f798e5c	183	}
88f7bcd5 NC	184	else
	185	einfo (_("%P: warning: connot find thumb start symbol %s\n"),
	186	thumb_entry_symbol);
6f798e5c NC	187	}
6f798e5c NC	188
3674e28a PB	189	/* This is a convenitent point to tell BFD about target specific flags.
	190	After the output has been created, but before inputs are read. */
	191	static void
	192	arm_elf_create_output_section_statements (void)
	193	{
	194	bfd_elf32_arm_set_target_relocs (&link_info, target1_is_rel, target2_type);
	195	}
	196
252b5132 RH	197	EOF
252b5132 RH	198
41392f03 AM	199	# Define some shell vars to insert bits of code into the standard elf
	200	# parse_args and list_options functions.
	201	#
	202	PARSE_AND_LIST_PROLOGUE='
	203	#define OPTION_THUMB_ENTRY 301
e489d0ae	204	#define OPTION_BE8 302
9c504268 PB	205	#define OPTION_TARGET1_REL 303
9c504268 PB	206	#define OPTION_TARGET1_ABS 304
3674e28a	207	#define OPTION_TARGET2 305
41392f03	208	'
252b5132	209
ef5bdbd1	210	PARSE_AND_LIST_SHORTOPTS=p
252b5132	211
41392f03 AM	212	PARSE_AND_LIST_LONGOPTS='
	213	{ "no-pipeline-knowledge", no_argument, NULL, '\'p\''},
	214	{ "thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
e489d0ae	215	{ "be8", no_argument, NULL, OPTION_BE8},
9c504268 PB	216	{ "target1-rel", no_argument, NULL, OPTION_TARGET1_REL},
9c504268 PB	217	{ "target1-abs", no_argument, NULL, OPTION_TARGET1_ABS},
3674e28a	218	{ "target2", required_argument, NULL, OPTION_TARGET2},
41392f03	219	'
252b5132	220
41392f03 AM	221	PARSE_AND_LIST_OPTIONS='
	222	fprintf (file, _(" -p --no-pipeline-knowledge Stop the linker knowing about the pipeline length\n"));
	223	fprintf (file, _(" --thumb-entry=<sym> Set the entry point to be Thumb symbol <sym>\n"));
e489d0ae	224	fprintf (file, _(" --be8 Oputput BE8 format image\n"));
3674e28a PB	225	fprintf (file, _(" --target1=rel Interpret R_ARM_TARGET1 as R_ARM_REL32\n"));
	226	fprintf (file, _(" --target1=abs Interpret R_ARM_TARGET1 as R_ARM_ABS32\n"));
	227	fprintf (file, _(" --target2=<type> Specify definition of R_ARM_TARGET2\n"));
41392f03	228	'
252b5132	229
41392f03 AM	230	PARSE_AND_LIST_ARGS_CASES='
	231	case '\'p\'':
	232	no_pipeline_knowledge = 1;
	233	break;
252b5132	234
41392f03 AM	235	case OPTION_THUMB_ENTRY:
	236	thumb_entry_symbol = optarg;
	237	break;
e489d0ae PB	238
	239	case OPTION_BE8:
	240	byteswap_code = 1;
	241	break;
9c504268 PB	242
	243	case OPTION_TARGET1_REL:
	244	target1_is_rel = 1;
	245	break;
	246
	247	case OPTION_TARGET1_ABS:
	248	target1_is_rel = 0;
	249	break;
3674e28a PB	250
	251	case OPTION_TARGET2:
	252	target2_type = optarg;
	253	break;
41392f03	254	'
252b5132	255
41392f03 AM	256	# We have our own after_open and before_allocation functions, but they call
	257	# the standard routines, so give them a different name.
	258	LDEMUL_AFTER_OPEN=arm_elf_after_open
	259	LDEMUL_BEFORE_ALLOCATION=arm_elf_before_allocation
3674e28a	260	LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=arm_elf_create_output_section_statements
252b5132	261
41392f03 AM	262	# Replace the elf before_parse function with our own.
41392f03 AM	263	LDEMUL_BEFORE_PARSE=gld"${EMULATION_NAME}"_before_parse
252b5132	264
41392f03	265	# Call the extra arm-elf function
a48ca7f2	266	LDEMUL_FINISH=arm_elf_finish