From f3a8297c1e3b9b5b645afdf6f3d505adbe1a19dc Mon Sep 17 00:00:00 2001
From: "andy@galois.com" <unknown>
Date: Fri, 11 Apr 2008 22:05:10 +0000
Subject: [PATCH] Fixing HPCTIXDIR problem with mkdir usage on Windows

---
 rts/Hpc.c |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/rts/Hpc.c b/rts/Hpc.c
index 3c725f4..1624079 100644
--- 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) {
-    /* 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);
+#endif
     /* Then, try open the file
      */
     tixFilename = (char *) malloc(strlen(hpc_tixdir) + strlen(prog_name) + 12);
-- 
1.7.10.4