X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSchedule.h;h=0e2e496f3ff2da71caf5a9128853bb5ba73adcdb;hb=14f70d834589f134c8fbeaa2e0f5f56cba3eab28;hp=553c2a20ddaab466e68f994bac9ac1bf6ed3988c;hpb=eba7b660a36878cd8d926845807913d7ec5734c9;p=ghc-hetmet.git

diff --git a/ghc/rts/Schedule.h b/ghc/rts/Schedule.h
index 553c2a2..0e2e496 100644
--- a/ghc/rts/Schedule.h
+++ b/ghc/rts/Schedule.h
@@ -287,12 +287,6 @@ emptyThreadQueues(Capability *cap)
     ;
 }
 
-STATIC_INLINE void
-dirtyTSO (StgTSO *tso)
-{
-    tso->flags |= TSO_DIRTY;
-}
-
 #ifdef DEBUG
 void sched_belch(char *s, ...)
    GNU_ATTRIBUTE(format (printf, 1, 2));
@@ -300,5 +294,11 @@ void sched_belch(char *s, ...)
 
 #endif /* !IN_STG_CODE */
 
+STATIC_INLINE void
+dirtyTSO (StgTSO *tso)
+{
+    tso->flags |= TSO_DIRTY;
+}
+
 #endif /* SCHEDULE_H */