summaryrefslogtreecommitdiff
path: root/rts/Hpc.c
diff options
context:
space:
mode:
authorandy@galois.com <unknown>2007-01-09 19:46:31 +0000
committerandy@galois.com <unknown>2007-01-09 19:46:31 +0000
commit317a95824cde3c72c6234f5a28c4c53d452f964e (patch)
treebfb0e322606d2473ea5fc233be65c060a988d17f /rts/Hpc.c
parent53a5d0b0186379be1fb378b1ed591ff5f359178c (diff)
downloadhaskell-317a95824cde3c72c6234f5a28c4c53d452f964e.tar.gz
Dynamically allocating the tix box breakpoint array
Diffstat (limited to 'rts/Hpc.c')
-rw-r--r--rts/Hpc.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/rts/Hpc.c b/rts/Hpc.c
index 390e03198e..0eeb8dd2ad 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -260,7 +260,7 @@ static void breakPointCommand(HpcRixOp rixOp, StgThreadID rixTid);
// Breakpointing
static StgThreadID previousTid = 0;
static StgWord64 rixBPCounter = 0; // The global event breakpoint counter
-static int tixBoxBP[10000];
+static int *tixBoxBP;
static int specialOpBP = 0;
static HpcRixOp rixOpBack[WOP_SIZE]; // The actual op
static HpcRixOp rixTidBack[WOP_SIZE]; // Tid's before the op
@@ -507,6 +507,10 @@ startupHpc(void) {
rixCmdFile = fopen(hpcRixCmd,"r");
assert(rixCmdFile != NULL);
+ // 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));
}
}