diff options
author | Ian Lynagh <ian@well-typed.com> | 2013-05-16 12:58:42 +0100 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2013-05-16 21:15:09 +0100 |
commit | c6a05a72d237cba0f17ea202f7c38ca0ac54aeb7 (patch) | |
tree | fac6610e2df0a9a3e5815920217b74bbcec13700 /driver | |
parent | 9fc2778cf20990524b13705a519b0c337ad197fe (diff) | |
download | haskell-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.c | 4 |
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] = ';'; |