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 /Intermediate.hs | |
parent | 607d918e9645cb9ea101515aae003a8d1d9fe8a7 (diff) |
Possibly working lowering to isa-with-infinite-regs
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 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 |