| # This shell script emits a C file. -*- C -*- |
| # It does some substitutions. |
| fragment <<EOF |
| /* intel coff loader emulation specific stuff |
| Copyright (C) 1991-2016 Free Software Foundation, Inc. |
| Written by Steve Chamberlain steve@cygnus.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. */ |
| |
| #include "sysdep.h" |
| #include "libiberty.h" |
| #include "bfd.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 (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 bfd_boolean had_hll = FALSE; |
| static bfd_boolean had_hll_name = FALSE; |
| |
| static void |
| lnk960_hll (char *name) |
| { |
| had_hll = TRUE; |
| if (name != (char *) NULL) |
| { |
| had_hll_name = TRUE; |
| append (&hll_list_tail, name); |
| } |
| } |
| |
| static void |
| lnk960_syslib (char *name) |
| { |
| append (&syslib_list_tail, name); |
| } |
| |
| |
| static void |
| lnk960_before_parse (void) |
| { |
| 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", (const char *) NULL), FALSE); |
| ldfile_output_architecture = bfd_arch_i960; |
| ldfile_output_machine = bfd_mach_i960_core; |
| } |
| |
| static void |
| add_on (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 (void) |
| { |
| /* 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); |
| } |
| |
| /* Create a symbol with the given name with the value of the |
| address of first byte of the section named. |
| |
| If the symbol already exists, then do nothing. */ |
| |
| static void |
| symbol_at_beginning_of (const char *secname, const char *name) |
| { |
| struct bfd_link_hash_entry *h; |
| |
| h = bfd_link_hash_lookup (link_info.hash, name, TRUE, TRUE, TRUE); |
| if (h == NULL) |
| einfo (_("%P%F: bfd_link_hash_lookup failed: %E\n")); |
| |
| if (h->type == bfd_link_hash_new |
| || h->type == bfd_link_hash_undefined) |
| { |
| asection *sec; |
| |
| h->type = bfd_link_hash_defined; |
| |
| sec = bfd_get_section_by_name (link_info.output_bfd, secname); |
| if (sec == NULL) |
| sec = bfd_abs_section_ptr; |
| h->u.def.value = 0; |
| h->u.def.section = sec; |
| } |
| } |
| |
| /* Create a symbol with the given name with the value of the |
| address of the first byte after the end of the section named. |
| |
| If the symbol already exists, then do nothing. */ |
| |
| static void |
| symbol_at_end_of (const char *secname, const char *name) |
| { |
| struct bfd_link_hash_entry *h; |
| |
| h = bfd_link_hash_lookup (link_info.hash, name, TRUE, TRUE, TRUE); |
| if (h == NULL) |
| einfo (_("%P%F: bfd_link_hash_lookup failed: %E\n")); |
| |
| if (h->type == bfd_link_hash_new |
| || h->type == bfd_link_hash_undefined) |
| { |
| asection *sec; |
| |
| h->type = bfd_link_hash_defined; |
| |
| sec = bfd_get_section_by_name (link_info.output_bfd, secname); |
| if (sec == NULL) |
| sec = bfd_abs_section_ptr; |
| h->u.def.value = sec->size; |
| h->u.def.section = sec; |
| } |
| } |
| |
| static void |
| lnk960_after_allocation (void) |
| { |
| if (!bfd_link_relocatable (&link_info)) |
| { |
| symbol_at_end_of (".text", "_etext"); |
| symbol_at_end_of (".data", "_edata"); |
| symbol_at_beginning_of (".bss", "_bss_start"); |
| 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 (void) |
| { |
| /* 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 (link_info.output_bfd, ldfile_output_architecture, |
| ldfile_output_machine); |
| } |
| |
| static char * |
| lnk960_choose_target (int argc ATTRIBUTE_UNUSED, char **argv ATTRIBUTE_UNUSED) |
| { |
| 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 |
| } |
| |
| static char * |
| lnk960_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 |
| |
| fragment <<EOF |
| |
| struct ld_emulation_xfer_struct ld_lnk960_emulation = |
| { |
| lnk960_before_parse, |
| lnk960_syslib, |
| lnk960_hll, |
| lnk960_after_parse, |
| after_open_default, |
| lnk960_after_allocation, |
| lnk960_set_output_arch, |
| lnk960_choose_target, |
| before_allocation_default, |
| lnk960_get_script, |
| "lnk960", |
| "", |
| finish_default, |
| NULL, /* create output section statements */ |
| NULL, /* open dynamic archive */ |
| NULL, /* place orphan */ |
| NULL, /* set symbols */ |
| NULL, /* parse args */ |
| NULL, /* add_options */ |
| NULL, /* handle_option */ |
| NULL, /* unrecognized file */ |
| NULL, /* list options */ |
| NULL, /* recognized file */ |
| NULL, /* find_potential_libraries */ |
| NULL, /* new_vers_pattern */ |
| NULL /* extra_map_file_text */ |
| }; |
| EOF |