projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix compilation of rts/win32/GetEnv.c
[ghc-hetmet.git]
/
rts
/
win32
/
GetEnv.c
diff --git
a/rts/win32/GetEnv.c
b/rts/win32/GetEnv.c
index
b8a4395
..
c472096
100644
(file)
--- a/
rts/win32/GetEnv.c
+++ b/
rts/win32/GetEnv.c
@@
-7,6
+7,7
@@
* ---------------------------------------------------------------------------*/
#include "Rts.h"
* ---------------------------------------------------------------------------*/
#include "Rts.h"
+#include "RtsUtils.h"
#include "GetEnv.h"
#include <windows.h>
#include "GetEnv.h"
#include <windows.h>
@@
-40,10
+41,10
@@
void getProgEnvv(int *out_envc, char **out_envv[]) {
envc++;
}
envc++;
}
- envv = stgMallocBytes(sizeof(char*) * (envc+1));
+ envv = stgMallocBytes(sizeof(char*) * (envc+1), "getProgEnvv");
i = 0;
i = 0;
- for (envp = env; *envp != NULL; envp += strlen(envp) + 1) {
+ for (envp = env; *envp != 0; envp += strlen(envp) + 1) {
envv[i] = envp;
i++;
}
envv[i] = envp;
i++;
}