generate and store the ranges for all linearization rules

This commit is contained in:
krangelov
2021-11-26 14:05:03 +01:00
parent 794e15aca3
commit 4a68ea93b3
18 changed files with 203 additions and 43 deletions

View File

@@ -52,7 +52,8 @@ pmcfgForm gr t ctxt ty =
lins <- mapM str2lin lins
(r,rs,_) <- compute params
args <- zipWithM tnk2lparam args ctxt
return (Production args (LParam r rs) (reverse lins))
vars <- getVariables
return (Production vars args (LParam r rs) (reverse lins))
where
tnk2lparam tnk (_,_,ty) = do
v <- force tnk