diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-11-08 00:21:19 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-08 00:54:05 +0100 |
| commit | 0e40c01db99680902fda4b7a84d7f15a92502730 (patch) | |
| tree | ebfe481eea93ebd01f7dffc2355f2d3b5e321b23 | |
| parent | 80d7ce8038a100f6797a89755c893c6f67f18a30 (diff) | |
| download | haskell-0e40c01db99680902fda4b7a84d7f15a92502730.tar.gz | |
Quote file paths in linker scripts
Reviewers: bgamari, austin
Reviewed By: austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1442
GHC Trac Issues: #11063
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 60897a3d04..3a027c24d1 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -2191,7 +2191,7 @@ joinObjectFiles dflags o_files output_fn = do then do script <- newTempName dflags "ldscript" cwd <- getCurrentDirectory - let o_files_abs = map (cwd </>) o_files + let o_files_abs = map (\x -> "\"" ++ (cwd </> x) ++ "\"") o_files writeFile script $ "INPUT(" ++ unwords o_files_abs ++ ")" ld_r [SysTools.FileOption "" script] ccInfo else if sLdSupportsFilelist mySettings |