X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FHpc.c;h=c474d8121b35c0d64949199979c872c40fae8e79;hb=150cc9e2e4657cc58bd7ec4c15e5cb72f2e1c0f6;hp=823439dd21d2d026bfeabf32da8cf7c990f8d03e;hpb=ebf733111484edc973797025418cba8f096246f6;p=ghc-hetmet.git

diff --git a/rts/Hpc.c b/rts/Hpc.c
index 823439d..c474d81 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -471,6 +471,7 @@ startupHpc(void) {
     int comma;
     Info *tmpModule;  
     int rixFD, rixCmdFD;
+    int tixCount = 0;
 
     assert(hpc_inited);
 
@@ -511,6 +512,8 @@ startupHpc(void) {
 	      tmpModule->modName,
 	      tmpModule->tickCount);
 
+      tixCount += tmpModule->tickCount;
+
       debugTrace(DEBUG_hpc,"(tracer)%s: %u (offset=%u)\n",
 	      tmpModule->modName,
 	      tmpModule->tickCount,
@@ -523,7 +526,7 @@ startupHpc(void) {
     // Allocate the tixBox breakpoint array
     // These are set to 1 if you want to 
     // stop at a specific breakpoint
-    tixBoxBP = (int *)calloc(1,sizeof(int));
+    tixBoxBP = (int *)calloc(tixCount,sizeof(int));
   }
 
 }