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 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 |