[commit: ghc] master: Remove a now-redundant hack (7a87dab)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7a87dab5d425098a2e05c0ed07bc3885c4396a67

>---------------------------------------------------------------

commit 7a87dab5d425098a2e05c0ed07bc3885c4396a67
Author: Ian Lynagh <ian at well-typed.com>
Date:   Fri Mar 8 22:05:12 2013 +0000

    Remove a now-redundant hack

>---------------------------------------------------------------

 compiler/main/DynFlags.hs | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index b179420..0b78167 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.