fix memory growing behavior

src/Language/Wasm/Interpreter.hs

@@ -794,12 +794,12 @@ eval store FunctionInstance { funcType, moduleInstance, code = Function { localT
         step ctx@EvalCtx{ stack = (VI32 n:rest) } GrowMemory = do
             let ref = memInstances store ! (memaddrs moduleInstance ! 0)
             MemoryInstance { memory, maxLen } <- readIORef ref
-            let size = fromIntegral $ IOVector.length memory `div` pageSize
+            let size = fromIntegral $ IOVector.length memory `quot` pageSize
             let growTo = size + fromIntegral n
             result <- (
-                    if fromMaybe True ((growTo <=) <$> maxLen)
+                    if fromMaybe True ((growTo <=) <$> maxLen) && growTo <= 0xFFFF
                     then do
-                        mem' <- IOVector.grow memory $ growTo * pageSize
+                        mem' <- IOVector.grow memory $ fromIntegral n * pageSize
                         writeIORef ref $ MemoryInstance mem' maxLen
                         return size
                     else return $ -1

tests/Test.hs

@@ -34,7 +34,7 @@ compile file = do
 main :: IO ()
 main = do
   files <- Directory.listDirectory "tests/samples"
-  -- let files = ["memory.wast"]
+  -- let files = ["resizing.wast"]
   scriptTestCases <- (`mapM` files) $ \file -> do
     content <- LBS.readFile $ "tests/samples/" ++ file
     let Right script = Parser.parseScript <$> Lexer.scanner content