summaryrefslogtreecommitdiff
path: root/driver
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2013-05-16 12:58:42 +0100
committerIan Lynagh <ian@well-typed.com>2013-05-16 21:15:09 +0100
commitc6a05a72d237cba0f17ea202f7c38ca0ac54aeb7 (patch)
treefac6610e2df0a9a3e5815920217b74bbcec13700 /driver
parent9fc2778cf20990524b13705a519b0c337ad197fe (diff)
downloadhaskell-c6a05a72d237cba0f17ea202f7c38ca0ac54aeb7.tar.gz
Make dynamic GHC no Windows installable too
We need different paths in the wrapper, as teh installed tree is a different shape to the build tree.
Diffstat (limited to 'driver')
-rw-r--r--driver/utils/dynwrapper.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/driver/utils/dynwrapper.c b/driver/utils/dynwrapper.c
index a84b5aef03..a9250f58ba 100644
--- a/driver/utils/dynwrapper.c
+++ b/driver/utils/dynwrapper.c
@@ -82,7 +82,7 @@ void setPath(void) {
n = s - exePath;
for (dir = path_dirs; *dir != NULL; dir++) {
- len += n + 7/* /../../ */ + lstrlen(*dir) + 1/* semicolon */;
+ len += n + lstrlen(*dir) + 1/* semicolon */;
}
len++; // NUL
@@ -94,8 +94,6 @@ void setPath(void) {
for (dir = path_dirs; *dir != NULL; dir++) {
StrCpy(s, exePath);
s += n;
- StrCpy(s, "/../../");
- s += 7;
StrCpy(s, *dir);
s += lstrlen(*dir);
s[0] = ';';