diff options
| author | tomsmeding <tom.smeding@gmail.com> | 2019-11-29 11:10:26 +0100 |
|---|---|---|
| committer | tomsmeding <tom.smeding@gmail.com> | 2019-11-29 11:10:26 +0100 |
| commit | fe61bf61f9a1e12cd758f1e196e44d472992089f (patch) | |
| tree | 778fde28dea758ac3258509cfa8202a53651f156 /Intermediate.hs | |
| parent | 6958d67aa50d9dd550611e87ec83530369daddc0 (diff) | |
mergeBlocks should not be quadratic
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 0feeb13..62a5d4a 100644 --- a/Intermediate.hs +++ b/Intermediate.hs @@ -51,6 +51,9 @@ data Terminator bidOf :: BB -> Int bidOf (BB i _ _) = i +inssOf :: BB -> [Instruction] +inssOf (BB _ i _) = i + termOf :: BB -> Terminator termOf (BB _ _ t) = t |