diff options
Diffstat (limited to 'VM.hs')
-rw-r--r-- | VM.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -78,6 +78,7 @@ vmRunInstr info@(Info bbmap gfds datas) state@(State tmap (args, closure)) (dest IAllocClo name clrefs -> return (assignRef state dest (RVClosure name (map (findRef tmap) clrefs))) IDiscard _ -> return state IFunctionEntry -> return state + IApplicationEntry -> return state vmRunTerm :: Info -> State -> Terminator -> IO (RunValue, State) vmRunTerm info@(Info bbmap _ _) state@(State tmap _) term = case term of |