[project @ 2001-07-17 15:48:40 by simonpj]

Add comment and use backslash consistently

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 0e054ed..1f7a038 100644 (file)
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -241,8 +241,16 @@ initSysTools minusB_args
        --      pick up whatever happens to be lying around in the path,
        --      possibly including those from a cygwin install on the target,
        --      which is exactly what we're trying to avoid.
-       ; let gcc_path  | am_installed = installed_bin ("gcc -B" ++ "\"" ++ (installed "gcc-lib/") ++ "\"")
+       ; let gcc_path  | am_installed = installed_bin ("gcc -B\"" ++ installed "gcc-lib\\\"")
                        | otherwise    = cGCC
+               -- The trailing "\\" is absolutely essential; gcc seems
+               -- to construct file names simply by concatenating to this
+               -- -B path with no extra slash.
+               -- We use "\\" rather than "/" because gcc_path is in NATIVE format
+               --      (see comments with declarations of global variables)
+               --
+               -- The quotes round the -B argument are in case TopDir has spaces in it
+
              perl_path | am_installed = installed_bin cGHC_PERL
                        | otherwise    = cGHC_PERL