diff options
author | tomsmeding <tom.smeding@gmail.com> | 2019-04-28 16:49:32 +0200 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2019-04-28 16:49:32 +0200 |
commit | b2320404202ad3296480bd472a6a79f5e5427de8 (patch) | |
tree | 22f37cbabbf95b864db3fcf3761c4372cd7b81e4 /Compiler.hs | |
parent | 3c40705b60d40f4c863c72091b3b4f30ff79c916 (diff) |
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.
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 |