fix norm

X-R-G-B · Jan 14, 2024 · 38ea155 · 38ea155
1 parent 7ef7c25
commit 38ea155
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 10 deletions.
diff --git a/lvtrun/src/Run/Types.hs b/lvtrun/src/Run/Types.hs
@@ -66,7 +66,8 @@ createVm wasmMod = VM { vmStack = [],
 }
 
 goToLabel :: CurrentExec -> LabelIdx -> CurrentExec
-goToLabel cEx labelIdx = cEx {ceInstIdx = fromIntegral (getLabelOpIdx cEx labelIdx)}
+goToLabel cEx labelIdx =
+  cEx {ceInstIdx = fromIntegral (getLabelOpIdx cEx labelIdx)}
 
 getLabelOpIdx :: CurrentExec -> LabelIdx -> Int
 getLabelOpIdx cEx labelIdx

diff --git a/lvtrun/src/Run/Vm.hs b/lvtrun/src/Run/Vm.hs
@@ -140,9 +140,10 @@ execI32LeS cEx@(CurrentExec {ceStack = stack}) =
 execI32GtU :: CurrentExec -> CurrentExec
 execI32GtU cEx@(CurrentExec {ceStack = stack}) =
   case (stackPopN stack 2) of
-    ([I_32 val2, I_32 val1], newStack) -> case ((fromIntegral val1) > (fromIntegral val2)) of
-      True -> cEx { ceStack = stackPush newStack (I_32 1) }
-      False -> cEx { ceStack = stackPush newStack (I_32 0) }
+    ([I_32 val2, I_32 val1], newStack) ->
+      case ((fromIntegral val1) > (fromIntegral val2)) of
+        True -> cEx { ceStack = stackPush newStack (I_32 1) }
+        False -> cEx { ceStack = stackPush newStack (I_32 0) }
 
 incrementBlockIndent :: CurrentExec -> CurrentExec
 incrementBlockIndent cEx = cEx { crBlockIndents = (crBlockIndents cEx) + 1 }
@@ -176,12 +177,6 @@ execOpCode _ cEx (Br labelIdx) = execBr cEx labelIdx
 execOpCode _ cEx (Loop) = incrementBlockIndent (addLabel cEx)
 execOpCode _ cEx _ = cEx
 
---IF/ELSE
---LOOP
---BR
-
-
-
 execOpCodes :: VM -> [Instruction] -> CurrentExec
 execOpCodes vm [] = currentExec vm
 execOpCodes vm instructions