Skip to content

Commit

Permalink
fix norm
Browse files Browse the repository at this point in the history
  • Loading branch information
TTENSHII committed Jan 14, 2024
1 parent 525d330 commit 0bb3f8f
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion lvtrun/src/Run/Vm.hs
Original file line number Diff line number Diff line change
Expand Up @@ -127,7 +127,8 @@ executeElse cEx@(CurrentExec {ceStack = stack}) =
execIf :: CurrentExec -> CurrentExec
execIf cEx@(CurrentExec {ceStack = stack}) = case stackTop stack of
I_32 0 -> goToEndInstruction cEx
I_32 1 -> executeElse (addLabel (cEx { crBlockIndents = (crBlockIndents cEx) + 1 }))
I_32 1 ->
executeElse (addLabel (cEx { crBlockIndents = (crBlockIndents cEx) + 1 }))
I_32 _ -> throw $ RuntimeError "execIf: bad if statement"
_ -> throw $ RuntimeError "execIf: bad type"

Expand Down

0 comments on commit 0bb3f8f

Please sign in to comment.