GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

yet another bugfix in the byte code

Browse Source
This commit is contained in:
kr.angelov
2014-10-14 10:39:28 +00:00
parent 37bd8dd9fd
commit b5cc77aea1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -202,7 +202,7 @@ compileLambda gr st vs xs e h0 bs =
(arity+1) (arity+1)
(zip xs (map ARG_VAR [0..]) ++ (zip xs (map ARG_VAR [0..]) ++
zip ys (map FREE_VAR [0..])) zip ys (map FREE_VAR [0..]))
e bs e (b1:bs)
b1 = if arity == 0 b1 = if arity == 0
then b then b
else CHECK_ARGS arity:b else CHECK_ARGS arity:b
@@ -210,7 +210,7 @@ compileLambda gr st vs xs e h0 bs =
then [SET_PAD] then [SET_PAD]
else map (SET . shiftIVal st . getVar vs) ys else map (SET . shiftIVal st . getVar vs) ys
h1 = h0 + 1 + length is h1 = h0 + 1 + length is
in (h1,b1:bs1,HEAP h0,PUT_CLOSURE (length bs1) : is) in (h1,bs1,HEAP h0,PUT_CLOSURE (length bs) : is)
getVar vs x = getVar vs x =
case lookup x vs of case lookup x vs of