Revert "Fix -dynamic-too on Windows"
authorIan Lynagh <ian@well-typed.com>
Wed, 22 May 2013 12:41:09 +0000 (13:41 +0100)
committerIan Lynagh <ian@well-typed.com>
Sat, 25 May 2013 22:42:07 +0000 (23:42 +0100)
This reverts commit 5734f7afcc2b9acf857f8e0f745185bf01b91148.

It didn't fully fix -dynamic-too on Windows

compiler/main/TidyPgm.lhs

index 6213663..1c6bb39 100644 (file)
@@ -1180,20 +1180,7 @@ hasCafRefs dflags this_pkg this_mod p arity expr
   | otherwise               = NoCafRefs
  where
   mentions_cafs = isFastTrue (cafRefsE dflags p expr)
-  is_dynamic_name n = if gopt Opt_BuildDynamicToo dflags
-                      then -- If we're building the dynamic way too,
-                           -- then we need to check whether it's a
-                           -- dynamic name there too. Note that this
-                           -- means that the vanila code is more
-                           -- pessimistic on Windows when -dynamic-too
-                           -- is used, but the alternative is that
-                           -- -dynamic-too is unusable on Windows
-                           -- as even the interfaces in the integer
-                           -- package don't match.
-                           is_dynamic_name' dflags n ||
-                           is_dynamic_name' (doDynamicToo dflags) n
-                      else is_dynamic_name' dflags n
-  is_dynamic_name' dflags' = isDllName dflags' this_pkg this_mod
+  is_dynamic_name = isDllName dflags this_pkg this_mod
   is_caf = not (arity > 0 || rhsIsStatic (targetPlatform dflags) is_dynamic_name expr)
 
   -- NB. we pass in the arity of the expression, which is expected