projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
183d6c8
)
Fix compilation of rts/win32/GetEnv.c
author
unknown
<ian@.(none)>
Sun, 5 Jun 2011 18:52:42 +0000
(19:52 +0100)
committer
unknown
<ian@.(none)>
Sun, 5 Jun 2011 18:52:42 +0000
(19:52 +0100)
rts/win32/GetEnv.c
patch
|
blob
|
history
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++;
}