msyds/haskell-wasm
1
0
Fork 0
forked from GitHub/haskell-wasm
Code Pull Requests Activity

fix call_indirect evaluation

Browse Source
This commit is contained in:
Ilya Rezvov
2018-04-09 21:41:17 -07:00
parent dac931b055
commit d055a4ff6d
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Interpreter.hs
+1 -1
View File
@@ -572,7 +572,7 @@ eval store FunctionInstance { funcType, moduleInstance, code = Function { localT
return $ Done ctx { stack = reverse res ++ (drop (length args) $ stack ctx) }
step ctx@EvalCtx{ stack = (VI32 v): rest } (CallIndirect typeIdx) = do
let funcType = funcTypes moduleInstance ! fromIntegral typeIdx
let TableInstance { elements } = tableInstances store ! (tableaddrs moduleInstance ! fromIntegral v)
let TableInstance { elements } = tableInstances store ! (tableaddrs moduleInstance ! 0)
let funcAddr = elements !? fromIntegral v
case funcAddr of
Just (Just addr) -> do