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

another fix for teyjus

Browse Source
This commit is contained in:
kr.angelov
2012-08-30 08:09:30 +00:00
parent fe27540c49
commit 37e1ced6cf
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -17,7 +17,7 @@ type BCLabel = (Int, BCAddr)
genFun (id,info@(AbsFun (Just (L _ ty)) ma pty _)) = do genFun (id,info@(AbsFun (Just (L _ ty)) ma pty _)) = do
l1 <- newLabel l1 <- newLabel
emitLabel l1 {- emitLabel l1
emit Ins_fail emit Ins_fail
l2 <- newLabel l2 <- newLabel
l3 <- newLabel l3 <- newLabel
@@ -31,7 +31,7 @@ genFun (id,info@(AbsFun (Just (L _ ty)) ma pty _)) = do
l5 <- newLabel l5 <- newLabel
emit (Ins_switch_on_term (addr l4,addr l5,addr l1,addr l4)) emit (Ins_switch_on_term (addr l4,addr l5,addr l1,addr l4))
emitLabel l4 emitLabel l4
emitLabel l5 emitLabel l5-}
return (id,info,addr l1) return (id,info,addr l1)
genFun (id,info@(AbsCat (Just (L _ cont)))) = do genFun (id,info@(AbsCat (Just (L _ cont)))) = do
l1 <- newLabel l1 <- newLabel

4
src/runtime/haskell/PGF/Binary.hs
View File

@@ -38,7 +38,9 @@ instance Binary CId where
get = liftM CId get get = liftM CId get
instance Binary Abstr where instance Binary Abstr where
put abs = put (aflags abs, funs abs, cats abs) put abs = put (aflags abs,
fmap (\(w,x,y,z,_) -> (w,x,y,z)) (funs abs),
fmap (\(x,y,_) -> (x,y)) (cats abs))
get = do aflags <- get get = do aflags <- get
funs <- get funs <- get
cats <- get cats <- get