From: unknown <ian@.(none)>
Date: Sun, 5 Jun 2011 18:52:42 +0000 (+0100)
Subject: Fix compilation of rts/win32/GetEnv.c
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=00f0ddf53c25522ba9287c4bdc133cafccb2fe6b

Fix compilation of rts/win32/GetEnv.c
---

diff --git a/rts/win32/GetEnv.c b/rts/win32/GetEnv.c
index b8a4395..c472096 100644
--- a/rts/win32/GetEnv.c
+++ b/rts/win32/GetEnv.c
@@ -7,6 +7,7 @@
  * ---------------------------------------------------------------------------*/
 
 #include "Rts.h"
+#include "RtsUtils.h"
 #include "GetEnv.h"
 
 #include <windows.h>
@@ -40,10 +41,10 @@ void getProgEnvv(int *out_envc, char **out_envv[]) {
         envc++;
     }
 
-    envv = stgMallocBytes(sizeof(char*) * (envc+1));
+    envv = stgMallocBytes(sizeof(char*) * (envc+1), "getProgEnvv");
 
     i = 0;
-    for (envp = env; *envp != NULL; envp += strlen(envp) + 1) {
+    for (envp = env; *envp != 0; envp += strlen(envp) + 1) {
         envv[i] = envp;
         i++;
     }