projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Two things to do with -dsuppress-uniques
[ghc-hetmet.git]
/
rts
/
Linker.c
diff --git
a/rts/Linker.c
b/rts/Linker.c
index
2f40270
..
d84e4f7
100644
(file)
--- a/
rts/Linker.c
+++ b/
rts/Linker.c
@@
-1110,7
+1110,9
@@
void
initLinker( void )
{
RtsSymbolVal *sym;
initLinker( void )
{
RtsSymbolVal *sym;
+#if defined(OBJFORMAT_ELF) || defined(OBJFORMAT_MACHO)
int compileResult;
int compileResult;
+#endif
/* Make initLinker idempotent, so we can call it
before evey relevant operation; that means we
/* Make initLinker idempotent, so we can call it
before evey relevant operation; that means we
@@
-1119,7
+1121,7
@@
initLinker( void )
linker_init_done = 1;
}
linker_init_done = 1;
}
-#ifdef THREADED_RTS
+#if defined(THREADED_RTS) && (defined(OBJFORMAT_ELF) || defined(OBJFORMAT_MACHO))
initMutex(&dl_mutex);
#endif
stablehash = allocStrHashTable();
initMutex(&dl_mutex);
#endif
stablehash = allocStrHashTable();