diff options
| -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 |