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

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 1dcfda3..892dce7 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
@@ -396,9 +396,9 @@ dynamic_flags = [
   ,  ( "ddump-hi",               setDumpFlag Opt_D_dump_hi)
   ,  ( "ddump-minimal-imports",  setDumpFlag Opt_D_dump_minimal_imports)
   ,  ( "ddump-vect",         	 setDumpFlag Opt_D_dump_vect)
-  ,  ( "dcore-lint",       	 setDumpFlag Opt_DoCoreLinting)
-  ,  ( "dstg-lint",        	 setDumpFlag Opt_DoStgLinting)
-  ,  ( "dcmm-lint",		 setDumpFlag Opt_DoCmmLinting)
+  ,  ( "dcore-lint",       	 NoArg (setDynFlag Opt_DoCoreLinting))
+  ,  ( "dstg-lint",        	 NoArg (setDynFlag Opt_DoStgLinting))
+  ,  ( "dcmm-lint",		 NoArg (setDynFlag Opt_DoCmmLinting))
   ,  ( "dshow-passes",           NoArg (setRecompFlag False >> setVerbosity "2") )
 
 	------ Machine dependant (-m<blah>) stuff ---------------------------