X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMain.c;h=c7a559fc14285144566f7e2ed0b6ad70b67b9808;hb=7d9eb2e45b4a9ff4cb053b1ec37602be88528b62;hp=c1b028ff1bb40f55fd51e4dd33097de77a423464;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/Main.c b/rts/Main.c
index c1b028f..c7a559f 100644
--- a/rts/Main.c
+++ b/rts/Main.c
@@ -15,16 +15,10 @@
 #include "Rts.h"
 #include "RtsMain.h"
 
-/* The symbol for the Haskell Main module's init function. It is safe to refer
- * to it here because this Main.o object file will only be linked in if we are
- * linking a Haskell program that uses a Haskell Main.main function.
- */
-extern void __stginit_ZCMain(void);
-
 /* Similarly, we can refer to the ZCMain_main_closure here */
 extern StgClosure ZCMain_main_closure;
 
 int main(int argc, char *argv[])
 {
-    return hs_main(argc, argv, &__stginit_ZCMain, &ZCMain_main_closure);
+    return hs_main(argc, argv, &ZCMain_main_closure);
 }