diff options
Diffstat (limited to 'rts/Linker.c')
| -rw-r--r-- | rts/Linker.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 81a267db1b..e2817ad104 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -137,16 +137,6 @@ #include <sys/tls.h> #endif -// Defining this as 'int' rather than 'const int' means that we don't get -// warnings like -// error: function might be possible candidate for attribute ‘noreturn’ -// from gcc: -#ifdef DYNAMIC_GHC_PROGRAMS -int dynamicGhcPrograms = 1; -#else -int dynamicGhcPrograms = 0; -#endif - /* Hash table mapping symbol names to Symbol */ static /*Str*/HashTable *symhash; @@ -2183,10 +2173,6 @@ loadArchive( pathchar *path ) IF_DEBUG(linker, debugBelch("loadArchive: start\n")); IF_DEBUG(linker, debugBelch("loadArchive: Loading archive `%" PATH_FMT" '\n", path)); - if (dynamicGhcPrograms) { - barf("loadArchive called, but using dynamic GHC (%s)", path); - } - gnuFileIndex = NULL; gnuFileIndexSize = 0; @@ -2578,10 +2564,6 @@ loadObj( pathchar *path ) #endif IF_DEBUG(linker, debugBelch("loadObj %" PATH_FMT "\n", path)); - if (dynamicGhcPrograms) { - barf("loadObj called, but using dynamic GHC (%s)", path); - } - initLinker(); /* debugBelch("loadObj %s\n", path ); */ |