ef5b53687b
sections before looking at the symbols. Move all common symbols into .bss section. Automatically define _edata and _end. Only export symbols in the export list, with multiple prefixes if necessary. Warn if no version. Always create extended header. Set date automatically if not already set. (setup_sections): Count size of bss sections. (mangle_relocs, i386_mangle_relocs): Accept section argument, and take reloc_count as a changeable pointer; changed callers. (i386_mangle_relocs): Remove PC relative relocs within a section, as they require no adjustment. * nlmheader.y: Fixed memory allocation throughout: token STRING is now allocated on the heap, and freed if not needed. Null terminated copyright message. Accept version with only two strings. (symbol_list_opt): New nonterminal, either symbol_list or empty. (symbol_list): Use left recursion to avoid overflowing parser stack. (yylex): Rearranged beginning of line check. Accept quoted strings using single quotes. End generic argument at comment character or parentheses. (string_list_append): Fixed. (string_list_append1): New function.
1126 lines
32 KiB
C
1126 lines
32 KiB
C
/* nlmconv.c -- NLM conversion program
|
||
Copyright (C) 1993 Free Software Foundation, Inc.
|
||
|
||
This file is part of 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 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., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
/* Written by Ian Lance Taylor <ian@cygnus.com>.
|
||
|
||
This program can be used to convert any appropriate object file
|
||
into a NetWare Loadable Module (an NLM). It will accept a linker
|
||
specification file which is identical to that accepted by the
|
||
NetWare linker, NLMLINK, except that the INPUT command, normally
|
||
used to give a list of object files to link together, is not used.
|
||
This program will convert only a single object file. */
|
||
|
||
#include <ansidecl.h>
|
||
#include <stdio.h>
|
||
#include <time.h>
|
||
#include <sys/types.h>
|
||
#include <sys/stat.h>
|
||
#include <assert.h>
|
||
#include <getopt.h>
|
||
#include <bfd.h>
|
||
#include "sysdep.h"
|
||
#include "bucomm.h"
|
||
/* Internal BFD NLM header. */
|
||
#include "libnlm.h"
|
||
#include "nlmconv.h"
|
||
|
||
/* If strerror is just a macro, we want to use the one from libiberty
|
||
since it will handle undefined values. */
|
||
#undef strerror
|
||
extern char *strerror ();
|
||
|
||
#ifndef localtime
|
||
extern struct tm *localtime ();
|
||
#endif
|
||
|
||
#ifndef SEEK_SET
|
||
#define SEEK_SET 0
|
||
#endif
|
||
|
||
/* Global variables. */
|
||
|
||
/* The name used to invoke the program. */
|
||
char *program_name;
|
||
|
||
/* The version number. */
|
||
extern char *program_version;
|
||
|
||
/* Local variables. */
|
||
|
||
/* The symbol table. */
|
||
static asymbol **symbols;
|
||
|
||
/* The total amount of bss space. */
|
||
static bfd_size_type total_bss_size;
|
||
|
||
/* The list of long options. */
|
||
static struct option long_options[] =
|
||
{
|
||
{ "header-info", required_argument, 0, 'T' },
|
||
{ "help", no_argument, 0, 'h' },
|
||
{ "input-format", required_argument, 0, 'I' },
|
||
{ "output-format", required_argument, 0, 'O' },
|
||
{ "version", no_argument, 0, 'V' },
|
||
{ NULL, no_argument, 0, 0 }
|
||
};
|
||
|
||
/* Local routines. */
|
||
|
||
static void show_help PARAMS ((void));
|
||
static void show_usage PARAMS ((FILE *, int));
|
||
static const char *select_output_format PARAMS ((enum bfd_architecture,
|
||
long, boolean));
|
||
static void setup_sections PARAMS ((bfd *, asection *, PTR));
|
||
static void copy_sections PARAMS ((bfd *, asection *, PTR));
|
||
static void mangle_relocs PARAMS ((bfd *, asection *, arelent **,
|
||
bfd_size_type *, char *,
|
||
bfd_size_type));
|
||
static void i386_mangle_relocs PARAMS ((bfd *, asection *, arelent **,
|
||
bfd_size_type *, char *,
|
||
bfd_size_type));
|
||
|
||
/* The main routine. */
|
||
|
||
int
|
||
main (argc, argv)
|
||
int argc;
|
||
char **argv;
|
||
{
|
||
int opt;
|
||
const char *input_format = NULL;
|
||
const char *output_format = NULL;
|
||
const char *header_file = NULL;
|
||
bfd *inbfd;
|
||
bfd *outbfd;
|
||
asymbol **newsyms, **outsyms;
|
||
unsigned int symcount, newsymalloc, newsymcount;
|
||
asection *bss_sec;
|
||
asymbol *endsym;
|
||
unsigned int i;
|
||
char inlead, outlead;
|
||
boolean gotstart, gotexit, gotcheck;
|
||
struct stat st;
|
||
FILE *custom_data, *help_data, *message_data, *rpc_data, *shared_data;
|
||
bfd_size_type custom_size, help_size, message_size, module_size, rpc_size;
|
||
asection *custom_section, *help_section, *message_section, *module_section;
|
||
asection *rpc_section, *shared_section;
|
||
bfd *sharedbfd;
|
||
bfd_size_type shared_offset, shared_size;
|
||
Nlm_Internal_Fixed_Header sharedhdr;
|
||
int len;
|
||
|
||
program_name = argv[0];
|
||
|
||
bfd_init ();
|
||
|
||
while ((opt = getopt_long (argc, argv, "hI:O:T:V", long_options, (int *) 0))
|
||
!= EOF)
|
||
{
|
||
switch (opt)
|
||
{
|
||
case 'h':
|
||
show_help ();
|
||
/*NOTREACHED*/
|
||
case 'I':
|
||
input_format = optarg;
|
||
break;
|
||
case 'O':
|
||
output_format = optarg;
|
||
break;
|
||
case 'T':
|
||
header_file = optarg;
|
||
break;
|
||
case 'V':
|
||
printf ("GNU %s version %s\n", program_name, program_version);
|
||
exit (0);
|
||
/*NOTREACHED*/
|
||
case 0:
|
||
break;
|
||
default:
|
||
show_usage (stderr, 1);
|
||
/*NOTREACHED*/
|
||
}
|
||
}
|
||
|
||
if (optind + 2 != argc)
|
||
show_usage (stderr, 1);
|
||
|
||
if (strcmp (argv[optind], argv[optind + 1]) == 0)
|
||
{
|
||
fprintf (stderr, "%s: input and output files must be different\n",
|
||
program_name);
|
||
exit (1);
|
||
}
|
||
|
||
inbfd = bfd_openr (argv[optind], input_format);
|
||
if (inbfd == NULL)
|
||
bfd_fatal (argv[optind]);
|
||
|
||
if (! bfd_check_format (inbfd, bfd_object))
|
||
bfd_fatal (argv[optind]);
|
||
|
||
if (output_format == NULL)
|
||
output_format = select_output_format (bfd_get_arch (inbfd),
|
||
bfd_get_mach (inbfd),
|
||
inbfd->xvec->byteorder_big_p);
|
||
|
||
assert (output_format != NULL);
|
||
outbfd = bfd_openw (argv[optind + 1], output_format);
|
||
if (outbfd == NULL)
|
||
bfd_fatal (argv[optind + 1]);
|
||
if (! bfd_set_format (outbfd, bfd_object))
|
||
bfd_fatal (argv[optind + 1]);
|
||
|
||
assert (outbfd->xvec->flavour == bfd_target_nlm_flavour);
|
||
|
||
if (bfd_arch_get_compatible (inbfd, outbfd) == NULL)
|
||
fprintf (stderr,
|
||
"%s: warning:input and output formats are not compatible\n",
|
||
program_name);
|
||
|
||
/* Initialize the header information to default values. */
|
||
fixed_hdr = nlm_fixed_header (outbfd);
|
||
var_hdr = nlm_variable_header (outbfd);
|
||
version_hdr = nlm_version_header (outbfd);
|
||
copyright_hdr = nlm_copyright_header (outbfd);
|
||
extended_hdr = nlm_extended_header (outbfd);
|
||
check_procedure = NULL;
|
||
custom_file = NULL;
|
||
debug_info = false;
|
||
exit_procedure = "_Stop";
|
||
export_symbols = NULL;
|
||
map_file = NULL;
|
||
full_map = false;
|
||
help_file = NULL;
|
||
import_symbols = NULL;
|
||
message_file = NULL;
|
||
modules = NULL;
|
||
sharelib_file = NULL;
|
||
start_procedure = "_Prelude";
|
||
verbose = false;
|
||
rpc_file = NULL;
|
||
|
||
parse_errors = 0;
|
||
|
||
/* Parse the header file (if there is one). */
|
||
if (header_file != NULL)
|
||
{
|
||
if (! nlmlex_file (header_file)
|
||
|| yyparse () != 0
|
||
|| parse_errors != 0)
|
||
exit (1);
|
||
}
|
||
|
||
/* Start copying the input BFD to the output BFD. */
|
||
if (! bfd_set_file_flags (outbfd, bfd_get_file_flags (inbfd)))
|
||
bfd_fatal (bfd_get_filename (outbfd));
|
||
|
||
symbols = (asymbol **) xmalloc (get_symtab_upper_bound (inbfd));
|
||
symcount = bfd_canonicalize_symtab (inbfd, symbols);
|
||
|
||
/* Make sure we have a .bss section. Doing this first is an attempt
|
||
to ensure that it will be the first bss section. */
|
||
bss_sec = bfd_get_section_by_name (outbfd, NLM_UNINITIALIZED_DATA_NAME);
|
||
if (bss_sec == NULL)
|
||
{
|
||
bss_sec = bfd_make_section (outbfd, NLM_UNINITIALIZED_DATA_NAME);
|
||
if (bss_sec == NULL)
|
||
bfd_fatal ("make .bss section");
|
||
bss_sec->flags = SEC_ALLOC;
|
||
bss_sec->alignment_power = bfd_log2 (0); /* FIXME */
|
||
}
|
||
|
||
/* Set up the sections. */
|
||
bfd_map_over_sections (inbfd, setup_sections, (PTR) outbfd);
|
||
|
||
/* Adjust symbol information. */
|
||
inlead = bfd_get_symbol_leading_char (inbfd);
|
||
outlead = bfd_get_symbol_leading_char (outbfd);
|
||
gotstart = false;
|
||
gotexit = false;
|
||
gotcheck = false;
|
||
newsymalloc = 10;
|
||
newsyms = (asymbol **) xmalloc (newsymalloc * sizeof (asymbol *));
|
||
newsymcount = 0;
|
||
endsym = NULL;
|
||
for (i = 0; i < symcount; i++)
|
||
{
|
||
register asymbol *sym;
|
||
|
||
sym = symbols[i];
|
||
|
||
/* Add or remove a leading underscore. */
|
||
if (inlead != outlead)
|
||
{
|
||
if (inlead != '\0')
|
||
{
|
||
if (bfd_asymbol_name (sym)[0] == inlead)
|
||
{
|
||
if (outlead == '\0')
|
||
++sym->name;
|
||
else
|
||
{
|
||
char *new;
|
||
|
||
new = xmalloc (strlen (bfd_asymbol_name (sym)) + 1);
|
||
new[0] = outlead;
|
||
strcpy (new + 1, bfd_asymbol_name (sym) + 1);
|
||
sym->name = new;
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
char *new;
|
||
|
||
new = xmalloc (strlen (bfd_asymbol_name (sym)) + 2);
|
||
new[0] = outlead;
|
||
strcpy (new + 1, bfd_asymbol_name (sym));
|
||
sym->name = new;
|
||
}
|
||
}
|
||
|
||
/* NLM's have an uninitialized data section, but they do not
|
||
have a common section in the Unix sense. Move all common
|
||
symbols into the .bss section, and mark them as exported. */
|
||
if (bfd_is_com_section (bfd_get_section (sym)))
|
||
{
|
||
bfd_vma size;
|
||
bfd_size_type align;
|
||
|
||
sym->section = bss_sec;
|
||
size = sym->value;
|
||
sym->value = bss_sec->_raw_size;
|
||
bss_sec->_raw_size += size;
|
||
align = 1 << bss_sec->alignment_power;
|
||
bss_sec->_raw_size = (bss_sec->_raw_size + align - 1) &~ (align - 1);
|
||
total_bss_size += bss_sec->_raw_size - sym->value;
|
||
sym->flags |= BSF_EXPORT | BSF_GLOBAL;
|
||
}
|
||
|
||
/* Force _edata and _end to be defined. This would normally be
|
||
done by the linker, but the manipulation of the common
|
||
symbols will confuse it. */
|
||
if (bfd_asymbol_name (sym)[0] == '_'
|
||
&& bfd_get_section (sym) == &bfd_und_section)
|
||
{
|
||
if (strcmp (bfd_asymbol_name (sym), "_edata") == 0)
|
||
{
|
||
sym->section = bss_sec;
|
||
sym->value = 0;
|
||
}
|
||
if (strcmp (bfd_asymbol_name (sym), "_end") == 0)
|
||
{
|
||
sym->section = bss_sec;
|
||
endsym = sym;
|
||
}
|
||
}
|
||
|
||
/* If this is a global symbol, check the export list. */
|
||
if ((sym->flags & (BSF_EXPORT | BSF_GLOBAL)) != 0)
|
||
{
|
||
register struct string_list *l;
|
||
int found_simple;
|
||
|
||
/* Unfortunately, a symbol can appear multiple times on the
|
||
export list, with and without prefixes. */
|
||
found_simple = 0;
|
||
for (l = export_symbols; l != NULL; l = l->next)
|
||
{
|
||
if (strcmp (l->string, bfd_asymbol_name (sym)) == 0)
|
||
found_simple = 1;
|
||
else
|
||
{
|
||
char *zbase;
|
||
|
||
zbase = strchr (l->string, '@');
|
||
if (zbase != NULL
|
||
&& strcmp (zbase + 1, bfd_asymbol_name (sym)) == 0)
|
||
{
|
||
/* We must add a symbol with this prefix. */
|
||
if (newsymcount >= newsymalloc)
|
||
{
|
||
newsymalloc += 10;
|
||
newsyms = ((asymbol **)
|
||
xrealloc (newsyms,
|
||
(newsymalloc
|
||
* sizeof (asymbol *))));
|
||
}
|
||
newsyms[newsymcount] =
|
||
(asymbol *) xmalloc (sizeof (asymbol));
|
||
*newsyms[newsymcount] = *sym;
|
||
newsyms[newsymcount]->name = l->string;
|
||
++newsymcount;
|
||
}
|
||
}
|
||
}
|
||
if (! found_simple)
|
||
{
|
||
/* The unmodified symbol is actually not exported at
|
||
all. */
|
||
sym->flags &=~ (BSF_GLOBAL | BSF_EXPORT);
|
||
sym->flags |= BSF_LOCAL;
|
||
}
|
||
}
|
||
|
||
/* If it's an undefined symbol, see if it's on the import list.
|
||
Change the prefix if necessary. */
|
||
if (bfd_get_section (sym) == &bfd_und_section
|
||
&& import_symbols != NULL)
|
||
{
|
||
register struct string_list *l;
|
||
|
||
for (l = import_symbols; l != NULL; l = l->next)
|
||
{
|
||
if (strcmp (l->string, bfd_asymbol_name (sym)) == 0)
|
||
break;
|
||
else
|
||
{
|
||
char *zbase;
|
||
|
||
zbase = strchr (l->string, '@');
|
||
if (zbase != NULL
|
||
&& strcmp (zbase + 1, bfd_asymbol_name (sym)) == 0)
|
||
{
|
||
sym->name = l->string;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
if (l == NULL)
|
||
fprintf (stderr,
|
||
"%s: warning: symbol %s imported but not in import list\n",
|
||
program_name, bfd_asymbol_name (sym));
|
||
}
|
||
|
||
/* See if it's one of the special named symbols. */
|
||
if (strcmp (bfd_asymbol_name (sym), start_procedure) == 0)
|
||
{
|
||
if (! bfd_set_start_address (outbfd, bfd_asymbol_value (sym)))
|
||
bfd_fatal ("set start address");
|
||
gotstart = true;
|
||
}
|
||
if (strcmp (bfd_asymbol_name (sym), exit_procedure) == 0)
|
||
{
|
||
nlm_fixed_header (outbfd)->exitProcedureOffset =
|
||
bfd_asymbol_value (sym);
|
||
gotexit = true;
|
||
}
|
||
if (check_procedure != NULL
|
||
&& strcmp (bfd_asymbol_name (sym), check_procedure) == 0)
|
||
{
|
||
nlm_fixed_header (outbfd)->checkUnloadProcedureOffset =
|
||
bfd_asymbol_value (sym);
|
||
gotcheck = true;
|
||
}
|
||
}
|
||
|
||
if (endsym != NULL)
|
||
endsym->value = total_bss_size;
|
||
|
||
if (newsymcount == 0)
|
||
outsyms = symbols;
|
||
else
|
||
{
|
||
outsyms = (asymbol **) xmalloc ((symcount + newsymcount + 1)
|
||
* sizeof (asymbol *));
|
||
memcpy (outsyms, symbols, symcount * sizeof (asymbol *));
|
||
memcpy (outsyms + symcount, newsyms, newsymcount * sizeof (asymbol *));
|
||
outsyms[symcount + newsymcount] = NULL;
|
||
}
|
||
|
||
bfd_set_symtab (outbfd, outsyms, symcount + newsymcount);
|
||
|
||
if (! gotstart)
|
||
fprintf (stderr, "%s: warning: START procedure %s not defined\n",
|
||
program_name, start_procedure);
|
||
if (! gotexit)
|
||
fprintf (stderr, "%s: warning: EXIT procedure %s not defined\n",
|
||
program_name, exit_procedure);
|
||
if (check_procedure != NULL
|
||
&& ! gotcheck)
|
||
fprintf (stderr, "%s: warning: CHECK procedure %s not defined\n",
|
||
program_name, check_procedure);
|
||
|
||
/* Add additional sections required for the header information. */
|
||
if (custom_file != NULL)
|
||
{
|
||
custom_data = fopen (custom_file, "r");
|
||
if (custom_data == NULL
|
||
|| fstat (fileno (custom_data), &st) < 0)
|
||
{
|
||
fprintf (stderr, "%s:%s: %s\n", program_name, custom_file,
|
||
strerror (errno));
|
||
custom_file = NULL;
|
||
}
|
||
else
|
||
{
|
||
custom_size = st.st_size;
|
||
custom_section = bfd_make_section (outbfd, ".nlmcustom");
|
||
if (custom_section == NULL
|
||
|| ! bfd_set_section_size (outbfd, custom_section, custom_size)
|
||
|| ! bfd_set_section_flags (outbfd, custom_section,
|
||
SEC_HAS_CONTENTS))
|
||
bfd_fatal ("custom section");
|
||
}
|
||
}
|
||
if (help_file != NULL)
|
||
{
|
||
help_data = fopen (help_file, "r");
|
||
if (help_data == NULL
|
||
|| fstat (fileno (help_data), &st) < 0)
|
||
{
|
||
fprintf (stderr, "%s:%s: %s\n", program_name, help_file,
|
||
strerror (errno));
|
||
help_file = NULL;
|
||
}
|
||
else
|
||
{
|
||
help_size = st.st_size;
|
||
help_section = bfd_make_section (outbfd, ".nlmhelp");
|
||
if (help_section == NULL
|
||
|| ! bfd_set_section_size (outbfd, help_section, help_size)
|
||
|| ! bfd_set_section_flags (outbfd, help_section,
|
||
SEC_HAS_CONTENTS))
|
||
bfd_fatal ("help section");
|
||
strncpy (nlm_extended_header (outbfd)->stamp, "MeSsAgEs", 8);
|
||
}
|
||
}
|
||
if (message_file != NULL)
|
||
{
|
||
message_data = fopen (message_file, "r");
|
||
if (message_data == NULL
|
||
|| fstat (fileno (message_data), &st) < 0)
|
||
{
|
||
fprintf (stderr, "%s:%s: %s\n", program_name, message_file,
|
||
strerror (errno));
|
||
message_file = NULL;
|
||
}
|
||
else
|
||
{
|
||
message_size = st.st_size;
|
||
message_section = bfd_make_section (outbfd, ".nlmmessages");
|
||
if (message_section == NULL
|
||
|| ! bfd_set_section_size (outbfd, message_section, message_size)
|
||
|| ! bfd_set_section_flags (outbfd, message_section,
|
||
SEC_HAS_CONTENTS))
|
||
bfd_fatal ("message section");
|
||
strncpy (nlm_extended_header (outbfd)->stamp, "MeSsAgEs", 8);
|
||
}
|
||
}
|
||
if (modules != NULL)
|
||
{
|
||
struct string_list *l;
|
||
|
||
module_size = 0;
|
||
for (l = modules; l != NULL; l = l->next)
|
||
module_size += strlen (l->string) + 1;
|
||
module_section = bfd_make_section (outbfd, ".nlmmodules");
|
||
if (module_section == NULL
|
||
|| ! bfd_set_section_size (outbfd, module_section, module_size)
|
||
|| ! bfd_set_section_flags (outbfd, module_section,
|
||
SEC_HAS_CONTENTS))
|
||
bfd_fatal ("module section");
|
||
}
|
||
if (rpc_file != NULL)
|
||
{
|
||
rpc_data = fopen (rpc_file, "r");
|
||
if (rpc_data == NULL
|
||
|| fstat (fileno (rpc_data), &st) < 0)
|
||
{
|
||
fprintf (stderr, "%s:%s: %s\n", program_name, rpc_file,
|
||
strerror (errno));
|
||
rpc_file = NULL;
|
||
}
|
||
else
|
||
{
|
||
rpc_size = st.st_size;
|
||
rpc_section = bfd_make_section (outbfd, ".nlmrpc");
|
||
if (rpc_section == NULL
|
||
|| ! bfd_set_section_size (outbfd, rpc_section, rpc_size)
|
||
|| ! bfd_set_section_flags (outbfd, rpc_section,
|
||
SEC_HAS_CONTENTS))
|
||
bfd_fatal ("rpc section");
|
||
strncpy (nlm_extended_header (outbfd)->stamp, "MeSsAgEs", 8);
|
||
}
|
||
}
|
||
if (sharelib_file != NULL)
|
||
{
|
||
sharedbfd = bfd_openr (sharelib_file, output_format);
|
||
if (sharedbfd == NULL
|
||
|| ! bfd_check_format (sharedbfd, bfd_object))
|
||
{
|
||
fprintf (stderr, "%s:%s: %s\n", program_name, sharelib_file,
|
||
bfd_errmsg (bfd_error));
|
||
sharelib_file = NULL;
|
||
}
|
||
else
|
||
{
|
||
sharedhdr = *nlm_fixed_header (sharedbfd);
|
||
bfd_close (sharedbfd);
|
||
shared_data = fopen (sharelib_file, "r");
|
||
if (shared_data == NULL
|
||
|| (fstat (fileno (shared_data), &st) < 0))
|
||
{
|
||
fprintf (stderr, "%s:%s: %s\n", program_name, sharelib_file,
|
||
strerror (errno));
|
||
sharelib_file = NULL;
|
||
}
|
||
else
|
||
{
|
||
/* If we were clever, we could just copy out the
|
||
sections of the shared library which we actually
|
||
need. However, we would have to figure out the sizes
|
||
of the external and public information, and that can
|
||
not be done without reading through them. */
|
||
shared_offset = st.st_size;
|
||
if (shared_offset > sharedhdr.codeImageOffset)
|
||
shared_offset = sharedhdr.codeImageOffset;
|
||
if (shared_offset > sharedhdr.dataImageOffset)
|
||
shared_offset = sharedhdr.dataImageOffset;
|
||
if (shared_offset > sharedhdr.relocationFixupOffset)
|
||
shared_offset = sharedhdr.relocationFixupOffset;
|
||
if (shared_offset > sharedhdr.externalReferencesOffset)
|
||
shared_offset = sharedhdr.externalReferencesOffset;
|
||
if (shared_offset > sharedhdr.publicsOffset)
|
||
shared_offset = sharedhdr.publicsOffset;
|
||
shared_size = st.st_size - shared_offset;
|
||
shared_section = bfd_make_section (outbfd, ".nlmshared");
|
||
if (shared_section == NULL
|
||
|| ! bfd_set_section_size (outbfd, shared_section,
|
||
shared_size)
|
||
|| ! bfd_set_section_flags (outbfd, shared_section,
|
||
SEC_HAS_CONTENTS))
|
||
bfd_fatal ("shared section");
|
||
strncpy (nlm_extended_header (outbfd)->stamp, "MeSsAgEs", 8);
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Check whether a version was given. */
|
||
if (strncmp (version_hdr->stamp, "VeRsIoN#", 8) != 0)
|
||
fprintf (stderr, "%s: warning: No version number given\n",
|
||
program_name);
|
||
|
||
/* At least for now, always create an extended header, because that
|
||
is what NLMLINK does. */
|
||
strncpy (nlm_extended_header (outbfd)->stamp, "MeSsAgEs", 8);
|
||
|
||
/* If the date was not given, force it in. */
|
||
if (nlm_version_header (outbfd)->month == 0
|
||
&& nlm_version_header (outbfd)->day == 0
|
||
&& nlm_version_header (outbfd)->year == 0)
|
||
{
|
||
unsigned long now; /* FIXME: should be time_t. */
|
||
struct tm *ptm;
|
||
|
||
time (&now);
|
||
ptm = localtime (&now);
|
||
nlm_version_header (outbfd)->month = ptm->tm_mon + 1;
|
||
nlm_version_header (outbfd)->day = ptm->tm_mday;
|
||
nlm_version_header (outbfd)->year = ptm->tm_year + 1900;
|
||
strncpy (version_hdr->stamp, "VeRsIoN#", 8);
|
||
}
|
||
|
||
/* Copy over the sections. */
|
||
bfd_map_over_sections (inbfd, copy_sections, (PTR) outbfd);
|
||
|
||
/* Finish up the header information. */
|
||
if (custom_file != NULL)
|
||
{
|
||
PTR data;
|
||
|
||
data = xmalloc (custom_size);
|
||
if (fread (data, 1, custom_size, custom_data) != custom_size)
|
||
fprintf (stderr, "%s:%s: read: %s\n", program_name, custom_file,
|
||
strerror (errno));
|
||
else
|
||
{
|
||
if (! bfd_set_section_contents (outbfd, custom_section, data,
|
||
(file_ptr) 0, custom_size))
|
||
bfd_fatal ("custom section");
|
||
nlm_fixed_header (outbfd)->customDataOffset =
|
||
custom_section->filepos;
|
||
nlm_fixed_header (outbfd)->customDataSize = custom_size;
|
||
}
|
||
free (data);
|
||
}
|
||
if (! debug_info)
|
||
{
|
||
/* As a special hack, the backend recognizes a debugInfoOffset
|
||
of -1 to mean that it should not output any debugging
|
||
information. This can not be handling by fiddling with the
|
||
symbol table because exported symbols appear in both the
|
||
export information and the debugging information. */
|
||
nlm_fixed_header (outbfd)->debugInfoOffset = (file_ptr) -1;
|
||
}
|
||
if (map_file != NULL)
|
||
fprintf (stderr,
|
||
"%s: MAP and FULLMAP are not supported; try ld -M\n",
|
||
program_name);
|
||
if (help_file != NULL)
|
||
{
|
||
PTR data;
|
||
|
||
data = xmalloc (help_size);
|
||
if (fread (data, 1, help_size, help_data) != help_size)
|
||
fprintf (stderr, "%s:%s: read: %s\n", program_name, help_file,
|
||
strerror (errno));
|
||
else
|
||
{
|
||
if (! bfd_set_section_contents (outbfd, help_section, data,
|
||
(file_ptr) 0, help_size))
|
||
bfd_fatal ("help section");
|
||
nlm_extended_header (outbfd)->helpFileOffset =
|
||
help_section->filepos;
|
||
nlm_extended_header (outbfd)->helpFileLength = help_size;
|
||
}
|
||
free (data);
|
||
}
|
||
if (message_file != NULL)
|
||
{
|
||
PTR data;
|
||
|
||
data = xmalloc (message_size);
|
||
if (fread (data, 1, message_size, message_data) != message_size)
|
||
fprintf (stderr, "%s:%s: read: %s\n", program_name, message_file,
|
||
strerror (errno));
|
||
else
|
||
{
|
||
if (! bfd_set_section_contents (outbfd, message_section, data,
|
||
(file_ptr) 0, message_size))
|
||
bfd_fatal ("message section");
|
||
nlm_extended_header (outbfd)->messageFileOffset =
|
||
message_section->filepos;
|
||
nlm_extended_header (outbfd)->messageFileLength = message_size;
|
||
|
||
/* FIXME: Are these offsets correct on all platforms? Are
|
||
they 32 bits on all platforms? What endianness? */
|
||
nlm_extended_header (outbfd)->languageID =
|
||
bfd_h_get_32 (outbfd, (bfd_byte *) data + 106);
|
||
nlm_extended_header (outbfd)->messageCount =
|
||
bfd_h_get_32 (outbfd, (bfd_byte *) data + 110);
|
||
}
|
||
free (data);
|
||
}
|
||
if (modules != NULL)
|
||
{
|
||
PTR data;
|
||
char *set;
|
||
struct string_list *l;
|
||
bfd_size_type c;
|
||
|
||
data = xmalloc (module_size);
|
||
c = 0;
|
||
set = (char *) data;
|
||
for (l = modules; l != NULL; l = l->next)
|
||
{
|
||
*set = strlen (l->string);
|
||
strncpy (set + 1, l->string, *set);
|
||
set += *set + 1;
|
||
++c;
|
||
}
|
||
if (! bfd_set_section_contents (outbfd, module_section, data,
|
||
(file_ptr) 0, module_size))
|
||
bfd_fatal ("module section");
|
||
nlm_fixed_header (outbfd)->moduleDependencyOffset =
|
||
module_section->filepos;
|
||
nlm_fixed_header (outbfd)->numberOfModuleDependencies = c;
|
||
}
|
||
if (rpc_file != NULL)
|
||
{
|
||
PTR data;
|
||
|
||
data = xmalloc (rpc_size);
|
||
if (fread (data, 1, rpc_size, rpc_data) != rpc_size)
|
||
fprintf (stderr, "%s:%s: read: %s\n", program_name, rpc_file,
|
||
strerror (errno));
|
||
else
|
||
{
|
||
if (! bfd_set_section_contents (outbfd, rpc_section, data,
|
||
(file_ptr) 0, rpc_size))
|
||
bfd_fatal ("rpc section");
|
||
nlm_extended_header (outbfd)->RPCDataOffset =
|
||
rpc_section->filepos;
|
||
nlm_extended_header (outbfd)->RPCDataLength = rpc_size;
|
||
}
|
||
free (data);
|
||
}
|
||
if (sharelib_file != NULL)
|
||
{
|
||
PTR data;
|
||
|
||
data = xmalloc (shared_size);
|
||
if (fseek (shared_data, shared_offset, SEEK_SET) != 0
|
||
|| fread (data, 1, shared_size, shared_data) != shared_size)
|
||
fprintf (stderr, "%s:%s: read: %s\n", program_name, sharelib_file,
|
||
strerror (errno));
|
||
else
|
||
{
|
||
if (! bfd_set_section_contents (outbfd, shared_section, data,
|
||
(file_ptr) 0, shared_size))
|
||
bfd_fatal ("shared section");
|
||
}
|
||
nlm_extended_header (outbfd)->sharedCodeOffset =
|
||
sharedhdr.codeImageOffset - shared_offset + shared_section->filepos;
|
||
nlm_extended_header (outbfd)->sharedCodeLength =
|
||
sharedhdr.codeImageSize;
|
||
nlm_extended_header (outbfd)->sharedDataOffset =
|
||
sharedhdr.dataImageOffset - shared_offset + shared_section->filepos;
|
||
nlm_extended_header (outbfd)->sharedDataLength =
|
||
sharedhdr.dataImageSize;
|
||
nlm_extended_header (outbfd)->sharedRelocationFixupOffset =
|
||
(sharedhdr.relocationFixupOffset
|
||
- shared_offset
|
||
+ shared_section->filepos);
|
||
nlm_extended_header (outbfd)->sharedRelocationFixupCount =
|
||
sharedhdr.numberOfRelocationFixups;
|
||
nlm_extended_header (outbfd)->sharedExternalReferenceOffset =
|
||
(sharedhdr.externalReferencesOffset
|
||
- shared_offset
|
||
+ shared_section->filepos);
|
||
nlm_extended_header (outbfd)->sharedExternalReferenceCount =
|
||
sharedhdr.numberOfExternalReferences;
|
||
nlm_extended_header (outbfd)->sharedPublicsOffset =
|
||
sharedhdr.publicsOffset - shared_offset + shared_section->filepos;
|
||
nlm_extended_header (outbfd)->sharedPublicsCount =
|
||
sharedhdr.numberOfPublics;
|
||
nlm_extended_header (outbfd)->SharedInitializationOffset =
|
||
sharedhdr.codeStartOffset;
|
||
nlm_extended_header (outbfd)->SharedExitProcedureOffset =
|
||
sharedhdr.exitProcedureOffset;
|
||
free (data);
|
||
}
|
||
len = strlen (argv[optind + 1]);
|
||
if (len > NLM_MODULE_NAME_SIZE - 2)
|
||
len = NLM_MODULE_NAME_SIZE - 2;
|
||
nlm_fixed_header (outbfd)->moduleName[0] = len;
|
||
strncpy (nlm_fixed_header (outbfd)->moduleName + 1, argv[optind + 1],
|
||
NLM_MODULE_NAME_SIZE - 2);
|
||
nlm_fixed_header (outbfd)->moduleName[NLM_MODULE_NAME_SIZE - 1] = '\0';
|
||
strncpy (nlm_variable_header (outbfd)->oldThreadName, " LONG",
|
||
NLM_OLD_THREAD_NAME_LENGTH);
|
||
|
||
if (! bfd_close (outbfd))
|
||
bfd_fatal (argv[optind + 1]);
|
||
if (! bfd_close (inbfd))
|
||
bfd_fatal (argv[optind]);
|
||
|
||
return 0;
|
||
}
|
||
|
||
/* Display a help message and exit. */
|
||
|
||
static void
|
||
show_help ()
|
||
{
|
||
printf ("%s: Convert an object file into a NetWare Loadable Module\n",
|
||
program_name);
|
||
show_usage (stdout, 0);
|
||
}
|
||
|
||
/* Show a usage message and exit. */
|
||
|
||
static void
|
||
show_usage (file, status)
|
||
FILE *file;
|
||
int status;
|
||
{
|
||
fprintf (file, "\
|
||
Usage: %s [-hV] [-I format] [-O format] [-T header-file]\n\
|
||
[--input-format=format] [--output-format=format]\n\
|
||
[--header-file=file] [--help] [--version]\n\
|
||
in-file out-file\n",
|
||
program_name);
|
||
exit (status);
|
||
}
|
||
|
||
/* Select the output format based on the input architecture, machine,
|
||
and endianness. This chooses the appropriate NLM target. */
|
||
|
||
static const char *
|
||
select_output_format (arch, mach, bigendian)
|
||
enum bfd_architecture arch;
|
||
long mach;
|
||
boolean bigendian;
|
||
{
|
||
switch (arch)
|
||
{
|
||
case bfd_arch_i386:
|
||
return "nlm32-i386";
|
||
default:
|
||
fprintf (stderr, "%s: no default NLM format for %s\n",
|
||
program_name, bfd_printable_arch_mach (arch, mach));
|
||
exit (1);
|
||
/* Avoid warning. */
|
||
return NULL;
|
||
}
|
||
/*NOTREACHED*/
|
||
}
|
||
|
||
/* The BFD sections are copied in two passes. This function sets up
|
||
the section name, size, etc. */
|
||
|
||
static void
|
||
setup_sections (inbfd, insec, data_ptr)
|
||
bfd *inbfd;
|
||
asection *insec;
|
||
PTR data_ptr;
|
||
{
|
||
bfd *outbfd = (bfd *) data_ptr;
|
||
asection *outsec;
|
||
flagword f;
|
||
|
||
outsec = bfd_get_section_by_name (outbfd, bfd_section_name (inbfd, insec));
|
||
if (outsec == NULL)
|
||
{
|
||
outsec = bfd_make_section (outbfd, bfd_section_name (inbfd, insec));
|
||
if (outsec == NULL)
|
||
bfd_fatal ("make section");
|
||
}
|
||
|
||
insec->output_section = outsec;
|
||
insec->output_offset = 0;
|
||
|
||
if (! bfd_set_section_size (outbfd, outsec,
|
||
bfd_section_size (inbfd, insec)))
|
||
bfd_fatal ("set section size");
|
||
|
||
if (! bfd_set_section_vma (outbfd, outsec,
|
||
bfd_section_vma (inbfd, insec)))
|
||
bfd_fatal ("set section vma");
|
||
|
||
if (! bfd_set_section_alignment (outbfd, outsec,
|
||
bfd_section_alignment (inbfd, insec)))
|
||
bfd_fatal ("set section alignment");
|
||
|
||
f = bfd_get_section_flags (inbfd, insec);
|
||
if (! bfd_set_section_flags (outbfd, outsec, f))
|
||
bfd_fatal ("set section flags");
|
||
|
||
if ((f & SEC_LOAD) == 0 && (f & SEC_ALLOC) != 0)
|
||
total_bss_size += bfd_section_size (inbfd, insec);
|
||
}
|
||
|
||
/* Copy the section contents. */
|
||
|
||
static void
|
||
copy_sections (inbfd, insec, data_ptr)
|
||
bfd *inbfd;
|
||
asection *insec;
|
||
PTR data_ptr;
|
||
{
|
||
bfd *outbfd = (bfd *) data_ptr;
|
||
asection *outsec;
|
||
bfd_size_type size;
|
||
PTR contents;
|
||
bfd_size_type reloc_size;
|
||
|
||
outsec = bfd_get_section_by_name (outbfd, bfd_section_name (inbfd, insec));
|
||
assert (outsec != NULL);
|
||
|
||
size = bfd_get_section_size_before_reloc (insec);
|
||
if (size == 0)
|
||
return;
|
||
|
||
/* FIXME: Why are these necessary? */
|
||
insec->_cooked_size = insec->_raw_size;
|
||
insec->reloc_done = true;
|
||
|
||
if ((bfd_get_section_flags (inbfd, insec) & SEC_HAS_CONTENTS) == 0)
|
||
contents = NULL;
|
||
else
|
||
{
|
||
contents = xmalloc (size);
|
||
if (! bfd_get_section_contents (inbfd, insec, contents,
|
||
(file_ptr) 0, size))
|
||
bfd_fatal (bfd_get_filename (inbfd));
|
||
}
|
||
|
||
reloc_size = bfd_get_reloc_upper_bound (inbfd, insec);
|
||
if (reloc_size == 0)
|
||
bfd_set_reloc (outbfd, outsec, (arelent **) NULL, 0);
|
||
else
|
||
{
|
||
arelent **relocs;
|
||
bfd_size_type reloc_count;
|
||
|
||
relocs = (arelent **) xmalloc (reloc_size);
|
||
reloc_count = bfd_canonicalize_reloc (inbfd, insec, relocs, symbols);
|
||
mangle_relocs (outbfd, insec, relocs, &reloc_count, (char *) contents,
|
||
size);
|
||
bfd_set_reloc (outbfd, outsec, relocs, reloc_count);
|
||
}
|
||
|
||
if (contents != NULL)
|
||
{
|
||
if (! bfd_set_section_contents (outbfd, outsec, contents,
|
||
(file_ptr) 0, size))
|
||
bfd_fatal (bfd_get_filename (outbfd));
|
||
free (contents);
|
||
}
|
||
}
|
||
|
||
/* Some, perhaps all, NetWare targets require changing the relocs used
|
||
by the input formats. */
|
||
|
||
static void
|
||
mangle_relocs (outbfd, insec, relocs, reloc_count_ptr, contents, contents_size)
|
||
bfd *outbfd;
|
||
asection *insec;
|
||
arelent **relocs;
|
||
bfd_size_type *reloc_count_ptr;
|
||
char *contents;
|
||
bfd_size_type contents_size;
|
||
{
|
||
switch (bfd_get_arch (outbfd))
|
||
{
|
||
case bfd_arch_i386:
|
||
i386_mangle_relocs (outbfd, insec, relocs, reloc_count_ptr, contents,
|
||
contents_size);
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
|
||
/* NetWare on the i386 supports a restricted set of relocs, which are
|
||
different from those used on other i386 targets. This routine
|
||
converts the relocs. It is, obviously, very target dependent. At
|
||
the moment, the nlm32-i386 backend performs similar translations;
|
||
however, it is more reliable and efficient to do them here. */
|
||
|
||
static reloc_howto_type nlm_i386_pcrel_howto =
|
||
HOWTO (1, /* type */
|
||
0, /* rightshift */
|
||
2, /* size (0 = byte, 1 = short, 2 = long) */
|
||
32, /* bitsize */
|
||
true, /* pc_relative */
|
||
0, /* bitpos */
|
||
complain_overflow_signed, /* complain_on_overflow */
|
||
0, /* special_function */
|
||
"DISP32", /* name */
|
||
true, /* partial_inplace */
|
||
0xffffffff, /* src_mask */
|
||
0xffffffff, /* dst_mask */
|
||
true); /* pcrel_offset */
|
||
|
||
static void
|
||
i386_mangle_relocs (outbfd, insec, relocs, reloc_count_ptr, contents,
|
||
contents_size)
|
||
bfd *outbfd;
|
||
asection *insec;
|
||
arelent **relocs;
|
||
bfd_size_type *reloc_count_ptr;
|
||
char *contents;
|
||
bfd_size_type contents_size;
|
||
{
|
||
bfd_size_type reloc_count, i;
|
||
|
||
reloc_count = *reloc_count_ptr;
|
||
for (i = 0; i < reloc_count; i++)
|
||
{
|
||
arelent *rel;
|
||
asymbol *sym;
|
||
bfd_vma addend;
|
||
|
||
rel = *relocs++;
|
||
sym = *rel->sym_ptr_ptr;
|
||
|
||
/* Note that no serious harm will ensue if we fail to change a
|
||
reloc. The backend will fail when writing out the reloc. */
|
||
|
||
/* Make sure this reloc is within the data we have. We use only
|
||
4 byte relocs here, so we insist on having 4 bytes. */
|
||
if (rel->address + 4 > contents_size)
|
||
continue;
|
||
|
||
/* A PC relative reloc entirely within a single section is
|
||
completely unnecessary. This can be generated by ld -r. */
|
||
if (sym == insec->symbol
|
||
&& rel->howto != NULL
|
||
&& rel->howto->pc_relative
|
||
&& ! rel->howto->pcrel_offset)
|
||
{
|
||
--*reloc_count_ptr;
|
||
--relocs;
|
||
memmove (relocs, relocs + 1,
|
||
(reloc_count - i) * sizeof (arelent *));
|
||
continue;
|
||
}
|
||
|
||
/* NetWare doesn't support reloc addends, so we get rid of them
|
||
here by simply adding them into the object data. We handle
|
||
the symbol value, if any, the same way. */
|
||
addend = rel->addend;
|
||
if (! bfd_is_com_section (bfd_get_section (sym)))
|
||
addend += sym->value;
|
||
|
||
if (addend != 0
|
||
&& rel->howto != NULL
|
||
&& rel->howto->rightshift == 0
|
||
&& rel->howto->size == 2
|
||
&& rel->howto->bitsize == 32
|
||
&& rel->howto->bitpos == 0
|
||
&& rel->howto->src_mask == 0xffffffff
|
||
&& rel->howto->dst_mask == 0xffffffff)
|
||
{
|
||
bfd_vma val;
|
||
|
||
val = bfd_get_32 (outbfd, contents + rel->address);
|
||
val += addend;
|
||
bfd_put_32 (outbfd, val, contents + rel->address);
|
||
|
||
/* Adjust the reloc for the changes we just made. */
|
||
rel->addend = 0;
|
||
if (! bfd_is_com_section (bfd_get_section (sym))
|
||
&& sym->value != 0)
|
||
rel->sym_ptr_ptr = bfd_get_section (sym)->symbol_ptr_ptr;
|
||
}
|
||
|
||
/* NetWare uses a reloc with pcrel_offset set. We adjust
|
||
pc_relative relocs accordingly. We are going to change the
|
||
howto field, so we can only do this if the current one is
|
||
compatible. We should check that special_function is NULL
|
||
here, but at the moment coff-i386 uses a special_function
|
||
which does not affect what we are doing here. */
|
||
if (rel->howto != NULL
|
||
&& rel->howto->pc_relative
|
||
&& ! rel->howto->pcrel_offset
|
||
&& rel->howto->rightshift == 0
|
||
&& rel->howto->size == 2
|
||
&& rel->howto->bitsize == 32
|
||
&& rel->howto->bitpos == 0
|
||
&& rel->howto->src_mask == 0xffffffff
|
||
&& rel->howto->dst_mask == 0xffffffff)
|
||
{
|
||
bfd_vma val;
|
||
|
||
/* When pcrel_offset is not set, it means that the negative
|
||
of the address of the memory location is stored in the
|
||
memory location. We must add it back in. */
|
||
val = bfd_get_32 (outbfd, contents + rel->address);
|
||
val += rel->address;
|
||
bfd_put_32 (outbfd, val, contents + rel->address);
|
||
|
||
/* We must change to a new howto. */
|
||
rel->howto = &nlm_i386_pcrel_howto;
|
||
}
|
||
}
|
||
}
|