diff options
| author | peb <unknown> | 2005-02-09 19:45:54 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-09 19:45:54 +0000 |
| commit | 9afbd25b64607e68fe6275fb6b743159001ca984 (patch) | |
| tree | c1c7f0f1bd7f83d721f4e55318160edd1f0eee1b /src/GF/Canon | |
| parent | c467ef8d0323d896778c6ed68ce0b23441f3a65a (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Canon')
| -rw-r--r-- | src/GF/Canon/Share.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Canon/Share.hs b/src/GF/Canon/Share.hs index 89323eb2f..b6d1df520 100644 --- a/src/GF/Canon/Share.hs +++ b/src/GF/Canon/Share.hs @@ -10,6 +10,9 @@ -- > CVS $Revision $ -- -- Optimizations on GFC code: sharing, parametrization, value sets. +-- +-- optimization: sharing branches in tables. AR 25\/4\/2003. +-- following advice of Josef Svenningsson ----------------------------------------------------------------------------- module Share (shareModule, OptSpec, shareOpt, paramOpt, valOpt, allOpt) where @@ -23,9 +26,6 @@ import Operations import List import qualified Modules as M --- optimization: sharing branches in tables. AR 25/4/2003 --- following advice of Josef Svenningsson - type OptSpec = [Integer] --- doOptFactor opt = elem 2 opt |