From 8bb0c32a9cf2cbad0375ab5886b7f2be37109477 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 30 May 2008 11:15:33 +0000 Subject: replace GFCC with PGF in (almost) all places --- src-3.0/GF/Compile/OptimizeGFCC.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src-3.0/GF/Compile/OptimizeGFCC.hs') 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 -- cgit v1.2.3