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.

1 files changed, 3 insertions, 0 deletions

diff --git a/Intermediate.hs b/Intermediate.hs
index 2729493..8c4a5dc 100644
--- a/Intermediate.hs
+++ b/Intermediate.hs
@@ -46,6 +46,8 @@ data InsCode
     | IDiscard Ref
     -- | Do stuff on function entry
     | IFunctionEntry
+    -- | Do stuff on application entry
+    | IApplicationEntry
   deriving Eq
 
 data Terminator
@@ -98,6 +100,7 @@ instance Show InsCode where
     show (IAllocClo name vs) = "alloc-closure \"" ++ name ++ "\" " ++ show vs
     show (IDiscard r) = "discard " ++ show r
     show IFunctionEntry = "function-entry"
+    show IApplicationEntry = "application-entry"
 
 instance Show Terminator where
     show (IBr r b1 b2) = "br " ++ show r ++ " " ++ show b1 ++ " " ++ show b2