diff options
| author | unknown <ian@.(none)> | 2011-06-05 19:52:42 +0100 |
|---|---|---|
| committer | unknown <ian@.(none)> | 2011-06-05 19:52:42 +0100 |
| commit | 00f0ddf53c25522ba9287c4bdc133cafccb2fe6b (patch) | |
| tree | 81f35fc22423b75e83e15386eada78f211ddb869 /rts/win32/GetEnv.c | |
| parent | 183d6c8ed66e25e72017e891fc1a07bda937f087 (diff) | |
| download | haskell-00f0ddf53c25522ba9287c4bdc133cafccb2fe6b.tar.gz | |
Fix compilation of rts/win32/GetEnv.c
Diffstat (limited to 'rts/win32/GetEnv.c')
| -rw-r--r-- | 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 b8a43951a9..c4720961d3 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++; } |