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

catch all case in GenerateBC.genFun

Browse Source
This commit is contained in:
kr.angelov
2012-09-18 08:32:21 +00:00
parent a38588fc08
commit dd0e9411e1
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/GenerateBC.hs
View File

@@ -36,6 +36,9 @@ genFun (id,info@(AbsFun (Just (L _ ty)) ma pty _)) = do
genFun (id,info@(AbsCat (Just (L _ cont)))) = do genFun (id,info@(AbsCat (Just (L _ cont)))) = do
l1 <- newLabel l1 <- newLabel
return (id,info,addr l1) return (id,info,addr l1)
genFun (id,info) = do
l1 <- newLabel
return (id,info,addr l1)
newtype GenM a = GenM {unGenM :: IntMap.IntMap BCAddr -> newtype GenM a = GenM {unGenM :: IntMap.IntMap BCAddr ->
IntMap.IntMap BCAddr -> IntMap.IntMap BCAddr ->