From 135776b8b82d008bb7c66e009119a1bf94d41e7b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 24 Oct 2005 09:33:37 +0000
Subject: [PATCH] [project @ 2005-10-24 09:33:37 by simonmar] Fix a warning

---
 ghc/rts/StgCRun.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c
index c24620a..89fde5c 100644
--- a/ghc/rts/StgCRun.c
+++ b/ghc/rts/StgCRun.c
@@ -85,11 +85,11 @@ register double fake_f9 __asm__("$f9");
 StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
 {
     while (f) {
-	if (RtsFlags[0].DebugFlags.interpreter) {
+	IF_DEBUG(interpreter,
 	    debugBelch("Jumping to ");
 	    printPtr((P_)f); fflush(stdout);
 	    debugBelch("\n");
-	}
+	    );
 	f = (StgFunPtr) (f)();
     }
     return (StgThreadReturnCode)R1.i;
-- 
1.7.10.4