From f9bcf22542b30b75c73cc9d45a91561998b083dc Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Tue, 26 Nov 2019 22:11:28 +0100 Subject: Use IOArray for TempMap in VM --- Intermediate.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Intermediate.hs') diff --git a/Intermediate.hs b/Intermediate.hs index a020509..efa0e40 100644 --- a/Intermediate.hs +++ b/Intermediate.hs @@ -64,6 +64,9 @@ termOf (BB _ _ t) = t class AllRefs a where allRefs :: a -> [Ref] +instance AllRefs IRProgram where + allRefs (IRProgram bbs _ _) = allRefs bbs + instance AllRefs BB where allRefs (BB _ inss term) = sortUniq $ concatMap (allRefs . snd) inss ++ allRefs term -- cgit v1.2.3-54-g00ecf