projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new RTS flag: -V to modify the resolution of the RTS timer
[ghc-hetmet.git]
/
rts
/
PrimOps.cmm
diff --git
a/rts/PrimOps.cmm
b/rts/PrimOps.cmm
index
153baaa
..
990d6f3
100644
(file)
--- a/
rts/PrimOps.cmm
+++ b/
rts/PrimOps.cmm
@@
-1200,7
+1200,7
@@
atomicallyzh_fast
/* Nested transactions are not allowed; raise an exception */
if (old_trec != NO_TREC) {
/* Nested transactions are not allowed; raise an exception */
if (old_trec != NO_TREC) {
- R1 = GHCziIOBase_NestedAtomically_closure;
+ R1 = base_GHCziIOBase_NestedAtomically_closure;
jump raisezh_fast;
}
jump raisezh_fast;
}
@@
-1975,8
+1975,8
@@
delayzh_fast
#else
W_ time;
#else
W_ time;
- time = foreign "C" getourtimeofday();
- target = (R1 / (TICK_MILLISECS*1000)) + time;
+ time = foreign "C" getourtimeofday() [R1];
+ target = (R1 / (TO_W_(RtsFlags_MiscFlags_tickInterval(RtsFlags))*1000)) + time;
StgTSO_block_info(CurrentTSO) = target;
/* Insert the new thread in the sleeping queue. */
StgTSO_block_info(CurrentTSO) = target;
/* Insert the new thread in the sleeping queue. */