projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(F)SLIT -> (f)sLit in RtClosureInspect
[ghc-hetmet.git]
/
rts
/
Hpc.c
diff --git
a/rts/Hpc.c
b/rts/Hpc.c
index
3c725f4
..
1624079
100644
(file)
--- a/
rts/Hpc.c
+++ b/
rts/Hpc.c
@@
-182,9
+182,14
@@
static void hpc_init(void) {
hpc_tixdir = getenv("HPCTIXDIR");
if (hpc_tixdir != NULL) {
hpc_tixdir = getenv("HPCTIXDIR");
if (hpc_tixdir != NULL) {
- /* Make sure the directory is present
+ /* Make sure the directory is present;
+ * conditional code for mkdir lifted from lndir.c
*/
*/
+#ifdef WIN32
+ mkdir(hpc_tixdir);
+#else
mkdir(hpc_tixdir,0777);
mkdir(hpc_tixdir,0777);
+#endif
/* Then, try open the file
*/
tixFilename = (char *) malloc(strlen(hpc_tixdir) + strlen(prog_name) + 12);
/* Then, try open the file
*/
tixFilename = (char *) malloc(strlen(hpc_tixdir) + strlen(prog_name) + 12);