diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-10-14 09:43:43 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-10-14 09:43:43 +0000 |
| commit | 37bd8dd9fd2a9dd234841a0276e83e2e06f67c43 (patch) | |
| tree | 835be6731313bad901c43692addb6373e6812bc7 /src/compiler/GF/Compile/GenerateBC.hs | |
| parent | f4dc2c0b6e63807d4c7e18383b348534d597aef5 (diff) | |
another bugfix in the byte code generation
Diffstat (limited to 'src/compiler/GF/Compile/GenerateBC.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GenerateBC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/GenerateBC.hs b/src/compiler/GF/Compile/GenerateBC.hs index 3d8a7ef3a..18c75b0b8 100644 --- a/src/compiler/GF/Compile/GenerateBC.hs +++ b/src/compiler/GF/Compile/GenerateBC.hs @@ -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 |