projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
de981f8
)
[project @ 2005-10-24 09:33:37 by simonmar]
author
simonmar
<unknown>
Mon, 24 Oct 2005 09:33:37 +0000
(09:33 +0000)
committer
simonmar
<unknown>
Mon, 24 Oct 2005 09:33:37 +0000
(09:33 +0000)
Fix a warning
ghc/rts/StgCRun.c
patch
|
blob
|
history
diff --git
a/ghc/rts/StgCRun.c
b/ghc/rts/StgCRun.c
index
c24620a
..
89fde5c
100644
(file)
--- 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;