From 00f0ddf53c25522ba9287c4bdc133cafccb2fe6b Mon Sep 17 00:00:00 2001 From: unknown Date: Sun, 5 Jun 2011 19:52:42 +0100 Subject: [PATCH] Fix compilation of rts/win32/GetEnv.c --- rts/win32/GetEnv.c | 5 +++-- 1 file 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 @@ -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++; } -- 1.7.10.4