From 5f33e0bda955c66aa81356c6636ec65d9a40bc2e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 15 Oct 2008 07:47:57 +0000
Subject: store the total number of PMCFG categories in the PGF file

---
 src/GF/Compile/GenerateFCFG.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Compile/GenerateFCFG.hs')

diff --git a/src/GF/Compile/GenerateFCFG.hs b/src/GF/Compile/GenerateFCFG.hs
index de6c05ef1..108976506 100644
--- a/src/GF/Compile/GenerateFCFG.hs
+++ b/src/GF/Compile/GenerateFCFG.hs
@@ -330,6 +330,7 @@ getParserInfo (GrammarEnv last_id catSet seqSet funSet prodSet) =
              , sequences   = mkArray seqSet
 	     , productions = prodSet
 	     , startCats   = Map.map getFCatList catSet
+	     , totalCats   = last_id+1
 	     }
   where
     mkArray map = array (0,Map.size map-1) [(v,k) | (k,v) <- Map.toList map]
-- 
cgit v1.2.3