tuning gf optimization

2007-10-10 20:29:10 +00:00
parent a303afdba3
commit 6d765e75ad
3 changed files with 29 additions and 19 deletions
--- a/src/GF/Devel/GrammarToGFCC.hs
+++ b/src/GF/Devel/GrammarToGFCC.hs
@@ -230,7 +230,7 @@ purgeGrammar abstr gr =
  acncs = abstr : M.allConcretes gr abstr
  isSingle = True
  complete (i,M.ModMod m) = M.isCompleteModule m --- not . isIncompleteCanon
-  unopt = unshareModule gr
+  unopt = unshareModule gr -- subexp elim undone when compiled

 type ParamEnv =
  (Map.Map (Ident,[Label]) (Type,Integer), -- numbered labels