P_ tso, node;
sparkq spark;
{
- eventq newentry = (eventq) xmalloc(sizeof(struct event));
+ eventq newentry = (eventq) stgMallocBytes(sizeof(struct event), "newevent");
EVENT_PROC(newentry) = proc;
EVENT_CREATOR(newentry) = creator;
void
DumpGranEventAndNode(name, tso, node, proc)
-enum gran_event_types name;
-P_ tso, node;
-PROC proc;
+ enum gran_event_types name;
+ P_ tso, node;
+ PROC proc;
{
PROC pe = CURRENT_PROC;
W_ id;
if (name > GR_EVENT_MAX)
name = GR_EVENT_MAX;
- if (do_gr_binary) {
+ if (RTSflags.ParFlags.granSimStats_Binary) {
grputw(name);
grputw(pe);
abort(); /* die please: a single word doesn't represent long long times */
ullong_format_string(CURRENT_TIME, time_string, rtsFalse/*no commas!*/);
- if (do_gr_binary) {
+ if (RTSflags.ParFlags.granSimStats_Binary) {
grputw(name);
grputw(pe);
abort(); /* die please: a single word doesn't represent long long times */
char time_string[500]; /* ToDo: kill magic constant */
ullong_format_string(CURRENT_TIME, time_string, rtsFalse/*no commas!*/);
- if (do_gr_binary) {
+ if (RTSflags.ParFlags.granSimStats_Binary) {
grputw(GR_END);
grputw(pe);
abort(); /* die please: a single word doesn't represent long long times */
\begin{code}
#ifdef GRAN
-char gr_filename[32]; /*ToDo: magic short filename constant????? WDP 95/07 */
+char gr_filename[STATS_FILENAME_MAXLEN];
I_ do_gr_sim = 0;
int
I_ i;
if (do_gr_sim) {
- char *extension = do_gr_binary ? "gb" : "gr";
+ char *extension = RTSflags.ParFlags.granSimStats_Binary ? "gb" : "gr";
- sprintf(gr_filename, "%0.28s.%0.2s", prog_argv[0], extension);
+ sprintf(gr_filename, GR_FILENAME_FMT, prog_argv[0], extension);
if ((gr_file = fopen(gr_filename, "w")) == NULL) {
fprintf(stderr, "Can't open granularity simulation report file %s\n", gr_filename);
gran_load_cost, gran_store_cost, gran_float_cost, gran_heapalloc_cost);
fputs("\n\n++++++++++++++++++++\n\n", gr_file);
}
- if (do_gr_binary)
+ if (RTSflags.ParFlags.granSimStats_Binary)
grputw(sizeof(TIME));
Idlers = max_proc;
#endif /* GRAN */
#ifdef PAR
-char gr_filename[50]; /*ToDo: (small) magic constant alert!!!! WDP 95/07 */
+char gr_filename[STATS_FILENAME_MAXLEN];
-I_ do_gr_profile = 0;
I_ do_sp_profile = 0;
-I_ do_gr_binary = 0;
void
init_gr_profiling(rts_argc, rts_argv, prog_argc, prog_argv)
-char *prog_argv[], *rts_argv[];
-int prog_argc, rts_argc;
+ char *prog_argv[], *rts_argv[];
+ int prog_argc, rts_argc;
{
int i;
- char *extension = do_gr_binary ? "gb" : "gr";
+ char *extension = RTSflags.ParFlags.granSimStats_Binary ? "gb" : "gr";
- sprintf(gr_filename, "%0.28s.%03d.%0.2s", prog_argv[0], thisPE, extension);
+ sprintf(gr_filename, GR_FILENAME_FMT_GUM, prog_argv[0], thisPE, extension);
if ((gr_file = fopen(gr_filename, "w")) == NULL) {
fprintf(stderr, "Can't open activity report file %s\n", gr_filename);
fprintf(gr_file, "PE %2u [%lu]: TIME\n", thisPE, (TIME) startTime);
}
- if (do_gr_binary)
+ if (RTSflags.ParFlags.granSimStats_Binary)
grputw(sizeof(TIME));
}
#endif /* PAR */