add host environment for script modules

2018-04-08 17:42:25 -07:00
parent 7a66ff7150
commit 277cfad6ff
3 changed files with 142 additions and 8 deletions
@@ -1787,7 +1787,7 @@ desugarize fields =
            let ctx = FunCtx mod [] [] [] in
            let offsetInstrs = map (synInstrToStruct ctx) offset in
            let idx = fromJust $ getMemIndex mod memIndex in
-            S.DataSegment idx offsetInstrs $ TLEncoding.encodeUtf8 datastring
+            S.DataSegment idx offsetInstrs $ LBSChar8.pack $ TL.unpack datastring

        extractDataSegment :: [DataSegment] -> ModuleField -> [DataSegment]
        extractDataSegment datas (MFData dataSegment) = dataSegment : datas