projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't show the ghci :? output in the user guide
[ghc-hetmet.git]
/
rts
/
Timer.c
diff --git
a/rts/Timer.c
b/rts/Timer.c
index
8088600
..
586991a
100644
(file)
--- a/
rts/Timer.c
+++ b/
rts/Timer.c
@@
-42,9
+42,7
@@
static
void
handle_tick(int unused STG_UNUSED)
{
void
handle_tick(int unused STG_UNUSED)
{
-#ifdef PROFILING
handleProfTick();
handleProfTick();
-#endif
if (RtsFlags.ConcFlags.ctxtSwitchTicks > 0) {
ticks_to_ctxt_switch--;
if (ticks_to_ctxt_switch <= 0) {
if (RtsFlags.ConcFlags.ctxtSwitchTicks > 0) {
ticks_to_ctxt_switch--;
if (ticks_to_ctxt_switch <= 0) {
@@
-83,18
+81,19
@@
handle_tick(int unused STG_UNUSED)
#endif
}
#endif
}
-int
+void
startTimer(void)
{
startTimer(void)
{
-#ifdef PROFILING
initProfTimer();
initProfTimer();
-#endif
-
- return startTicker(RtsFlags.MiscFlags.tickInterval, handle_tick);
+ if (RtsFlags.MiscFlags.tickInterval != 0) {
+ startTicker(RtsFlags.MiscFlags.tickInterval, handle_tick);
+ }
}
}
-int
+void
stopTimer(void)
{
stopTimer(void)
{
- return stopTicker();
+ if (RtsFlags.MiscFlags.tickInterval != 0) {
+ stopTicker();
+ }
}
}