diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2012-12-06 16:31:49 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2012-12-06 16:31:49 +0000 |
| commit | 08e33edf20e2274b1266b4809ecea5678014b0a3 (patch) | |
| tree | 62ee3fa337df15da2c3c6c985099b22f41808344 /compiler/supercompile/Supercompile/Evaluator | |
| parent | 5ff68875f73bd52faa3fe94631aab4cb2c05a70b (diff) | |
| download | haskell-supercompiler.tar.gz | |
Last bug fixes and flag additions.supercompiler
Diffstat (limited to 'compiler/supercompile/Supercompile/Evaluator')
| -rw-r--r-- | compiler/supercompile/Supercompile/Evaluator/Evaluate.hs | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs b/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs index d3556bf029..2a833bbf10 100644 --- a/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs +++ b/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs @@ -560,7 +560,24 @@ shouldExposeUnfolding :: Id -> Either String Superinlinable shouldExposeUnfolding x = case inl_inline inl_prag of -- FIXME: God help my soul _ | Just mod <- nameModule_maybe (idName x) - , moduleName mod `elem` map mkModuleName ["Data.Complex", "GHC.List"] + , moduleName mod `elem` map mkModuleName [ + "Data.Complex", "GHC.List", + "QSort", -- awards + "Checker", "Lisplikefns", "Rewritefns", "Rulebasetext", -- boyer2 + "Auxil", "Interval", "Key", "Prog", -- cichelli + "MonadState", "MonadTrans", -- cryptarithm2 + "StateMonad", -- cse + "Knowledge", "Result", "Search", "Table", "Match", -- expert + "Fourier", "Complex_Vectors", -- fft2 + "RA", "RC", "RG", "RU", "Types", -- nucleic2 + "ChessSetArray", "ChessSetList", "KnightHeuristic", "Queue", "Sort", -- knights + "Mandel", -- mandel + "Move", "Problem", "Solution", -- mate + "Board", "Game", "Prog", "Tree", "Wins", -- minimax + "CharSeq", "Pretty", -- pretty + "IntLib", "MyRandom", "Prime", -- primetest + "Digraph" -- scc + ] -> Right True -- These get wrappers generated for them: be very eager to inline the wrappers | isPrimOpId x || isDataConWorkId x |