From 0de47da80eaa9db8acd5c878983643b19431f1be Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 18 Apr 2007 13:40:51 +0000 Subject: [PATCH] remove dead code --- compiler/main/GHC.hs | 8 -------- 1 file changed, 8 deletions(-) diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs index a04c06c..9720049 100644 --- a/compiler/main/GHC.hs +++ b/compiler/main/GHC.hs @@ -321,12 +321,6 @@ defaultCleanupHandler dflags inner = inner -#if defined(GHCI) -GLOBAL_VAR(v_bkptLinkEnv, [], [(Name, HValue)]) - -- stores the current breakpoint handler to help setContext to - -- restore it after a context change -#endif - -- | Starts a new session. A session consists of a set of loaded -- modules, a set of options (DynFlags), and an interactive context. newSession :: Maybe FilePath -> IO Session @@ -494,7 +488,6 @@ depanal (Session ref) excluded_mods allow_dup_roots = do hsc_env <- readIORef ref let dflags = hsc_dflags hsc_env - gmode = ghcMode (hsc_dflags hsc_env) targets = hsc_targets hsc_env old_graph = hsc_mod_graph hsc_env @@ -551,7 +544,6 @@ load2 s@(Session ref) how_much mod_graph = do let hpt1 = hsc_HPT hsc_env let dflags = hsc_dflags hsc_env - let ghci_mode = ghcMode dflags -- this never changes -- The "bad" boot modules are the ones for which we have -- B.hs-boot in the module graph, but no B.hs -- 1.7.10.4