/* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.73 2001/11/08 12:46:31 simonmar Exp $
+ * $Id: Linker.c,v 1.89 2002/05/01 15:46:14 simonmar Exp $
*
* (c) The GHC Team, 2000, 2001
*
Sym(gmtime) \
Sym(opendir) \
Sym(readdir) \
+ Sym(rewinddir) \
Sym(closedir) \
Sym(__divdi3) \
Sym(__udivdi3) \
Sym(__umoddi3)
#endif
+#ifndef SMP
+# define MAIN_CAP_SYM SymX(MainCapability)
+#else
+# define MAIN_CAP_SYM
+#endif
#define RTS_SYMBOLS \
Maybe_ForeignObj \
Maybe_Stable_Names \
Sym(StgReturn) \
- Sym(__stginit_PrelGHC) \
+ Sym(__stginit_GHCziPrim) \
Sym(init_stack) \
SymX(__stg_chk_0) \
SymX(__stg_chk_1) \
Sym(stg_enterStackTop) \
SymX(stg_gc_d1) \
+ SymX(stg_gc_l1) \
SymX(__stg_gc_enter_1) \
SymX(stg_gc_f1) \
SymX(stg_gc_noregs) \
SymX(stg_gen_chk) \
SymX(stg_yield_to_interpreter) \
SymX(ErrorHdrHook) \
- SymX(MainCapability) \
+ MAIN_CAP_SYM \
SymX(MallocFailHook) \
SymX(NoRunnableThreadsHook) \
SymX(OnExitHook) \
SymX(catchzh_fast) \
SymX(cmp_thread) \
SymX(complementIntegerzh_fast) \
+ SymX(cmpIntegerzh_fast) \
+ SymX(cmpIntegerIntzh_fast) \
SymX(createAdjustor) \
SymX(decodeDoublezh_fast) \
SymX(decodeFloatzh_fast) \
SymX(defaultsHook) \
SymX(delayzh_fast) \
+ SymX(deRefWeakzh_fast) \
+ SymX(deRefStablePtrzh_fast) \
SymX(divExactIntegerzh_fast) \
SymX(divModIntegerzh_fast) \
SymX(forkzh_fast) \
+ SymX(forkProcesszh_fast) \
SymX(freeHaskellFunctionPtr) \
+ SymX(freeStablePtr) \
SymX(gcdIntegerzh_fast) \
+ SymX(gcdIntegerIntzh_fast) \
+ SymX(gcdIntzh_fast) \
SymX(getProgArgv) \
SymX(getStablePtr) \
SymX(int2Integerzh_fast) \
+ SymX(integer2Intzh_fast) \
+ SymX(integer2Wordzh_fast) \
SymX(isDoubleDenormalized) \
SymX(isDoubleInfinite) \
SymX(isDoubleNaN) \
SymX(isDoubleNegativeZero) \
+ SymX(isEmptyMVarzh_fast) \
SymX(isFloatDenormalized) \
SymX(isFloatInfinite) \
SymX(isFloatNaN) \
SymX(isFloatNegativeZero) \
SymX(killThreadzh_fast) \
+ SymX(makeStablePtrzh_fast) \
SymX(minusIntegerzh_fast) \
SymX(mkApUpd0zh_fast) \
+ SymX(myThreadIdzh_fast) \
+ SymX(labelThreadzh_fast) \
SymX(newArrayzh_fast) \
SymX(newBCOzh_fast) \
SymX(newByteArrayzh_fast) \
SymX(rts_getInt32) \
SymX(rts_getPtr) \
SymX(rts_getStablePtr) \
+ SymX(rts_getThreadId) \
SymX(rts_getWord) \
SymX(rts_getWord32) \
SymX(rts_mkAddr) \
*/
static void ghciInsertStrHashTable ( char* obj_name,
HashTable *table,
- char* key,
+ char* key,
void *data
)
{
insertStrHashTable(table, (StgWord)key, data);
return;
}
- fprintf(stderr,
+ fprintf(stderr,
"\n\n"
"GHCi runtime linker: fatal error: I found a duplicate definition for symbol\n"
" %s\n"
* lookupSymbol() will subsequently see them by dlsym on the program's
* dl-handle. Returns NULL if success, otherwise ptr to an err msg.
*
- * In the PEi386 case, open the DLLs and put handles to them in a
+ * In the PEi386 case, open the DLLs and put handles to them in a
* linked list. When looking for a symbol, try all handles in the
* list.
*/
char* name;
struct _OpenedDLL* next;
HINSTANCE instance;
- }
+ }
OpenedDLL;
/* A list thereof. */
-char*
-addDLL ( __attribute((unused)) char* path, char* dll_name )
+char *
+addDLL( char *dll_name )
{
# if defined(OBJFORMAT_ELF)
void *hdl;
- char *buf;
char *errmsg;
- if (path == NULL || strlen(path) == 0) {
- buf = stgMallocBytes(strlen(dll_name) + 10, "addDll");
- sprintf(buf, "lib%s.so", dll_name);
- } else {
- buf = stgMallocBytes(strlen(path) + 1 + strlen(dll_name) + 10, "addDll");
- sprintf(buf, "%s/lib%s.so", path, dll_name);
- }
- hdl = dlopen(buf, RTLD_NOW | RTLD_GLOBAL );
- free(buf);
+ hdl= dlopen(dll_name, RTLD_NOW | RTLD_GLOBAL);
if (hdl == NULL) {
/* dlopen failed; return a ptr to the error msg. */
errmsg = dlerror();
buf = stgMallocBytes(strlen(dll_name) + 10, "addDLL");
sprintf(buf, "%s.DLL", dll_name);
instance = LoadLibrary(buf);
- free(buf);
if (instance == NULL) {
- /* LoadLibrary failed; return a ptr to the error msg. */
- return "addDLL: unknown error";
+ sprintf(buf, "%s.DRV", dll_name); // KAA: allow loading of drivers (like winspool.drv)
+ instance = LoadLibrary(buf);
+ if (instance == NULL) {
+ free(buf);
+
+ /* LoadLibrary failed; return a ptr to the error msg. */
+ return "addDLL: unknown error";
+ }
}
+ free(buf);
o_dll = stgMallocBytes( sizeof(OpenedDLL), "addDLL" );
o_dll->name = stgMallocBytes(1+strlen(dll_name), "addDLL");
/* -----------------------------------------------------------------------------
* lookup a symbol in the hash table
- */
+ */
void *
lookupSymbol( char *lbl )
{
if (sym != NULL) {
/*fprintf(stderr, "found %s in %s\n", lbl+1,o_dll->name); fflush(stderr);*/
return sym;
- }
+ }
}
sym = GetProcAddress(o_dll->instance, lbl);
if (sym != NULL) {
}
}
-static
+static
+__attribute((unused))
void *
lookupLocalSymbol( ObjectCode* oc, char *lbl )
{
a = lookupStrHashTable(symhash, sym);
if (a == NULL) {
/* fprintf(stderr, "ghci_enquire: can't find %s\n", sym); */
- }
+ }
else if (addr-DELTA <= a && a <= addr+DELTA) {
fprintf(stderr, "%p + %3d == `%s'\n", addr, a - addr, sym);
}
/* Check that we haven't already loaded this object. Don't give up
at this stage; ocGetNames_* will barf later. */
- {
+ {
ObjectCode *o;
int is_dup = 0;
for (o = objects; o; o = o->next) {
is_dup = 1;
}
if (is_dup) {
- fprintf(stderr,
+ fprintf(stderr,
"\n\n"
"GHCi runtime linker: warning: looks like you're trying to load the\n"
"same object file twice:\n"
*
* Returns: 1 if ok, 0 on error.
*/
-HsInt
+HsInt
resolveObjs( void )
{
ObjectCode *oc;
/* Remove all the mappings for the symbols within this
* object..
*/
- {
+ {
int i;
for (i = 0; i < oc->n_symbols; i++) {
if (oc->symbols[i] != NULL) {
*/
static void addProddableBlock ( ObjectCode* oc, void* start, int size )
{
- ProddableBlock* pb
+ ProddableBlock* pb
= stgMallocBytes(sizeof(ProddableBlock), "addProddableBlock");
/* fprintf(stderr, "aPB %p %p %d\n", oc, start, size); */
ASSERT(size > 0);
s->kind = kind;
s->next = oc->sections;
oc->sections = s;
+ /*
+ fprintf(stderr, "addSection: %p-%p (size %d), kind %d\n",
+ start, ((char*)end)-1, end - start + 1, kind );
+ */
}
* PEi386 specifics (Win32 targets)
* ------------------------------------------------------------------------*/
-/* The information for this linker comes from
- Microsoft Portable Executable
+/* The information for this linker comes from
+ Microsoft Portable Executable
and Common Object File Format Specification
revision 5.1 January 1998
which SimonM says comes from the MS Developer Network CDs.
+
+ It can be found there (on older CDs), but can also be found
+ online at:
+
+ http://www.microsoft.com/hwdev/hardware/PECOFF.asp
+
+ (this is Rev 6.0 from February 1999).
+
+ Things move, so if that fails, try searching for it via
+
+ http://www.google.com/search?q=PE+COFF+specification
+
+ The ultimate reference for the PE format is the Winnt.h
+ header file that comes with the Platform SDKs; as always,
+ implementations will drift wrt their documentation.
+
+ A good background article on the PE format is Matt Pietrek's
+ March 1994 article in Microsoft System Journal (MSJ)
+ (Vol.9, No. 3): "Peering Inside the PE: A Tour of the
+ Win32 Portable Executable File Format." The info in there
+ has recently been updated in a two part article in
+ MSDN magazine, issues Feb and March 2002,
+ "Inside Windows: An In-Depth Look into the Win32 Portable
+ Executable File Format"
+
+ John Levine's book "Linkers and Loaders" contains useful
+ info on PE too.
*/
-
+
#if defined(OBJFORMAT_PEi386)
typedef int Int32;
-typedef
+typedef
struct {
UInt16 Machine;
UInt16 NumberOfSections;
#define sizeof_COFF_header 20
-typedef
+typedef
struct {
UChar Name[8];
UInt32 VirtualSize;
UInt32 PointerToLinenumbers;
UInt16 NumberOfRelocations;
UInt16 NumberOfLineNumbers;
- UInt32 Characteristics;
+ UInt32 Characteristics;
}
COFF_section;
/* From PE spec doc, section 4.1 */
#define MYIMAGE_SCN_CNT_CODE 0x00000020
#define MYIMAGE_SCN_CNT_INITIALIZED_DATA 0x00000040
+#define MYIMAGE_SCN_LNK_NRELOC_OVFL 0x01000000
/* From PE spec doc, section 5.2.1 */
#define MYIMAGE_REL_I386_DIR32 0x0006
/* We use myindex to calculate array addresses, rather than
simply doing the normal subscript thing. That's because
- some of the above structs have sizes which are not
+ some of the above structs have sizes which are not
a whole number of words. GCC rounds their sizes up to a
whole number of words, which means that the address calcs
arising from using normal C indexing or pointer arithmetic
{
UChar* newstr;
/* If the string is longer than 8 bytes, look in the
- string table for it -- this will be correctly zero terminated.
+ string table for it -- this will be correctly zero terminated.
*/
if (name[0]==0 && name[1]==0 && name[2]==0 && name[3]==0) {
UInt32 strtab_offset = * (UInt32*)(name+4);
findPEi386SectionCalled ( ObjectCode* oc, char* name )
{
int i;
- COFF_header* hdr
+ COFF_header* hdr
= (COFF_header*)(oc->image);
- COFF_section* sectab
+ COFF_section* sectab
= (COFF_section*) (
- ((UChar*)(oc->image))
+ ((UChar*)(oc->image))
+ sizeof_COFF_header + hdr->SizeOfOptionalHeader
);
for (i = 0; i < hdr->NumberOfSections; i++) {
UChar* n1;
UChar* n2;
- COFF_section* section_i
+ COFF_section* section_i
= (COFF_section*)
myindex ( sizeof_COFF_section, sectab, i );
n1 = (UChar*) &(section_i->Name);
n2 = name;
- if (n1[0]==n2[0] && n1[1]==n2[1] && n1[2]==n2[2] &&
- n1[3]==n2[3] && n1[4]==n2[4] && n1[5]==n2[5] &&
+ if (n1[0]==n2[0] && n1[1]==n2[1] && n1[2]==n2[2] &&
+ n1[3]==n2[3] && n1[4]==n2[4] && n1[5]==n2[5] &&
n1[6]==n2[6] && n1[7]==n2[7])
return section_i;
}
# define my_isdigit(c) ((c) >= '0' && (c) <= '9')
int i, j;
if (sym[0] == 0) return;
- i = 0;
+ i = 0;
while (sym[i] != 0) i++;
i--;
j = i;
static int
ocVerifyImage_PEi386 ( ObjectCode* oc )
{
- int i, j;
+ int i;
+ UInt32 j, noRelocs;
COFF_header* hdr;
COFF_section* sectab;
COFF_symbol* symtab;
/* fprintf(stderr, "\nLOADING %s\n", oc->fileName); */
hdr = (COFF_header*)(oc->image);
sectab = (COFF_section*) (
- ((UChar*)(oc->image))
+ ((UChar*)(oc->image))
+ sizeof_COFF_header + hdr->SizeOfOptionalHeader
);
symtab = (COFF_symbol*) (
((UChar*)(oc->image))
- + hdr->PointerToSymbolTable
+ + hdr->PointerToSymbolTable
);
strtab = ((UChar*)symtab)
+ hdr->NumberOfSymbols * sizeof_COFF_symbol;
}
if ( (hdr->Characteristics & MYIMAGE_FILE_BYTES_REVERSED_HI)
/* || !(hdr->Characteristics & MYIMAGE_FILE_32BIT_MACHINE) */ ) {
- belch("Invalid PEi386 word size or endiannness: %d",
+ belch("Invalid PEi386 word size or endiannness: %d",
(int)(hdr->Characteristics));
return 0;
}
there are more than 64k relocations, despite claims to the
contrary. Hence this test. */
/* fprintf(stderr, "strtab size %d\n", * (UInt32*)strtab); */
- if (* (UInt32*)strtab > 600000) {
+#if 0
+ if ( (*(UInt32*)strtab) > 600000 ) {
/* Note that 600k has no special significance other than being
big enough to handle the almost-2MB-sized lumps that
constitute HSwin32*.o. */
belch("PEi386 object has suspiciously large string table; > 64k relocs?");
return 0;
}
+#endif
/* No further verification after this point; only debug printing. */
i = 0;
IF_DEBUG(linker, i=1);
if (i == 0) return 1;
- fprintf ( stderr,
+ fprintf ( stderr,
"sectab offset = %d\n", ((UChar*)sectab) - ((UChar*)hdr) );
- fprintf ( stderr,
+ fprintf ( stderr,
"symtab offset = %d\n", ((UChar*)symtab) - ((UChar*)hdr) );
- fprintf ( stderr,
+ fprintf ( stderr,
"strtab offset = %d\n", ((UChar*)strtab) - ((UChar*)hdr) );
fprintf ( stderr, "\n" );
- fprintf ( stderr,
+ fprintf ( stderr,
"Machine: 0x%x\n", (UInt32)(hdr->Machine) );
- fprintf ( stderr,
+ fprintf ( stderr,
"# sections: %d\n", (UInt32)(hdr->NumberOfSections) );
fprintf ( stderr,
"time/date: 0x%x\n", (UInt32)(hdr->TimeDateStamp) );
fprintf ( stderr,
"symtab offset: %d\n", (UInt32)(hdr->PointerToSymbolTable) );
- fprintf ( stderr,
+ fprintf ( stderr,
"# symbols: %d\n", (UInt32)(hdr->NumberOfSymbols) );
- fprintf ( stderr,
+ fprintf ( stderr,
"sz of opt hdr: %d\n", (UInt32)(hdr->SizeOfOptionalHeader) );
fprintf ( stderr,
"characteristics: 0x%x\n", (UInt32)(hdr->Characteristics) );
COFF_section* sectab_i
= (COFF_section*)
myindex ( sizeof_COFF_section, sectab, i );
- fprintf ( stderr,
+ fprintf ( stderr,
"\n"
"section %d\n"
" name `",
- i
+ i
);
printName ( sectab_i->Name, strtab );
- fprintf ( stderr,
+ fprintf ( stderr,
"'\n"
" vsize %d\n"
" vaddr %d\n"
((UChar*)(oc->image)) + sectab_i->PointerToRelocations
);
- for (j = 0; j < sectab_i->NumberOfRelocations; j++) {
+ if ( sectab_i->Characteristics & MYIMAGE_SCN_LNK_NRELOC_OVFL ) {
+ /* If the relocation field (a short) has overflowed, the
+ * real count can be found in the first reloc entry.
+ *
+ * See Section 4.1 (last para) of the PE spec (rev6.0).
+ */
+ COFF_reloc* rel = (COFF_reloc*)
+ myindex ( sizeof_COFF_reloc, reltab, 0 );
+ noRelocs = rel->VirtualAddress;
+ j = 1;
+ } else {
+ noRelocs = sectab_i->NumberOfRelocations;
+ j = 0;
+ }
+
+ for (; j < noRelocs; j++) {
COFF_symbol* sym;
COFF_reloc* rel = (COFF_reloc*)
myindex ( sizeof_COFF_reloc, reltab, j );
- fprintf ( stderr,
+ fprintf ( stderr,
" type 0x%-4x vaddr 0x%-8x name `",
- (UInt32)rel->Type,
+ (UInt32)rel->Type,
rel->VirtualAddress );
sym = (COFF_symbol*)
myindex ( sizeof_COFF_symbol, symtab, rel->SymbolTableIndex );
+ /* Hmm..mysterious looking offset - what's it for? SOF */
printName ( sym->Name, strtab -10 );
fprintf ( stderr, "'\n" );
}
fprintf ( stderr, "string table has size 0x%x\n", * (UInt32*)strtab );
fprintf ( stderr, "---START of string table---\n");
for (i = 4; i < *(Int32*)strtab; i++) {
- if (strtab[i] == 0)
- fprintf ( stderr, "\n"); else
+ if (strtab[i] == 0)
+ fprintf ( stderr, "\n"); else
fprintf( stderr, "%c", strtab[i] );
}
fprintf ( stderr, "--- END of string table---\n");
if (i >= (Int32)(hdr->NumberOfSymbols)) break;
symtab_i = (COFF_symbol*)
myindex ( sizeof_COFF_symbol, symtab, i );
- fprintf ( stderr,
+ fprintf ( stderr,
"symbol %d\n"
" name `",
- i
+ i
);
printName ( symtab_i->Name, strtab );
- fprintf ( stderr,
+ fprintf ( stderr,
"'\n"
" value 0x%x\n"
" 1+sec# %d\n"
(Int32)(symtab_i->SectionNumber),
(UInt32)symtab_i->Type,
(UInt32)symtab_i->StorageClass,
- (UInt32)symtab_i->NumberOfAuxSymbols
+ (UInt32)symtab_i->NumberOfAuxSymbols
);
i += symtab_i->NumberOfAuxSymbols;
i++;
UChar* sname;
void* addr;
int i;
-
+
hdr = (COFF_header*)(oc->image);
sectab = (COFF_section*) (
- ((UChar*)(oc->image))
+ ((UChar*)(oc->image))
+ sizeof_COFF_header + hdr->SizeOfOptionalHeader
);
symtab = (COFF_symbol*) (
((UChar*)(oc->image))
- + hdr->PointerToSymbolTable
+ + hdr->PointerToSymbolTable
);
strtab = ((UChar*)(oc->image))
+ hdr->PointerToSymbolTable
/* This is a non-empty .bss section. Allocate zeroed space for
it, and set its PointerToRawData field such that oc->image +
PointerToRawData == addr_of_zeroed_space. */
- zspace = stgCallocBytes(1, sectab_i->VirtualSize,
+ zspace = stgCallocBytes(1, sectab_i->VirtualSize,
"ocGetNames_PEi386(anonymous bss)");
sectab_i->PointerToRawData = ((UChar*)zspace) - ((UChar*)(oc->image));
addProddableBlock(oc, zspace, sectab_i->VirtualSize);
UChar* end;
UInt32 sz;
- SectionKind kind
+ SectionKind kind
= SECTIONKIND_OTHER;
COFF_section* sectab_i
= (COFF_section*)
IF_DEBUG(linker, belch("section name = %s\n", sectab_i->Name ));
# if 0
- /* I'm sure this is the Right Way to do it. However, the
+ /* I'm sure this is the Right Way to do it. However, the
alternative of testing the sectab_i->Name field seems to
work ok with Cygwin.
*/
- if (sectab_i->Characteristics & MYIMAGE_SCN_CNT_CODE ||
+ if (sectab_i->Characteristics & MYIMAGE_SCN_CNT_CODE ||
sectab_i->Characteristics & MYIMAGE_SCN_CNT_INITIALIZED_DATA)
kind = SECTIONKIND_CODE_OR_RODATA;
# endif
oc->symbols = stgMallocBytes(oc->n_symbols * sizeof(char*),
"ocGetNames_PEi386(oc->symbols)");
/* Call me paranoid; I don't care. */
- for (i = 0; i < oc->n_symbols; i++)
+ for (i = 0; i < oc->n_symbols; i++)
oc->symbols[i] = NULL;
i = 0;
if (symtab_i->StorageClass == MYIMAGE_SYM_CLASS_EXTERNAL
&& symtab_i->SectionNumber != MYIMAGE_SYM_UNDEFINED) {
/* This symbol is global and defined, viz, exported */
- /* for MYIMAGE_SYMCLASS_EXTERNAL
+ /* for MYIMAGE_SYMCLASS_EXTERNAL
&& !MYIMAGE_SYM_UNDEFINED,
- the address of the symbol is:
+ the address of the symbol is:
address of relevant section + offset in section
*/
- COFF_section* sectabent
- = (COFF_section*) myindex ( sizeof_COFF_section,
+ COFF_section* sectabent
+ = (COFF_section*) myindex ( sizeof_COFF_section,
sectab,
symtab_i->SectionNumber-1 );
addr = ((UChar*)(oc->image))
+ (sectabent->PointerToRawData
+ symtab_i->Value);
- }
+ }
else
if (symtab_i->SectionNumber == MYIMAGE_SYM_UNDEFINED
&& symtab_i->Value > 0) {
/* This symbol isn't in any section at all, ie, global bss.
Allocate zeroed space for it. */
- addr = stgCallocBytes(1, symtab_i->Value,
+ addr = stgCallocBytes(1, symtab_i->Value,
"ocGetNames_PEi386(non-anonymous bss)");
- addSection(oc, SECTIONKIND_RWDATA, addr,
+ addSection(oc, SECTIONKIND_RWDATA, addr,
((UChar*)addr) + symtab_i->Value - 1);
addProddableBlock(oc, addr, symtab_i->Value);
/* fprintf(stderr, "BSS section at 0x%x\n", addr); */
}
- if (addr != NULL) {
+ if (addr != NULL ) {
sname = cstring_from_COFF_symbol_name ( symtab_i->Name, strtab );
- /* fprintf(stderr,"addSymbol %p `%s'\n", addr,sname); */
+ /* fprintf(stderr,"addSymbol %p `%s \n", addr,sname); */
IF_DEBUG(linker, belch("addSymbol %p `%s'\n", addr,sname);)
ASSERT(i >= 0 && i < oc->n_symbols);
/* cstring_from_COFF_symbol_name always succeeds. */
ghciInsertStrHashTable(oc->fileName, symhash, sname, addr);
} else {
# if 0
- fprintf ( stderr,
+ fprintf ( stderr,
"IGNORING symbol %d\n"
" name `",
- i
+ i
);
printName ( symtab_i->Name, strtab );
- fprintf ( stderr,
+ fprintf ( stderr,
"'\n"
" value 0x%x\n"
" 1+sec# %d\n"
(Int32)(symtab_i->SectionNumber),
(UInt32)symtab_i->Type,
(UInt32)symtab_i->StorageClass,
- (UInt32)symtab_i->NumberOfAuxSymbols
+ (UInt32)symtab_i->NumberOfAuxSymbols
);
# endif
}
i++;
}
- return 1;
+ return 1;
}
UInt32 S;
UInt32* pP;
- int i, j;
+ int i;
+ UInt32 j, noRelocs;
/* ToDo: should be variable-sized? But is at least safe in the
sense of buffer-overrun-proof. */
hdr = (COFF_header*)(oc->image);
sectab = (COFF_section*) (
- ((UChar*)(oc->image))
+ ((UChar*)(oc->image))
+ sizeof_COFF_header + hdr->SizeOfOptionalHeader
);
symtab = (COFF_symbol*) (
((UChar*)(oc->image))
- + hdr->PointerToSymbolTable
+ + hdr->PointerToSymbolTable
);
strtab = ((UChar*)(oc->image))
+ hdr->PointerToSymbolTable
|| 0 == strcmp(".stabstr", sectab_i->Name))
continue;
- for (j = 0; j < sectab_i->NumberOfRelocations; j++) {
+ if ( sectab_i->Characteristics & MYIMAGE_SCN_LNK_NRELOC_OVFL ) {
+ /* If the relocation field (a short) has overflowed, the
+ * real count can be found in the first reloc entry.
+ *
+ * See Section 4.1 (last para) of the PE spec (rev6.0).
+ */
+ COFF_reloc* rel = (COFF_reloc*)
+ myindex ( sizeof_COFF_reloc, reltab, 0 );
+ noRelocs = rel->VirtualAddress;
+ fprintf(stderr, "Overflown relocs: %u\n", noRelocs);
+ j = 1;
+ } else {
+ noRelocs = sectab_i->NumberOfRelocations;
+ j = 0;
+ }
+
+
+ for (; j < noRelocs; j++) {
COFF_symbol* sym;
- COFF_reloc* reltab_j
+ COFF_reloc* reltab_j
= (COFF_reloc*)
myindex ( sizeof_COFF_reloc, reltab, j );
/* the location to patch */
pP = (UInt32*)(
- ((UChar*)(oc->image))
- + (sectab_i->PointerToRawData
+ ((UChar*)(oc->image))
+ + (sectab_i->PointerToRawData
+ reltab_j->VirtualAddress
- sectab_i->VirtualAddress )
);
A = *pP;
/* the symbol to connect to */
sym = (COFF_symbol*)
- myindex ( sizeof_COFF_symbol,
+ myindex ( sizeof_COFF_symbol,
symtab, reltab_j->SymbolTableIndex );
IF_DEBUG(linker,
- fprintf ( stderr,
+ fprintf ( stderr,
"reloc sec %2d num %3d: type 0x%-4x "
"vaddr 0x%-8x name `",
i, j,
- (UInt32)reltab_j->Type,
+ (UInt32)reltab_j->Type,
reltab_j->VirtualAddress );
printName ( sym->Name, strtab );
fprintf ( stderr, "'\n" ));
if (sym->StorageClass == MYIMAGE_SYM_CLASS_STATIC) {
- COFF_section* section_sym
+ COFF_section* section_sym
= findPEi386SectionCalled ( oc, sym->Name );
if (!section_sym) {
belch("%s: can't find section `%s'", oc->fileName, sym->Name);
}
checkProddableBlock(oc, pP);
switch (reltab_j->Type) {
- case MYIMAGE_REL_I386_DIR32:
- *pP = A + S;
+ case MYIMAGE_REL_I386_DIR32:
+ *pP = A + S;
break;
case MYIMAGE_REL_I386_REL32:
/* Tricky. We have to insert a displacement at
ASSERT(A==0);
*pP = S - ((UInt32)pP) - 4;
break;
- default:
- belch("%s: unhandled PEi386 relocation type %d",
+ default:
+ belch("%s: unhandled PEi386 relocation type %d",
oc->fileName, reltab_j->Type);
return 0;
}
}
}
-
+
IF_DEBUG(linker, belch("completed %s", oc->fileName));
return 1;
}
*/
#include <elf.h>
+#include <ctype.h>
static char *
findElfSection ( void* objImage, Elf32_Word sh_type )
&& i != ehdr->e_shstrndx
/* Ignore string tables named .stabstr, as they contain
debugging info. */
- && 0 != strcmp(".stabstr", sh_strtab + shdr[i].sh_name)
+ && 0 != memcmp(".stabstr", sh_strtab + shdr[i].sh_name, 8)
) {
ptr = ehdrC + shdr[i].sh_offset;
break;
switch (ehdr->e_machine) {
case EM_386: IF_DEBUG(linker,belch( "x86" )); break;
case EM_SPARC: IF_DEBUG(linker,belch( "sparc" )); break;
- default: IF_DEBUG(linker,belch( "unknown" ));
+ default: IF_DEBUG(linker,belch( "unknown" ));
belch("%s: unknown architecture", oc->fileName);
return 0;
}
IF_DEBUG(linker,belch(
- "\nSection header table: start %d, n_entries %d, ent_size %d",
+ "\nSection header table: start %d, n_entries %d, ent_size %d",
ehdr->e_shoff, ehdr->e_shnum, ehdr->e_shentsize ));
ASSERT (ehdr->e_shentsize == sizeof(Elf32_Shdr));
belch("%s: no section header string table", oc->fileName);
return 0;
} else {
- IF_DEBUG(linker,belch( "Section header string table is section %d",
+ IF_DEBUG(linker,belch( "Section header string table is section %d",
ehdr->e_shstrndx));
sh_strtab = ehdrC + shdr[ehdr->e_shstrndx].sh_offset;
}
IF_DEBUG(linker,fprintf(stderr, "size=%4d ", (int)shdr[i].sh_size ));
IF_DEBUG(linker,fprintf(stderr, "offs=%4d ", (int)shdr[i].sh_offset ));
IF_DEBUG(linker,fprintf(stderr, " (%p .. %p) ",
- ehdrC + shdr[i].sh_offset,
+ ehdrC + shdr[i].sh_offset,
ehdrC + shdr[i].sh_offset + shdr[i].sh_size - 1));
if (shdr[i].sh_type == SHT_REL) {
&& i != ehdr->e_shstrndx
/* Ignore string tables named .stabstr, as they contain
debugging info. */
- && 0 != strcmp(".stabstr", sh_strtab + shdr[i].sh_name)
+ && 0 != memcmp(".stabstr", sh_strtab + shdr[i].sh_name, 8)
) {
IF_DEBUG(linker,belch(" section %d is a normal string table", i ));
strtab = ehdrC + shdr[i].sh_offset;
nstrtab++;
}
- }
+ }
if (nstrtab != 1) {
belch("%s: no string tables, or too many", oc->fileName);
return 0;
}
nsymtabs = 0;
- IF_DEBUG(linker,belch( "\nSymbol tables" ));
+ IF_DEBUG(linker,belch( "\nSymbol tables" ));
for (i = 0; i < ehdr->e_shnum; i++) {
if (shdr[i].sh_type != SHT_SYMTAB) continue;
IF_DEBUG(linker,belch( "section %d is a symbol table", i ));
}
for (j = 0; j < nent; j++) {
IF_DEBUG(linker,fprintf(stderr, " %2d ", j ));
- IF_DEBUG(linker,fprintf(stderr, " sec=%-5d size=%-3d val=%5p ",
+ IF_DEBUG(linker,fprintf(stderr, " sec=%-5d size=%-3d val=%5p ",
(int)stab[j].st_shndx,
(int)stab[j].st_size,
(char*)stab[j].st_value ));
Elf32_Ehdr* ehdr = (Elf32_Ehdr*)ehdrC;
char* strtab = findElfSection ( ehdrC, SHT_STRTAB );
Elf32_Shdr* shdr = (Elf32_Shdr*) (ehdrC + ehdr->e_shoff);
- char* sh_strtab = ehdrC + shdr[ehdr->e_shstrndx].sh_offset;
ASSERT(symhash != NULL);
k = 0;
for (i = 0; i < ehdr->e_shnum; i++) {
+ /* Figure out what kind of section it is. Logic derived from
+ Figure 1.14 ("Special Sections") of the ELF document
+ ("Portable Formats Specification, Version 1.1"). */
+ Elf32_Shdr hdr = shdr[i];
+ SectionKind kind = SECTIONKIND_OTHER;
+ int is_bss = FALSE;
+
+ if (hdr.sh_type == SHT_PROGBITS
+ && (hdr.sh_flags & SHF_ALLOC) && (hdr.sh_flags & SHF_EXECINSTR)) {
+ /* .text-style section */
+ kind = SECTIONKIND_CODE_OR_RODATA;
+ }
+ else
+ if (hdr.sh_type == SHT_PROGBITS
+ && (hdr.sh_flags & SHF_ALLOC) && (hdr.sh_flags & SHF_WRITE)) {
+ /* .data-style section */
+ kind = SECTIONKIND_RWDATA;
+ }
+ else
+ if (hdr.sh_type == SHT_PROGBITS
+ && (hdr.sh_flags & SHF_ALLOC) && !(hdr.sh_flags & SHF_WRITE)) {
+ /* .rodata-style section */
+ kind = SECTIONKIND_CODE_OR_RODATA;
+ }
+ else
+ if (hdr.sh_type == SHT_NOBITS
+ && (hdr.sh_flags & SHF_ALLOC) && (hdr.sh_flags & SHF_WRITE)) {
+ /* .bss-style section */
+ kind = SECTIONKIND_RWDATA;
+ is_bss = TRUE;
+ }
- /* make a section entry for relevant sections */
- SectionKind kind = SECTIONKIND_OTHER;
- if (!strcmp(".data",sh_strtab+shdr[i].sh_name) ||
- !strcmp(".data1",sh_strtab+shdr[i].sh_name) ||
- !strcmp(".bss",sh_strtab+shdr[i].sh_name))
- kind = SECTIONKIND_RWDATA;
- if (!strcmp(".text",sh_strtab+shdr[i].sh_name) ||
- !strcmp(".rodata",sh_strtab+shdr[i].sh_name) ||
- !strcmp(".rodata1",sh_strtab+shdr[i].sh_name))
- kind = SECTIONKIND_CODE_OR_RODATA;
-
- if (!strcmp(".bss",sh_strtab+shdr[i].sh_name) && shdr[i].sh_size > 0) {
+ if (is_bss && shdr[i].sh_size > 0) {
/* This is a non-empty .bss section. Allocate zeroed space for
- it, and set its .sh_offset field such that
+ it, and set its .sh_offset field such that
ehdrC + .sh_offset == addr_of_zeroed_space. */
- char* zspace = stgCallocBytes(1, shdr[i].sh_size,
+ char* zspace = stgCallocBytes(1, shdr[i].sh_size,
"ocGetNames_ELF(BSS)");
shdr[i].sh_offset = ((char*)zspace) - ((char*)ehdrC);
- /*
- fprintf(stderr, "BSS section at 0x%x, size %d\n",
+ /*
+ fprintf(stderr, "BSS section at 0x%x, size %d\n",
zspace, shdr[i].sh_size);
*/
}
/* fill in the section info */
- addSection(oc, kind, ehdrC + shdr[i].sh_offset,
- ehdrC + shdr[i].sh_offset + shdr[i].sh_size - 1);
- if (kind != SECTIONKIND_OTHER && shdr[i].sh_size > 0)
+ if (kind != SECTIONKIND_OTHER && shdr[i].sh_size > 0) {
addProddableBlock(oc, ehdrC + shdr[i].sh_offset, shdr[i].sh_size);
+ addSection(oc, kind, ehdrC + shdr[i].sh_offset,
+ ehdrC + shdr[i].sh_offset + shdr[i].sh_size - 1);
+ }
if (shdr[i].sh_type != SHT_SYMTAB) continue;
nent = shdr[i].sh_size / sizeof(Elf32_Sym);
oc->n_symbols = nent;
- oc->symbols = stgMallocBytes(oc->n_symbols * sizeof(char*),
+ oc->symbols = stgMallocBytes(oc->n_symbols * sizeof(char*),
"ocGetNames_ELF(oc->symbols)");
for (j = 0; j < nent; j++) {
isLocal = FALSE;
ad = stgCallocBytes(1, stab[j].st_size, "ocGetNames_ELF(COMMON)");
/*
- fprintf(stderr, "COMMON symbol, size %d name %s\n",
+ fprintf(stderr, "COMMON symbol, size %d name %s\n",
stab[j].st_size, nm);
*/
/* Pointless to do addProddableBlock() for this area,
/* and it's a not a section or string table or anything silly */
( ELF32_ST_TYPE(stab[j].st_info)==STT_FUNC ||
ELF32_ST_TYPE(stab[j].st_info)==STT_OBJECT ||
- ELF32_ST_TYPE(stab[j].st_info)==STT_NOTYPE
+ ELF32_ST_TYPE(stab[j].st_info)==STT_NOTYPE
)
) {
/* Section 0 is the undefined section, hence > and not >=. */
ASSERT(secno > 0 && secno < ehdr->e_shnum);
- /*
+ /*
if (shdr[secno].sh_type == SHT_NOBITS) {
- fprintf(stderr, " BSS symbol, size %d off %d name %s\n",
+ fprintf(stderr, " BSS symbol, size %d off %d name %s\n",
stab[j].st_size, stab[j].st_value, nm);
}
*/
ad = ehdrC + shdr[ secno ].sh_offset + stab[j].st_value;
if (ELF32_ST_BIND(stab[j].st_info)==STB_LOCAL) {
- IF_DEBUG(linker,belch( "addOTabName(LOCL): %10p %s %s",
- ad, oc->fileName, nm ));
isLocal = TRUE;
} else {
IF_DEBUG(linker,belch( "addOTabName(GLOB): %10p %s %s",
oc->symbols[j] = nm;
/* Acquire! */
if (isLocal) {
- ghciInsertStrHashTable(oc->fileName, oc->lochash, nm, ad);
+ /* Ignore entirely. */
} else {
ghciInsertStrHashTable(oc->fileName, symhash, nm, ad);
}
} else {
/* Skip. */
- IF_DEBUG(linker,belch( "skipping `%s'",
+ IF_DEBUG(linker,belch( "skipping `%s'",
strtab + stab[j].st_name ));
/*
- fprintf(stderr,
+ fprintf(stderr,
"skipping bind = %d, type = %d, shndx = %d `%s'\n",
- (int)ELF32_ST_BIND(stab[j].st_info),
- (int)ELF32_ST_TYPE(stab[j].st_info),
+ (int)ELF32_ST_BIND(stab[j].st_info),
+ (int)ELF32_ST_TYPE(stab[j].st_info),
(int)stab[j].st_shndx,
strtab + stab[j].st_name
);
relocations appear to be of this form. */
static int
do_Elf32_Rel_relocations ( ObjectCode* oc, char* ehdrC,
- Elf32_Shdr* shdr, int shnum,
+ Elf32_Shdr* shdr, int shnum,
Elf32_Sym* stab, char* strtab )
{
int j;
Elf32_Addr A = *pP;
Elf32_Addr S;
- IF_DEBUG(linker,belch( "Rel entry %3d is raw(%6p %6p)",
+ IF_DEBUG(linker,belch( "Rel entry %3d is raw(%6p %6p)",
j, (void*)offset, (void*)info ));
if (!info) {
IF_DEBUG(linker,belch( " ZERO" ));
S = 0;
} else {
- /* First see if it is a nameless local symbol. */
- if (stab[ ELF32_R_SYM(info)].st_name == 0) {
- symbol = "(noname)";
+ Elf32_Sym sym = stab[ELF32_R_SYM(info)];
+ /* First see if it is a local symbol. */
+ if (ELF32_ST_BIND(sym.st_info) == STB_LOCAL) {
+ /* Yes, so we can get the address directly from the ELF symbol
+ table. */
+ symbol = sym.st_name==0 ? "(noname)" : strtab+sym.st_name;
S = (Elf32_Addr)
- (ehdrC + shdr[stab[ELF32_R_SYM(info)].st_shndx ].sh_offset
+ (ehdrC + shdr[ sym.st_shndx ].sh_offset
+ stab[ELF32_R_SYM(info)].st_value);
- } else {
- /* No? Should be in a symbol table then; first try the
- local one. */
- symbol = strtab+stab[ ELF32_R_SYM(info)].st_name;
- (void*)S = lookupLocalSymbol( oc, symbol );
- if ((void*)S == NULL)
- (void*)S = lookupSymbol( symbol );
- }
+
+ } else {
+ /* No, so look up the name in our global table. */
+ symbol = strtab + sym.st_name;
+ (void*)S = lookupSymbol( symbol );
+ }
if (!S) {
belch("%s: unknown symbol `%s'", oc->fileName, symbol);
return 0;
IF_DEBUG(linker,belch( "`%s' resolves to %p", symbol, (void*)S ));
}
IF_DEBUG(linker,belch( "Reloc: P = %p S = %p A = %p",
- (void*)P, (void*)S, (void*)A ));
+ (void*)P, (void*)S, (void*)A ));
checkProddableBlock ( oc, pP );
switch (ELF32_R_TYPE(info)) {
# ifdef i386_TARGET_ARCH
case R_386_32: *pP = S + A; break;
case R_386_PC32: *pP = S + A - P; break;
# endif
- default:
+ default:
belch("%s: unhandled ELF relocation(Rel) type %d\n",
oc->fileName, ELF32_R_TYPE(info));
return 0;
sparc-solaris relocations appear to be of this form. */
static int
do_Elf32_Rela_relocations ( ObjectCode* oc, char* ehdrC,
- Elf32_Shdr* shdr, int shnum,
+ Elf32_Shdr* shdr, int shnum,
Elf32_Sym* stab, char* strtab )
{
int j;
for (j = 0; j < nent; j++) {
Elf32_Addr offset = rtab[j].r_offset;
Elf32_Word info = rtab[j].r_info;
+# if defined(sparc_TARGET_ARCH) || defined(DEBUG)
Elf32_Sword addend = rtab[j].r_addend;
- Elf32_Addr P = ((Elf32_Addr)targ) + offset;
Elf32_Addr A = addend;
+# endif
+ Elf32_Addr P = ((Elf32_Addr)targ) + offset;
Elf32_Addr S;
# if defined(sparc_TARGET_ARCH)
/* This #ifdef only serves to avoid unused-var warnings. */
Elf32_Word w1, w2;
# endif
- IF_DEBUG(linker,belch( "Rel entry %3d is raw(%6p %6p %6p) ",
- j, (void*)offset, (void*)info,
+ IF_DEBUG(linker,belch( "Rel entry %3d is raw(%6p %6p %6p) ",
+ j, (void*)offset, (void*)info,
(void*)addend ));
if (!info) {
IF_DEBUG(linker,belch( " ZERO" ));
S = 0;
} else {
- /* First see if it is a nameless local symbol. */
- if (stab[ ELF32_R_SYM(info)].st_name == 0) {
- symbol = "(noname)";
+ Elf32_Sym sym = stab[ELF32_R_SYM(info)];
+ /* First see if it is a local symbol. */
+ if (ELF32_ST_BIND(sym.st_info) == STB_LOCAL) {
+ /* Yes, so we can get the address directly from the ELF symbol
+ table. */
+ symbol = sym.st_name==0 ? "(noname)" : strtab+sym.st_name;
S = (Elf32_Addr)
- (ehdrC + shdr[stab[ELF32_R_SYM(info)].st_shndx ].sh_offset
+ (ehdrC + shdr[ sym.st_shndx ].sh_offset
+ stab[ELF32_R_SYM(info)].st_value);
- } else {
- /* No? Should be in a symbol table then; first try the
- local one. */
- symbol = strtab+stab[ ELF32_R_SYM(info)].st_name;
- (void*)S = lookupLocalSymbol( oc, symbol );
- if ((void*)S == NULL)
- (void*)S = lookupSymbol( symbol );
- }
+
+ } else {
+ /* No, so look up the name in our global table. */
+ symbol = strtab + sym.st_name;
+ (void*)S = lookupSymbol( symbol );
+ }
if (!S) {
belch("%s: unknown symbol `%s'", oc->fileName, symbol);
return 0;
- /*
+ /*
S = 0x11223344;
fprintf ( stderr, "S %p A %p S+A %p S+A-P %p\n",S,A,S+A,S+A-P);
*/
IF_DEBUG(linker,belch( "`%s' resolves to %p", symbol, (void*)S ));
}
IF_DEBUG(linker,fprintf ( stderr, "Reloc: P = %p S = %p A = %p\n",
- (void*)P, (void*)S, (void*)A ));
+ (void*)P, (void*)S, (void*)A ));
checkProddableBlock ( oc, (void*)P );
switch (ELF32_R_TYPE(info)) {
# if defined(sparc_TARGET_ARCH)
- case R_SPARC_WDISP30:
+ case R_SPARC_WDISP30:
w1 = *pP & 0xC0000000;
w2 = (Elf32_Word)((S + A - P) >> 2);
ASSERT((w2 & 0xC0000000) == 0);
*pP = w1;
break;
/* According to the Sun documentation:
- R_SPARC_UA32
+ R_SPARC_UA32
This relocation type resembles R_SPARC_32, except it refers to an
unaligned word. That is, the word to be relocated must be treated
as four separate bytes with arbitrary alignment, not as a word
aligned according to the architecture requirements.
(JRS: which means that freeloading on the R_SPARC_32 case
- is probably wrong, but hey ...)
+ is probably wrong, but hey ...)
*/
case R_SPARC_UA32:
case R_SPARC_32:
*pP = w2;
break;
# endif
- default:
+ default:
belch("%s: unhandled ELF relocation(RelA) type %d\n",
oc->fileName, ELF32_R_TYPE(info));
return 0;
if (stab == NULL || strtab == NULL) {
belch("%s: can't find string or symbol table", oc->fileName);
- return 0;
+ return 0;
}
/* Process the relocation sections. */
relocation entries that, when done, make the stabs debugging
info point at the right places. We ain't interested in all
dat jazz, mun. */
- if (0 == strcmp(".rel.stab", sh_strtab + shdr[shnum].sh_name))
+ if (0 == memcmp(".rel.stab", sh_strtab + shdr[shnum].sh_name, 9))
continue;
if (shdr[shnum].sh_type == SHT_REL ) {
- ok = do_Elf32_Rel_relocations ( oc, ehdrC, shdr,
+ ok = do_Elf32_Rel_relocations ( oc, ehdrC, shdr,
shnum, stab, strtab );
if (!ok) return ok;
}
else
if (shdr[shnum].sh_type == SHT_RELA) {
- ok = do_Elf32_Rela_relocations ( oc, ehdrC, shdr,
+ ok = do_Elf32_Rela_relocations ( oc, ehdrC, shdr,
shnum, stab, strtab );
if (!ok) return ok;
}