fix compilation

X-R-G-B · Jan 14, 2024 · 6b75cd5 · 6b75cd5
1 parent 8efe9bf
commit 6b75cd5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lvtrun/src/Run/Locals.hs b/lvtrun/src/Run/Locals.hs
@@ -74,8 +74,8 @@ initLocalsParams' (values, newStack) prms =
 initLocalsParams :: [TypeName] -> Stack -> (Locals, Stack)
 initLocalsParams [] stack = ([], stack)
 initLocalsParams prms stack 
-  | length params > length stack = throw $ WasmError "initLocalsParam: bad nb"
-  | otherwise = initLocalsParams' (stackPopN stack (length params)) prms
+  | length prms > length stack = throw $ WasmError "initLocalsParam: bad nb"
+  | otherwise = initLocalsParams' (stackPopN stack (length prms)) prms
 
 initLocals :: [Local] -> [TypeName] -> Stack -> (Locals, Stack)
 initLocals localVarTypes paramTypes stack = do