| # 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 */ |
| }; |
| EOF |