diff options
| author | simonmar <unknown> | 2005-10-25 12:48:35 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-10-25 12:48:35 +0000 |
| commit | 78b72ed1e0ffab668e0d4bb31657942970515e4f (patch) | |
| tree | 5bc7a1c8060510163e38203ea142879bd99d4a92 /ghc/compiler/ghci/Linker.lhs | |
| parent | 2909e581ddf0162ad2c113e17a8f19991862b89c (diff) | |
| download | haskell-78b72ed1e0ffab668e0d4bb31657942970515e4f.tar.gz | |
[project @ 2005-10-25 12:48:35 by simonmar]
Two changes from Krasimir Angelov, which were required for Visual
Haskell:
- messaging cleanup throughout the compiler. DynFlags has a new
field:
log_action :: Severity -> SrcSpan -> PprStyle -> Message -> IO ()
this action is invoked for every message generated by the
compiler. This means a client of the GHC API can direct messages to
any destination, or collect them up in an IORef for later
perusal.
This replaces previous hacks to redirect messages in the GHC API
(hence some changes to function types in GHC.hs).
- The JustTypecheck mode of GHC now does what it says. It doesn't
run any of the compiler passes beyond the typechecker for each module,
but does generate the ModIface in order that further modules can be
typechecked.
And one change from me:
- implement the LANGUAGE pragma, finally
Diffstat (limited to 'ghc/compiler/ghci/Linker.lhs')
| -rw-r--r-- | ghc/compiler/ghci/Linker.lhs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs index 81b512feee..162adbf04d 100644 --- a/ghc/compiler/ghci/Linker.lhs +++ b/ghc/compiler/ghci/Linker.lhs @@ -623,12 +623,9 @@ unload dflags linkables new_pls <- unload_wkr dflags linkables pls writeIORef v_PersistentLinkerState new_pls - debugTraceMsg dflags 3 (showSDoc - (text "unload: retaining objs" <+> ppr (objs_loaded new_pls))) - debugTraceMsg dflags 3 (showSDoc - (text "unload: retaining bcos" <+> ppr (bcos_loaded new_pls))) - - return () + debugTraceMsg dflags 3 (text "unload: retaining objs" <+> ppr (objs_loaded new_pls)) + debugTraceMsg dflags 3 (text "unload: retaining bcos" <+> ppr (bcos_loaded new_pls)) + return () unload_wkr :: DynFlags -> [Linkable] -- stable linkables |