[project @ 2004-09-12 12:12:18 by panne]

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

diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c
index b1d8b5a..db69424 100644 (file)
--- a/ghc/rts/StgCRun.c
+++ b/ghc/rts/StgCRun.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.42 2004/08/13 13:10:46 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2003
  *
@@ -69,6 +68,7 @@ register double fake_f9 __asm__("$f9");
 #include "Rts.h"
 #include "StgRun.h"
 #include "RtsFlags.h"
+#include "OSThreads.h"
 #include "Capability.h"
 
 #ifdef DEBUG
@@ -86,9 +86,9 @@ StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
 {
     while (f) {
        if (RtsFlags[0].DebugFlags.interpreter) {
-           fprintf(stderr,"Jumping to ");
+           debugBelch("Jumping to ");
            printPtr((P_)f); fflush(stdout);
-           fprintf(stderr,"\n");
+           debugBelch("\n");
        }
        f = (StgFunPtr) (f)();
     }