From: simonpj <unknown>
Date: Tue, 17 Jul 2001 15:48:40 +0000 (+0000)
Subject: [project @ 2001-07-17 15:48:40 by simonpj]
X-Git-Tag: Approximately_9120_patches~1522
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=70eb132ba7ee64f64944ff56760d0ffa7e99372b;p=ghc-hetmet.git

[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
--- 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