msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

bugfix in the conversion of parameters to numbers

Browse Source
This commit is contained in:
krangelov
2021-12-14 19:08:01 +01:00
parent e2b6774bd3
commit 14feb56140
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/GeneratePMCFG.hs
View File

@@ -192,7 +192,7 @@ param2int (VR as) (RecType lbls) = compute lbls
param2int (VApp q tnks) ty = do param2int (VApp q tnks) ty = do
(r , ctxt,cnt ) <- getIdxCnt q (r , ctxt,cnt ) <- getIdxCnt q
(r',rs', cnt') <- compute ctxt tnks (r',rs', cnt') <- compute ctxt tnks
return (r+r',rs',cnt*cnt') return (r+r',rs',cnt)
where where
getIdxCnt q = do getIdxCnt q = do
(_,ResValue (L _ ty) idx) <- getInfo q (_,ResValue (L _ ty) idx) <- getInfo q