[commit: ghc] master: Fix compilation of rts/win32/GetEnv.c (00f0ddf)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/00f0ddf53c25522ba9287c4bdc133cafccb2fe6b

>---------------------------------------------------------------

commit 00f0ddf53c25522ba9287c4bdc133cafccb2fe6b
Author: unknown <ian at .(none)>
Date:   Sun Jun 5 19:52:42 2011 +0100

    Fix compilation of rts/win32/GetEnv.c

>---------------------------------------------------------------

 rts/win32/GetEnv.c |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

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++;
     }