From 19260ae02f1447ccd382b5c278cc5d1f22d004b3 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Tue, 23 Apr 2019 23:31:19 +0200
Subject: Possibly working lowering to isa-with-infinite-regs

---
 Intermediate.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Intermediate.hs')

diff --git a/Intermediate.hs b/Intermediate.hs
index 8c07980..2729493 100644
--- a/Intermediate.hs
+++ b/Intermediate.hs
@@ -44,6 +44,8 @@ data InsCode
     | IAllocClo Name [Ref]
     -- | Do nothing?
     | IDiscard Ref
+    -- | Do stuff on function entry
+    | IFunctionEntry
   deriving Eq
 
 data Terminator
@@ -95,6 +97,7 @@ instance Show InsCode where
     show (ICallC r as) = "callc " ++ show r ++ " " ++ show as
     show (IAllocClo name vs) = "alloc-closure \"" ++ name ++ "\" " ++ show vs
     show (IDiscard r) = "discard " ++ show r
+    show IFunctionEntry = "function-entry"
 
 instance Show Terminator where
     show (IBr r b1 b2) = "br " ++ show r ++ " " ++ show b1 ++ " " ++ show b2
-- 
cgit v1.2.3-54-g00ecf