diff options
Diffstat (limited to 'Compiler.hs')
-rw-r--r-- | Compiler.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |