Tail call optimisation

1 files changed, 2 insertions, 0 deletions

diff --git a/Intermediate.hs b/Intermediate.hs
index 0e181a4..95f6cc7 100644
--- a/Intermediate.hs
+++ b/Intermediate.hs
@@ -41,6 +41,7 @@ data Terminator
     = IBr Ref Int Int
     | IJmp Int
     | IRet Ref
+    | ITailC Ref [Ref]
     | IExit
     | IUnknown
   deriving Eq
@@ -91,5 +92,6 @@ instance Show Terminator where
     show (IBr r b1 b2) = "br " ++ show r ++ " " ++ show b1 ++ " " ++ show b2
     show (IJmp b) = "jmp " ++ show b
     show (IRet r) = "ret " ++ show r
+    show (ITailC r as) = "tailc " ++ show r ++ " " ++ show as
     show IExit = "exit"
     show IUnknown = "<<UNKNOWN>>"