From fe61bf61f9a1e12cd758f1e196e44d472992089f Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Fri, 29 Nov 2019 11:10:26 +0100 Subject: mergeBlocks should not be quadratic --- Intermediate.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Intermediate.hs') 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 -- cgit v1.2.3-70-g09d2