projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-01-10 12:38:57 by partain]
[ghc-hetmet.git]
/
ghc
/
runtime
/
main
/
Threads.lc
diff --git
a/ghc/runtime/main/Threads.lc
b/ghc/runtime/main/Threads.lc
index
a767ec9
..
a5f175f
100644
(file)
--- a/
ghc/runtime/main/Threads.lc
+++ b/
ghc/runtime/main/Threads.lc
@@
-2195,7
+2195,7
@@
PROC p;
#if defined(GRAN)
I_ do_gr_sim = 0;
FILE *gr_file = NULL;
#if defined(GRAN)
I_ do_gr_sim = 0;
FILE *gr_file = NULL;
-char gr_filename[32];
+char gr_filename[STATS_FILENAME_MAXLEN];
init_gr_simulation(rts_argc,rts_argv,prog_argc,prog_argv)
char *prog_argv[], *rts_argv[];
init_gr_simulation(rts_argc,rts_argv,prog_argc,prog_argv)
char *prog_argv[], *rts_argv[];
@@
-2206,7
+2206,7
@@
int prog_argc, rts_argc;
if(do_gr_sim)
{
char *extension = do_gr_binary? "gb": "gr";
if(do_gr_sim)
{
char *extension = do_gr_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 )
{
if ((gr_file = fopen(gr_filename,"w")) == NULL )
{
@@
-2326,9
+2326,9
@@
static void
init_qp_profiling(STG_NO_ARGS)
{
I_ i;
init_qp_profiling(STG_NO_ARGS)
{
I_ i;
- char qp_filename[32];
+ char qp_filename[STATS_FILENAME_MAXLEN];
- sprintf(qp_filename, "%0.24s.qp", prog_argv[0]);
+ sprintf(qp_filename, QP_FILENAME_FMT, prog_argv[0]);
if ((qp_file = fopen(qp_filename,"w")) == NULL ) {
fprintf(stderr, "Can't open quasi-parallel profile report file %s\n",
qp_filename);
if ((qp_file = fopen(qp_filename,"w")) == NULL ) {
fprintf(stderr, "Can't open quasi-parallel profile report file %s\n",
qp_filename);
@@
-3646,9
+3646,9
@@
static void
init_qp_profiling(STG_NO_ARGS)
{
I_ i;
init_qp_profiling(STG_NO_ARGS)
{
I_ i;
- char qp_filename[32];
+ char qp_filename[STATS_FILENAME_MAXLEN];
- sprintf(qp_filename, "%0.24s.qp", prog_argv[0]);
+ sprintf(qp_filename, QP_FILENAME_FMT, prog_argv[0]);
if ((qp_file = fopen(qp_filename,"w")) == NULL ) {
fprintf(stderr, "Can't open quasi-parallel profile report file %s\n",
qp_filename);
if ((qp_file = fopen(qp_filename,"w")) == NULL ) {
fprintf(stderr, "Can't open quasi-parallel profile report file %s\n",
qp_filename);