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

# This shell script emits a C file. -*- C -*-
# It does some substitutions.
cat >e${EMULATION_NAME}.c <<EOF
/* intel coff loader emulation specific stuff
   Copyright 1991, 1992, 1994, 1995, 1996, 1999, 2000, 2001, 2002
   Free Software Foundation, Inc.
   Written by Steve Chamberlain steve@cygnus.com

This file is part of GLD, the Gnu Linker.

GLD 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, or (at your option)
any later version.

GLD 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 GLD; see the file COPYING.  If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

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

/*#include "archures.h"*/
#include "ld.h"
#include "ldmain.h"
#include "ldmisc.h"
#include "ldexp.h"
#include "ldlang.h"
#include "ldfile.h"
#include "ldemul.h"

typedef struct lib_list {
  char *name;
  struct lib_list *next;
} lib_list_type;

static lib_list_type *hll_list;
static lib_list_type **hll_list_tail = &hll_list;

static lib_list_type *syslib_list;
static lib_list_type **syslib_list_tail = &syslib_list;

static void append PARAMS ((lib_list_type ***, char *));
static void lnk960_hll PARAMS ((char *));
static void lnk960_syslib PARAMS ((char *));
static void lnk960_before_parse PARAMS ((void));
static void add_on PARAMS ((lib_list_type *, lang_input_file_enum_type));
static void lnk960_after_parse PARAMS ((void));
static void lnk960_before_allocation PARAMS ((void));
static void lnk960_after_allocation PARAMS ((void));
static void lnk960_set_output_arch PARAMS ((void));
static char *lnk960_choose_target PARAMS ((int, char **));
static char *lnk960_get_script PARAMS ((int *));


static void
append(list, name)
     lib_list_type ***list;
     char *name;
{
  lib_list_type *element = 
    (lib_list_type *)(xmalloc(sizeof(lib_list_type)));

  element->name = name;
  element->next = (lib_list_type *)NULL;
  **list = element;
  *list = &element->next;

}

static boolean had_hll = false;
static boolean had_hll_name = false;

static void
lnk960_hll(name)
     char *name;
{
  had_hll = true;
  if (name != (char *)NULL) {
    had_hll_name = true;
    append(&hll_list_tail, name);
  }
}

static void 
lnk960_syslib(name)
     char *name;
{
  append(&syslib_list_tail,name);
}


#ifdef GNU960

static void 
lnk960_before_parse()
{
  static char *env_variables[] = { "G960LIB", "G960BASE", 0 };
  char **p;
  char *env ;

  for ( p = env_variables; *p; p++ ){
    env =  (char *) getenv(*p);
    if (env) {
      ldfile_add_library_path(concat(env,"/lib/libcoff",""), false);
    }
  }

  env= (char *) getenv("I960BASE");
  if ( env ) {
    ldfile_add_library_path(concat(env,"/lib",""), false);
  }

  ldfile_output_architecture = bfd_arch_i960;
  ldfile_output_machine = bfd_mach_i960_core;
}

#else	/* not GNU960 */

static void 
lnk960_before_parse()
{
  char *name = getenv("I960BASE");

  if (name == (char *)NULL) {
    name = getenv("G960BASE");
    if (name == (char *)NULL) {
      einfo("%P%F I960BASE and G960BASE not set\n");
    }
  }


  ldfile_add_library_path(concat(name,"/lib",""), false);
  ldfile_output_architecture = bfd_arch_i960;
  ldfile_output_machine = bfd_mach_i960_core;
}

#endif	/* GNU960 */


static void
add_on(list, search)
     lib_list_type *list;
     lang_input_file_enum_type search;
{
  while (list) {
    lang_add_input_file(list->name,
			search,
			(char *)NULL);
    list = list->next;
  }
}
static void
lnk960_after_parse()
{
  /* If there has been no arch, default to -KB */
  if (ldfile_output_machine_name[0] ==0) {
    ldfile_add_arch("KB");
  }

  /* if there has been no hll list then add our own */
  
  if(had_hll && !had_hll_name) {
    append(&hll_list_tail,"cg");
    if (ldfile_output_machine == bfd_mach_i960_ka_sa ||
  	ldfile_output_machine == bfd_mach_i960_ca) {
        {
	  append(&hll_list_tail,"fpg");
        }
    }
  }
  
  add_on(hll_list, lang_input_file_is_l_enum);
  add_on(syslib_list, lang_input_file_is_search_file_enum);
}

static void
lnk960_before_allocation()
{
}

static void
lnk960_after_allocation()
{
  if (link_info.relocateable == false) {
    lang_abs_symbol_at_end_of(".text","_etext");
    lang_abs_symbol_at_end_of(".data","_edata");
    lang_abs_symbol_at_beginning_of(".bss","_bss_start");
    lang_abs_symbol_at_end_of(".bss","_end");
  }
}


static struct
 {
   unsigned  long number;
   char *name; 
 }
machine_table[] =
{
  { bfd_mach_i960_core	,"CORE" },
  { bfd_mach_i960_kb_sb	,"KB" },
  { bfd_mach_i960_kb_sb	,"SB" },
  { bfd_mach_i960_mc	,"MC" },
  { bfd_mach_i960_xa	,"XA" },
  { bfd_mach_i960_ca	,"CA" },
  { bfd_mach_i960_ka_sa	,"KA" },
  { bfd_mach_i960_ka_sa	,"SA" },
  { bfd_mach_i960_jx	,"JX" },
  { bfd_mach_i960_hx	,"HX" },

  { bfd_mach_i960_core	,"core" },
  { bfd_mach_i960_kb_sb	,"kb" },
  { bfd_mach_i960_kb_sb	,"sb" },
  { bfd_mach_i960_mc	,"mc" },
  { bfd_mach_i960_xa	,"xa" },
  { bfd_mach_i960_ca	,"ca" },
  { bfd_mach_i960_ka_sa	,"ka" },
  { bfd_mach_i960_ka_sa	,"sa" },
  { bfd_mach_i960_jx	,"jx" },
  { bfd_mach_i960_hx	,"hx" },

  { 0, (char *) NULL }
};

static void
lnk960_set_output_arch()
{
  /* Set the output architecture and machine if possible */
  unsigned int i;
  ldfile_output_machine = bfd_mach_i960_core;
  for (i= 0; machine_table[i].name != (char*)NULL; i++) {
    if (strcmp(ldfile_output_machine_name,machine_table[i].name)==0) {
      ldfile_output_machine = machine_table[i].number;
      break;
    }
  }
  bfd_set_arch_mach(output_bfd, ldfile_output_architecture, ldfile_output_machine);
}

static char *
lnk960_choose_target (argc, argv)
    int argc ATTRIBUTE_UNUSED;
    char **argv ATTRIBUTE_UNUSED;
{
#ifdef GNU960

  return bfd_make_targ_name(BFD_COFF_FORMAT, 0);

#else

  char *from_outside = getenv(TARGET_ENVIRON);
  if (from_outside != (char *)NULL)
    return from_outside;
#ifdef LNK960_LITTLE
  return "coff-Intel-little";
#else
  return "coff-Intel-big";
#endif
#endif

}

static char *
lnk960_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.relocateable == true && config.build_constructors == true)
    return
EOF
sed $sc ldscripts/${EMULATION_NAME}.xu                     >> e${EMULATION_NAME}.c
echo '  ; else if (link_info.relocateable == true) 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.relocateable == true && config.build_constructors == true)
    return "ldscripts/${EMULATION_NAME}.xu";
  else if (link_info.relocateable == true)
    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_lnk960_emulation = 
{
  lnk960_before_parse,
  lnk960_syslib,
  lnk960_hll,
  lnk960_after_parse,
  NULL,			/* after_open */
  lnk960_after_allocation,
  lnk960_set_output_arch,
  lnk960_choose_target,
  lnk960_before_allocation,
  lnk960_get_script,
  "lnk960",
  "",
  NULL,	/* finish */
  NULL,	/* create output section statements */
  NULL,	/* open dynamic archive */
  NULL,	/* place orphan */
  NULL,	/* set symbols */
  NULL,	/* parse args */
  NULL,	/* unrecognized file */
  NULL,	/* 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	/* intel coff loader emulation specific stuff
4e5bae56	5	Copyright 1991, 1992, 1994, 1995, 1996, 1999, 2000, 2001, 2002
b71e2778	6	Free Software Foundation, Inc.
252b5132 RH	7	Written by Steve Chamberlain steve@cygnus.com
	8
	9	This file is part of GLD, the Gnu Linker.
	10
	11	GLD is free software; you can redistribute it and/or modify
	12	it under the terms of the GNU General Public License as published by
	13	the Free Software Foundation; either version 2, or (at your option)
	14	any later version.
	15
	16	GLD is distributed in the hope that it will be useful,
	17	but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	GNU General Public License for more details.
	20
	21	You should have received a copy of the GNU General Public License
	22	along with GLD; see the file COPYING. If not, write to
	23	the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	24
	25	#include "libiberty.h"
	26	#include "bfd.h"
	27	#include "sysdep.h"
	28	#include "bfdlink.h"
	29
	30	/#include "archures.h"/
	31	#include "ld.h"
b71e2778	32	#include "ldmain.h"
252b5132 RH	33	#include "ldmisc.h"
	34	#include "ldexp.h"
	35	#include "ldlang.h"
	36	#include "ldfile.h"
b71e2778	37	#include "ldemul.h"
252b5132 RH	38
	39	typedef struct lib_list {
	40	char *name;
	41	struct lib_list *next;
	42	} lib_list_type;
	43
	44	static lib_list_type *hll_list;
	45	static lib_list_type **hll_list_tail = &hll_list;
	46
	47	static lib_list_type *syslib_list;
	48	static lib_list_type **syslib_list_tail = &syslib_list;
	49
48f6162b AJ	50	static void append PARAMS ((lib_list_type **, char ));
	51	static void lnk960_hll PARAMS ((char *));
	52	static void lnk960_syslib PARAMS ((char *));
	53	static void lnk960_before_parse PARAMS ((void));
	54	static void add_on PARAMS ((lib_list_type *, lang_input_file_enum_type));
	55	static void lnk960_after_parse PARAMS ((void));
	56	static void lnk960_before_allocation PARAMS ((void));
	57	static void lnk960_after_allocation PARAMS ((void));
	58	static void lnk960_set_output_arch PARAMS ((void));
4e5bae56	59	static char lnk960_choose_target PARAMS ((int, char *));
48f6162b AJ	60	static char lnk960_get_script PARAMS ((int ));
48f6162b AJ	61
252b5132 RH	62
	63	static void
	64	append(list, name)
	65	lib_list_type ***list;
	66	char *name;
	67	{
	68	lib_list_type *element =
	69	(lib_list_type *)(xmalloc(sizeof(lib_list_type)));
	70
	71	element->name = name;
	72	element->next = (lib_list_type *)NULL;
	73	**list = element;
	74	*list = &element->next;
	75
	76	}
	77
	78	static boolean had_hll = false;
	79	static boolean had_hll_name = false;
	80
	81	static void
	82	lnk960_hll(name)
	83	char *name;
	84	{
	85	had_hll = true;
	86	if (name != (char *)NULL) {
	87	had_hll_name = true;
	88	append(&hll_list_tail, name);
	89	}
	90	}
	91
	92	static void
	93	lnk960_syslib(name)
	94	char *name;
	95	{
	96	append(&syslib_list_tail,name);
	97	}
	98
	99
	100	#ifdef GNU960
	101
	102	static void
	103	lnk960_before_parse()
	104	{
	105	static char *env_variables[] = { "G960LIB", "G960BASE", 0 };
	106	char **p;
	107	char *env ;
	108
	109	for ( p = env_variables; *p; p++ ){
	110	env = (char ) getenv(p);
	111	if (env) {
	112	ldfile_add_library_path(concat(env,"/lib/libcoff",""), false);
	113	}
	114	}
	115
	116	env= (char *) getenv("I960BASE");
	117	if ( env ) {
	118	ldfile_add_library_path(concat(env,"/lib",""), false);
	119	}
	120
	121	ldfile_output_architecture = bfd_arch_i960;
	122	ldfile_output_machine = bfd_mach_i960_core;
	123	}
	124
	125	#else /* not GNU960 */
126
127	static void
128	lnk960_before_parse()
129	{
130	char *name = getenv("I960BASE");
131
132	if (name == (char *)NULL) {
133	name = getenv("G960BASE");
134	if (name == (char *)NULL) {
135	einfo("%P%F I960BASE and G960BASE not set\n");
136	}
137	}
138
139
140	ldfile_add_library_path(concat(name,"/lib",""), false);
141	ldfile_output_architecture = bfd_arch_i960;
142	ldfile_output_machine = bfd_mach_i960_core;
143	}
144
145	#endif /* GNU960 */
146
147
148	static void
149	add_on(list, search)
150	lib_list_type *list;
151	lang_input_file_enum_type search;
152	{
153	while (list) {
154	lang_add_input_file(list->name,
155	search,
156	(char *)NULL);
157	list = list->next;
158	}
159	}
160	static void
161	lnk960_after_parse()
162	{
163	/* If there has been no arch, default to -KB */
164	if (ldfile_output_machine_name[0] ==0) {
165	ldfile_add_arch("KB");
166	}
167
168	/* if there has been no hll list then add our own */
169
170	if(had_hll && !had_hll_name) {
171	append(&hll_list_tail,"cg");
172	if (ldfile_output_machine == bfd_mach_i960_ka_sa \|\|
173	ldfile_output_machine == bfd_mach_i960_ca) {
174	{
175	append(&hll_list_tail,"fpg");
176	}
177	}
178	}
179
180	add_on(hll_list, lang_input_file_is_l_enum);
181	add_on(syslib_list, lang_input_file_is_search_file_enum);
182	}
183
184	static void
185	lnk960_before_allocation()
186	{
187	}
188
189	static void
190	lnk960_after_allocation()
191	{
192	if (link_info.relocateable == false) {
193	lang_abs_symbol_at_end_of(".text","_etext");
194	lang_abs_symbol_at_end_of(".data","_edata");
195	lang_abs_symbol_at_beginning_of(".bss","_bss_start");
196	lang_abs_symbol_at_end_of(".bss","_end");
197	}
198	}
199
200
201	static struct
202	{
203	unsigned long number;
204	char *name;
205	}
206	machine_table[] =
207	{
208	{ bfd_mach_i960_core ,"CORE" },
209	{ bfd_mach_i960_kb_sb ,"KB" },
210	{ bfd_mach_i960_kb_sb ,"SB" },
211	{ bfd_mach_i960_mc ,"MC" },
212	{ bfd_mach_i960_xa ,"XA" },
213	{ bfd_mach_i960_ca ,"CA" },
214	{ bfd_mach_i960_ka_sa ,"KA" },
215	{ bfd_mach_i960_ka_sa ,"SA" },
216	{ bfd_mach_i960_jx ,"JX" },
217	{ bfd_mach_i960_hx ,"HX" },
218
219	{ bfd_mach_i960_core ,"core" },
220	{ bfd_mach_i960_kb_sb ,"kb" },
221	{ bfd_mach_i960_kb_sb ,"sb" },
222	{ bfd_mach_i960_mc ,"mc" },
223	{ bfd_mach_i960_xa ,"xa" },
224	{ bfd_mach_i960_ca ,"ca" },
225	{ bfd_mach_i960_ka_sa ,"ka" },
226	{ bfd_mach_i960_ka_sa ,"sa" },
227	{ bfd_mach_i960_jx ,"jx" },
228	{ bfd_mach_i960_hx ,"hx" },
229
230	{ 0, (char *) NULL }
231	};
232
233	static void
234	lnk960_set_output_arch()
235	{
236	/* Set the output architecture and machine if possible */
237	unsigned int i;
238	ldfile_output_machine = bfd_mach_i960_core;
239	for (i= 0; machine_table[i].name != (char*)NULL; i++) {
240	if (strcmp(ldfile_output_machine_name,machine_table[i].name)==0) {
241	ldfile_output_machine = machine_table[i].number;
242	break;
243	}
244	}
245	bfd_set_arch_mach(output_bfd, ldfile_output_architecture, ldfile_output_machine);
246	}
247
248	static char *
4e5bae56 DJ	249	lnk960_choose_target (argc, argv)
	250	int argc ATTRIBUTE_UNUSED;
	251	char **argv ATTRIBUTE_UNUSED;
252b5132 RH	252	{
	253	#ifdef GNU960
	254
	255	return bfd_make_targ_name(BFD_COFF_FORMAT, 0);
	256
	257	#else
	258
	259	char *from_outside = getenv(TARGET_ENVIRON);
	260	if (from_outside != (char *)NULL)
	261	return from_outside;
	262	#ifdef LNK960_LITTLE
	263	return "coff-Intel-little";
	264	#else
	265	return "coff-Intel-big";
	266	#endif
	267	#endif
	268
	269	}
	270
	271	static char *
	272	lnk960_get_script(isfile)
	273	int *isfile;
	274	EOF
	275
	276	if test -n "$COMPILE_IN"
	277	then
	278	# Scripts compiled in.
	279
	280	# sed commands to quote an ld script as a C string.
597e2591	281	sc="-f stringify.sed"
252b5132 RH	282
252b5132 RH	283	cat >>e${EMULATION_NAME}.c <<EOF
597e2591	284	{
252b5132 RH	285	*isfile = 0;
	286
	287	if (link_info.relocateable == true && config.build_constructors == true)
597e2591	288	return
252b5132	289	EOF
597e2591 ILT	290	sed $sc ldscripts/${EMULATION_NAME}.xu >> e${EMULATION_NAME}.c
	291	echo ' ; else if (link_info.relocateable == true) return' >> e${EMULATION_NAME}.c
	292	sed $sc ldscripts/${EMULATION_NAME}.xr >> e${EMULATION_NAME}.c
	293	echo ' ; else if (!config.text_read_only) return' >> e${EMULATION_NAME}.c
	294	sed $sc ldscripts/${EMULATION_NAME}.xbn >> e${EMULATION_NAME}.c
	295	echo ' ; else if (!config.magic_demand_paged) return' >> e${EMULATION_NAME}.c
	296	sed $sc ldscripts/${EMULATION_NAME}.xn >> e${EMULATION_NAME}.c
	297	echo ' ; else return' >> e${EMULATION_NAME}.c
	298	sed $sc ldscripts/${EMULATION_NAME}.x >> e${EMULATION_NAME}.c
	299	echo '; }' >> e${EMULATION_NAME}.c
252b5132 RH	300
	301	else
	302	# Scripts read from the filesystem.
	303
	304	cat >>e${EMULATION_NAME}.c <<EOF
	305	{
	306	*isfile = 1;
	307
	308	if (link_info.relocateable == true && config.build_constructors == true)
	309	return "ldscripts/${EMULATION_NAME}.xu";
	310	else if (link_info.relocateable == true)
	311	return "ldscripts/${EMULATION_NAME}.xr";
	312	else if (!config.text_read_only)
	313	return "ldscripts/${EMULATION_NAME}.xbn";
	314	else if (!config.magic_demand_paged)
	315	return "ldscripts/${EMULATION_NAME}.xn";
	316	else
	317	return "ldscripts/${EMULATION_NAME}.x";
	318	}
	319	EOF
	320
	321	fi
	322
	323	cat >>e${EMULATION_NAME}.c <<EOF
	324
	325	struct ld_emulation_xfer_struct ld_lnk960_emulation =
	326	{
	327	lnk960_before_parse,
	328	lnk960_syslib,
	329	lnk960_hll,
	330	lnk960_after_parse,
	331	NULL, /* after_open */
	332	lnk960_after_allocation,
	333	lnk960_set_output_arch,
	334	lnk960_choose_target,
	335	lnk960_before_allocation,
	336	lnk960_get_script,
	337	"lnk960",
e1c47aa4 AM	338	"",
	339	NULL, /* finish */
	340	NULL, /* create output section statements */
	341	NULL, /* open dynamic archive */
	342	NULL, /* place orphan */
	343	NULL, /* set symbols */
	344	NULL, /* parse args */
	345	NULL, /* unrecognized file */
	346	NULL, /* list options */
40d109bf	347	NULL, /* recognized file */
fac1652d AM	348	NULL, /* find_potential_libraries */
fac1652d AM	349	NULL /* new_vers_pattern */
252b5132 RH	350	};
252b5132 RH	351	EOF