diff options
author | Tom Smeding <tom.smeding@gmail.com> | 2019-04-23 23:31:19 +0200 |
---|---|---|
committer | Tom Smeding <tom.smeding@gmail.com> | 2019-04-23 23:31:19 +0200 |
commit | 19260ae02f1447ccd382b5c278cc5d1f22d004b3 (patch) | |
tree | db2c143bc29c1a8a456db103b550ecd52c7a81e2 /Compiler.hs | |
parent | 607d918e9645cb9ea101515aae003a8d1d9fe8a7 (diff) |
Possibly working lowering to isa-with-infinite-regs
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 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 |