diff options
author | simonmar <unknown> | 2005-03-18 13:41:59 +0000 |
---|---|---|
committer | simonmar <unknown> | 2005-03-18 13:41:59 +0000 |
commit | d1c1b7d0e7b94ede238845c91f58582bad3b3ef3 (patch) | |
tree | d667497b2911fd03c3a51df69ed4325345135964 /ghc/compiler/cmm/CmmParse.y | |
parent | 6a51f7df593cf73f4093bb1948d62db504fa6631 (diff) | |
download | haskell-d1c1b7d0e7b94ede238845c91f58582bad3b3ef3.tar.gz |
[project @ 2005-03-18 13:37:27 by simonmar]
Flags cleanup.
Basically the purpose of this commit is to move more of the compiler's
global state into DynFlags, which is moving in the direction we need
to go for the GHC API which can have multiple active sessions
supported by a single GHC instance.
Before:
$ grep 'global_var' */*hs | wc -l
78
After:
$ grep 'global_var' */*hs | wc -l
27
Well, it's an improvement. Most of what's left won't really affect
our ability to host multiple sessions.
Lots of static flags have become dynamic flags (yay!). Notably lots
of flags that we used to think of as "driver" flags, like -I and -L,
are now dynamic. The most notable static flags left behind are the
"way" flags, eg. -prof. It would be nice to fix this, but it isn't
urgent.
On the way, lots of cleanup has happened. Everything related to
static and dynamic flags lives in StaticFlags and DynFlags
respectively, and they share a common command-line parser library in
CmdLineParser. The flags related to modes (--makde, --interactive
etc.) are now private to the front end: in fact private to Main
itself, for now.
Diffstat (limited to 'ghc/compiler/cmm/CmmParse.y')
-rw-r--r-- | ghc/compiler/cmm/CmmParse.y | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/compiler/cmm/CmmParse.y b/ghc/compiler/cmm/CmmParse.y index b852eb3b48..3ae93ff6b1 100644 --- a/ghc/compiler/cmm/CmmParse.y +++ b/ghc/compiler/cmm/CmmParse.y @@ -37,7 +37,8 @@ import Literal ( mkMachInt ) import Unique import UniqFM import SrcLoc -import CmdLineOpts ( DynFlags, DynFlag(..), opt_SccProfilingOn ) +import DynFlags ( DynFlags, DynFlag(..) ) +import StaticFlags ( opt_SccProfilingOn ) import ErrUtils ( printError, dumpIfSet_dyn, showPass ) import StringBuffer ( hGetStringBuffer ) import FastString |