[project @ 1999-03-03 19:20:41 by sof]

[ghc-hetmet.git] / ghc / rts / Main.c

diff --git a/ghc/rts/Main.c b/ghc/rts/Main.c
index c286b98..1b7bcba 100644 (file)
--- a/ghc/rts/Main.c
+++ b/ghc/rts/Main.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Main.c,v 1.4 1999/02/26 16:44:13 simonm Exp $
+ * $Id: Main.c,v 1.6 1999/03/03 19:20:42 sof Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -7,6 +7,8 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#define COMPILING_RTS_MAIN
+
 #include "Rts.h"
 #include "RtsAPI.h"
 #include "RtsFlags.h"
@@ -14,7 +16,6 @@
 #include "RtsUtils.h"
 
 #ifdef DEBUG
-#include "RtsFlags.h"  /* for debugging flags */
 #include "Printer.h"   /* for printing        */
 #endif
 
@@ -68,8 +69,6 @@ int main(int argc, char *argv[])
     case Interrupted:
       /* carry on */
     }
-    /* run all threads */
-    run_all_threads();
     shutdownHaskell();
     stg_exit(EXIT_SUCCESS);
 }