espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-24 20:28:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

* emultempl/aix.em: Formatting fixes.

Browse Source
This commit is contained in:
Alan Modra
2001-08-18 15:42:26 +00:00
parent b3327aadfd
commit fab80407fe
2 changed files with 369 additions and 333 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ld/ChangeLog
View File

@ -1,3 +1,7 @@
2001-08-18 Alan Modra <amodra@bigpond.net.au>
* emultempl/aix.em: Formatting fixes.
2001-08-18 Alan Modra <amodra@bigpond.net.au> 2001-08-18 Alan Modra <amodra@bigpond.net.au>
* ldlang.c (insert_pad): Make use of an existing pad statement if * ldlang.c (insert_pad): Make use of an existing pad statement if

698
ld/emultempl/aix.em
View File

@ -117,7 +117,7 @@ static unsigned int symbol_mode = 0x04;
/* This routine is called before anything else is done. */ /* This routine is called before anything else is done. */
static void static void
gld${EMULATION_NAME}_before_parse() gld${EMULATION_NAME}_before_parse ()
{ {
#ifndef TARGET_ /* I.e., if not generic. */ #ifndef TARGET_ /* I.e., if not generic. */
const bfd_arch_info_type *arch = bfd_scan_arch ("${OUTPUT_ARCH}"); const bfd_arch_info_type *arch = bfd_scan_arch ("${OUTPUT_ARCH}");
@ -136,7 +136,7 @@ gld${EMULATION_NAME}_before_parse()
* The link_info.[init|fini]_functions are initialized in ld/lexsup.c. * The link_info.[init|fini]_functions are initialized in ld/lexsup.c.
* Override them here so we can use the link_info.init_function as a * Override them here so we can use the link_info.init_function as a
* state flag that lets the backend know that -binitfini has been done. * state flag that lets the backend know that -binitfini has been done.
*/ */
link_info.init_function = NULL; link_info.init_function = NULL;
link_info.fini_function = NULL; link_info.fini_function = NULL;
@ -159,72 +159,72 @@ gld${EMULATION_NAME}_parse_args (argc, argv)
enum { enum {
OPTION_IGNORE = 300, OPTION_IGNORE = 300,
OPTION_AUTOIMP, OPTION_AUTOIMP,
OPTION_ERNOTOK, OPTION_ERNOTOK,
OPTION_EROK, OPTION_EROK,
OPTION_EXPORT, OPTION_EXPORT,
OPTION_IMPORT, OPTION_IMPORT,
OPTION_INITFINI, OPTION_INITFINI,
OPTION_LOADMAP, OPTION_LOADMAP,
OPTION_MAXDATA, OPTION_MAXDATA,
OPTION_MAXSTACK, OPTION_MAXSTACK,
OPTION_MODTYPE, OPTION_MODTYPE,
OPTION_NOAUTOIMP, OPTION_NOAUTOIMP,
OPTION_NOSTRCMPCT, OPTION_NOSTRCMPCT,
OPTION_PD, OPTION_PD,
OPTION_PT, OPTION_PT,
OPTION_STRCMPCT, OPTION_STRCMPCT,
OPTION_UNIX OPTION_UNIX
}; };
/* /*
b64 is an empty option. The native linker uses -b64 for xcoff64 support b64 is an empty option. The native linker uses -b64 for xcoff64 support
Our linker uses -m aixppc64 for xcoff64 support. The choice for the Our linker uses -m aixppc64 for xcoff64 support. The choice for the
correct emulation is done in collect2.c via the environmental varible correct emulation is done in collect2.c via the environmental varible
LDEMULATION. LDEMULATION.
binitfini has special handling in the linker backend. The native linker binitfini has special handling in the linker backend. The native linker
uses the arguemnts to generate a table of init and fini functions for uses the arguemnts to generate a table of init and fini functions for
the executable. The important use for this option is to support aix 4.2+ the executable. The important use for this option is to support aix 4.2+
c++ constructors and destructors. This is tied into gcc via collect2.c. c++ constructors and destructors. This is tied into gcc via collect2.c.
The function table is accessed by the runtime linker/loader by checking if The function table is accessed by the runtime linker/loader by checking if
the first symbol in the loader symbol table is "__rtinit". The native the first symbol in the loader symbol table is "__rtinit". The native
linker generates this table and the loader symbol. The gnu linker looks linker generates this table and the loader symbol. The gnu linker looks
for the symbol "__rtinit" and makes it the first loader symbol. It is the for the symbol "__rtinit" and makes it the first loader symbol. It is the
responsiblity of the user to define the __rtinit symbol. The format for responsiblity of the user to define the __rtinit symbol. The format for
__rtinit is given by the aix system file /usr/include/rtinit.h. You can __rtinit is given by the aix system file /usr/include/rtinit.h. You can
look at collect2.c to see an example of how this is done for 32 and 64 bit. look at collect2.c to see an example of how this is done for 32 and 64 bit.
Below is an exmaple of a 32 bit assembly file that defines __rtinit. Below is an exmaple of a 32 bit assembly file that defines __rtinit.
.file "my_rtinit.s" .file "my_rtinit.s"
.csect .data[RW],3 .csect .data[RW],3
.globl __rtinit .globl __rtinit
.extern init_function .extern init_function
.extern fini_function .extern fini_function
__rtinit: __rtinit:
.long 0 .long 0
.long f1i - __rtinit .long f1i - __rtinit
.long f1f - __rtinit .long f1f - __rtinit
.long f2i - f1i .long f2i - f1i
.align 3 .align 3
f1i: .long init_function f1i: .long init_function
.long s1i - __rtinit .long s1i - __rtinit
.long 0 .long 0
f2i: .long 0 f2i: .long 0
.long 0 .long 0
.long 0 .long 0
f1f: .long fini_function f1f: .long fini_function
.long s1f - __rtinit .long s1f - __rtinit
.long 0 .long 0
f2f: .long 0 f2f: .long 0
.long 0 .long 0
.long 0 .long 0
.align 3 .align 3
s1i: .string "init_function" s1i: .string "init_function"
.align 3 .align 3
s1f: .string "fini_function" s1f: .string "fini_function"
*/ */
@ -287,20 +287,24 @@ gld${EMULATION_NAME}_parse_args (argc, argv)
The AIX linker uses : to separate the option from the argument; The AIX linker uses : to separate the option from the argument;
changing it to = lets us treat it as a getopt option. */ changing it to = lets us treat it as a getopt option. */
indx = optind; indx = optind;
if (indx == 0) { if (indx == 0)
indx = 1; {
} indx = 1;
}
if (indx < argc && strncmp (argv[indx], "-b", 2) == 0) {
char *s; if (indx < argc && strncmp (argv[indx], "-b", 2) == 0)
{
for (s = argv[indx]; *s != '\0'; s++) { char *s;
if (*s == ':') {
*s = '='; for (s = argv[indx]; *s != '\0'; s++)
break; {
} if (*s == ':')
{
*s = '=';
break;
}
}
} }
}
/* We add s and u so to the short options list so that -s and -u on /* We add s and u so to the short options list so that -s and -u on
@ -362,39 +366,45 @@ gld${EMULATION_NAME}_parse_args (argc, argv)
case OPTION_IGNORE: case OPTION_IGNORE:
break; break;
case OPTION_INITFINI: { case OPTION_INITFINI:
/* {
* The aix linker init fini has the format : /*
* * The aix linker init fini has the format :
* -binitfini:[ Initial][:Termination][:Priority] *
* * -binitfini:[ Initial][:Termination][:Priority]
* it allows the Termination and Priority to be optional. *
* * it allows the Termination and Priority to be optional.
* Since we support only one init/fini pair, we ignore the Priority. *
* * Since we support only one init/fini pair, we ignore the Priority.
* Define the special symbol __rtinit. *
* * Define the special symbol __rtinit.
* strtok does not correctly handle the case of -binitfini::fini: so *
* do it by hand * strtok does not correctly handle the case of -binitfini::fini: so
*/ * do it by hand
char *t, *i, *f; */
char *t, *i, *f;
i = t = optarg; i = t = optarg;
while (*t && ':' != *t) t++; while (*t && ':' != *t)
if (*t) *t++ = 0; t++;
if (*t)
*t++ = 0;
if (0 != strlen(i)) { if (0 != strlen (i))
link_info.init_function = i; {
link_info.init_function = i;
}
f = t;
while (*t && ':' != *t)
t++;
*t = 0;
if (0 != strlen (f))
{
link_info.fini_function = f;
}
} }
f = t;
while (*t && ':' != *t) t++;
*t = 0;
if (0 != strlen(f)) {
link_info.fini_function = f;
}
}
break; break;
case OPTION_AUTOIMP: case OPTION_AUTOIMP:
@ -435,8 +445,7 @@ gld${EMULATION_NAME}_parse_args (argc, argv)
case OPTION_MAXDATA: case OPTION_MAXDATA:
val = strtoull (optarg, &end, 0); val = strtoull (optarg, &end, 0);
if (*end != '\0') if (*end != '\0')
einfo ("%P: warning: ignoring invalid -bmaxdata number %s\n", einfo ("%P: warning: ignoring invalid -bmaxdata number %s\n", optarg);
optarg);
else else
maxdata = val; maxdata = val;
break; break;
@ -444,8 +453,7 @@ gld${EMULATION_NAME}_parse_args (argc, argv)
case OPTION_MAXSTACK: case OPTION_MAXSTACK:
val = strtoull (optarg, &end, 0); val = strtoull (optarg, &end, 0);
if (*end != '\0') if (*end != '\0')
einfo ("%P: warning: ignoring invalid -bmaxstack number %s\n", einfo ("%P: warning: ignoring invalid -bmaxstack number %s\n", optarg);
optarg);
else else
maxstack = val; maxstack = val;
break; break;
@ -625,15 +633,16 @@ gld${EMULATION_NAME}_before_allocation ()
/* Handle the import and export files, if any. */ /* Handle the import and export files, if any. */
for (fl = import_files; fl != NULL; fl = fl->next) for (fl = import_files; fl != NULL; fl = fl->next)
gld${EMULATION_NAME}_read_file (fl->name, true); gld${EMULATION_NAME}_read_file (fl->name, true);
for (el = export_symbols; el != NULL; el = el->next) { for (el = export_symbols; el != NULL; el = el->next)
struct bfd_link_hash_entry *h; {
struct bfd_link_hash_entry *h;
h = bfd_link_hash_lookup (link_info.hash, el->name, false, false, false);
if (h == NULL) h = bfd_link_hash_lookup (link_info.hash, el->name, false, false, false);
einfo ("%P%F: bfd_link_hash_lookup of export symbol failed: %E\n"); if (h == NULL)
if (! bfd_xcoff_export_symbol (output_bfd, &link_info, h, el->syscall)) einfo ("%P%F: bfd_link_hash_lookup of export symbol failed: %E\n");
einfo ("%P%F: bfd_xcoff_export_symbol failed: %E\n"); if (! bfd_xcoff_export_symbol (output_bfd, &link_info, h, el->syscall))
} einfo ("%P%F: bfd_xcoff_export_symbol failed: %E\n");
}
/* Track down all relocations called for by the linker script (these /* Track down all relocations called for by the linker script (these
are typically constructor/destructor entries created by are typically constructor/destructor entries created by
@ -681,113 +690,124 @@ gld${EMULATION_NAME}_before_allocation ()
/* Look through the special sections, and put them in the right /* Look through the special sections, and put them in the right
place in the link ordering. This is especially magic. */ place in the link ordering. This is especially magic. */
for (i = 0; i < XCOFF_NUMBER_OF_SPECIAL_SECTIONS; i++) { for (i = 0; i < XCOFF_NUMBER_OF_SPECIAL_SECTIONS; i++)
asection *sec; {
lang_output_section_statement_type *os; asection *sec;
lang_statement_union_type **pls; lang_output_section_statement_type *os;
lang_input_section_type *is; lang_statement_union_type **pls;
const char *oname; lang_input_section_type *is;
boolean start; const char *oname;
boolean start;
sec = special_sections[i]; sec = special_sections[i];
if (sec == NULL) if (sec == NULL)
continue; continue;
/* Remove this section from the list of the output section. /* Remove this section from the list of the output section.
This assumes we know what the script looks like. */ This assumes we know what the script looks like. */
is = NULL; is = NULL;
os = lang_output_section_find (sec->output_section->name); os = lang_output_section_find (sec->output_section->name);
if (os == NULL) { if (os == NULL) {
einfo ("%P%F: can't find output section %s\n", einfo ("%P%F: can't find output section %s\n",
sec->output_section->name); sec->output_section->name);
}
for (pls = &os->children.head; *pls != NULL; pls = &(*pls)->next) {
if ((*pls)->header.type == lang_input_section_enum &&
(*pls)->input_section.section == sec) {
is = (lang_input_section_type *) *pls;
*pls = (*pls)->next;
break;
} }
if ((*pls)->header.type == lang_wild_statement_enum) {
lang_statement_union_type **pwls;
for (pwls = &(*pls)->wild_statement.children.head;
*pwls != NULL;
pwls = &(*pwls)->next) {
if ((*pwls)->header.type == lang_input_section_enum && for (pls = &os->children.head; *pls != NULL; pls = &(*pls)->header.next)
(*pwls)->input_section.section == sec) { {
is = (lang_input_section_type *) *pwls; if ((*pls)->header.type == lang_input_section_enum &&
*pwls = (*pwls)->next; (*pls)->input_section.section == sec)
{
is = (lang_input_section_type *) *pls;
*pls = (*pls)->header.next;
break; break;
} }
if ((*pls)->header.type == lang_wild_statement_enum)
{
lang_statement_union_type **pwls;
for (pwls = &(*pls)->wild_statement.children.head;
*pwls != NULL;
pwls = &(*pwls)->header.next)
{
if ((*pwls)->header.type == lang_input_section_enum &&
(*pwls)->input_section.section == sec)
{
is = (lang_input_section_type *) *pwls;
*pwls = (*pwls)->header.next;
break;
}
}
if (is != NULL)
break;
}
} }
if (is != NULL) if (is == NULL)
{
einfo ("%P%F: can't find %s in output section\n",
bfd_get_section_name (sec->owner, sec));
}
/* Now figure out where the section should go. */
switch (i)
{
default: /* to avoid warnings */
case XCOFF_SPECIAL_SECTION_TEXT:
/* _text */
oname = ".text";
start = true;
break; break;
}
}
if (is == NULL) { case XCOFF_SPECIAL_SECTION_ETEXT:
einfo ("%P%F: can't find %s in output section\n", /* _etext */
bfd_get_section_name (sec->owner, sec)); oname = ".text";
start = false;
break;
case XCOFF_SPECIAL_SECTION_DATA:
/* _data */
oname = ".data";
start = true;
break;
case XCOFF_SPECIAL_SECTION_EDATA:
/* _edata */
oname = ".data";
start = false;
break;
case XCOFF_SPECIAL_SECTION_END:
case XCOFF_SPECIAL_SECTION_END2:
/* _end and end */
oname = ".bss";
start = false;
break;
}
os = lang_output_section_find (oname);
if (start)
{
is->header.next = os->children.head;
os->children.head = (lang_statement_union_type *) is;
}
else
{
is->header.next = NULL;
lang_statement_append (&os->children,
(lang_statement_union_type *) is,
&is->header.next);
}
} }
/* Now figure out where the section should go. */
switch (i) {
default: /* to avoid warnings */
case XCOFF_SPECIAL_SECTION_TEXT:
/* _text */
oname = ".text";
start = true;
break;
case XCOFF_SPECIAL_SECTION_ETEXT:
/* _etext */
oname = ".text";
start = false;
break;
case XCOFF_SPECIAL_SECTION_DATA:
/* _data */
oname = ".data";
start = true;
break;
case XCOFF_SPECIAL_SECTION_EDATA:
/* _edata */
oname = ".data";
start = false;
break;
case XCOFF_SPECIAL_SECTION_END:
case XCOFF_SPECIAL_SECTION_END2:
/* _end and end */
oname = ".bss";
start = false;
break;
}
os = lang_output_section_find (oname);
if (start) {
is->header.next = os->children.head;
os->children.head = (lang_statement_union_type *) is;
} else {
is->header.next = NULL;
lang_statement_append (&os->children,
(lang_statement_union_type *) is,
&is->header.next);
}
}
} }
static int change_symbol_mode (char *input) static int change_symbol_mode (char *input)
{ {
/* /*
* 1 : state changed * 1 : state changed
@ -804,22 +824,24 @@ static int change_symbol_mode (char *input)
unsigned int bit; unsigned int bit;
char *string; char *string;
for (bit = 0; ; bit++) { for (bit = 0; ; bit++)
string = symbol_mode_string[bit]; {
if (NULL == string) string = symbol_mode_string[bit];
return 0; if (NULL == string)
return 0;
if (0 == strcmp(input, string)) {
symbol_mode = (1 << bit); if (0 == strcmp (input, string))
return 1; {
symbol_mode = (1 << bit);
return 1;
}
} }
}
/* should not be here */ /* should not be here */
return 0; return 0;
} }
static int is_syscall(char *input) static int is_syscall (char *input)
{ {
/* /*
* 1 : yes * 1 : yes
@ -828,7 +850,7 @@ static int is_syscall(char *input)
*/ */
unsigned int bit; unsigned int bit;
char *string; char *string;
char *syscall_string[] = { char *syscall_string[] = {
"svc", /* 0x01 */ "svc", /* 0x01 */
"svc32", /* 0x02 */ "svc32", /* 0x02 */
@ -841,21 +863,27 @@ static int is_syscall(char *input)
NULL NULL
}; };
for (bit = 0; ;bit++) { for (bit = 0; ;bit++)
{
string = syscall_string[bit];
if (NULL == string) {
return -1;
}
if (0 == strcmp(input, string)) { string = syscall_string[bit];
if (1 << bit & ${SYSCALL_MASK}) { if (NULL == string)
return 1; {
} else { return -1;
return 0; }
}
if (0 == strcmp (input, string))
{
if (1 << bit & ${SYSCALL_MASK})
{
return 1;
}
else
{
return 0;
}
}
} }
}
/* should not be here */ /* should not be here */
return -1; return -1;
} }
@ -897,7 +925,7 @@ gld${EMULATION_NAME}_read_file (filename, import)
lineno = 0; lineno = 0;
/* /*
* default to 32 and 64 bit mode * default to 32 and 64 bit mode
* symbols at top of /lib/syscalls.exp do not have a mode modifier and they * symbols at top of /lib/syscalls.exp do not have a mode modifier and they
* are not repeated, assume 64 bit routines also want to use them. * are not repeated, assume 64 bit routines also want to use them.
@ -925,11 +953,11 @@ gld${EMULATION_NAME}_read_file (filename, import)
s = (char *) obstack_base (o); s = (char *) obstack_base (o);
while (isspace ((unsigned char) *s)) while (isspace ((unsigned char) *s))
++s; ++s;
if (*s == '\0' || if (*s == '\0'
*s == '*' || || *s == '*'
change_symbol_mode (s) || || change_symbol_mode (s)
(*s == '#' && s[1] == ' ') || || (*s == '#' && s[1] == ' ')
(! import && *s == '#' && s[1] == '!')) || (! import && *s == '#' && s[1] == '!'))
{ {
obstack_free (o, obstack_base (o)); obstack_free (o, obstack_base (o));
continue; continue;
@ -1008,112 +1036,116 @@ gld${EMULATION_NAME}_read_file (filename, import)
continue; continue;
} }
if (symbol_mode & ${SYMBOL_MODE_MASK}) { if (symbol_mode & ${SYMBOL_MODE_MASK})
{
/* This is a symbol to be imported or exported. */
symname = s;
syscall = false;
address = (bfd_vma) -1;
/* This is a symbol to be imported or exported. */ while (! isspace ((unsigned char) *s) && *s != '\0')
symname = s; ++s;
syscall = false; if (*s != '\0')
address = (bfd_vma) -1; {
char *se;
while (! isspace ((unsigned char) *s) && *s != '\0') *s++ = '\0';
++s;
if (*s != '\0')
{
char *se;
*s++ = '\0';
while (isspace ((unsigned char) *s)) while (isspace ((unsigned char) *s))
++s; ++s;
se = s; se = s;
while (! isspace ((unsigned char) *se) && *se != '\0') while (! isspace ((unsigned char) *se) && *se != '\0')
++se; ++se;
if (*se != '\0') if (*se != '\0')
{ {
*se++ = '\0'; *se++ = '\0';
while (isspace ((unsigned char) *se)) while (isspace ((unsigned char) *se))
++se; ++se;
if (*se != '\0') if (*se != '\0')
einfo ("%s%d: warning: syntax error in import/export file\n", einfo ("%s%d: warning: syntax error in import/export file\n",
filename, lineno); filename, lineno);
} }
if (s != se) { if (s != se)
int status; {
char *end; int status;
char *end;
status = is_syscall(s);
status = is_syscall (s);
switch (status) {
case 1: switch (status)
/* this is a system call */ {
syscall = true; case 1:
break; /* this is a system call */
syscall = true;
case 0: break;
/* ignore this system call */
break; case 0:
/* ignore this system call */
default: break;
/* not a system call, check for address */
address = strtoul (s, &end, 0); default:
if (*end != '\0') { /* not a system call, check for address */
einfo ("%s:%d: warning: syntax error in import/export file\n", filename, lineno); address = strtoul (s, &end, 0);
if (*end != '\0')
{
einfo ("%s:%d: warning: syntax error in import/export file\n",
filename, lineno);
}
}
} }
}
} }
}
if (! import) if (! import)
{ {
struct export_symbol_list *n; struct export_symbol_list *n;
ldlang_add_undef (symname); ldlang_add_undef (symname);
n = ((struct export_symbol_list *) n = ((struct export_symbol_list *)
xmalloc (sizeof (struct export_symbol_list))); xmalloc (sizeof (struct export_symbol_list)));
n->next = export_symbols; n->next = export_symbols;
n->name = xstrdup (symname); n->name = xstrdup (symname);
n->syscall = syscall; n->syscall = syscall;
export_symbols = n; export_symbols = n;
} }
else else
{ {
h = bfd_link_hash_lookup (link_info.hash, symname, false, false, h = bfd_link_hash_lookup (link_info.hash, symname, false, false,
true); true);
if (h == NULL || h->type == bfd_link_hash_new) if (h == NULL || h->type == bfd_link_hash_new)
{ {
/* We can just ignore attempts to import an unreferenced /* We can just ignore attempts to import an unreferenced
symbol. */ symbol. */
} }
else else
{ {
if (! bfd_xcoff_import_symbol (output_bfd, &link_info, h, if (! bfd_xcoff_import_symbol (output_bfd, &link_info, h,
address, imppath, impfile, address, imppath, impfile,
impmember)) impmember))
einfo ("%X%s:%d: failed to import symbol %s: %E\n", einfo ("%X%s:%d: failed to import symbol %s: %E\n",
filename, lineno, symname); filename, lineno, symname);
} }
} }
} }
obstack_free (o, obstack_base (o)); obstack_free (o, obstack_base (o));
} }
if (obstack_object_size (o) > 0) if (obstack_object_size (o) > 0)
{ {
einfo ("%s:%d: warning: ignoring unterminated last line\n", einfo ("%s:%d: warning: ignoring unterminated last line\n",
filename, lineno); filename, lineno);
obstack_free (o, obstack_base (o)); obstack_free (o, obstack_base (o));
}
if (! keep)
{
obstack_free (o, NULL);
free (o);
}
} }
if (! keep)
{
obstack_free (o, NULL);
free (o);
}
}
/* This routine saves us from worrying about declaring free. */ /* This routine saves us from worrying about declaring free. */
static void static void
@ -1194,7 +1226,7 @@ gld${EMULATION_NAME}_find_exp_assignment (exp)
} }
static char * static char *
gld${EMULATION_NAME}_get_script(isfile) gld${EMULATION_NAME}_get_script (isfile)
int *isfile; int *isfile;
EOF EOF
@ -1206,7 +1238,7 @@ then
sc="-f ${srcdir}/emultempl/ostring.sed" sc="-f ${srcdir}/emultempl/ostring.sed"
cat >>e${EMULATION_NAME}.c <<EOF cat >>e${EMULATION_NAME}.c <<EOF
{ {
*isfile = 0; *isfile = 0;
if (link_info.relocateable == true && config.build_constructors == true) if (link_info.relocateable == true && config.build_constructors == true)
@ -1227,7 +1259,7 @@ else
# Scripts read from the filesystem. # Scripts read from the filesystem.
cat >>e${EMULATION_NAME}.c <<EOF cat >>e${EMULATION_NAME}.c <<EOF
{ {
*isfile = 1; *isfile = 1;
if (link_info.relocateable == true && config.build_constructors == true) if (link_info.relocateable == true && config.build_constructors == true)
@ -1247,7 +1279,7 @@ fi
cat >>e${EMULATION_NAME}.c <<EOF cat >>e${EMULATION_NAME}.c <<EOF
struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation = struct ld_emulation_xfer_struct ld_${EMULATION_NAME}_emulation =
{ {
gld${EMULATION_NAME}_before_parse, gld${EMULATION_NAME}_before_parse,
syslib_default, syslib_default,