new RTS flag: -V to modify the resolution of the RTS timer

[ghc-hetmet.git] / rts / Proftimer.c

diff --git a/rts/Proftimer.c b/rts/Proftimer.c
index 3b49915..ce20c49 100644 (file)
--- a/rts/Proftimer.c
+++ b/rts/Proftimer.c
@@ -57,9 +57,6 @@ initProfTimer( void )
 {
     performHeapProfile = rtsFalse;
 
-    RtsFlags.ProfFlags.profileIntervalTicks = 
-       RtsFlags.ProfFlags.profileInterval / TICK_MILLISECS;
-
     ticks_to_heap_profile = RtsFlags.ProfFlags.profileIntervalTicks;
 
     startHeapProfTimer();