From 37bd8dd9fd2a9dd234841a0276e83e2e06f67c43 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 14 Oct 2014 09:43:43 +0000 Subject: [PATCH] another bugfix in the byte code generation --- src/compiler/GF/Compile/GenerateBC.hs | 4 ++-- 1 file 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