diff options
| author | krasimir <krasimir@chalmers.se> | 2010-12-17 09:11:04 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-12-17 09:11:04 +0000 |
| commit | 71e0ec4d417dab88a7abf33dd23d7197c453450d (patch) | |
| tree | 7d77655f55497b588dbd2ccdf386df98e6d364f4 /src | |
| parent | e4b2b8541feba5c75316034b191c3b3bcdd8b9d2 (diff) | |
bugfix: GeneratePMCFG should initialize the lexicon to empty
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Compile/GeneratePMCFG.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs index afc409654..a3406dd0e 100644 --- a/src/compiler/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/GF/Compile/GeneratePMCFG.hs @@ -568,6 +568,7 @@ getConcr flags printnames (GrammarEnv last_id catSet seqSet funSet lindefSet crc , productions = IntMap.union prodSet coercions , pproductions = IntMap.empty , lproductions = Map.empty + , lexicon = IntMap.empty , cnccats = Map.fromList [(i2i cat,PGF.Data.CncCat start end (mkArray (map (renderStyle style{mode=OneLineMode} . ppPath) (getStrPaths schema)))) | (cat,(start,end,schema)) <- Map.toList catSet] , totalCats = last_id+1 |