d42799374f
sort using right pointer.
519 lines
14 KiB
Text
519 lines
14 KiB
Text
# This shell script emits a C file. -*- C -*-
|
||
# It does some substitutions.
|
||
cat >e${EMULATION_NAME}.c <<EOF
|
||
/* For WINDOWS_NT */
|
||
/* The original file generated returned different default scripts depending
|
||
on whether certain switches were set, but these switches pertain to the
|
||
Linux system and that particular version of coff. In the NT case, we
|
||
only determine if the subsystem is console or windows in order to select
|
||
the correct entry point by default. */
|
||
|
||
|
||
/* 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. */
|
||
|
||
|
||
#include "bfd.h"
|
||
#include "sysdep.h"
|
||
#include "bfdlink.h"
|
||
#include "getopt.h"
|
||
#include "ld.h"
|
||
#include "ld.h"
|
||
#include "ldmain.h"
|
||
#include "ldgram.h"
|
||
#include "ldexp.h"
|
||
#include "ldlang.h"
|
||
#include "ldemul.h"
|
||
#include "ldlex.h"
|
||
#include "ldmisc.h"
|
||
#include "ldctor.h"
|
||
#include "ldfile.h"
|
||
#include "coff/internal.h"
|
||
#include "../bfd/libcoff.h"
|
||
|
||
#define TARGET_IS_${EMULATION_NAME}
|
||
|
||
static void gld_${EMULATION_NAME}_before_parse PARAMS ((void));
|
||
static char *gld_${EMULATION_NAME}_get_script PARAMS ((int *isfile));
|
||
|
||
|
||
static struct internal_extra_pe_aouthdr pe;
|
||
static int dll;
|
||
|
||
static void
|
||
gld_${EMULATION_NAME}_before_parse()
|
||
{
|
||
ldfile_output_architecture = bfd_arch_${ARCH};
|
||
}
|
||
|
||
|
||
/* Used for setting flags in the PE header. */
|
||
#define OPTION_BASE_FILE (300 + 1)
|
||
#define OPTION_DLL (OPTION_BASE_FILE + 1)
|
||
#define OPTION_FILE_ALIGNMENT (OPTION_DLL + 1)
|
||
#define OPTION_IMAGE_BASE (OPTION_FILE_ALIGNMENT + 1)
|
||
#define OPTION_MAJOR_IMAGE_VERSION (OPTION_IMAGE_BASE + 1)
|
||
#define OPTION_MAJOR_OS_VERSION (OPTION_MAJOR_IMAGE_VERSION + 1)
|
||
#define OPTION_MAJOR_SUBSYSTEM_VERSION (OPTION_MAJOR_OS_VERSION + 1)
|
||
#define OPTION_MINOR_IMAGE_VERSION (OPTION_MAJOR_SUBSYSTEM_VERSION + 1)
|
||
#define OPTION_MINOR_OS_VERSION (OPTION_MINOR_IMAGE_VERSION + 1)
|
||
#define OPTION_MINOR_SUBSYSTEM_VERSION (OPTION_MINOR_OS_VERSION + 1)
|
||
#define OPTION_SECTION_ALIGNMENT (OPTION_MINOR_SUBSYSTEM_VERSION + 1)
|
||
#define OPTION_STACK (OPTION_SECTION_ALIGNMENT + 1)
|
||
#define OPTION_SUBSYSTEM (OPTION_STACK + 1)
|
||
#define OPTION_HEAP (OPTION_SUBSYSTEM + 1)
|
||
|
||
static struct option longopts[] = {
|
||
/* PE options */
|
||
{"base-file", required_argument, NULL, OPTION_BASE_FILE},
|
||
{"dll", no_argument, NULL, OPTION_DLL},
|
||
{"file-alignment", required_argument, NULL, OPTION_FILE_ALIGNMENT},
|
||
{"heap", required_argument, NULL, OPTION_HEAP},
|
||
{"image-base", required_argument, NULL, OPTION_IMAGE_BASE},
|
||
{"major-image-version", required_argument, NULL, OPTION_MAJOR_IMAGE_VERSION},
|
||
{"major-os-version", required_argument, NULL, OPTION_MAJOR_OS_VERSION},
|
||
{"major-subsystem-version", required_argument, NULL, OPTION_MAJOR_SUBSYSTEM_VERSION},
|
||
{"minor-image-version", required_argument, NULL, OPTION_MINOR_IMAGE_VERSION},
|
||
{"minor-os-version", required_argument, NULL, OPTION_MINOR_OS_VERSION},
|
||
{"minor-subsystem-version", required_argument, NULL, OPTION_MINOR_SUBSYSTEM_VERSION},
|
||
{"section-alignment", required_argument, NULL, OPTION_SECTION_ALIGNMENT},
|
||
{"stack", required_argument, NULL, OPTION_STACK},
|
||
{"subsystem", required_argument, NULL, OPTION_SUBSYSTEM},
|
||
{NULL, no_argument, NULL, 0}
|
||
};
|
||
|
||
|
||
/* PE/WIN32; added routines to get the subsystem type, heap and/or stack
|
||
parameters which may be input from the command line */
|
||
|
||
|
||
|
||
typedef struct {
|
||
void *ptr;
|
||
int size;
|
||
int value;
|
||
char *symbol;
|
||
int inited;
|
||
} definfo;
|
||
|
||
#define D(field,symbol,def) {&pe.field,sizeof(pe.field), def, symbol,0}
|
||
|
||
static definfo init[] =
|
||
{
|
||
/* imagebase must be first */
|
||
#define IMAGEBASEOFF 0
|
||
D(ImageBase,"__image_base__", NT_EXE_IMAGE_BASE),
|
||
#define DLLOFF 1
|
||
{&dll, sizeof(dll), 0, "__dll__"},
|
||
D(SectionAlignment,"__section_alignment__", PE_DEF_SECTION_ALIGNMENT),
|
||
D(FileAlignment,"__file_alignment__", PE_DEF_FILE_ALIGNMENT),
|
||
D(MajorOperatingSystemVersion,"__major_os_version__", 4),
|
||
D(MinorOperatingSystemVersion,"__minor_os_version__", 0),
|
||
D(MajorImageVersion,"__major_image_version__", 1),
|
||
D(MinorImageVersion,"__minor_image_version__", 0),
|
||
D(MajorSubsystemVersion,"__major_subsystem_version__", 4),
|
||
D(MinorSubsystemVersion,"__minor_subsystem_version__", 0),
|
||
D(Subsystem,"__subsystem__", 3),
|
||
D(SizeOfStackReserve,"__size_of_stack_reserve__", 0x100000),
|
||
D(SizeOfStackCommit,"__size_of_stack_commit__", 0x1000),
|
||
D(SizeOfHeapReserve,"__size_of_heap_reserve__", 0x100000),
|
||
D(SizeOfHeapCommit,"__size_of_heap_commit__", 0x1000),
|
||
D(LoaderFlags,"__loader_flags__", 0x0),
|
||
0
|
||
};
|
||
|
||
|
||
static void
|
||
set_pe_name (name, val)
|
||
char *name;
|
||
long val;
|
||
{
|
||
int i;
|
||
/* Find the name and set it. */
|
||
for (i = 0; init[i].ptr; i++)
|
||
{
|
||
if (strcmp (name, init[i].symbol) == 0)
|
||
{
|
||
init[i].value = val;
|
||
init[i].inited = 1;
|
||
return;
|
||
}
|
||
}
|
||
abort();
|
||
}
|
||
|
||
|
||
static void
|
||
set_pe_subsystem ()
|
||
{
|
||
int i;
|
||
static struct
|
||
{
|
||
char *name ;
|
||
int value;
|
||
}
|
||
v[] =
|
||
{
|
||
{"native", 1},
|
||
{"windows",2},
|
||
{"console",3},
|
||
{"os2",5},
|
||
{"posix", 7},
|
||
{0,0}
|
||
};
|
||
|
||
for (i = 0; v[i].name; i++)
|
||
{
|
||
if (!strcmp (optarg, v[i].name))
|
||
{
|
||
set_pe_name ("__subsystem__", v[i].value);
|
||
return;
|
||
}
|
||
}
|
||
einfo ("%P%F: invalid subsystem type %s\n", optarg);
|
||
}
|
||
|
||
|
||
|
||
static void
|
||
set_pe_value (name)
|
||
char *name;
|
||
|
||
{
|
||
char *end;
|
||
set_pe_name (name, strtoul (optarg, &end, 16));
|
||
if (end == optarg)
|
||
{
|
||
einfo ("%P%F: invalid hex number for PE parameter '%s'\n", optarg);
|
||
}
|
||
|
||
optarg = end;
|
||
}
|
||
|
||
static void
|
||
set_pe_stack_heap (resname, comname)
|
||
char *resname;
|
||
char *comname;
|
||
{
|
||
char *begin_commit;
|
||
char *end;
|
||
|
||
set_pe_value (resname);
|
||
if (*optarg == ',')
|
||
{
|
||
optarg++;
|
||
set_pe_value (comname);
|
||
}
|
||
else if (*optarg)
|
||
{
|
||
einfo ("%P%F: strange hex info for PE parameter '%s'\n", optarg);
|
||
}
|
||
}
|
||
|
||
|
||
|
||
static int
|
||
gld_${EMULATION_NAME}_parse_args(argc, argv)
|
||
int argc;
|
||
char **argv;
|
||
{
|
||
int longind;
|
||
int optc;
|
||
int prevoptind = optind;
|
||
int prevopterr = opterr;
|
||
int wanterror;
|
||
static int lastoptind = -1;
|
||
|
||
if (lastoptind != optind)
|
||
opterr = 0;
|
||
wanterror = opterr;
|
||
|
||
lastoptind = optind;
|
||
|
||
optc = getopt_long_only (argc, argv, "-", longopts, &longind);
|
||
opterr = prevopterr;
|
||
|
||
switch (optc)
|
||
{
|
||
default:
|
||
if (wanterror)
|
||
xexit (1);
|
||
optind = prevoptind;
|
||
return 0;
|
||
|
||
case OPTION_BASE_FILE:
|
||
link_info.base_file = (PTR) fopen (optarg, FOPEN_WB);
|
||
if (link_info.base_file == NULL)
|
||
{
|
||
fprintf (stderr, "%s: Can't open base file %s\n",
|
||
program_name, optarg);
|
||
xexit (1);
|
||
}
|
||
break;
|
||
|
||
/* PE options */
|
||
case OPTION_HEAP:
|
||
set_pe_stack_heap ("__heap_reserve__", "__heap_commit__");
|
||
break;
|
||
case OPTION_STACK:
|
||
set_pe_stack_heap ("__stack_reserve__", "__stack_commit__");
|
||
break;
|
||
case OPTION_SUBSYSTEM:
|
||
set_pe_subsystem ();
|
||
break;
|
||
case OPTION_MAJOR_OS_VERSION:
|
||
set_pe_value ("__major_os_version__");
|
||
break;
|
||
case OPTION_MINOR_OS_VERSION:
|
||
set_pe_value ("__minor_os_version__");
|
||
break;
|
||
case OPTION_MAJOR_SUBSYSTEM_VERSION:
|
||
set_pe_value ("__major_subsystem_version__");
|
||
break;
|
||
case OPTION_MINOR_SUBSYSTEM_VERSION:
|
||
set_pe_value ("__minor_subsystem_version__");
|
||
break;
|
||
case OPTION_MAJOR_IMAGE_VERSION:
|
||
set_pe_value ("__major_image_version__");
|
||
break;
|
||
case OPTION_MINOR_IMAGE_VERSION:
|
||
set_pe_value ("__minor_image_version__");
|
||
break;
|
||
case OPTION_FILE_ALIGNMENT:
|
||
set_pe_value ("__file_alignment__");
|
||
break;
|
||
case OPTION_SECTION_ALIGNMENT:
|
||
set_pe_value ("__section_alignment__");
|
||
break;
|
||
case OPTION_DLL:
|
||
set_pe_name ("__dll__", 1);
|
||
break;
|
||
case OPTION_IMAGE_BASE:
|
||
set_pe_value ("__image_base__");
|
||
break;
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
static void
|
||
gld_${EMULATION_NAME}_set_symbols()
|
||
{
|
||
/* Run through and invent symbols for all the
|
||
names and insert the defaults. */
|
||
int j;
|
||
lang_statement_list_type *save;
|
||
|
||
if (!init[IMAGEBASEOFF].inited)
|
||
init[IMAGEBASEOFF].value = init[DLLOFF].value
|
||
? NT_DLL_IMAGE_BASE : NT_EXE_IMAGE_BASE;
|
||
|
||
/* Glue the assignments into the abs section */
|
||
save = stat_ptr;
|
||
|
||
stat_ptr = &(abs_output_section->children);
|
||
|
||
for (j = 0; init[j].ptr; j++)
|
||
{
|
||
long val = init[j].value;
|
||
lang_add_assignment (exp_assop ('=' ,init[j].symbol, exp_intop (val)));
|
||
if (init[j].size == sizeof(short))
|
||
*(short *)init[j].ptr = val;
|
||
else if (init[j].size == sizeof(int))
|
||
*(int *)init[j].ptr = val;
|
||
else if (init[j].size == sizeof(long))
|
||
*(long *)init[j].ptr = val;
|
||
else abort();
|
||
}
|
||
/* Restore the pointer. */
|
||
stat_ptr = save;
|
||
|
||
if (pe.FileAlignment >
|
||
pe.SectionAlignment)
|
||
{
|
||
einfo ("%P: warning, file alignment > section alignment.\n");
|
||
}
|
||
}
|
||
|
||
static void
|
||
gld_${EMULATION_NAME}_after_open()
|
||
{
|
||
/* Pass the wacky PE command line options into the output bfd */
|
||
struct internal_extra_pe_aouthdr *i;
|
||
if (!coff_data(output_bfd)->pe)
|
||
{
|
||
einfo ("%F%P: PE operations on non PE file.\n");
|
||
}
|
||
|
||
pe_data(output_bfd)->pe_opthdr = pe;
|
||
pe_data(output_bfd)->dll = init[DLLOFF].value;
|
||
|
||
}
|
||
|
||
/* Callback function for qsort in sort_sections. */
|
||
|
||
static int sfunc (a, b)
|
||
void *a;
|
||
void *b;
|
||
{
|
||
lang_statement_union_type **ra = a;
|
||
lang_statement_union_type **rb = b;
|
||
return strcmp ((*ra)->input_section.ifile->filename,
|
||
(*rb)->input_section.ifile->filename);
|
||
}
|
||
|
||
/* Sort the input sections of archives into filename order. */
|
||
|
||
static void
|
||
sort_sections (s)
|
||
lang_statement_union_type *s;
|
||
{
|
||
for (; s ; s = s->next)
|
||
switch (s->header.type)
|
||
{
|
||
case lang_output_section_statement_enum:
|
||
sort_sections (s->output_section_statement.children.head);
|
||
break;
|
||
case lang_wild_statement_enum:
|
||
{
|
||
lang_statement_union_type **p = &s->wild_statement.children.head;
|
||
|
||
/* Sort any children in the same archive. Run through all
|
||
the children of this wild statement, when an
|
||
input_section in an archive is found, scan forward to
|
||
find all input_sections which are in the same archive.
|
||
Sort them by their filename and then re-thread the
|
||
pointer chain. */
|
||
|
||
while (*p)
|
||
{
|
||
lang_statement_union_type *start = *p;
|
||
if (start->header.type != lang_input_section_enum
|
||
|| !start->input_section.ifile->the_bfd->my_archive)
|
||
p = &(start->header.next);
|
||
else
|
||
{
|
||
lang_statement_union_type **vec;
|
||
lang_statement_union_type *end;
|
||
lang_statement_union_type *np;
|
||
int count;
|
||
int i;
|
||
|
||
for (end = start, count = 0;
|
||
end && end->header.type == lang_input_section_enum
|
||
&& (end->input_section.ifile->the_bfd->my_archive
|
||
== start->input_section.ifile->the_bfd->my_archive);
|
||
end = end->next)
|
||
count++;
|
||
|
||
np = end;
|
||
|
||
vec = (lang_statement_union_type **)
|
||
alloca (count * sizeof (lang_statement_union_type *));
|
||
|
||
for (end = start, i = 0; i < count; i++, end = end->next)
|
||
vec[i] = end;
|
||
|
||
qsort (vec, count, sizeof (vec[0]), sfunc);
|
||
|
||
/* Fill in the next pointers again. */
|
||
*p = vec[0];
|
||
for (i = 0; i < count - 1; i++)
|
||
vec[i]->header.next = vec[i + 1];
|
||
vec[i]->header.next = np;
|
||
p = &(vec[i]->header.next);
|
||
}
|
||
}
|
||
}
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
|
||
static void
|
||
gld_${EMULATION_NAME}_before_allocation()
|
||
{
|
||
extern lang_statement_list_type *stat_ptr;
|
||
|
||
#ifdef TARGET_IS_ppcpe
|
||
/* Here we rummage through the found bfds to collect toc information */
|
||
{
|
||
LANG_FOR_EACH_INPUT_STATEMENT (is)
|
||
{
|
||
ppc_process_before_allocation(is->the_bfd, &link_info);
|
||
}
|
||
}
|
||
|
||
/* We have seen it all. Allocate it, and carry on */
|
||
ppc_allocate_toc_section (&link_info);
|
||
#endif
|
||
|
||
sort_sections (*stat_ptr);
|
||
}
|
||
|
||
static char *
|
||
gld_${EMULATION_NAME}_get_script(isfile)
|
||
int *isfile;
|
||
EOF
|
||
# Scripts compiled in.
|
||
# sed commands to quote an ld script as a C string.
|
||
sc="-f ${srcdir}/emultempl/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
|
||
|
||
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}",
|
||
NULL, /* finish */
|
||
NULL, /* create output section statements */
|
||
NULL, /* open dynamic archive */
|
||
NULL, /* place orphan */
|
||
gld_${EMULATION_NAME}_set_symbols,
|
||
gld_${EMULATION_NAME}_parse_args
|
||
};
|
||
EOF
|
||
|