#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "libnlm.h"
#define Nlm_External_Fixed_Header NlmNAME(External_Fixed_Header)
#define Nlm_External_Version_Header NlmNAME(External_Version_Header)
#define Nlm_External_Copyright_Header NlmNAME(External_Copyright_Header)
#define Nlm_External_Extended_Header NlmNAME(External_Extended_Header)
#define Nlm_External_Custom_Header NlmNAME(External_Custom_Header)
#define Nlm_External_Cygnus_Ext_Header NlmNAME(External_Cygnus_Ext_Header)
#define nlm_symbol_type nlmNAME(symbol_type)
#define nlm_get_symtab_upper_bound nlmNAME(get_symtab_upper_bound)
#define nlm_get_symtab nlmNAME(get_symtab)
#define nlm_make_empty_symbol nlmNAME(make_empty_symbol)
#define nlm_print_symbol nlmNAME(print_symbol)
#define nlm_get_symbol_info nlmNAME(get_symbol_info)
#define nlm_get_reloc_upper_bound nlmNAME(get_reloc_upper_bound)
#define nlm_canonicalize_reloc nlmNAME(canonicalize_reloc)
#define nlm_object_p nlmNAME(object_p)
#define nlm_set_section_contents nlmNAME(set_section_contents)
#define nlm_write_object_contents nlmNAME(write_object_contents)
#define nlm_swap_fixed_header_in(abfd,src,dst) \
(nlm_swap_fixed_header_in_func(abfd)) (abfd,src,dst)
#define nlm_swap_fixed_header_out(abfd,src,dst) \
(nlm_swap_fixed_header_out_func(abfd)) (abfd,src,dst)
static bfd_boolean add_bfd_section
PARAMS ((bfd *, char *, file_ptr, bfd_size_type, flagword));
static bfd_boolean nlm_swap_variable_header_in
PARAMS ((bfd *));
static bfd_boolean nlm_swap_variable_header_out
PARAMS ((bfd *));
static bfd_boolean find_nonzero
PARAMS ((PTR, size_t));
static bfd_boolean nlm_swap_auxiliary_headers_in
PARAMS ((bfd *));
static bfd_boolean nlm_swap_auxiliary_headers_out
PARAMS ((bfd *));
static bfd_boolean nlm_slurp_symbol_table
PARAMS ((bfd *));
static bfd_boolean nlm_slurp_reloc_fixups
PARAMS ((bfd *));
static bfd_boolean nlm_compute_section_file_positions
PARAMS ((bfd *));
static int nlm_external_reloc_compare
PARAMS ((const void *, const void *));
#if ARCH_SIZE == 64
#define put_word H_PUT_64
#define get_word H_GET_64
#endif
#if ARCH_SIZE == 32
#define put_word H_PUT_32
#define get_word H_GET_32
#endif
const bfd_target *
nlm_object_p (abfd)
bfd *abfd;
{
struct nlm_obj_tdata *preserved_tdata = nlm_tdata (abfd);
bfd_boolean (*backend_object_p) PARAMS ((bfd *));
PTR x_fxdhdr = NULL;
Nlm_Internal_Fixed_Header *i_fxdhdrp;
struct nlm_obj_tdata *new_tdata = NULL;
const char *signature;
enum bfd_architecture arch;
bfd_size_type amt;
backend_object_p = nlm_backend_object_p_func (abfd);
if (backend_object_p)
{
if (!(*backend_object_p) (abfd))
goto got_wrong_format_error;
}
amt = nlm_fixed_header_size (abfd);
x_fxdhdr = (PTR) bfd_malloc (amt);
if (x_fxdhdr == NULL)
goto got_no_match;
if (bfd_bread ((PTR) x_fxdhdr, amt, abfd) != amt)
{
if (bfd_get_error () != bfd_error_system_call)
goto got_wrong_format_error;
else
goto got_no_match;
}
amt = sizeof (struct nlm_obj_tdata);
new_tdata = (struct nlm_obj_tdata *) bfd_zalloc (abfd, amt);
if (new_tdata == NULL)
goto got_no_match;
nlm_tdata (abfd) = new_tdata;
i_fxdhdrp = nlm_fixed_header (abfd);
nlm_swap_fixed_header_in (abfd, x_fxdhdr, i_fxdhdrp);
free (x_fxdhdr);
x_fxdhdr = NULL;
signature = nlm_signature (abfd);
if (signature != NULL
&& *signature != '\0'
&& strncmp ((char *) i_fxdhdrp->signature, signature,
NLM_SIGNATURE_SIZE) != 0)
goto got_wrong_format_error;
if (i_fxdhdrp->version > 0xFFFF)
goto got_wrong_format_error;
if (!nlm_swap_variable_header_in (abfd))
{
if (bfd_get_error () != bfd_error_system_call)
goto got_wrong_format_error;
else
goto got_no_match;
}
if (!add_bfd_section (abfd, NLM_CODE_NAME,
i_fxdhdrp->codeImageOffset,
i_fxdhdrp->codeImageSize,
(SEC_CODE | SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
| SEC_RELOC))
|| !add_bfd_section (abfd, NLM_INITIALIZED_DATA_NAME,
i_fxdhdrp->dataImageOffset,
i_fxdhdrp->dataImageSize,
(SEC_DATA | SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
| SEC_RELOC))
|| !add_bfd_section (abfd, NLM_UNINITIALIZED_DATA_NAME,
(file_ptr) 0,
i_fxdhdrp->uninitializedDataSize,
SEC_ALLOC))
goto got_no_match;
if (!nlm_swap_auxiliary_headers_in (abfd))
goto got_no_match;
if (nlm_fixed_header (abfd)->numberOfRelocationFixups != 0
|| nlm_fixed_header (abfd)->numberOfExternalReferences != 0)
abfd->flags |= HAS_RELOC;
if (nlm_fixed_header (abfd)->numberOfPublics != 0
|| nlm_fixed_header (abfd)->numberOfDebugRecords != 0
|| nlm_fixed_header (abfd)->numberOfExternalReferences != 0)
abfd->flags |= HAS_SYMS;
arch = nlm_architecture (abfd);
if (arch != bfd_arch_unknown)
bfd_default_set_arch_mach (abfd, arch, (unsigned long) 0);
abfd->flags |= EXEC_P;
bfd_get_start_address (abfd) = nlm_fixed_header (abfd)->codeStartOffset;
return (abfd->xvec);
got_wrong_format_error:
bfd_set_error (bfd_error_wrong_format);
got_no_match:
nlm_tdata (abfd) = preserved_tdata;
if (new_tdata != NULL)
bfd_release (abfd, new_tdata);
if (x_fxdhdr != NULL)
free (x_fxdhdr);
return (NULL);
}
static bfd_boolean
add_bfd_section (abfd, name, offset, size, flags)
bfd *abfd;
char *name;
file_ptr offset;
bfd_size_type size;
flagword flags;
{
asection *newsect;
newsect = bfd_make_section (abfd, name);
if (newsect == NULL)
return FALSE;
newsect->vma = 0;
newsect->_raw_size = size;
newsect->filepos = offset;
newsect->flags = flags;
newsect->alignment_power = bfd_log2 ((bfd_vma) 0);
return TRUE;
}
static bfd_boolean
nlm_swap_variable_header_in (abfd)
bfd *abfd;
{
unsigned char temp[NLM_TARGET_LONG_SIZE];
bfd_size_type amt;
amt = sizeof (nlm_variable_header (abfd)->descriptionLength);
if (bfd_bread ((PTR) &nlm_variable_header (abfd)->descriptionLength,
amt, abfd) != amt)
return FALSE;
amt = nlm_variable_header (abfd)->descriptionLength + 1;
if (bfd_bread ((PTR) nlm_variable_header (abfd)->descriptionText,
amt, abfd) != amt)
return FALSE;
amt = sizeof (temp);
if (bfd_bread ((PTR) temp, amt, abfd) != amt)
return FALSE;
nlm_variable_header (abfd)->stackSize = get_word (abfd, (bfd_byte *) temp);
amt = sizeof (temp);
if (bfd_bread ((PTR) temp, amt, abfd) != amt)
return FALSE;
nlm_variable_header (abfd)->reserved = get_word (abfd, (bfd_byte *) temp);
amt = sizeof (nlm_variable_header (abfd)->oldThreadName);
if (bfd_bread ((PTR) nlm_variable_header (abfd)->oldThreadName,
amt, abfd) != amt)
return FALSE;
amt = sizeof (nlm_variable_header (abfd)->screenNameLength);
if (bfd_bread ((PTR) & nlm_variable_header (abfd)->screenNameLength,
amt, abfd) != amt)
return FALSE;
amt = nlm_variable_header (abfd)->screenNameLength + 1;
if (bfd_bread ((PTR) nlm_variable_header (abfd)->screenName,
amt, abfd) != amt)
return FALSE;
amt = sizeof (nlm_variable_header (abfd)->threadNameLength);
if (bfd_bread ((PTR) & nlm_variable_header (abfd)->threadNameLength,
amt, abfd) != amt)
return FALSE;
amt = nlm_variable_header (abfd)->threadNameLength + 1;
if (bfd_bread ((PTR) nlm_variable_header (abfd)->threadName,
amt, abfd) != amt)
return FALSE;
return TRUE;
}
static bfd_boolean
nlm_swap_variable_header_out (abfd)
bfd *abfd;
{
unsigned char temp[NLM_TARGET_LONG_SIZE];
bfd_size_type amt;
amt = sizeof (nlm_variable_header (abfd)->descriptionLength);
if (bfd_bwrite ((PTR) & nlm_variable_header (abfd)->descriptionLength, amt,
abfd) != amt)
return FALSE;
amt = nlm_variable_header (abfd)->descriptionLength + 1;
if (bfd_bwrite ((PTR) nlm_variable_header (abfd)->descriptionText, amt,
abfd) != amt)
return FALSE;
put_word (abfd, (bfd_vma) nlm_variable_header (abfd)->stackSize,
(bfd_byte *) temp);
amt = sizeof (temp);
if (bfd_bwrite ((PTR) temp, amt, abfd) != amt)
return FALSE;
put_word (abfd, (bfd_vma) nlm_variable_header (abfd)->reserved,
(bfd_byte *) temp);
amt = sizeof (temp);
if (bfd_bwrite ((PTR) temp, amt, abfd) != amt)
return FALSE;
amt = sizeof (nlm_variable_header (abfd)->oldThreadName);
if (bfd_bwrite ((PTR) nlm_variable_header (abfd)->oldThreadName, amt,
abfd) != amt)
return FALSE;
amt = sizeof (nlm_variable_header (abfd)->screenNameLength);
if (bfd_bwrite ((PTR) & nlm_variable_header (abfd)->screenNameLength, amt,
abfd) != amt)
return FALSE;
amt = nlm_variable_header (abfd)->screenNameLength + 1;
if (bfd_bwrite ((PTR) nlm_variable_header (abfd)->screenName, amt,
abfd) != amt)
return FALSE;
amt = sizeof (nlm_variable_header (abfd)->threadNameLength);
if (bfd_bwrite ((PTR) & nlm_variable_header (abfd)->threadNameLength, amt,
abfd) != amt)
return FALSE;
amt = nlm_variable_header (abfd)->threadNameLength + 1;
if (bfd_bwrite ((PTR) nlm_variable_header (abfd)->threadName, amt,
abfd) != amt)
return FALSE;
return TRUE;
}
static bfd_boolean
nlm_swap_auxiliary_headers_in (abfd)
bfd *abfd;
{
char tempstr[16];
file_ptr position;
bfd_size_type amt;
for (;;)
{
position = bfd_tell (abfd);
amt = sizeof (tempstr);
if (bfd_bread ((PTR) tempstr, amt, abfd) != amt)
return FALSE;
if (bfd_seek (abfd, position, SEEK_SET) != 0)
return FALSE;
if (strncmp (tempstr, "VeRsIoN#", 8) == 0)
{
Nlm_External_Version_Header thdr;
amt = sizeof (thdr);
if (bfd_bread ((PTR) &thdr, amt, abfd) != amt)
return FALSE;
memcpy (nlm_version_header (abfd)->stamp, thdr.stamp,
sizeof (thdr.stamp));
nlm_version_header (abfd)->majorVersion =
get_word (abfd, (bfd_byte *) thdr.majorVersion);
nlm_version_header (abfd)->minorVersion =
get_word (abfd, (bfd_byte *) thdr.minorVersion);
nlm_version_header (abfd)->revision =
get_word (abfd, (bfd_byte *) thdr.revision);
nlm_version_header (abfd)->year =
get_word (abfd, (bfd_byte *) thdr.year);
nlm_version_header (abfd)->month =
get_word (abfd, (bfd_byte *) thdr.month);
nlm_version_header (abfd)->day =
get_word (abfd, (bfd_byte *) thdr.day);
}
else if (strncmp (tempstr, "MeSsAgEs", 8) == 0)
{
Nlm_External_Extended_Header thdr;
amt = sizeof (thdr);
if (bfd_bread ((PTR) &thdr, amt, abfd) != amt)
return FALSE;
memcpy (nlm_extended_header (abfd)->stamp, thdr.stamp,
sizeof (thdr.stamp));
nlm_extended_header (abfd)->languageID =
get_word (abfd, (bfd_byte *) thdr.languageID);
nlm_extended_header (abfd)->messageFileOffset =
get_word (abfd, (bfd_byte *) thdr.messageFileOffset);
nlm_extended_header (abfd)->messageFileLength =
get_word (abfd, (bfd_byte *) thdr.messageFileLength);
nlm_extended_header (abfd)->messageCount =
get_word (abfd, (bfd_byte *) thdr.messageCount);
nlm_extended_header (abfd)->helpFileOffset =
get_word (abfd, (bfd_byte *) thdr.helpFileOffset);
nlm_extended_header (abfd)->helpFileLength =
get_word (abfd, (bfd_byte *) thdr.helpFileLength);
nlm_extended_header (abfd)->RPCDataOffset =
get_word (abfd, (bfd_byte *) thdr.RPCDataOffset);
nlm_extended_header (abfd)->RPCDataLength =
get_word (abfd, (bfd_byte *) thdr.RPCDataLength);
nlm_extended_header (abfd)->sharedCodeOffset =
get_word (abfd, (bfd_byte *) thdr.sharedCodeOffset);
nlm_extended_header (abfd)->sharedCodeLength =
get_word (abfd, (bfd_byte *) thdr.sharedCodeLength);
nlm_extended_header (abfd)->sharedDataOffset =
get_word (abfd, (bfd_byte *) thdr.sharedDataOffset);
nlm_extended_header (abfd)->sharedDataLength =
get_word (abfd, (bfd_byte *) thdr.sharedDataLength);
nlm_extended_header (abfd)->sharedRelocationFixupOffset =
get_word (abfd, (bfd_byte *) thdr.sharedRelocationFixupOffset);
nlm_extended_header (abfd)->sharedRelocationFixupCount =
get_word (abfd, (bfd_byte *) thdr.sharedRelocationFixupCount);
nlm_extended_header (abfd)->sharedExternalReferenceOffset =
get_word (abfd, (bfd_byte *) thdr.sharedExternalReferenceOffset);
nlm_extended_header (abfd)->sharedExternalReferenceCount =
get_word (abfd, (bfd_byte *) thdr.sharedExternalReferenceCount);
nlm_extended_header (abfd)->sharedPublicsOffset =
get_word (abfd, (bfd_byte *) thdr.sharedPublicsOffset);
nlm_extended_header (abfd)->sharedPublicsCount =
get_word (abfd, (bfd_byte *) thdr.sharedPublicsCount);
nlm_extended_header (abfd)->sharedDebugRecordOffset =
get_word (abfd, (bfd_byte *) thdr.sharedDebugRecordOffset);
nlm_extended_header (abfd)->sharedDebugRecordCount =
get_word (abfd, (bfd_byte *) thdr.sharedDebugRecordCount);
nlm_extended_header (abfd)->SharedInitializationOffset =
get_word (abfd, (bfd_byte *) thdr.sharedInitializationOffset);
nlm_extended_header (abfd)->SharedExitProcedureOffset =
get_word (abfd, (bfd_byte *) thdr.SharedExitProcedureOffset);
nlm_extended_header (abfd)->productID =
get_word (abfd, (bfd_byte *) thdr.productID);
nlm_extended_header (abfd)->reserved0 =
get_word (abfd, (bfd_byte *) thdr.reserved0);
nlm_extended_header (abfd)->reserved1 =
get_word (abfd, (bfd_byte *) thdr.reserved1);
nlm_extended_header (abfd)->reserved2 =
get_word (abfd, (bfd_byte *) thdr.reserved2);
nlm_extended_header (abfd)->reserved3 =
get_word (abfd, (bfd_byte *) thdr.reserved3);
nlm_extended_header (abfd)->reserved4 =
get_word (abfd, (bfd_byte *) thdr.reserved4);
nlm_extended_header (abfd)->reserved5 =
get_word (abfd, (bfd_byte *) thdr.reserved5);
}
else if (strncmp (tempstr, "CoPyRiGhT=", 10) == 0)
{
amt = sizeof (nlm_copyright_header (abfd)->stamp);
if (bfd_bread ((PTR) nlm_copyright_header (abfd)->stamp,
amt, abfd) != amt)
return FALSE;
if (bfd_bread ((PTR) &(nlm_copyright_header (abfd)
->copyrightMessageLength),
(bfd_size_type) 1, abfd) != 1)
return FALSE;
amt = nlm_copyright_header (abfd)->copyrightMessageLength + 1;
if (bfd_bread ((PTR) nlm_copyright_header (abfd)->copyrightMessage,
amt, abfd) != amt)
return FALSE;
}
else if (strncmp (tempstr, "CuStHeAd", 8) == 0)
{
Nlm_External_Custom_Header thdr;
bfd_size_type hdrLength;
file_ptr dataOffset;
bfd_size_type dataLength;
char dataStamp[8];
PTR hdr;
amt = sizeof (thdr.stamp);
if (bfd_bread ((PTR) thdr.stamp, amt, abfd) != amt)
return FALSE;
amt = sizeof (thdr.length);
if (bfd_bread ((PTR) thdr.length, amt, abfd) != amt)
return FALSE;
hdrLength = get_word (abfd, (bfd_byte *) thdr.length);
if (hdrLength < NLM_TARGET_LONG_SIZE)
dataOffset = 0;
else
{
amt = sizeof (thdr.dataOffset);
if (bfd_bread ((PTR) thdr.dataOffset, amt, abfd) != amt)
return FALSE;
dataOffset = get_word (abfd, (bfd_byte *) thdr.dataOffset);
}
if (hdrLength < 2 * NLM_TARGET_LONG_SIZE)
dataLength = 0;
else
{
amt = sizeof (thdr.dataLength);
if (bfd_bread ((PTR) thdr.dataLength, amt, abfd) != amt)
return FALSE;
dataLength = get_word (abfd, (bfd_byte *) thdr.dataLength);
}
if (hdrLength < 2 * NLM_TARGET_LONG_SIZE + 8)
memset (dataStamp, 0, sizeof (dataStamp));
else
{
amt = sizeof (dataStamp);
if (bfd_bread ((PTR) dataStamp, amt, abfd) != amt)
return FALSE;
}
if (hdrLength <= 2 * NLM_TARGET_LONG_SIZE + 8)
{
hdr = NULL;
hdrLength = 0;
}
else
{
hdrLength -= 2 * NLM_TARGET_LONG_SIZE + 8;
hdr = bfd_alloc (abfd, hdrLength);
if (hdr == NULL)
return FALSE;
if (bfd_bread (hdr, hdrLength, abfd) != hdrLength)
return FALSE;
}
if (strncmp (dataStamp, "CyGnUsEx", 8) == 0)
{
file_ptr pos;
bfd_byte *contents;
bfd_byte *p, *pend;
BFD_ASSERT (hdrLength == 0 && hdr == NULL);
pos = bfd_tell (abfd);
if (bfd_seek (abfd, dataOffset, SEEK_SET) != 0)
return FALSE;
contents = (bfd_byte *) bfd_alloc (abfd, dataLength);
if (contents == NULL)
return FALSE;
if (bfd_bread (contents, dataLength, abfd) != dataLength)
return FALSE;
if (bfd_seek (abfd, pos, SEEK_SET) != 0)
return FALSE;
memcpy (nlm_cygnus_ext_header (abfd), "CyGnUsEx", 8);
nlm_cygnus_ext_header (abfd)->offset = dataOffset;
nlm_cygnus_ext_header (abfd)->length = dataLength;
p = contents;
pend = p + dataLength;
while (p < pend)
{
char *name;
size_t l;
file_ptr filepos;
bfd_size_type size;
asection *newsec;
name = (char *) p;
l = strlen (name) + 1;
l = (l + 3) &~ (size_t) 3;
p += l;
filepos = H_GET_32 (abfd, p);
p += 4;
size = H_GET_32 (abfd, p);
p += 4;
newsec = bfd_make_section_anyway (abfd, name);
if (newsec == (asection *) NULL)
return FALSE;
newsec->_raw_size = size;
if (filepos != 0)
{
newsec->filepos = filepos;
newsec->flags |= SEC_HAS_CONTENTS;
}
}
}
else
{
memcpy (nlm_custom_header (abfd)->stamp, thdr.stamp,
sizeof (thdr.stamp));
nlm_custom_header (abfd)->hdrLength = hdrLength;
nlm_custom_header (abfd)->dataOffset = dataOffset;
nlm_custom_header (abfd)->dataLength = dataLength;
memcpy (nlm_custom_header (abfd)->dataStamp, dataStamp,
sizeof (dataStamp));
nlm_custom_header (abfd)->hdr = hdr;
}
}
else
break;
}
return TRUE;
}
static bfd_boolean
find_nonzero (buf, size)
PTR buf;
size_t size;
{
char *p = (char *) buf;
while (size-- != 0)
if (*p++ != 0)
return TRUE;
return FALSE;
}
static bfd_boolean
nlm_swap_auxiliary_headers_out (abfd)
bfd *abfd;
{
bfd_size_type amt;
if (find_nonzero ((PTR) nlm_version_header (abfd),
sizeof (Nlm_Internal_Version_Header)))
{
Nlm_External_Version_Header thdr;
memcpy (thdr.stamp, "VeRsIoN#", 8);
put_word (abfd, (bfd_vma) nlm_version_header (abfd)->majorVersion,
(bfd_byte *) thdr.majorVersion);
put_word (abfd, (bfd_vma) nlm_version_header (abfd)->minorVersion,
(bfd_byte *) thdr.minorVersion);
put_word (abfd, (bfd_vma) nlm_version_header (abfd)->revision,
(bfd_byte *) thdr.revision);
put_word (abfd, (bfd_vma) nlm_version_header (abfd)->year,
(bfd_byte *) thdr.year);
put_word (abfd, (bfd_vma) nlm_version_header (abfd)->month,
(bfd_byte *) thdr.month);
put_word (abfd, (bfd_vma) nlm_version_header (abfd)->day,
(bfd_byte *) thdr.day);
if (bfd_bwrite ((PTR) &thdr, (bfd_size_type) sizeof (thdr), abfd)
!= sizeof (thdr))
return FALSE;
}
if (find_nonzero ((PTR) nlm_copyright_header (abfd),
sizeof (Nlm_Internal_Copyright_Header)))
{
Nlm_External_Copyright_Header thdr;
memcpy (thdr.stamp, "CoPyRiGhT=", 10);
amt = sizeof (thdr.stamp);
if (bfd_bwrite ((PTR) thdr.stamp, amt, abfd) != amt)
return FALSE;
thdr.copyrightMessageLength[0] =
nlm_copyright_header (abfd)->copyrightMessageLength;
amt = 1;
if (bfd_bwrite ((PTR) thdr.copyrightMessageLength, amt, abfd) != amt)
return FALSE;
amt = nlm_copyright_header (abfd)->copyrightMessageLength + 1;
if (bfd_bwrite ((PTR) nlm_copyright_header (abfd)->copyrightMessage,
amt, abfd) != amt)
return FALSE;
}
if (find_nonzero ((PTR) nlm_extended_header (abfd),
sizeof (Nlm_Internal_Extended_Header)))
{
Nlm_External_Extended_Header thdr;
memcpy (thdr.stamp, "MeSsAgEs", 8);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->languageID,
(bfd_byte *) thdr.languageID);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->messageFileOffset,
(bfd_byte *) thdr.messageFileOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->messageFileLength,
(bfd_byte *) thdr.messageFileLength);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->messageCount,
(bfd_byte *) thdr.messageCount);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->helpFileOffset,
(bfd_byte *) thdr.helpFileOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->helpFileLength,
(bfd_byte *) thdr.helpFileLength);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->RPCDataOffset,
(bfd_byte *) thdr.RPCDataOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->RPCDataLength,
(bfd_byte *) thdr.RPCDataLength);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedCodeOffset,
(bfd_byte *) thdr.sharedCodeOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedCodeLength,
(bfd_byte *) thdr.sharedCodeLength);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedDataOffset,
(bfd_byte *) thdr.sharedDataOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedDataLength,
(bfd_byte *) thdr.sharedDataLength);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedRelocationFixupOffset,
(bfd_byte *) thdr.sharedRelocationFixupOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedRelocationFixupCount,
(bfd_byte *) thdr.sharedRelocationFixupCount);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedExternalReferenceOffset,
(bfd_byte *) thdr.sharedExternalReferenceOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedExternalReferenceCount,
(bfd_byte *) thdr.sharedExternalReferenceCount);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedPublicsOffset,
(bfd_byte *) thdr.sharedPublicsOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedPublicsCount,
(bfd_byte *) thdr.sharedPublicsCount);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedDebugRecordOffset,
(bfd_byte *) thdr.sharedDebugRecordOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->sharedDebugRecordCount,
(bfd_byte *) thdr.sharedDebugRecordCount);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->SharedInitializationOffset,
(bfd_byte *) thdr.sharedInitializationOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->SharedExitProcedureOffset,
(bfd_byte *) thdr.SharedExitProcedureOffset);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->productID,
(bfd_byte *) thdr.productID);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->reserved0,
(bfd_byte *) thdr.reserved0);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->reserved1,
(bfd_byte *) thdr.reserved1);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->reserved2,
(bfd_byte *) thdr.reserved2);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->reserved3,
(bfd_byte *) thdr.reserved3);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->reserved4,
(bfd_byte *) thdr.reserved4);
put_word (abfd,
(bfd_vma) nlm_extended_header (abfd)->reserved5,
(bfd_byte *) thdr.reserved5);
if (bfd_bwrite ((PTR) &thdr, (bfd_size_type) sizeof (thdr), abfd)
!= sizeof (thdr))
return FALSE;
}
if (find_nonzero ((PTR) nlm_custom_header (abfd),
sizeof (Nlm_Internal_Custom_Header)))
{
Nlm_External_Custom_Header thdr;
bfd_boolean ds;
bfd_size_type hdrLength;
ds = find_nonzero ((PTR) nlm_custom_header (abfd)->dataStamp,
sizeof (nlm_custom_header (abfd)->dataStamp));
memcpy (thdr.stamp, "CuStHeAd", 8);
hdrLength = (2 * NLM_TARGET_LONG_SIZE + (ds ? 8 : 0)
+ nlm_custom_header (abfd)->hdrLength);
put_word (abfd, hdrLength, thdr.length);
put_word (abfd, (bfd_vma) nlm_custom_header (abfd)->dataOffset,
thdr.dataOffset);
put_word (abfd, (bfd_vma) nlm_custom_header (abfd)->dataLength,
thdr.dataLength);
if (! ds)
{
BFD_ASSERT (nlm_custom_header (abfd)->hdrLength == 0);
amt = sizeof (thdr) - sizeof (thdr.dataStamp);
if (bfd_bwrite ((PTR) &thdr, amt, abfd) != amt)
return FALSE;
}
else
{
memcpy (thdr.dataStamp, nlm_custom_header (abfd)->dataStamp,
sizeof (thdr.dataStamp));
amt = sizeof (thdr);
if (bfd_bwrite ((PTR) &thdr, amt, abfd) != amt)
return FALSE;
amt = nlm_custom_header (abfd)->hdrLength;
if (bfd_bwrite (nlm_custom_header (abfd)->hdr, amt, abfd) != amt)
return FALSE;
}
}
if (find_nonzero ((PTR) nlm_cygnus_ext_header (abfd),
sizeof (Nlm_Internal_Cygnus_Ext_Header)))
{
Nlm_External_Custom_Header thdr;
memcpy (thdr.stamp, "CuStHeAd", 8);
put_word (abfd, (bfd_vma) 2 * NLM_TARGET_LONG_SIZE + 8,
(bfd_byte *) thdr.length);
put_word (abfd, (bfd_vma) nlm_cygnus_ext_header (abfd)->offset,
(bfd_byte *) thdr.dataOffset);
put_word (abfd, (bfd_vma) nlm_cygnus_ext_header (abfd)->length,
(bfd_byte *) thdr.dataLength);
memcpy (thdr.dataStamp, "CyGnUsEx", 8);
amt = sizeof (thdr);
if (bfd_bwrite ((PTR) &thdr, amt, abfd) != amt)
return FALSE;
}
return TRUE;
}
long
nlm_get_symtab_upper_bound (abfd)
bfd *abfd;
{
Nlm_Internal_Fixed_Header *i_fxdhdrp;
long symcount;
long symtab_size = 0;
i_fxdhdrp = nlm_fixed_header (abfd);
symcount = (i_fxdhdrp->numberOfPublics
+ i_fxdhdrp->numberOfDebugRecords
+ i_fxdhdrp->numberOfExternalReferences);
symtab_size = (symcount + 1) * (sizeof (asymbol));
return (symtab_size);
}
long
nlm_get_symtab (abfd, alocation)
bfd *abfd;
asymbol **alocation;
{
nlm_symbol_type *symbase;
bfd_size_type counter = 0;
if (! nlm_slurp_symbol_table (abfd))
return -1;
symbase = nlm_get_symbols (abfd);
while (counter < bfd_get_symcount (abfd))
{
*alocation++ = &symbase->symbol;
symbase++;
counter++;
}
*alocation = (asymbol *) NULL;
return bfd_get_symcount (abfd);
}
asymbol *
nlm_make_empty_symbol (abfd)
bfd *abfd;
{
bfd_size_type amt = sizeof (nlm_symbol_type);
nlm_symbol_type *new = (nlm_symbol_type *) bfd_zalloc (abfd, amt);
if (new)
new->symbol.the_bfd = abfd;
return &new->symbol;
}
void
nlm_get_symbol_info (ignore_abfd, symbol, ret)
bfd *ignore_abfd ATTRIBUTE_UNUSED;
asymbol *symbol;
symbol_info *ret;
{
bfd_symbol_info (symbol, ret);
}
void
nlm_print_symbol (abfd, afile, symbol, how)
bfd *abfd;
PTR afile;
asymbol *symbol;
bfd_print_symbol_type how;
{
FILE *file = (FILE *) afile;
switch (how)
{
case bfd_print_symbol_name:
case bfd_print_symbol_more:
if (symbol->name)
fprintf (file, "%s", symbol->name);
break;
case bfd_print_symbol_all:
bfd_print_symbol_vandf (abfd, (PTR) file, symbol);
fprintf (file, " %-5s", symbol->section->name);
if (symbol->name)
fprintf (file, " %s", symbol->name);
break;
}
}
static bfd_boolean
nlm_slurp_symbol_table (abfd)
bfd *abfd;
{
Nlm_Internal_Fixed_Header *i_fxdhdrp;
bfd_size_type totsymcount;
bfd_size_type symcount;
nlm_symbol_type *sym;
unsigned char symlength;
unsigned char symtype;
bfd_byte temp[NLM_TARGET_LONG_SIZE];
bfd_boolean (*read_import_func) PARAMS ((bfd *, nlm_symbol_type *));
bfd_boolean (*set_public_section_func) PARAMS ((bfd *, nlm_symbol_type *));
bfd_size_type amt;
if (nlm_get_symbols (abfd) != NULL)
return TRUE;
abfd->symcount = 0;
i_fxdhdrp = nlm_fixed_header (abfd);
totsymcount = (i_fxdhdrp->numberOfPublics
+ i_fxdhdrp->numberOfDebugRecords
+ i_fxdhdrp->numberOfExternalReferences);
if (totsymcount == 0)
return TRUE;
if (bfd_seek (abfd, i_fxdhdrp->publicsOffset, SEEK_SET) != 0)
return FALSE;
amt = totsymcount * sizeof (nlm_symbol_type);
sym = ((nlm_symbol_type *) bfd_zalloc (abfd, amt));
if (!sym)
return FALSE;
nlm_set_symbols (abfd, sym);
set_public_section_func = nlm_set_public_section_func (abfd);
symcount = i_fxdhdrp->numberOfPublics;
while (abfd->symcount < symcount)
{
amt = sizeof (symlength);
if (bfd_bread ((PTR) &symlength, amt, abfd) != amt)
return FALSE;
amt = symlength;
sym->symbol.the_bfd = abfd;
sym->symbol.name = bfd_alloc (abfd, amt + 1);
if (!sym->symbol.name)
return FALSE;
if (bfd_bread ((PTR) sym->symbol.name, amt, abfd) != amt)
return FALSE;
((char *) (sym->symbol.name))[symlength] = '\0';
amt = sizeof (temp);
if (bfd_bread ((PTR) temp, amt, abfd) != amt)
return FALSE;
sym->symbol.flags = BSF_GLOBAL | BSF_EXPORT;
sym->symbol.value = get_word (abfd, temp);
if (set_public_section_func)
{
if (! (*set_public_section_func) (abfd, sym))
return FALSE;
}
else
{
if (sym->symbol.value & NLM_HIBIT)
{
sym->symbol.value &= ~NLM_HIBIT;
sym->symbol.flags |= BSF_FUNCTION;
sym->symbol.section =
bfd_get_section_by_name (abfd, NLM_CODE_NAME);
}
else
{
sym->symbol.section =
bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME);
}
}
sym->rcnt = 0;
abfd->symcount++;
sym++;
}
if (i_fxdhdrp->numberOfDebugRecords > 0)
{
if (bfd_seek (abfd, i_fxdhdrp->debugInfoOffset, SEEK_SET) != 0)
return FALSE;
symcount += i_fxdhdrp->numberOfDebugRecords;
while (abfd->symcount < symcount)
{
amt = sizeof (symtype);
if (bfd_bread ((PTR) &symtype, amt, abfd) != amt)
return FALSE;
amt = sizeof (temp);
if (bfd_bread ((PTR) temp, amt, abfd) != amt)
return FALSE;
amt = sizeof (symlength);
if (bfd_bread ((PTR) &symlength, amt, abfd) != amt)
return FALSE;
amt = symlength;
sym->symbol.the_bfd = abfd;
sym->symbol.name = bfd_alloc (abfd, amt + 1);
if (!sym->symbol.name)
return FALSE;
if (bfd_bread ((PTR) sym->symbol.name, amt, abfd) != amt)
return FALSE;
((char *) (sym->symbol.name))[symlength] = '\0';
sym->symbol.flags = BSF_LOCAL;
sym->symbol.value = get_word (abfd, temp);
if (symtype == 0)
{
sym->symbol.section =
bfd_get_section_by_name (abfd, NLM_INITIALIZED_DATA_NAME);
}
else if (symtype == 1)
{
sym->symbol.flags |= BSF_FUNCTION;
sym->symbol.section =
bfd_get_section_by_name (abfd, NLM_CODE_NAME);
}
else
{
sym->symbol.section = bfd_abs_section_ptr;
}
sym->rcnt = 0;
abfd->symcount++;
sym++;
}
}
read_import_func = nlm_read_import_func (abfd);
if (read_import_func != NULL)
{
if (bfd_seek (abfd, i_fxdhdrp->externalReferencesOffset, SEEK_SET) != 0)
return FALSE;
symcount += i_fxdhdrp->numberOfExternalReferences;
while (abfd->symcount < symcount)
{
if (! (*read_import_func) (abfd, sym))
return FALSE;
sym++;
abfd->symcount++;
}
}
return TRUE;
}
static bfd_boolean
nlm_slurp_reloc_fixups (abfd)
bfd *abfd;
{
bfd_boolean (*read_func)
PARAMS ((bfd *, nlm_symbol_type *, asection **, arelent *));
bfd_size_type count, amt;
arelent *rels;
asection **secs;
if (nlm_relocation_fixups (abfd) != NULL)
return TRUE;
read_func = nlm_read_reloc_func (abfd);
if (read_func == NULL)
return TRUE;
if (bfd_seek (abfd, nlm_fixed_header (abfd)->relocationFixupOffset,
SEEK_SET) != 0)
return FALSE;
count = nlm_fixed_header (abfd)->numberOfRelocationFixups;
amt = count * sizeof (arelent);
rels = (arelent *) bfd_alloc (abfd, amt);
amt = count * sizeof (asection *);
secs = (asection **) bfd_alloc (abfd, amt);
if ((rels == NULL || secs == NULL) && count != 0)
return FALSE;
nlm_relocation_fixups (abfd) = rels;
nlm_relocation_fixup_secs (abfd) = secs;
while (count-- != 0)
{
if (! (*read_func) (abfd, (nlm_symbol_type *) NULL, secs, rels))
{
nlm_relocation_fixups (abfd) = NULL;
nlm_relocation_fixup_secs (abfd) = NULL;
return FALSE;
}
++secs;
++rels;
}
return TRUE;
}
long
nlm_get_reloc_upper_bound (abfd, sec)
bfd *abfd;
asection *sec;
{
nlm_symbol_type *syms;
bfd_size_type count;
unsigned int ret;
if (nlm_read_reloc_func (abfd) == NULL)
return -1;
if ((bfd_get_section_flags (abfd, sec) & (SEC_CODE | SEC_DATA)) == 0)
return 0;
syms = nlm_get_symbols (abfd);
if (syms == NULL)
{
if (! nlm_slurp_symbol_table (abfd))
return -1;
syms = nlm_get_symbols (abfd);
}
ret = nlm_fixed_header (abfd)->numberOfRelocationFixups;
count = bfd_get_symcount (abfd);
while (count-- != 0)
{
ret += syms->rcnt;
++syms;
}
return (ret + 1) * sizeof (arelent *);
}
long
nlm_canonicalize_reloc (abfd, sec, relptr, symbols)
bfd *abfd;
asection *sec;
arelent **relptr;
asymbol **symbols;
{
arelent *rels;
asection **secs;
bfd_size_type count, i;
unsigned int ret;
rels = nlm_relocation_fixups (abfd);
if (rels == NULL)
{
if (! nlm_slurp_reloc_fixups (abfd))
return -1;
rels = nlm_relocation_fixups (abfd);
}
secs = nlm_relocation_fixup_secs (abfd);
ret = 0;
count = nlm_fixed_header (abfd)->numberOfRelocationFixups;
for (i = 0; i < count; i++, rels++, secs++)
{
if (*secs == sec)
{
*relptr++ = rels;
++ret;
}
}
count = bfd_get_symcount (abfd);
for (i = 0; i < count; i++, symbols++)
{
asymbol *sym;
sym = *symbols;
if (bfd_asymbol_flavour (sym) == bfd_target_nlm_flavour)
{
nlm_symbol_type *nlm_sym;
bfd_size_type j;
nlm_sym = (nlm_symbol_type *) sym;
for (j = 0; j < nlm_sym->rcnt; j++)
{
if (nlm_sym->relocs[j].section == sec)
{
*relptr = &nlm_sym->relocs[j].reloc;
(*relptr)->sym_ptr_ptr = symbols;
++relptr;
++ret;
}
}
}
}
*relptr = NULL;
return ret;
}
static bfd_boolean
nlm_compute_section_file_positions (abfd)
bfd *abfd;
{
file_ptr sofar;
asection *sec;
bfd_vma text, data, bss;
bfd_vma text_low, data_low;
unsigned int text_align, data_align, other_align;
file_ptr text_ptr, data_ptr, other_ptr;
asection *bss_sec;
asymbol **sym_ptr_ptr;
if (abfd->output_has_begun)
return TRUE;
bss_sec = bfd_get_section_by_name (abfd, NLM_UNINITIALIZED_DATA_NAME);
if (bss_sec == NULL)
{
if (!add_bfd_section (abfd, NLM_UNINITIALIZED_DATA_NAME,
(file_ptr) 0, (bfd_size_type) 0,
SEC_ALLOC))
return FALSE;
bss_sec = bfd_get_section_by_name (abfd, NLM_UNINITIALIZED_DATA_NAME);
}
abfd->output_has_begun = TRUE;
sofar = nlm_optional_prefix_size (abfd) + nlm_fixed_header_size (abfd);
sofar += (sizeof (nlm_variable_header (abfd)->descriptionLength)
+ nlm_variable_header (abfd)->descriptionLength + 1
+ NLM_TARGET_LONG_SIZE
+ NLM_TARGET_LONG_SIZE
+ sizeof (nlm_variable_header (abfd)->oldThreadName)
+ sizeof (nlm_variable_header (abfd)->screenNameLength)
+ nlm_variable_header (abfd)->screenNameLength + 1
+ sizeof (nlm_variable_header (abfd)->threadNameLength)
+ nlm_variable_header (abfd)->threadNameLength + 1);
if (find_nonzero ((PTR) nlm_version_header (abfd),
sizeof (Nlm_Internal_Version_Header)))
sofar += sizeof (Nlm_External_Version_Header);
if (find_nonzero ((PTR) nlm_extended_header (abfd),
sizeof (Nlm_Internal_Extended_Header)))
sofar += sizeof (Nlm_External_Extended_Header);
if (find_nonzero ((PTR) nlm_copyright_header (abfd),
sizeof (Nlm_Internal_Copyright_Header)))
sofar += (sizeof (Nlm_External_Copyright_Header)
+ nlm_copyright_header (abfd)->copyrightMessageLength + 1);
if (find_nonzero ((PTR) nlm_custom_header (abfd),
sizeof (Nlm_Internal_Custom_Header)))
sofar += (sizeof (Nlm_External_Custom_Header)
+ nlm_custom_header (abfd)->hdrLength);
if (find_nonzero ((PTR) nlm_cygnus_ext_header (abfd),
sizeof (Nlm_Internal_Cygnus_Ext_Header)))
sofar += sizeof (Nlm_External_Custom_Header);
text = 0;
text_low = (bfd_vma) - 1;
text_align = 0;
data = 0;
data_low = (bfd_vma) - 1;
data_align = 0;
bss = 0;
other_align = 0;
for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next)
{
flagword f;
sec->_raw_size = BFD_ALIGN (sec->_raw_size, 1 << sec->alignment_power);
f = bfd_get_section_flags (abfd, sec);
if (f & SEC_CODE)
{
text += sec->_raw_size;
if (bfd_get_section_vma (abfd, sec) < text_low)
text_low = bfd_get_section_vma (abfd, sec);
if (sec->alignment_power > text_align)
text_align = sec->alignment_power;
}
else if (f & SEC_DATA)
{
data += sec->_raw_size;
if (bfd_get_section_vma (abfd, sec) < data_low)
data_low = bfd_get_section_vma (abfd, sec);
if (sec->alignment_power > data_align)
data_align = sec->alignment_power;
}
else if (f & SEC_HAS_CONTENTS)
{
if (sec->alignment_power > other_align)
other_align = sec->alignment_power;
}
else if (f & SEC_ALLOC)
bss += sec->_raw_size;
}
nlm_set_text_low (abfd, text_low);
nlm_set_data_low (abfd, data_low);
if (nlm_no_uninitialized_data (abfd))
{
data += bss;
bss = 0;
}
text_ptr = BFD_ALIGN (sofar, 1 << text_align);
data_ptr = BFD_ALIGN (text_ptr + text, 1 << data_align);
other_ptr = BFD_ALIGN (data_ptr + data, 1 << other_align);
nlm_fixed_header (abfd)->codeImageOffset = text_ptr;
nlm_fixed_header (abfd)->codeImageSize = text;
nlm_fixed_header (abfd)->dataImageOffset = data_ptr;
nlm_fixed_header (abfd)->dataImageSize = data;
nlm_fixed_header (abfd)->uninitializedDataSize = bss;
for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next)
{
flagword f;
f = bfd_get_section_flags (abfd, sec);
if (f & SEC_CODE)
{
sec->filepos = text_ptr;
text_ptr += sec->_raw_size;
}
else if (f & SEC_DATA)
{
sec->filepos = data_ptr;
data_ptr += sec->_raw_size;
}
else if (f & SEC_HAS_CONTENTS)
{
sec->filepos = other_ptr;
other_ptr += sec->_raw_size;
}
}
nlm_fixed_header (abfd)->relocationFixupOffset = other_ptr;
sym_ptr_ptr = bfd_get_outsymbols (abfd);
if (sym_ptr_ptr != NULL)
{
asymbol **sym_end;
bfd_vma add;
sym_end = sym_ptr_ptr + bfd_get_symcount (abfd);
add = 0;
for (; sym_ptr_ptr < sym_end; sym_ptr_ptr++)
{
asymbol *sym;
bfd_vma size;
sym = *sym_ptr_ptr;
if (!bfd_is_com_section (bfd_get_section (sym)))
continue;
sym->section = bss_sec;
size = sym->value;
sym->value = bss_sec->_raw_size + add;
add += size;
add = BFD_ALIGN (add, 1 << bss_sec->alignment_power);
}
if (add != 0)
{
if (nlm_no_uninitialized_data (abfd))
{
abort ();
}
nlm_fixed_header (abfd)->uninitializedDataSize += add;
bss_sec->_raw_size += add;
}
}
return TRUE;
}
bfd_boolean
nlm_set_section_contents (abfd, section, location, offset, count)
bfd *abfd;
asection *section;
PTR location;
file_ptr offset;
bfd_size_type count;
{
if (! abfd->output_has_begun
&& ! nlm_compute_section_file_positions (abfd))
return FALSE;
if (count == 0)
return TRUE;
if (section->reloc_count != 0)
{
bfd_boolean (*mangle_relocs_func)
PARAMS ((bfd *, asection *, PTR, bfd_vma, bfd_size_type));
mangle_relocs_func = nlm_mangle_relocs_func (abfd);
if (mangle_relocs_func != NULL)
{
if (!(*mangle_relocs_func) (abfd, section, location,
(bfd_vma) offset, count))
return FALSE;
}
}
if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0
|| bfd_bwrite (location, count, abfd) != count)
return FALSE;
return TRUE;
}
static int
nlm_external_reloc_compare (p1, p2)
const void *p1;
const void *p2;
{
const struct reloc_and_sec *r1 = (const struct reloc_and_sec *) p1;
const struct reloc_and_sec *r2 = (const struct reloc_and_sec *) p2;
int cmp;
cmp = strcmp ((*r1->rel->sym_ptr_ptr)->name,
(*r2->rel->sym_ptr_ptr)->name);
if (cmp != 0)
return cmp;
return (int) (r1->rel->address - r2->rel->address);
}
bfd_boolean
nlm_write_object_contents (abfd)
bfd *abfd;
{
asection *sec;
bfd_boolean (*write_import_func) PARAMS ((bfd *, asection *, arelent *));
bfd_size_type external_reloc_count, internal_reloc_count, i, c;
struct reloc_and_sec *external_relocs;
asymbol **sym_ptr_ptr;
file_ptr last;
bfd_boolean (*write_prefix_func) PARAMS ((bfd *));
unsigned char *fixed_header = NULL;
file_ptr pos;
bfd_size_type amt;
fixed_header = ((unsigned char *)
bfd_malloc (nlm_fixed_header_size (abfd)));
if (fixed_header == NULL)
goto error_return;
if (! abfd->output_has_begun
&& ! nlm_compute_section_file_positions (abfd))
goto error_return;
pos = nlm_optional_prefix_size (abfd) + nlm_fixed_header_size (abfd);
if (bfd_seek (abfd, pos, SEEK_SET) != 0)
goto error_return;
if (! nlm_swap_variable_header_out (abfd)
|| ! nlm_swap_auxiliary_headers_out (abfd))
{
bfd_set_error (bfd_error_system_call);
goto error_return;
}
if (bfd_tell (abfd) > (ufile_ptr) nlm_fixed_header (abfd)->codeImageOffset)
{
bfd_set_error (bfd_error_invalid_operation);
goto error_return;
}
if (bfd_seek (abfd, nlm_fixed_header (abfd)->relocationFixupOffset,
SEEK_SET) != 0)
goto error_return;
write_import_func = nlm_write_import_func (abfd);
internal_reloc_count = 0;
external_reloc_count = 0;
for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next)
{
arelent **rel_ptr_ptr, **rel_end;
if (sec->reloc_count == 0)
continue;
if ((bfd_get_section_flags (abfd, sec) & (SEC_CODE | SEC_DATA)) == 0)
continue;
if (write_import_func == NULL)
{
bfd_set_error (bfd_error_invalid_operation);
goto error_return;
}
rel_ptr_ptr = sec->orelocation;
rel_end = rel_ptr_ptr + sec->reloc_count;
for (; rel_ptr_ptr < rel_end; rel_ptr_ptr++)
{
arelent *rel;
asymbol *sym;
rel = *rel_ptr_ptr;
sym = *rel->sym_ptr_ptr;
if (! bfd_is_und_section (bfd_get_section (sym)))
{
++internal_reloc_count;
if (! (*write_import_func) (abfd, sec, rel))
goto error_return;
}
else
++external_reloc_count;
}
}
nlm_fixed_header (abfd)->numberOfRelocationFixups = internal_reloc_count;
amt = external_reloc_count * sizeof (struct reloc_and_sec);
external_relocs = (struct reloc_and_sec *) bfd_alloc (abfd, amt);
if (external_relocs == (struct reloc_and_sec *) NULL)
goto error_return;
i = 0;
for (sec = abfd->sections; sec != (asection *) NULL; sec = sec->next)
{
arelent **rel_ptr_ptr, **rel_end;
if (sec->reloc_count == 0)
continue;
rel_ptr_ptr = sec->orelocation;
rel_end = rel_ptr_ptr + sec->reloc_count;
for (; rel_ptr_ptr < rel_end; rel_ptr_ptr++)
{
arelent *rel;
asymbol *sym;
rel = *rel_ptr_ptr;
sym = *rel->sym_ptr_ptr;
if (! bfd_is_und_section (bfd_get_section (sym)))
continue;
external_relocs[i].rel = rel;
external_relocs[i].sec = sec;
++i;
}
}
BFD_ASSERT (i == external_reloc_count);
qsort ((PTR) external_relocs, (size_t) external_reloc_count,
sizeof (struct reloc_and_sec), nlm_external_reloc_compare);
nlm_fixed_header (abfd)->externalReferencesOffset = bfd_tell (abfd);
c = 0;
i = 0;
while (i < external_reloc_count)
{
arelent *rel;
asymbol *sym;
bfd_size_type j, cnt;
++c;
rel = external_relocs[i].rel;
sym = *rel->sym_ptr_ptr;
cnt = 0;
for (j = i;
(j < external_reloc_count
&& *external_relocs[j].rel->sym_ptr_ptr == sym);
j++)
++cnt;
if (! (*nlm_write_external_func (abfd)) (abfd, cnt, sym,
&external_relocs[i]))
goto error_return;
i += cnt;
}
nlm_fixed_header (abfd)->numberOfExternalReferences = c;
sym_ptr_ptr = bfd_get_outsymbols (abfd);
if (sym_ptr_ptr != (asymbol **) NULL)
{
bfd_vma (*get_public_offset_func) PARAMS ((bfd *, asymbol *));
bfd_boolean (*write_export_func) PARAMS ((bfd *, asymbol *, bfd_vma));
asymbol **sym_end;
nlm_fixed_header (abfd)->publicsOffset = bfd_tell (abfd);
get_public_offset_func = nlm_get_public_offset_func (abfd);
write_export_func = nlm_write_export_func (abfd);
c = 0;
sym_end = sym_ptr_ptr + bfd_get_symcount (abfd);
for (; sym_ptr_ptr < sym_end; sym_ptr_ptr++)
{
asymbol *sym;
bfd_byte len;
bfd_vma offset;
bfd_byte temp[NLM_TARGET_LONG_SIZE];
sym = *sym_ptr_ptr;
if ((sym->flags & (BSF_EXPORT | BSF_GLOBAL)) == 0
|| bfd_is_und_section (bfd_get_section (sym)))
continue;
++c;
if (get_public_offset_func)
{
offset = (*get_public_offset_func) (abfd, sym);
}
else
{
offset = bfd_asymbol_value (sym);
sec = sym->section;
if (sec->flags & SEC_CODE)
{
offset -= nlm_get_text_low (abfd);
offset |= NLM_HIBIT;
}
else if (sec->flags & (SEC_DATA | SEC_ALLOC))
{
offset -= nlm_get_data_low (abfd);
}
else
{
bfd_set_error (bfd_error_invalid_operation);
goto error_return;
}
}
if (write_export_func)
{
if (! (*write_export_func) (abfd, sym, offset))
goto error_return;
}
else
{
len = strlen (sym->name);
if ((bfd_bwrite (&len, (bfd_size_type) sizeof (bfd_byte), abfd)
!= sizeof (bfd_byte))
|| bfd_bwrite (sym->name, (bfd_size_type) len, abfd) != len)
goto error_return;
put_word (abfd, offset, temp);
if (bfd_bwrite (temp, (bfd_size_type) sizeof (temp), abfd)
!= sizeof (temp))
goto error_return;
}
}
nlm_fixed_header (abfd)->numberOfPublics = c;
if (nlm_fixed_header (abfd)->debugInfoOffset == (file_ptr) - 1)
{
nlm_fixed_header (abfd)->debugInfoOffset = 0;
nlm_fixed_header (abfd)->numberOfDebugRecords = 0;
}
else
{
nlm_fixed_header (abfd)->debugInfoOffset = bfd_tell (abfd);
c = 0;
sym_ptr_ptr = bfd_get_outsymbols (abfd);
sym_end = sym_ptr_ptr + bfd_get_symcount (abfd);
for (; sym_ptr_ptr < sym_end; sym_ptr_ptr++)
{
asymbol *sym;
bfd_byte type, len;
bfd_vma offset;
bfd_byte temp[NLM_TARGET_LONG_SIZE];
sym = *sym_ptr_ptr;
if ((sym->flags & (BSF_LOCAL | BSF_GLOBAL | BSF_EXPORT)) == 0
|| (sym->flags & BSF_DEBUGGING) != 0
|| bfd_is_und_section (bfd_get_section (sym)))
continue;
++c;
offset = bfd_asymbol_value (sym);
sec = sym->section;
if (sec->flags & SEC_CODE)
{
offset -= nlm_get_text_low (abfd);
type = 1;
}
else if (sec->flags & (SEC_DATA | SEC_ALLOC))
{
offset -= nlm_get_data_low (abfd);
type = 0;
}
else
type = 2;
if (bfd_bwrite (&type, (bfd_size_type) sizeof (bfd_byte), abfd)
!= sizeof (bfd_byte))
goto error_return;
put_word (abfd, offset, temp);
if (bfd_bwrite (temp, (bfd_size_type) sizeof (temp), abfd)
!= sizeof (temp))
goto error_return;
len = strlen (sym->name);
if ((bfd_bwrite (&len, (bfd_size_type) sizeof (bfd_byte), abfd)
!= sizeof (bfd_byte))
|| bfd_bwrite (sym->name, (bfd_size_type) len, abfd) != len)
goto error_return;
}
nlm_fixed_header (abfd)->numberOfDebugRecords = c;
}
}
last = bfd_tell (abfd);
if (nlm_fixed_header (abfd)->codeImageOffset == 0)
nlm_fixed_header (abfd)->codeImageOffset = last;
if (nlm_fixed_header (abfd)->dataImageOffset == 0)
nlm_fixed_header (abfd)->dataImageOffset = last;
if (nlm_fixed_header (abfd)->customDataOffset == 0)
nlm_fixed_header (abfd)->customDataOffset = last;
if (nlm_fixed_header (abfd)->moduleDependencyOffset == 0)
nlm_fixed_header (abfd)->moduleDependencyOffset = last;
if (nlm_fixed_header (abfd)->relocationFixupOffset == 0)
nlm_fixed_header (abfd)->relocationFixupOffset = last;
if (nlm_fixed_header (abfd)->externalReferencesOffset == 0)
nlm_fixed_header (abfd)->externalReferencesOffset = last;
if (nlm_fixed_header (abfd)->publicsOffset == 0)
nlm_fixed_header (abfd)->publicsOffset = last;
if (nlm_fixed_header (abfd)->debugInfoOffset == 0)
nlm_fixed_header (abfd)->debugInfoOffset = last;
memcpy (nlm_fixed_header (abfd)->signature, nlm_signature (abfd),
NLM_SIGNATURE_SIZE);
nlm_fixed_header (abfd)->version = NLM_HEADER_VERSION;
nlm_fixed_header (abfd)->codeStartOffset =
(bfd_get_start_address (abfd)
- nlm_get_text_low (abfd));
nlm_fixed_header (abfd)->exitProcedureOffset -= nlm_get_text_low (abfd);
if (nlm_fixed_header (abfd)->checkUnloadProcedureOffset != 0)
nlm_fixed_header (abfd)->checkUnloadProcedureOffset -=
nlm_get_text_low (abfd);
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
goto error_return;
write_prefix_func = nlm_write_prefix_func (abfd);
if (write_prefix_func)
{
if (! (*write_prefix_func) (abfd))
goto error_return;
}
BFD_ASSERT ((bfd_size_type) bfd_tell (abfd)
== nlm_optional_prefix_size (abfd));
nlm_swap_fixed_header_out (abfd, nlm_fixed_header (abfd), fixed_header);
if (bfd_bwrite (fixed_header, nlm_fixed_header_size (abfd), abfd)
!= nlm_fixed_header_size (abfd))
goto error_return;
if (fixed_header != NULL)
free (fixed_header);
return TRUE;
error_return:
if (fixed_header != NULL)
free (fixed_header);
return FALSE;
}