From b2320404202ad3296480bd472a6a79f5e5427de8 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Sun, 28 Apr 2019 16:49:32 +0200
Subject: Preliminary finish of lowering

That is to say, there is no register allocation yet, but I think the
currently generated code can be regalloc'd without much trouble.
---
 Compiler.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Compiler.hs')

diff --git a/Compiler.hs b/Compiler.hs
index d190565..d8c4675 100644
--- a/Compiler.hs
+++ b/Compiler.hs
@@ -153,6 +153,7 @@ withScope sc act = do
 compileProgram :: Program -> Either String IRProgram
 compileProgram (Program values) = runCM $ do
     bstart <- newBlockSwitch
+    addIns (RNone, IApplicationEntry)
     forM_ values $ \value -> do
         bnext <- newBlock
         ref <- genTValue (analyseValue value) bnext
-- 
cgit v1.2.3-54-g00ecf