diff options
author | andy@galois.com <unknown> | 2007-01-09 19:46:31 +0000 |
---|---|---|
committer | andy@galois.com <unknown> | 2007-01-09 19:46:31 +0000 |
commit | 317a95824cde3c72c6234f5a28c4c53d452f964e (patch) | |
tree | bfb0e322606d2473ea5fc233be65c060a988d17f /rts/Hpc.c | |
parent | 53a5d0b0186379be1fb378b1ed591ff5f359178c (diff) | |
download | haskell-317a95824cde3c72c6234f5a28c4c53d452f964e.tar.gz |
Dynamically allocating the tix box breakpoint array
Diffstat (limited to 'rts/Hpc.c')
-rw-r--r-- | rts/Hpc.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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)); } } |