projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Include package documentation, n-th attempt...
[ghc-hetmet.git]
/
rts
/
StgCRun.c
diff --git
a/rts/StgCRun.c
b/rts/StgCRun.c
index
ba27ff2
..
376e824
100644
(file)
--- a/
rts/StgCRun.c
+++ b/
rts/StgCRun.c
@@
-87,13
+87,11
@@
register double fake_f9 __asm__("$f9");
StgRegTable * StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
{
while (f) {
StgRegTable * StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
{
while (f) {
- /* XXX Disabled due to RtsFlags[]/RtsFlags mismatch
IF_DEBUG(interpreter,
debugBelch("Jumping to ");
printPtr((P_)f); fflush(stdout);
debugBelch("\n");
);
IF_DEBUG(interpreter,
debugBelch("Jumping to ");
printPtr((P_)f); fflush(stdout);
debugBelch("\n");
);
- */
f = (StgFunPtr) (f)();
}
return (StgRegTable *)R1.p;
f = (StgFunPtr) (f)();
}
return (StgRegTable *)R1.p;