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

# This shell script emits a C file. -*- C -*-
# It does some substitutions.
cat >e${EMULATION_NAME}.c <<EOF
/* This file is is generated by a shell script.  DO NOT EDIT! */

/* emulate the original gld for the given ${EMULATION_NAME}
   Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
   Free Software Foundation, Inc.
   Written by Steve Chamberlain steve@cygnus.com

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.  */

#define TARGET_IS_${EMULATION_NAME}

#include "bfd.h"
#include "sysdep.h"
#include "bfdlink.h"
#include "getopt.h"

#include "ld.h"
#include "ldmain.h"
#include "ldmisc.h"

#include "ldexp.h"
#include "ldlang.h"
#include "ldfile.h"
#include "ldemul.h"

static void gld${EMULATION_NAME}_before_parse PARAMS ((void));
static void gld${EMULATION_NAME}_before_allocation PARAMS ((void));
static char *gld${EMULATION_NAME}_get_script PARAMS ((int *isfile));
static void gld${EMULATION_NAME}_add_options
  PARAMS ((int, char **, int, struct option **, int, struct option **));
static void gld${EMULATION_NAME}_list_options PARAMS ((FILE *));
static bfd_boolean gld${EMULATION_NAME}_handle_option PARAMS ((int));
static void gld${EMULATION_NAME}_finish PARAMS ((void));
static void gld${EMULATION_NAME}_after_open PARAMS ((void));

/* If TRUE, then interworking stubs which support calls to old, non-interworking
   aware ARM code should be generated.  */

static int support_old_code = 0;
static char * thumb_entry_symbol = NULL;

#define OPTION_SUPPORT_OLD_CODE		300
#define OPTION_THUMB_ENTRY		301

static void
gld${EMULATION_NAME}_add_options (ns, shortopts, nl, longopts, nrl, really_longopts)
     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[] = {
    {"support-old-code", no_argument, NULL, OPTION_SUPPORT_OLD_CODE},
    {"thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
    {NULL, no_argument, NULL, 0}
  };

  *longopts = (struct option *)
    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 * file;
{
  fprintf (file, _("  --support-old-code   Support interworking with old code\n"));
  fprintf (file, _("  --thumb-entry=<sym>  Set the entry point to be Thumb symbol <sym>\n"));
}

static bfd_boolean
gld${EMULATION_NAME}_handle_option (optc)
     int optc;
{
  switch (optc)
    {
    default:
      return FALSE;

    case OPTION_SUPPORT_OLD_CODE:
      support_old_code = 1;
      break;

    case OPTION_THUMB_ENTRY:
      thumb_entry_symbol = optarg;
      break;
    }
  
  return TRUE;
}
\f
static void
gld${EMULATION_NAME}_before_parse ()
{
#ifndef TARGET_			/* I.e., if not generic.  */
  ldfile_set_output_arch ("`echo ${ARCH}`");
#endif /* not TARGET_ */
}

/* This is called after the sections have been attached to output
   sections, but before any sizes or addresses have been set.  */

static void
gld${EMULATION_NAME}_before_allocation ()
{
  /* 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_arm_process_before_allocation
	    (is->the_bfd, & link_info, support_old_code))
	  {
	    /* xgettext:c-format */
	    einfo (_("Errors encountered processing file %s"), is->filename);
	  }
      }
  }

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

static void
gld${EMULATION_NAME}_after_open ()
{
  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)
      {
	if (bfd_arm_get_bfd_for_interworking (is->the_bfd, & link_info))
	  break;
      }
  }
}

static void
gld${EMULATION_NAME}_finish PARAMS((void))
{
  struct bfd_link_hash_entry * h;

  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);
}

static char *
gld${EMULATION_NAME}_get_script (isfile)
     int *isfile;
EOF

if test -n "$COMPILE_IN"
then
# Scripts compiled in.

# sed commands to quote an ld script as a C string.
sc="-f stringify.sed"

cat >>e${EMULATION_NAME}.c <<EOF
{			     
  *isfile = 0;

  if (link_info.relocatable && config.build_constructors)
    return
EOF
sed $sc ldscripts/${EMULATION_NAME}.xu                 >> e${EMULATION_NAME}.c
echo '  ; else if (link_info.relocatable) 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.

cat >>e${EMULATION_NAME}.c <<EOF
{			     
  *isfile = 1;

  if (link_info.relocatable && config.build_constructors)
    return "ldscripts/${EMULATION_NAME}.xu";
  else if (link_info.relocatable)
    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

cat >>e${EMULATION_NAME}.c <<EOF

struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation = 
{
  gld${EMULATION_NAME}_before_parse,
  syslib_default,
  hll_default,
  after_parse_default,
  gld${EMULATION_NAME}_after_open,
  after_allocation_default,
  set_output_arch_default,
  ldemul_default_target,
  gld${EMULATION_NAME}_before_allocation,
  gld${EMULATION_NAME}_get_script,
  "${EMULATION_NAME}",
  "${OUTPUT_FORMAT}",
  gld${EMULATION_NAME}_finish,
  NULL,	/* create output section statements */
  NULL,	/* open dynamic archive */
  NULL,	/* place orphan */
  NULL,	/* set symbols */
  NULL, /* parse_args */
  gld${EMULATION_NAME}_add_options,
  gld${EMULATION_NAME}_handle_option,
  NULL,	/* unrecognised file */
  gld${EMULATION_NAME}_list_options,
  NULL,	/* recognized file */
  NULL,	/* find_potential_libraries */
  NULL	/* new_vers_pattern */
};
EOF
Commit	Line	Data
252b5132 RH	1	# This shell script emits a C file. -- C --
	2	# It does some substitutions.
	3	cat >e${EMULATION_NAME}.c <<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}
3bcf5557	7	Copyright 1991, 1993, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
b71e2778	8	Free Software Foundation, Inc.
252b5132 RH	9	Written by Steve Chamberlain steve@cygnus.com
	10
	11	This file is part of GLD, the Gnu Linker.
	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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	26
	27	#define TARGET_IS_${EMULATION_NAME}
	28
	29	#include "bfd.h"
	30	#include "sysdep.h"
	31	#include "bfdlink.h"
	32	#include "getopt.h"
	33
	34	#include "ld.h"
	35	#include "ldmain.h"
252b5132 RH	36	#include "ldmisc.h"
	37
	38	#include "ldexp.h"
	39	#include "ldlang.h"
b71e2778 AM	40	#include "ldfile.h"
b71e2778 AM	41	#include "ldemul.h"
252b5132 RH	42
	43	static void gld${EMULATION_NAME}_before_parse PARAMS ((void));
	44	static void gld${EMULATION_NAME}_before_allocation PARAMS ((void));
	45	static char gld${EMULATION_NAME}_get_script PARAMS ((int isfile));
3bcf5557 AM	46	static void gld${EMULATION_NAME}_add_options
3bcf5557 AM	47	PARAMS ((int, char , int, struct option , int, struct option **));
229cf42b	48	static void gld${EMULATION_NAME}_list_options PARAMS ((FILE *));
3bcf5557	49	static bfd_boolean gld${EMULATION_NAME}_handle_option PARAMS ((int));
1ac6a752	50	static void gld${EMULATION_NAME}_finish PARAMS ((void));
48f6162b	51	static void gld${EMULATION_NAME}_after_open PARAMS ((void));
252b5132	52
b34976b6	53	/* If TRUE, then interworking stubs which support calls to old, non-interworking
252b5132 RH	54	aware ARM code should be generated. */
	55
	56	static int support_old_code = 0;
6f798e5c	57	static char * thumb_entry_symbol = NULL;
252b5132 RH	58
252b5132 RH	59	#define OPTION_SUPPORT_OLD_CODE 300
6f798e5c	60	#define OPTION_THUMB_ENTRY 301
252b5132	61
3bcf5557 AM	62	static void
	63	gld${EMULATION_NAME}_add_options (ns, shortopts, nl, longopts, nrl, really_longopts)
	64	int ns ATTRIBUTE_UNUSED;
	65	char **shortopts ATTRIBUTE_UNUSED;
	66	int nl;
	67	struct option **longopts;
	68	int nrl ATTRIBUTE_UNUSED;
	69	struct option **really_longopts ATTRIBUTE_UNUSED;
252b5132	70	{
3bcf5557 AM	71	static const struct option xtra_long[] = {
	72	{"support-old-code", no_argument, NULL, OPTION_SUPPORT_OLD_CODE},
	73	{"thumb-entry", required_argument, NULL, OPTION_THUMB_ENTRY},
	74	{NULL, no_argument, NULL, 0}
	75	};
	76
	77	longopts = (struct option )
	78	xrealloc (longopts, nl sizeof (struct option) + sizeof (xtra_long));
	79	memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long));
	80	}
252b5132 RH	81
	82	static void
	83	gld${EMULATION_NAME}_list_options (file)
	84	FILE * file;
	85	{
	86	fprintf (file, _(" --support-old-code Support interworking with old code\n"));
6f798e5c	87	fprintf (file, _(" --thumb-entry=<sym> Set the entry point to be Thumb symbol <sym>\n"));
252b5132 RH	88	}
252b5132 RH	89
3bcf5557 AM	90	static bfd_boolean
	91	gld${EMULATION_NAME}_handle_option (optc)
	92	int optc;
252b5132	93	{
252b5132 RH	94	switch (optc)
	95	{
	96	default:
3bcf5557	97	return FALSE;
252b5132 RH	98
	99	case OPTION_SUPPORT_OLD_CODE:
	100	support_old_code = 1;
	101	break;
6f798e5c NC	102
	103	case OPTION_THUMB_ENTRY:
	104	thumb_entry_symbol = optarg;
	105	break;
252b5132 RH	106	}
252b5132 RH	107
3bcf5557	108	return TRUE;
252b5132 RH	109	}
	110	\f
	111	static void
	112	gld${EMULATION_NAME}_before_parse ()
	113	{
	114	#ifndef TARGET_ /* I.e., if not generic. */
	115	ldfile_set_output_arch ("`echo ${ARCH}`");
	116	#endif /* not TARGET_ */
	117	}
	118
	119	/* This is called after the sections have been attached to output
	120	sections, but before any sizes or addresses have been set. */
	121
	122	static void
	123	gld${EMULATION_NAME}_before_allocation ()
	124	{
	125	/* we should be able to set the size of the interworking stub section */
	126
	127	/* Here we rummage through the found bfds to collect glue information */
	128	/* FIXME: should this be based on a command line option? krk@cygnus.com */
	129	{
	130	LANG_FOR_EACH_INPUT_STATEMENT (is)
	131	{
	132	if (! bfd_arm_process_before_allocation
	133	(is->the_bfd, & link_info, support_old_code))
	134	{
	135	/* xgettext:c-format */
	136	einfo (_("Errors encountered processing file %s"), is->filename);
	137	}
	138	}
	139	}
	140
	141	/* We have seen it all. Allocate it, and carry on */
	142	bfd_arm_allocate_interworking_sections (& link_info);
	143	}
	144
	145	static void
	146	gld${EMULATION_NAME}_after_open ()
	147	{
f11523b0	148	if (strstr (bfd_get_target (output_bfd), "arm") == NULL)
252b5132	149	{
f11523b0 NC	150	/* The arm backend needs special fields in the output hash structure.
	151	These will only be created if the output format is an arm format,
	152	hence we do not support linking and changing output formats at the
	153	same time. Use a link followed by objcopy to change output formats. */
	154	einfo ("%F%X%P: error: cannot change output format whilst linking ARM binaries\n");
	155	return;
252b5132	156	}
f11523b0 NC	157
	158	{
	159	LANG_FOR_EACH_INPUT_STATEMENT (is)
	160	{
	161	if (bfd_arm_get_bfd_for_interworking (is->the_bfd, & link_info))
	162	break;
	163	}
	164	}
252b5132 RH	165	}
252b5132 RH	166
6f798e5c NC	167	static void
	168	gld${EMULATION_NAME}_finish PARAMS((void))
	169	{
	170	struct bfd_link_hash_entry * h;
	171
	172	if (thumb_entry_symbol == NULL)
	173	return;
	174
b34976b6 AM	175	h = bfd_link_hash_lookup (link_info.hash, thumb_entry_symbol,
b34976b6 AM	176	FALSE, FALSE, TRUE);
6f798e5c NC	177
	178	if (h != (struct bfd_link_hash_entry *) NULL
	179	&& (h->type == bfd_link_hash_defined
	180	\|\| h->type == bfd_link_hash_defweak)
	181	&& h->u.def.section->output_section != NULL)
	182	{
	183	static char buffer[32];
	184	bfd_vma val;
	185
	186	/* Special procesing is required for a Thumb entry symbol. The
	187	bottom bit of its address must be set. */
	188	val = (h->u.def.value
	189	+ bfd_get_section_vma (output_bfd,
	190	h->u.def.section->output_section)
	191	+ h->u.def.section->output_offset);
	192
	193	val \|= 1;
	194
	195	/* Now convert this value into a string and store it in entry_symbol
	196	where the lang_finish() function will pick it up. */
	197	buffer[0] = '0';
	198	buffer[1] = 'x';
	199
	200	sprintf_vma (buffer + 2, val);
	201
e3e942e9	202	if (entry_symbol.name != NULL && entry_from_cmdline)
6f798e5c	203	einfo (_("%P: warning: '--thumb-entry %s' is overriding '-e %s'\n"),
e3e942e9 AM	204	thumb_entry_symbol, entry_symbol.name);
e3e942e9 AM	205	entry_symbol.name = buffer;
6f798e5c NC	206	}
	207	else
	208	einfo (_("%P: warning: connot find thumb start symbol %s\n"), thumb_entry_symbol);
	209	}
	210
252b5132 RH	211	static char *
	212	gld${EMULATION_NAME}_get_script (isfile)
	213	int *isfile;
	214	EOF
	215
	216	if test -n "$COMPILE_IN"
	217	then
	218	# Scripts compiled in.
	219
	220	# sed commands to quote an ld script as a C string.
597e2591	221	sc="-f stringify.sed"
252b5132 RH	222
	223	cat >>e${EMULATION_NAME}.c <<EOF
	224	{
	225	*isfile = 0;
	226
1049f94e	227	if (link_info.relocatable && config.build_constructors)
252b5132 RH	228	return
252b5132 RH	229	EOF
b34976b6	230	sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
1049f94e	231	echo ' ; else if (link_info.relocatable) return' >> e${EMULATION_NAME}.c
b34976b6 AM	232	sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
	233	echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
	234	sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
	235	echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
	236	sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
	237	echo ' ; else return' >> e${EMULATION_NAME}.c
	238	sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
	239	echo '; }' >> e${EMULATION_NAME}.c
252b5132 RH	240
	241	else
	242	# Scripts read from the filesystem.
	243
	244	cat >>e${EMULATION_NAME}.c <<EOF
	245	{
	246	*isfile = 1;
	247
1049f94e	248	if (link_info.relocatable && config.build_constructors)
252b5132	249	return "ldscripts/${EMULATION_NAME}.xu";
1049f94e	250	else if (link_info.relocatable)
252b5132 RH	251	return "ldscripts/${EMULATION_NAME}.xr";
	252	else if (!config.text_read_only)
	253	return "ldscripts/${EMULATION_NAME}.xbn";
	254	else if (!config.magic_demand_paged)
	255	return "ldscripts/${EMULATION_NAME}.xn";
	256	else
	257	return "ldscripts/${EMULATION_NAME}.x";
	258	}
	259	EOF
	260
	261	fi
	262
	263	cat >>e${EMULATION_NAME}.c <<EOF
	264
	265	struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
	266	{
	267	gld${EMULATION_NAME}_before_parse,
	268	syslib_default,
	269	hll_default,
	270	after_parse_default,
	271	gld${EMULATION_NAME}_after_open,
	272	after_allocation_default,
	273	set_output_arch_default,
	274	ldemul_default_target,
	275	gld${EMULATION_NAME}_before_allocation,
	276	gld${EMULATION_NAME}_get_script,
	277	"${EMULATION_NAME}",
	278	"${OUTPUT_FORMAT}",
e1c47aa4 AM	279	gld${EMULATION_NAME}_finish,
	280	NULL, /* create output section statements */
	281	NULL, /* open dynamic archive */
	282	NULL, /* place orphan */
	283	NULL, /* set symbols */
3bcf5557 AM	284	NULL, /* parse_args */
	285	gld${EMULATION_NAME}_add_options,
	286	gld${EMULATION_NAME}_handle_option,
e1c47aa4 AM	287	NULL, /* unrecognised file */
e1c47aa4 AM	288	gld${EMULATION_NAME}_list_options,
40d109bf	289	NULL, /* recognized file */
fac1652d AM	290	NULL, /* find_potential_libraries */
fac1652d AM	291	NULL /* new_vers_pattern */
252b5132 RH	292	};
252b5132 RH	293	EOF