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

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

(limited to 'Compiler.hs')

diff --git a/Compiler.hs b/Compiler.hs
index 8c32236..d190565 100644
--- a/Compiler.hs
+++ b/Compiler.hs
@@ -242,6 +242,7 @@ genTValue (TVLambda args body closure) nextnext = do
         withScope (Map.fromList (zip args (map SIParam [0..]) ++ zip closure (map SIClosure [0..]))) $ do
             b <- newBlockSwitch
             b2 <- newBlock
+            addIns (RNone, IFunctionEntry)
             ref <- genTValue body b2
             switchBlock b2
             setTerm $ IRet ref
-- 
cgit v1.2.3-54-g00ecf