diff options
| author | simonpj <unknown> | 2003-02-04 15:09:47 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2003-02-04 15:09:47 +0000 |
| commit | 957bf3756ffd56f5329a2aabe1022d6f996dd641 (patch) | |
| tree | 24c92583a5fc1d61d3b7ea020f29603bc09098af /ghc/compiler/main/DriverFlags.hs | |
| parent | e8f681e4b0294bf44ba50df80559112c769242ce (diff) | |
| download | haskell-957bf3756ffd56f5329a2aabe1022d6f996dd641.tar.gz | |
[project @ 2003-02-04 15:09:38 by simonpj]
-------------------------------------
Remove all vestiges of usage analysis
-------------------------------------
This commit removes a large blob of usage-analysis-related code, almost
all of which was commented out.
Sadly, it doesn't look as if Keith is going to have enough time to polish it
up, and in any case the actual performance benefits (so far as we can measure
them) turned out to be pretty modest (a few percent).
So, with regret, I'm chopping it all out. It's still there in the repository
if anyone wants go hack on it. And Tobias Gedell at Chalmers is implementing
a different analysis, via External Core.
Diffstat (limited to 'ghc/compiler/main/DriverFlags.hs')
| -rw-r--r-- | ghc/compiler/main/DriverFlags.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs index 4c110c0b4e..62e6524e32 100644 --- a/ghc/compiler/main/DriverFlags.hs +++ b/ghc/compiler/main/DriverFlags.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: DriverFlags.hs,v 1.110 2003/01/09 11:39:20 simonmar Exp $ +-- $Id: DriverFlags.hs,v 1.111 2003/02/04 15:09:40 simonpj Exp $ -- -- Driver flags -- @@ -319,9 +319,6 @@ static_flags = , ( "frule-check", SepArg (\s -> writeIORef v_RuleCheck (Just s)) ) - , ( "fusagesp" , NoArg (do writeIORef v_UsageSPInf True - add v_Opt_C "-fusagesp-on") ) - , ( "fexcess-precision" , NoArg (do writeIORef v_Excess_precision True add v_Opt_C "-fexcess-precision")) @@ -397,7 +394,6 @@ dynamic_flags = [ , ( "ddump-tc", NoArg (setDynFlag Opt_D_dump_tc) ) , ( "ddump-types", NoArg (setDynFlag Opt_D_dump_types) ) , ( "ddump-rules", NoArg (setDynFlag Opt_D_dump_rules) ) - , ( "ddump-usagesp", NoArg (setDynFlag Opt_D_dump_usagesp) ) , ( "ddump-cse", NoArg (setDynFlag Opt_D_dump_cse) ) , ( "ddump-worker-wrapper", NoArg (setDynFlag Opt_D_dump_worker_wrapper) ) , ( "dshow-passes", NoArg (setVerbosity "2") ) @@ -417,7 +413,6 @@ dynamic_flags = [ , ( "ddump-vect", NoArg (setDynFlag Opt_D_dump_vect) ) , ( "dcore-lint", NoArg (setDynFlag Opt_DoCoreLinting) ) , ( "dstg-lint", NoArg (setDynFlag Opt_DoStgLinting) ) - , ( "dusagesp-lint", NoArg (setDynFlag Opt_DoUSPLinting) ) ------ Machine dependant (-m<blah>) stuff --------------------------- |