X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverFlags.hs;h=c4eea5e46aa2a9e19e9b8e44158e15787c1bd7cc;hb=0aa7f2eed099a173f403de9386cf50cc313022ce;hp=1dcfda30c0af6c315f679f0f7ae91eb1987912e8;hpb=c560ae86eb28062f965b39fd43792d9dd4950011;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 1dcfda3..c4eea5e 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -183,7 +183,7 @@ static_flags =
   ,  ( "S"		, PassFlag (setMode (StopBefore As)))
   ,  ( "-make"		, PassFlag (setMode DoMake))
   ,  ( "-interactive"	, PassFlag (setMode DoInteractive))
-  ,  ( "-mk-dll"	, PassFlag (setMode DoMkDLL))
+  ,  ( "-mk-dll"	, NoArg (writeIORef v_GhcLink NoLink))
   ,  ( "e"              , HasArg   (\s -> setMode (DoEval s) "-e"))
 
 	-- -fno-code says to stop after Hsc but don't generate any code.
@@ -293,8 +293,8 @@ static_flags =
   ,  ( "optdll"		, HasArg (add v_Opt_dll) )
 
 	----- Linker --------------------------------------------------------
-  ,  ( "c"		, NoArg (writeIORef v_NoLink True) )
-  ,  ( "no-link"	, NoArg (writeIORef v_NoLink True) )	-- Deprecated
+  ,  ( "c"		, NoArg (writeIORef v_GhcLink NoLink) )
+  ,  ( "no-link"	, NoArg (writeIORef v_GhcLink NoLink) )	-- Deprecated
   ,  ( "static" 	, NoArg (writeIORef v_Static True) )
   ,  ( "dynamic"        , NoArg (writeIORef v_Static False) )
   ,  ( "rdynamic"       , NoArg (return ()) ) -- ignored for compat w/ gcc