projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 2004-11-10 04:17:50 by wolfgang]
[ghc-hetmet.git]
/
ghc
/
rts
/
Timer.c
diff --git
a/ghc/rts/Timer.c
b/ghc/rts/Timer.c
index
5425116
..
013fd06
100644
(file)
--- a/
ghc/rts/Timer.c
+++ b/
ghc/rts/Timer.c
@@
-35,6
+35,7
@@
static int ticks_to_ctxt_switch = 0;
* At each occurrence of a tick, the OS timer will invoke
* handle_tick().
*/
+static
void
handle_tick(int unused STG_UNUSED)
{
@@
-57,7
+58,7
@@
startTimer(nat ms)
initProfTimer();
#endif
- return startTicker(ms);
+ return startTicker(ms, handle_tick);
}
int