diff options
Diffstat (limited to 'Intermediate.hs')
| -rw-r--r-- | Intermediate.hs | 3 |
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 |