diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-03-08 22:05:12 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-03-09 15:39:24 +0000 |
| commit | 7a87dab5d425098a2e05c0ed07bc3885c4396a67 (patch) | |
| tree | 3b8128138a11a42cf5df645559f56524a86fcaf1 | |
| parent | 0a51aa5e271eb58a194ccd422da43c56a5ae2f47 (diff) | |
| download | haskell-7a87dab5d425098a2e05c0ed07bc3885c4396a67.tar.gz | |
Remove a now-redundant hack
| -rw-r--r-- | compiler/main/DynFlags.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index b179420c7f..0b78167d19 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1831,17 +1831,6 @@ parseDynamicFlagsFull activeFlags cmdline dflags0 args = do throwGhcExceptionIO (CmdLineError ("combination not supported: " ++ intercalate "/" (map wayDesc theWays))) - -- TODO: This is an ugly hack. Do something better. - -- -fPIC affects the CMM code we generate, so if - -- we are in -dynamic-too mode we need -fPIC to be on during the - -- shared part of the compilation. - let doingDynamicToo = gopt Opt_BuildDynamicToo dflags3 - platform = targetPlatform dflags3 - dflags4 = if doingDynamicToo - then foldr setGeneralFlag' dflags3 - (wayGeneralFlags platform WayDyn) - else dflags3 - {- TODO: This test doesn't quite work: We don't want to give an error when e.g. compiling a C file, only when compiling Haskell files. |