projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
53a5d0b
)
Dynamically allocating the tix box breakpoint array
author
andy@galois.com
<unknown>
Tue, 9 Jan 2007 19:46:31 +0000
(19:46 +0000)
committer
andy@galois.com
<unknown>
Tue, 9 Jan 2007 19:46:31 +0000
(19:46 +0000)
rts/Hpc.c
patch
|
blob
|
history
diff --git
a/rts/Hpc.c
b/rts/Hpc.c
index
390e031
..
0eeb8dd
100644
(file)
--- 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
// 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
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);
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));
}
}
}
}