From 70eb132ba7ee64f64944ff56760d0ffa7e99372b Mon Sep 17 00:00:00 2001 From: simonpj Date: Tue, 17 Jul 2001 15:48:40 +0000 Subject: [PATCH] [project @ 2001-07-17 15:48:40 by simonpj] Add comment and use backslash consistently --- ghc/compiler/main/SysTools.lhs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs index 0e054ed..1f7a038 100644 --- 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 -- 1.7.10.4