diff options
Diffstat (limited to 'Sjit/Run.icl')
| -rw-r--r-- | Sjit/Run.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Sjit/Run.icl b/Sjit/Run.icl index b5858ec..e3e623f 100644 --- a/Sjit/Run.icl +++ b/Sjit/Run.icl @@ -23,6 +23,10 @@ where [val:stack] -> exec (i+1) (take (n-1) stack ++ [val:drop n stack]) Pop n -> exec (i+1) (drop n stack) Call f -> exec f [i+1:stack] + Jmp f -> exec f stack + JmpTrue f -> case stack of + [0:stack] -> exec (i+1) stack + [_:stack] -> exec f stack Ret -> case stack of [ret:stack] -> exec ret stack Halt -> case stack of |