GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the segmentation fault with Swedish

Browse Source
This commit is contained in:
krasimir
2008-09-16 15:11:06 +00:00
parent 5c2eae8abd
commit 647f7661c2
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/PGF/Parsing/FCFG/Incremental.hs
View File

@@ -39,9 +39,7 @@ initState pinfo start =
forest = IntMap.fromListWith Set.union [(cat, Set.singleton (Passive ruleid args)) | (ruleid, FRule _ _ args cat _) <- assocs (allRules pinfo)]
max_fid = case IntMap.maxViewWithKey forest of
Just ((fid,_), _) -> fid+1
Nothing -> 0
max_fid = maximum (0:[maximum (cat:args) | (ruleid, FRule _ _ args cat _) <- assocs (allRules pinfo)])+1
in State pinfo
(Chart MM.empty [] Map.empty forest max_fid 0)