From ecd369e0fbdc71c74ccd327899f8915045a01630 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Fri, 29 Nov 2019 21:06:54 +0100 Subject: WIP liveness analysis implementation --- Optimiser.hs | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'Optimiser.hs') diff --git a/Optimiser.hs b/Optimiser.hs index 626cb50..f09128f 100644 --- a/Optimiser.hs +++ b/Optimiser.hs @@ -178,17 +178,6 @@ dedupDatas (IRProgram origbbs gfds datatbl) = IRProgram (map goBB origbbs) gfds goI (ref, IData i) = (ref, IData (valueIdx Map.! (datatbl !! i))) goI ins = ins -outEdges :: BB -> [Int] -outEdges (BB _ _ term) = outEdgesT term - -outEdgesT :: Terminator -> [Int] -outEdgesT (IBr _ a b) = [a, b] -outEdgesT (IJmp a) = [a] -outEdgesT (IRet _) = [] -outEdgesT (ITailC _ _) = [] -outEdgesT IExit = [] -outEdgesT IUnknown = [] - readTempsBB :: BB -> [Int] readTempsBB (BB _ inss term) = concatMap (readTempsIC . snd) inss ++ readTempsT term -- cgit v1.2.3-54-g00ecf