-----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.25 2000/12/04 16:42:14 rrt Exp $
+-- $Id: DriverFlags.hs,v 1.26 2000/12/05 12:19:49 rrt Exp $
--
-- Driver flags
--
------- Miscellaneous -----------------------------------------------
, ( "no-link-chk" , NoArg (return ()) ) -- ignored for backwards compat
- , ( "no-hs-main" , NoArg (writeIORef no_hs_main True) )
+ , ( "no-hs-main" , NoArg (writeIORef v_noHsMain True) )
------- Output Redirection ------------------------------------------
, ( "odir" , HasArg (writeIORef v_Output_dir . Just) )
-----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.37 2000/12/05 12:15:19 rrt Exp $
+-- $Id: DriverPipeline.hs,v 1.38 2000/12/05 12:19:49 rrt Exp $
--
-- GHC Driver
--
-----------------------------------------------------------------------------
-- Linking
-GLOBAL_VAR(no_hs_main, False, Bool)
-
doLink :: [String] -> IO ()
doLink o_files = do
ln <- readIORef v_Pgm_l