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

another bugfix in the byte code generation

Browse Source
This commit is contained in:
kr.angelov
2014-10-14 09:43:43 +00:00
parent e8b81c145b
commit bc8cb8e9d7
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

@@ -153,10 +153,10 @@ compileArg gr st vs (EInt n) h0 bs =
let h1 = h0 + 2
in (h1,bs,HEAP h0,[PUT_LIT (LInt n)])
compileArg gr st vs (K s) h0 bs =
let h1 = h0 + 1 + (length s + 4) `div` 4
let h1 = h0 + 2
in (h1,bs,HEAP h0,[PUT_LIT (LStr s)])
compileArg gr st vs (EFloat d) h0 bs =
let h1 = h0 + 3
let h1 = h0 + 2
in (h1,bs,HEAP h0,[PUT_LIT (LFlt d)])
compileArg gr st vs (Typed e _) h0 bs =
compileArg gr st vs e h0 bs