From 19260ae02f1447ccd382b5c278cc5d1f22d004b3 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Tue, 23 Apr 2019 23:31:19 +0200
Subject: Possibly working lowering to isa-with-infinite-regs

---
 VM.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'VM.hs')

diff --git a/VM.hs b/VM.hs
index 4b0a1e0..dfa4c74 100644
--- a/VM.hs
+++ b/VM.hs
@@ -77,6 +77,7 @@ vmRunInstr info@(Info bbmap gfds datas) state@(State tmap (args, closure)) (dest
             obj -> error $ "VM: Cannot call non-closure object: " ++ show obj
     IAllocClo name clrefs -> return (assignRef state dest (RVClosure name (map (findRef tmap) clrefs)))
     IDiscard _ -> return state
+    IFunctionEntry -> return state
 
 vmRunTerm :: Info -> State -> Terminator -> IO (RunValue, State)
 vmRunTerm info@(Info bbmap _ _) state@(State tmap _) term = case term of
-- 
cgit v1.2.3-54-g00ecf