diff options
Diffstat (limited to 'src-3.0/GF/Compile/OptimizeGFCC.hs')
| -rw-r--r-- | src-3.0/GF/Compile/OptimizeGFCC.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src-3.0/GF/Compile/OptimizeGFCC.hs b/src-3.0/GF/Compile/OptimizeGFCC.hs index 16cdf9ac3..c73d5bbcb 100644 --- a/src-3.0/GF/Compile/OptimizeGFCC.hs +++ b/src-3.0/GF/Compile/OptimizeGFCC.hs @@ -12,12 +12,12 @@ import qualified Data.Map as Map -- back-end optimization: -- suffix analysis followed by common subexpression elimination -optGFCC :: GFCC -> GFCC -optGFCC = cseOptimize . suffixOptimize +optPGF :: PGF -> PGF +optPGF = cseOptimize . suffixOptimize -suffixOptimize :: GFCC -> GFCC -suffixOptimize gfcc = gfcc { - concretes = Map.map opt (concretes gfcc) +suffixOptimize :: PGF -> PGF +suffixOptimize pgf = pgf { + concretes = Map.map opt (concretes pgf) } where opt cnc = cnc { @@ -26,9 +26,9 @@ suffixOptimize gfcc = gfcc { printnames = Map.map optTerm (printnames cnc) } -cseOptimize :: GFCC -> GFCC -cseOptimize gfcc = gfcc { - concretes = Map.map subex (concretes gfcc) +cseOptimize :: PGF -> PGF +cseOptimize pgf = pgf { + concretes = Map.map subex (concretes pgf) } -- analyse word form lists into prefix + suffixes |